From a1a122aabc932851f32d36ad973c09a7f98200dd Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 12 Jun 2017 21:17:01 -0700 Subject: 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. --- genprotsym.txr | 6 ++++-- 1 file 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) -- cgit v1.2.3