home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gnuawk.zip / awklib / eg / lib / join.awk < prev    next >
Text File  |  1997-03-15  |  380b  |  16 lines
  1. # join.awk --- join an array into a string
  2. # Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain
  3. # May 1993
  4.  
  5. function join(array, start, end, sep,    result, i)
  6. {
  7.     if (sep == "")
  8.        sep = " "
  9.     else if (sep == SUBSEP) # magic value
  10.        sep = ""
  11.     result = array[start]
  12.     for (i = start + 1; i <= end; i++)
  13.         result = result sep array[i]
  14.     return result
  15. }
  16.