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 | a1a122aabc932851f32d36ad973c09a7f98200dd (patch) | |
| tree | 90c172c44f60eb1c9f6891402e6bd669e87288e5 | |
| parent | 939c0c0bd057f95cc3f2ce8b6b1f0fbf88dc1546 (diff) | |
| download | txr-a1a122aabc932851f32d36ad973c09a7f98200dd.tar.gz txr-a1a122aabc932851f32d36ad973c09a7f98200dd.tar.bz2 txr-a1a122aabc932851f32d36ad973c09a7f98200dd.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.
| -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) |