share/awk/join.awk

# join.awk --- join an array into a string
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# May 1993

function join(array, start, end, sep,    result, i)
{
    if (sep == "")
       sep = " "
    else if (sep == SUBSEP) # magic value
       sep = ""
    result = array[start]
    for (i = start + 1; i <= end; i++)
        result = result sep array[i]
    return result
}
Revision:	1046
Committed:	Mon Aug 29 13:19:38 2016 UTC (9 years, 2 months ago) by alloc
File size:	378 byte(s)
Log Message:	Daodan: Added Windows MinGW and build batch file
#	Content
1	# join.awk --- join an array into a string
2	#
3	# Arnold Robbins, arnold@skeeve.com, Public Domain
4	# May 1993
5
6	function join(array, start, end, sep, result, i)
7	{
8	if (sep == "")
9	sep = " "
10	else if (sep == SUBSEP) # magic value
11	sep = ""
12	result = array[start]
13	for (i = start + 1; i <= end; i++)
14	result = result sep array[i]
15	return result
16	}