1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00

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

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

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>
* net_db.c: declare inet_aton only if HAVE_INET_ATON is not

View file

@ -4,6 +4,7 @@
BEGIN {
filename = ARGV[1];
in_a_func = 0;
}
/^SCM_DEFINE/ {
@ -14,7 +15,7 @@ BEGIN {
in_a_func = 1;
}
in_a_func && /^\{/ {
/^\{/ && in_a_func {
if (!match(last_line,/^#define[ \t]+FUNC_NAME[ \t]+/)) {
printf filename ":" NR ":***" > "/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;
}
in_a_func && /^\}/ {
/^\}/ && in_a_func {
next_line_better_be_undef = 1;
}