]> git.tuebingen.mpg.de Git - paraslash.git/blob - command_util.sh
command_util: Kill HC and CC header lines.
[paraslash.git] / command_util.sh
1 #!/usr/bin/env bash
2
3
4 read_header()
5 {
6         local key value i
7
8         while read key value; do
9                 case "$key" in
10                 ---)
11                         break
12                         ;;
13                 OF:)
14                         output_file="$value"
15                         array_name=${value%command_list}cmds
16                         ;;
17                 SF:)
18                         source_files="$value"
19                         ;;
20                 AT:)
21                         array_type="$value"
22                         ;;
23                 SI:)
24                         for i in $value; do
25                                 system_includes="$system_includes
26 #include <$i.h>"
27                         done
28                         ;;
29                 IN:)
30                         for i in $value; do
31                                 includes="$includes
32 #include \"$i.h\""
33                         done
34                         includes="$includes
35 #include \"$output_file.h\""
36                         ;;
37                 SN:)
38                         section_name="$value"
39                         ;;
40                 TM:)
41                         template_members="$value"
42                 esac
43         done
44         if test -z "$output_file"; then
45                 echo "header error" 1&>2
46                 exit 1
47         fi
48 }
49
50 read_one_command()
51 {
52         local line
53
54         name_txt=""
55         desc_txt=""
56         usage_txt=""
57         help_txt=""
58         perms_txt=""
59         template=0
60         template_name=""
61         template_prototype=""
62         mkdir -p man/man1
63         while read key value; do
64                 case "$key" in
65                 ---)
66                         break
67                         ;;
68                 N:)
69                         name_txt="$value"
70                         ;;
71                 T:)
72                         template_name="$value"
73                         template=1
74                         ;;
75                 O:)
76                         template_prototype="$value"
77                         template=1
78                         ;;
79                 P:)
80                         perms_txt="$value"
81                         ;;
82                 D:)
83                         desc_txt="$value"
84                         ;;
85                 U:)
86                         usage_txt="$value"
87                         ;;
88                 H:)
89                         help_txt="${value}"
90                         while read line; do
91                                 if test "$line" = "---"; then
92                                         break;
93                                 fi
94                                 line=${line#H:}
95                                 help_txt="$help_txt
96 ${line# }"
97                         done
98                         break
99                         ;;
100                 esac
101         done
102         if test $template -eq 0; then
103                 if test -n "$name_txt" -a -n "$desc_txt" -a -n "$usage_txt" \
104                                 -a -n "$help_txt"; then
105                         ret=1
106                         return
107                 fi
108         else
109                 if test -n "$template_name" -a -n "$template_prototype" \
110                                 -a -n "$name_txt " -a -n "$template_members" \
111                                 -a -n "$desc_txt" -a -n "$usage_txt" \
112                                 -a -n "$help_txt"; then
113                         ret=1
114                         return
115                 fi
116         fi
117         if test -z "$name_txt" -a -z "$desc_txt" -a -z "$usage_txt" \
118                         -a -z "$help_txt"; then
119                 ret=0
120                 return
121         fi
122         ret=-1
123         #return
124         echo "!ERROR!"
125         echo "N: $name_txt"
126         echo "D: $desc_txt"
127         echo "S: $usage_txt"
128         echo "P: $perms_txt"
129         echo "H: $help_txt"
130         echo "O: $template_prototype"
131 }
132
133 dump_man()
134 {
135         if test $template -eq 0; then
136                 echo ".SS \"$name_txt\""
137                 echo "$desc_txt"
138                 echo
139                 echo "\\fBUsage: \\fP$usage_txt"
140         else
141                 for member in $template_members; do
142                         local sed_cmd="sed -e s/@member@/$member/g"
143                         local t_name_txt=$(echo $name_txt | $sed_cmd)
144                         echo ".SS \"$t_name_txt\""
145                 done
146                 echo "$desc_txt" | sed -e "s/@member@/{$(echo $template_members | sed -e 's/ / | /g')}/g"
147                 echo
148                 echo "\\fBUsage: \\fP"
149                 echo
150                 echo ".nf"
151                 for member in $template_members; do
152                         local sed_cmd="sed -e s/@member@/$member/g"
153                         local t_usage_txt=$(echo $usage_txt | $sed_cmd)
154                         printf "\t$t_usage_txt\n"
155                 done
156                 echo ".fi"
157         fi
158         echo
159         echo "$help_txt" | sed -e 's/^  //'
160         echo
161         if test -n "$perms_txt"; then
162                 echo -n "\\fBpermissions:\\fP "
163                 if test "$perms_txt" = "0"; then
164                         echo "(none)"
165                 else
166                         echo "$perms_txt"
167                 fi
168         fi
169         echo
170 }
171
172
173 com_man()
174 {
175         echo "[$section_name]"
176         echo
177         while : ; do
178                 read_one_command
179                 if test $ret -lt 0; then
180                         exit 1
181                 fi
182                 if test $ret -eq 0; then
183                         break
184                 fi
185                 dump_man
186         done
187 }
188
189 dump_proto()
190 {
191         local source_file match=""
192
193         echo '/**'
194         echo " * $desc_txt"
195         echo ' *'
196         echo " * Usage: $usage_txt"
197         echo ' * '
198         echo "$help_txt" | sed -e 's/^/ * /g'
199         echo ' */'
200         if test -n "$prototype"; then
201                 echo "$prototype"
202                 echo
203                 return
204         fi
205         for source_file in $source_files; do
206                 match=$(grep "^\(__noreturn \)*int com_$name_txt(" $source_file | head -n 1 | sed -e 's/$/;/1')
207                 if test -n "$match"; then
208                         echo "$match"
209                         break
210                 fi
211         done
212         echo
213 }
214
215 dump_array_member()
216 {
217         local TAB='     '
218         echo '{'
219         echo ".name = \"$name_txt\","
220         echo ".handler = com_$name_txt,"
221         if test -n "$perms_txt"; then
222                 echo ".perms = $perms_txt,"
223         fi
224         echo ".description = \"$desc_txt\","
225         echo ".usage = \"$usage_txt\","
226         echo ".help = "
227         printf "%s\n" "$help_txt" | sed -e 's/^/\"/g' -e 's/$/\\n\"/g' \
228                 -e "s/$TAB/\\\t/g"
229         echo '},'
230 }
231
232 dump_completion()
233 {
234         echo "  {.name = \"$name_txt\", .completer = ${name_txt}_completer}, \\"
235 }
236
237 template_loop()
238 {
239         local t_name="$name_txt"
240         local t_perms="$perms_txt"
241         local t_desc="$desc_txt"
242         local t_usage="$usage_txt"
243         local t_help="$help_txt"
244         local t_source_files="$source_files"
245         local member
246         for member in $template_members; do
247                 local sed_cmd="sed -e s/@member@/$member/g"
248                 #echo "sed_cmd: $sed_cmd"
249                 name_txt=$(echo "$t_name" | $sed_cmd)
250                 #name_txt="$tname"
251                 perms_txt=$(echo "$t_perms" | $sed_cmd)
252                 desc_txt=$(echo "$t_desc" | $sed_cmd)
253                 usage_txt=$(echo "$t_usage" | $sed_cmd)
254                 help_txt=$(printf "%s\n" "$t_help" | $sed_cmd)
255                 prototype=$(echo "$template_prototype" | $sed_cmd)
256                 $1
257         done
258
259 }
260
261 com_c_file()
262 {
263         echo "$system_includes"
264         echo "$includes"
265         echo "struct $array_type $array_name[] = {"
266         while : ; do
267                 read_one_command
268                 if test $ret -lt 0; then
269                         exit 1
270                 fi
271                 if test $ret -eq 0; then
272                         break
273                 fi
274                 if test $template -eq 0; then
275                         dump_array_member
276                         continue
277                 fi
278                 template_loop dump_array_member
279         done
280         echo '{.name = NULL}};'
281 }
282
283 com_header()
284 {
285         echo "extern struct $array_type $array_name[];"
286         while : ; do
287                 read_one_command
288                 if test $ret -lt 0; then
289                         exit 1
290                 fi
291                 if test $ret -eq 0; then
292                         break
293                 fi
294                 if test $template -eq 0; then
295                         dump_proto
296                         continue
297                 fi
298                 template_loop dump_proto
299         done
300 }
301
302 com_completion()
303 {
304
305         echo "#define $1 \\"
306         while : ; do
307                 read_one_command
308                 if test $ret -lt 0; then
309                         exit 1
310                 fi
311                 if test $ret -eq 0; then
312                         break
313                 fi
314                 if test $template -eq 0; then
315                         dump_completion
316                         continue
317                 fi
318                 template_loop dump_completion
319         done
320         echo
321 }
322
323 read_header
324 arg="$1"
325 shift
326 case "$arg" in
327         "c")
328                 com_c_file
329                 ;;
330         "h")
331                 com_header
332                 ;;
333         "man")
334                 com_man $*
335                 ;;
336         "compl")
337                 com_completion $*
338                 ;;
339 esac