home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / awklib / eg / lib / join.awk < prev    next >
Encoding:
Text File  |  1996-01-11  |  380 b   |  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.