1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
# Written by Aleksey Cheusov <vle@gmx.net>, public domain
#
# This awk module is a part of RunAWK distribution,
# http://sourceforge.net/projects/runawk
#
############################################################
# =head2 alt_join.awk
#
# =over 2
#
# =item I<join_keys (HASH, SEP)>
#
# return string consisting of all keys from HASH separated by SEP.
#
# =item I<join_values (HASH, SEP)>
#
# return string consisting of all values from HASH separated by SEP.
#
# =item I<join_by_numkeys (ARRAY, SEP [, START [, END]])>
#
# return string consisting of all values from ARRAY
# separated by SEP. Indices from START (default: 1) to END
# (default: +inf) are analysed. Collecting values is stopped
# on index absent in ARRAY.
#
# =back
#
function join_keys (hash, sep, k,ret,flag){
ret = ""
for (k in hash){
if (flag){
ret = ret sep k
}else{
flag = 1
ret = k
}
}
return ret
}
function join_values (hash, sep, k,ret,flag){
ret = ""
for (k in hash){
if (flag){
ret = ret sep hash [k]
}else{
flag = 1
ret = hash [k]
}
}
return ret
}
function join_by_numkeys (array, sep, start, end, ret,flag){
ret = ""
if (start == "")
start = 1
if (end == "")
end = 1.0E+37
for (; start <= end && (start in array); ++start){
if (flag){
ret = ret sep array [start]
}else{
flag = 1
ret = array [start]
}
}
return ret
}
|
