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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
BEGIN{
lnum=0;
cnum=0;
type="";
last_field="";
FS=":";
# category is an array of category data
delete category;
# link is an array of link data
delete link;
### configurable variables
BASEDIR="./"; # the folder where the hierarchy will be created
ROOTSEL="/lawn/index.gph"; # the selector of the root page (back)
HOST="localhost"; # the default host
PORT="1500"; # and the default port
}
function is_empty(a){
for (i in a)
return 0;
return 1;
}
function add_link(c){
lnum+=1;
for (k in c){
link[lnum,k]=c[k];
}
}
function add_category(c){
cnum+=1;
for (k in c){
category[cnum,k]=c[k];
}
}
function get_cur(cur){
switch (cur["Type"]) {
case "": {
print "empty type -- skipping record";
return;
}
case "link": {
add_link(cur);
return;
}
case "category":{
add_category(cur);
return;
}
default: {
printf("invalid type: %s -- skipping\n", cur["Type"]) ;
return;
}
}
}
/^[A-Z][-a-zA-Z]+:/{## New field
gsub(/^ +/,"",$2);
gsub(/ *$/,"",$2);
cur[$1]=$2;
last_field=$1
}
/^[[:blank:]]*$/{ ## End of stanza
if (!is_empty(cur)){
get_cur(cur);
delete cur;
last_field="";
}
}
/^[[:blank:]]+[^[:blank:]]+/{## Multi-line value
if (!is_empty(cur) && last_field!=""){
gsub(/^[[:blank:]]+/, "", $0);
cur[last_field]=cur[last_field] "\n" $0;
}
}
END{
render_init();
render_categories(category, cnum);
render_post_categories(category, cnum);
render_links(category, cnum, link, lnum);
render_finalise(category, cnum, link, lnum);
dump_links(category, cnum, link, lnum);
}
|
