diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-01-31 21:06:40 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-01-31 21:06:40 +0100 |
commit | 6eca5d2b9b06deaeacf8b133604e16f4b108adab (patch) | |
tree | 30152088f1fce923ee32c07e13b6f05d74be9eac /libguile/guile-snarf.in | |
parent | b68095f091bf0e46df90f5b20a64fcd30aa25546 (diff) | |
download | guile-6eca5d2b9b06deaeacf8b133604e16f4b108adab.tar.gz |
Allow several `SNARF_INIT ()' per CPP output line.
* libguile/guile-snarf.in (modern_snarf): Allow several `SNARF_INIT ()'
per line. This makes it possible to write snarffing macros that
contain several `SNARF_INIT ()' invocations.
Diffstat (limited to 'libguile/guile-snarf.in')
-rw-r--r-- | libguile/guile-snarf.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in index 617bad822..4d79f43bf 100644 --- a/libguile/guile-snarf.in +++ b/libguile/guile-snarf.in @@ -1,7 +1,7 @@ #!/bin/sh # Extract the initialization actions from source files. # -# Copyright (C) 1996, 97, 98, 99, 2000, 2001, 2002, 2004, 2006, 2008 Free Software Foundation, Inc. +# Copyright (C) 1996, 97, 98, 99, 2000, 2001, 2002, 2004, 2006, 2008, 2009 Free Software Foundation, Inc. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -51,7 +51,7 @@ modern_snarf () # writes stdout ## empty file. echo "/* cpp arguments: $@ */" ; ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true - grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/" + grep "^ *\^ *\^" ${temp} | sed -e "s/ *\^ *\^//g" -e "s/\^ *: *\^/;/g" } ## main |