mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* filter-doc-snarfage.c, guile-snarf.in: try to cope with spaces

Browse source 
inside cookies.  thanks to Matthias Köppe!
This commit is contained in:
Michael Livshin 2001-06-08 13:48:39 +00:00
parent bab246f334
commit 47bcd6465f
3 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-06-08 Michael Livshin <mlivshin@bigfoot.com>
* filter-doc-snarfage.c, guile-snarf.in: try to cope with spaces
inside cookies. thanks to Matthias Köppe!
2001-06-08 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-06-08 Dirk Herrmann <D.Herrmann@tu-bs.de>
* keywords.c (keyword_print): Don't use SCM_C[AD]R to access * keywords.c (keyword_print): Don't use SCM_C[AD]R to access
@ -200,9 +205,8 @@
* snarf.h: make the output both texttools- and `read'-friendly. * snarf.h: make the output both texttools- and `read'-friendly.
* guile-doc-snarf.in (bindir): reimplement in terms of guile-snarf * guile-doc-snarf.in: reimplement in terms of guile-snarf and
and guile-snarf-docs. (should also deprecate, I guess. maybe guile-snarf-docs. (should also deprecate, I guess. maybe not).
not).
2001-05-31 Marius Vollmer <mvo@zagadka.ping.de> 2001-05-31 Marius Vollmer <mvo@zagadka.ping.de>

5
libguile/filter-doc-snarfage.c
View file

@ -55,7 +55,7 @@ process ()
want_cookie = 0; want_cookie = 0;
} else } else
want_cookie = 1; want_cookie = 1;
} else } else if (c != ' ')
want_cookie = 0; want_cookie = 0;
break; break;
case SKIP_COOKIE: case SKIP_COOKIE:
@ -82,7 +82,8 @@ process ()
} else } else
want_cookie = 1; want_cookie = 1;
} else { } else {
want_cookie = 0; if (c != ' ')
want_cookie = 0;
putc (c, stdout); putc (c, stdout);
} }
break; break;

2
libguile/guile-snarf.in
View file

@ -27,7 +27,7 @@ test -n "${CPP+set}" || CPP="@CPP@"
## We must use a temporary file here, instead of a pipe, because we ## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status. ## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARF_INITS "$@" > ${temp} || exit $? ${CPP} -DSCM_MAGIC_SNARF_INITS "$@" > ${temp} || exit $?
< ${temp} grep "^ *\^\^" | sed -e "s/^ *\^\^//" < ${temp} grep "^ *\^ *\^" | sed -e "s/^ *\^ *\^//"
## Apparently, AIX's preprocessor is unhappy if you try to #include an ## Apparently, AIX's preprocessor is unhappy if you try to #include an
## empty file. ## empty file.