mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

* guile-func-name-check.in: now should not confuse SCO nawk

Browse source 
anymore.  thanks to Bruce Korb for the fix!
This commit is contained in:
Michael Livshin 2000-10-02 19:39:25 +00:00
parent 0d26a8bca9
commit 77cd7f80f0
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-10-02 Michael Livshin <mlivshin@bigfoot.com>
* guile-func-name-check.in: now should not confuse SCO nawk
anymore. thanks to Bruce Korb for the fix!
2000-10-01 Gary Houston <ghouston@arglist.com> 2000-10-01 Gary Houston <ghouston@arglist.com>
* net_db.c: declare inet_aton only if HAVE_INET_ATON is not * net_db.c: declare inet_aton only if HAVE_INET_ATON is not

5
libguile/guile-func-name-check.in
View file

@ -4,6 +4,7 @@
BEGIN { BEGIN {
filename = ARGV[1]; filename = ARGV[1];
in_a_func = 0;
} }
/^SCM_DEFINE/ { /^SCM_DEFINE/ {
@ -14,7 +15,7 @@ BEGIN {
in_a_func = 1; in_a_func = 1;
} }
in_a_func && /^\{/ { /^\{/ && in_a_func {
if (!match(last_line,/^#define[ \t]+FUNC_NAME[ \t]+/)) { if (!match(last_line,/^#define[ \t]+FUNC_NAME[ \t]+/)) {
printf filename ":" NR ":***" > "/dev/stderr"; printf filename ":" NR ":***" > "/dev/stderr";
print "Missing or erroneous `#define FUNC_NAME s_" func_name "'" > "/dev/stderr"; print "Missing or erroneous `#define FUNC_NAME s_" func_name "'" > "/dev/stderr";
@ -39,7 +40,7 @@ in_a_func && /^\{/ {
next_line_better_be_undef = 0; next_line_better_be_undef = 0;
} }
in_a_func && /^\}/ { /^\}/ && in_a_func {
next_line_better_be_undef = 1; next_line_better_be_undef = 1;
} }