merge_help.awk revision 1.1.4.3 1 1.1.4.3 elad #$NetBSD: merge_help.awk,v 1.1.4.3 2006/05/11 23:26:48 elad Exp $
2 1.1.4.2 elad #!/usr/bin/awk -f
3 1.1.4.2 elad #
4 1.1.4.3 elad # $FreeBSD: src/sys/boot/common/merge_help.awk,v 1.5 2001/11/07 17:53:25 fenner Exp $
5 1.1.4.2 elad #
6 1.1.4.2 elad # Merge two boot loader help files for FreeBSD 3.0
7 1.1.4.2 elad # Joe Abley <jabley (at] patho.gen.nz>
8 1.1.4.2 elad
9 1.1.4.2 elad BEGIN \
10 1.1.4.2 elad {
11 1.1.4.2 elad state = 0;
12 1.1.4.2 elad first = -1;
13 1.1.4.2 elad ind = 0;
14 1.1.4.2 elad }
15 1.1.4.2 elad
16 1.1.4.2 elad # beginning of first command
17 1.1.4.2 elad /^###/ && (state == 0) \
18 1.1.4.2 elad {
19 1.1.4.2 elad state = 1;
20 1.1.4.2 elad next;
21 1.1.4.2 elad }
22 1.1.4.2 elad
23 1.1.4.2 elad # entry header
24 1.1.4.2 elad /^# T[[:graph:]]+ (S[[:graph:]]+ )*D[[:graph:]][[:print:]]*$/ && (state == 1) \
25 1.1.4.2 elad {
26 1.1.4.2 elad match($0, " T[[:graph:]]+");
27 1.1.4.2 elad T = substr($0, RSTART + 2, RLENGTH - 2);
28 1.1.4.2 elad match($0, " S[[:graph:]]+");
29 1.1.4.2 elad S = (RLENGTH == -1) ? "" : substr($0, RSTART + 2, RLENGTH - 2);
30 1.1.4.2 elad match($0, " D[[:graph:]][[:print:]]*$");
31 1.1.4.2 elad D = substr($0, RSTART + 2);
32 1.1.4.2 elad
33 1.1.4.2 elad # find a suitable place to store this one...
34 1.1.4.2 elad ind++;
35 1.1.4.2 elad if (ind == 1)
36 1.1.4.2 elad {
37 1.1.4.2 elad first = ind;
38 1.1.4.2 elad help[ind, "T"] = T;
39 1.1.4.2 elad help[ind, "S"] = S;
40 1.1.4.2 elad help[ind, "link"] = -1;
41 1.1.4.2 elad } else {
42 1.1.4.2 elad i = first; j = -1;
43 1.1.4.2 elad while (help[i, "T"] help[i, "S"] < T S)
44 1.1.4.2 elad {
45 1.1.4.2 elad j = i;
46 1.1.4.2 elad i = help[i, "link"];
47 1.1.4.2 elad if (i == -1) break;
48 1.1.4.2 elad }
49 1.1.4.2 elad
50 1.1.4.2 elad if (i == -1)
51 1.1.4.2 elad {
52 1.1.4.2 elad help[j, "link"] = ind;
53 1.1.4.2 elad help[ind, "link"] = -1;
54 1.1.4.2 elad } else {
55 1.1.4.2 elad help[ind, "link"] = i;
56 1.1.4.2 elad if (j == -1)
57 1.1.4.2 elad first = ind;
58 1.1.4.2 elad else
59 1.1.4.2 elad help[j, "link"] = ind;
60 1.1.4.2 elad }
61 1.1.4.2 elad }
62 1.1.4.2 elad help[ind, "T"] = T;
63 1.1.4.2 elad help[ind, "S"] = S;
64 1.1.4.2 elad help[ind, "D"] = D;
65 1.1.4.2 elad
66 1.1.4.2 elad # set our state
67 1.1.4.2 elad state = 2;
68 1.1.4.2 elad help[ind, "text"] = 0;
69 1.1.4.2 elad next;
70 1.1.4.2 elad }
71 1.1.4.2 elad
72 1.1.4.2 elad # end of last command, beginning of next one
73 1.1.4.2 elad /^###/ && (state == 2) \
74 1.1.4.2 elad {
75 1.1.4.2 elad state = 1;
76 1.1.4.2 elad }
77 1.1.4.2 elad
78 1.1.4.2 elad (state == 2) \
79 1.1.4.2 elad {
80 1.1.4.2 elad sub("[[:blank:]]+$", "");
81 1.1.4.2 elad if (help[ind, "text"] == 0 && $0 ~ /^[[:blank:]]*$/) next;
82 1.1.4.2 elad help[ind, "text", help[ind, "text"]] = $0;
83 1.1.4.2 elad help[ind, "text"]++;
84 1.1.4.2 elad next;
85 1.1.4.2 elad }
86 1.1.4.2 elad
87 1.1.4.2 elad # show them what we have (it's already sorted in help[])
88 1.1.4.2 elad END \
89 1.1.4.2 elad {
90 1.1.4.2 elad node = first;
91 1.1.4.2 elad while (node != -1)
92 1.1.4.2 elad {
93 1.1.4.2 elad printf "################################################################################\n";
94 1.1.4.2 elad printf "# T%s ", help[node, "T"];
95 1.1.4.2 elad if (help[node, "S"] != "") printf "S%s ", help[node, "S"];
96 1.1.4.2 elad printf "D%s\n\n", help[node, "D"];
97 1.1.4.2 elad for (i = 0; i < help[node, "text"]; i++)
98 1.1.4.2 elad printf "%s\n", help[node, "text", i];
99 1.1.4.2 elad node = help[node, "link"];
100 1.1.4.2 elad }
101 1.1.4.2 elad printf "################################################################################\n";
102 1.1.4.2 elad }
103