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
93
94
95
96
97
98
99
|
$AWK '
BEGIN{
if(ARGC < 2)
exit
}
/^$/{
next;
}
/^#/{
next;
}
collect && /^[^ \t]/{
collect = 0;
}
collect && section ~ "dev"{
dev[ndev++] = $1;
}
collect && section ~ "ip"{
ip[nip++] = $1;
}
collect && section ~ "link"{
link[nlink++] = $1;
}
collect && section ~ "mod"{
mod[nmod++] = $1;
}
collect && section ~ "misc"{
misc[nmisc++] = $1;
}
collect && section ~ "port"{
port[nport++] = $0;
}
collect && section ~ "code"{
code[ncode++] = $0;
}
$0 ~ /^[^ \t]/{
if($0 ~ "(code|dev|ip|lib|link|mod|misc|port|root)"){
section = $0;
collect = 1;
}
next;
}
END{
if(ARGC < 2)
exit "usage"
printf "#include \"dat.h\"\n"
printf "#include \"fns.h\"\n"
printf "#include \"error.h\"\n"
printf "#include \"interp.h\"\n\n\n"
printf "#include \"%s.root.h\"\n\n", ARGV[1];
nildev = 8;
printf "ulong ndevs = %s;\n\n", ndev+nildev
for(i = 0; i < ndev; i++)
printf "extern Dev %sdevtab;\n", dev[i];
printf "Dev* devtab[]={\n"
for(i = 0; i < ndev; i++)
printf "\t&%sdevtab,\n", dev[i];
for(i = 0; i < nildev; i++)
printf("\tnil,\n");
printf "\tnil,\n};\n\n";
for(i = 0; i < nlink; i++)
printf "extern void %slink(void);\n", link[i];
printf "void links(void){\n";
for(i = 0; i < nlink; i++)
printf "\t%slink();\n", link[i];
printf "}\n\n";
for(i = 0; i < nmod; i++)
printf "extern void %smodinit(void);\n", mod[i];
printf "void modinit(void){\n";
for(i = 0; i < nmod; i++)
printf "\t%smodinit();\n",mod[i];
printf "}\n\n";
if(nip){
printf "#include \"../ip/ip.h\"\n";
for(i = 0; i < nip; i++)
printf "extern void %sinit(Fs*);\n", ip[i];
printf "void (*ipprotoinit[])(Fs*) = {\n";
for(i = 0; i < nip; i++)
printf "\t%sinit,\n", ip[i];
printf "\tnil,\n};\n\n";
}
for(i = 0; i < ncode; i++)
printf "%s\n", code[i];
printf "char* conffile = \"%s\";\n", ARGV[1];
printf "ulong kerndate = KERNDATE;\n";
exit
}' $*
|