diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-06-12 21:17:01 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-06-12 21:17:01 -0700 |
| commit | 7add4063c1ad922db078dd20d46e54e786775c0a (patch) | |
| tree | 90c172c44f60eb1c9f6891402e6bd669e87288e5 /genprotsym.txr | |
| parent | 50e96f5b8e281aa46cc7a3b4beef1f2fa96d3b81 (diff) | |
| download | txr-7add4063c1ad922db078dd20d46e54e786775c0a.tar.gz txr-7add4063c1ad922db078dd20d46e54e786775c0a.tar.bz2 txr-7add4063c1ad922db078dd20d46e54e786775c0a.zip | |
Eliminate some blank lines in protsym.c.
* genprotsym.txr: use @(first) directive trick to
eliminate leading blank lines in front of items
that are not controlled by a preprocessor symbol.
Diffstat (limited to 'genprotsym.txr')
| -rw-r--r-- | genprotsym.txr | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/genprotsym.txr b/genprotsym.txr index 0a54946e..fefff0cc 100644 --- a/genprotsym.txr +++ b/genprotsym.txr @@ -52,18 +52,20 @@ val @(coll)@{sym /[A-Za-z0-9_]+_[sk]/}@/[,;]/@\ #include "lib.h" @ (repeat :vars (gpp)) -@ (if gpp `#if @{gpp " && "}`) @ (repeat) extern val @(rep)@gsym, @(last)@gsym;@(end) +@ (first) +@(if gpp `#if @{gpp " && "}\n`)extern val @(rep)@gsym, @(last)@gsym;@(end) @ (end) @ (if gpp "#endif") @ (end) val *protected_sym[] = { @ (repeat :vars (gpp)) -@ (if gpp `#if @{gpp " && "}`) @ (repeat) @(rep)&@gsym, @(last)&@gsym,@(end) +@ (first) +@(if gpp `#if @{gpp " && "}\n`) @(rep)&@gsym, @(last)&@gsym,@(end) @ (end) @ (if gpp "#endif") @ (end) |