55 |
=] |
=] |
56 |
#include "[=(. hdr-name)=]" |
#include "[=(. hdr-name)=]" |
57 |
[= |
[= |
58 |
(define tpl-name "") =][= |
(define tpl-name "") |
59 |
|
(define cmd-list "") |
60 |
|
(define proc-list "") |
61 |
|
(define Cmd-Name "") =][= |
62 |
|
|
63 |
FOR string |
FOR string =][= |
64 |
|
|
65 |
|
(set! Cmd-Name (string-capitalize! (get "str_name"))) |
66 |
|
|
67 |
=] |
=] |
68 |
/* |
/* |
73 |
IF (exist? "explain") |
IF (exist? "explain") |
74 |
|
|
75 |
=] |
=] |
76 |
tSCC zExplain[=(string-capitalize! (get "str_name"))=][ [= |
tSCC zExplain[=(. Cmd-Name)=][ [= |
77 |
(+ 1 (len "explain")) =] ] = |
(+ 1 (len "explain")) =] ] = |
78 |
[=(kr-string (get "explain"))=];[= |
[=(kr-string (get "explain"))=];[= |
79 |
ENDIF =][= |
ENDIF =][= |
84 |
IF (exist? "explain") =] |
IF (exist? "explain") =] |
85 |
|
|
86 |
[= ENDIF =] |
[= ENDIF =] |
87 |
tSCC z[= (string-capitalize! (get "str_name")) =]Cmd[] =[= |
tSCC z[= (. Cmd-Name) =]Cmd[] =[= |
88 |
(out-push-new ".lt.sh") =][= |
(out-push-new ".lt.sh") =][= |
89 |
INCLUDE (. tpl-name) =][= |
INCLUDE (. tpl-name) =][= |
90 |
(out-pop) |
(out-pop) |
91 |
(kr-string (shell "cat .lt.sh ; rm -f .lt.sh")) =]; |
(set! cmd-list (string-append cmd-list "z" Cmd-Name "Cmd\n")) |
92 |
|
(kr-string (shell "cat .lt.sh ; rm -f .lt.sh")) |
93 |
|
=]; |
94 |
|
|
95 |
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[= |
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[= |
96 |
|
ELIF (exist? "use_cmd") =][= |
97 |
|
(set! cmd-list (string-append cmd-list "z" |
98 |
|
(string-capitalize! (get "use_cmd")) "Cmd\n")) =][= |
99 |
|
ELSE =][= |
100 |
|
(set! cmd-list (string-append cmd-list "(tCC*)NULL\n" )) =][= |
101 |
ENDIF =][= |
ENDIF =][= |
102 |
|
|
103 |
ENDFOR =][= |
ENDFOR =][= |
124 |
|
|
125 |
[=IF (== (suffix) "h")=]extern [= |
[=IF (== (suffix) "h")=]extern [= |
126 |
ENDIF=]tCC* apz_mode_cmd[ MODE_CT ][= |
ENDIF=]tCC* apz_mode_cmd[ MODE_CT ][= |
127 |
IF (== (suffix) "c") =] = {[= |
IF (== (suffix) "c") =] = { |
128 |
|
[=(shellf "columns -I4 -S, <<_EOF_\n%s_EOF_" cmd-list) =] |
|
FOR string , =] |
|
|
[= |
|
|
IF (exist? "use_cmd") |
|
|
=]z[=(string-capitalize! (get "use_cmd"))=]Cmd[= |
|
|
ELIF (exist? "text") |
|
|
=]z[=(string-capitalize! (get "str_name"))=]Cmd[= |
|
|
ELSE =](tCC*)NULL[= |
|
|
ENDIF =][= |
|
|
ENDFOR =] |
|
129 |
}[= |
}[= |
130 |
ENDIF =]; |
ENDIF =]; |
131 |
|
|
134 |
IF (== (suffix) "c") =] = {[= |
IF (== (suffix) "c") =] = {[= |
135 |
|
|
136 |
FOR string , =] |
FOR string , =] |
137 |
[= |
[=?% call-proc "%s" emitScript=][= |
|
IF (or (exist? "use_cmd") (exist? "text")) |
|
|
=][=?% call-proc "%s" emitScript=][= |
|
|
ELSE =](emitScriptProc*)NULL[= |
|
|
ENDIF =][= |
|
138 |
ENDFOR =] |
ENDFOR =] |
139 |
};[= |
};[= |
140 |
|
|