2 |
[=( dne " * " "/* " )=] |
[=( dne " * " "/* " )=] |
3 |
* |
* |
4 |
* Strings that, when written from 'C', must be the same as |
* Strings that, when written from 'C', must be the same as |
5 |
* the strings typed in the definition files. |
* the strings typed in the definition and template files. |
6 |
*/[= |
*/[= |
7 |
|
|
8 |
IF (== (suffix) "h") =][= |
IF (== (suffix) "h") =][= |
9 |
|
|
|
DEFINE test-or-exit |
|
|
|
|
|
=]if ([=test=]) > /dev/null 2>&1 ; then[= |
|
|
invert " :\nelse"=] |
|
|
$echo "$modename: [=msg=]" 1>&2 |
|
|
$echo "$help" 1>&2 |
|
|
exit 1 |
|
|
fi[= |
|
|
|
|
|
ENDDEF =][= |
|
|
|
|
10 |
(define guard (string-append "HDRGRD_" (string-upcase! |
(define guard (string-append "HDRGRD_" (string-upcase! |
11 |
(string->c-name! (out-name)) ))) |
(string->c-name! (out-name)) ))) |
12 |
(define hdr-name (out-name)) =] |
(define hdr-name (out-name)) =] |