Tryag File Manager
Home
-
Turbo Force
Current Path :
/
usr
/
share
/
ss
/
Upload File :
New :
File
Dir
//usr/share/ss/ct_c.awk
/^command_table / { cmdtbl = $2; printf "/* %s.c - automatically generated from %s.ct */\n", \ rootname, rootname > outfile print "#include <ss/ss.h>" > outfile print "" >outfile } /^BOR$/ { cmdnum++ options = 0 cmdtab = "" printf "static char const * const ssu%05d[] = {\n", cmdnum > outfile } /^sub/ { subr = substr($0, 6, length($0)-5) } /^hlp/ { help = substr($0, 6, length($0)-5) } /^cmd/ { cmd = substr($0, 6, length($0)-5) printf "%s\"%s\",\n", cmdtab, cmd > outfile cmdtab = " " } /^opt/ { opt = substr($0, 6, length($0)-5) if (opt == "dont_list") { options += 1 } if (opt == "dont_summarize") { options += 2 } } /^EOR/ { print " (char const *)0" > outfile print "};" > outfile printf "extern void %s __SS_PROTO;\n", subr > outfile # Work around a bug in gawk 3.0.5 awk_bug = cmdnum subr_tab[awk_bug] = subr options_tab[awk_bug] = options help_tab[awk_bug] = help } /^[0-9]/ { linenum = $1; } /^ERROR/ { error = substr($0, 8, length($0)-7) printf "Error in line %d: %s\n", linenum, error print "#__ERROR_IN_FILE__" > outfile } END { printf "static ss_request_entry ssu%05d[] = {\n", cmdnum+1 > outfile for (i=1; i <= cmdnum; i++) { printf " { ssu%05d,\n", i > outfile printf " %s,\n", subr_tab[i] > outfile printf " \"%s\",\n", help_tab[i] > outfile printf " %d },\n", options_tab[i] > outfile } print " { 0, 0, 0, 0 }" > outfile print "};" > outfile print "" > outfile printf "ss_request_table %s = { 2, ssu%05d };\n", \ cmdtbl, cmdnum+1 > outfile }