7 |
|
|
8 |
IF (== (suffix) "h") =][= |
IF (== (suffix) "h") =][= |
9 |
|
|
10 |
|
DEFINE test-or-exit |
11 |
|
|
12 |
|
=]if ([=test=]) > /dev/null 2>&1 ; then[= |
13 |
|
invert " :\nelse"=] |
14 |
|
$echo "$modename: [=msg=]" 1>&2 |
15 |
|
$echo "$help" 1>&2 |
16 |
|
exit 1 |
17 |
|
fi[= |
18 |
|
|
19 |
|
ENDDEF =][= |
20 |
|
|
21 |
(define guard (string-append "HDRGRD_" (string-upcase! |
(define guard (string-append "HDRGRD_" (string-upcase! |
22 |
(string->c-name! (out-name)) ))) |
(string->c-name! (out-name)) ))) |
23 |
(define hdr-name (out-name)) =] |
(define hdr-name (out-name)) =] |
88 |
IF (exist? "text") |
IF (exist? "text") |
89 |
|
|
90 |
=][= |
=][= |
91 |
IF (== (suffix) "h") =] |
IF (== (suffix) "c") =] |
92 |
#define [=(string-upcase! (get "str_name"))=]_CMD_SIZE [=(+ 1 (len "text"))=] |
tSCC z[= (string-capitalize! (get "str_name")) =]Cmd[] = |
93 |
extern [= |
[= (out-push-new ".lt.tpl") =][= |
94 |
ELSE =] |
text =][= |
95 |
[= ENDIF |
(out-pop) |
96 |
=]tCC z[=(string-capitalize! (get "str_name")) |
(out-push-new ".lt.xxx") =][= |
97 |
=]Cmd[ [=(string-upcase! (get "str_name"))=]_CMD_SIZE ][= |
INCLUDE ".lt.tpl" =][= |
98 |
IF (== (suffix) "c") =] = |
(out-pop) |
99 |
[=(kr-string (get "text"))=][= |
(kr-string (shell "cat .lt.xxx ; rm -f .lt.*")) =][= |
100 |
ENDIF =];[= |
ENDIF =]; |
101 |
|
|
|
ENDIF =] |
|
|
[= |
|
|
IF (== (suffix) "c") =] |
|
102 |
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[= |
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[= |
103 |
ENDIF =][= |
ENDIF =][= |
104 |
|
|