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:
parent
0d26a8bca9
commit
77cd7f80f0
2 changed files with 8 additions and 2 deletions
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue