guile/guile-core/libguile ChangeLog filter-doc-...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/06/19 15:56:29

Modified files:
        guile-core/libguile: ChangeLog filter-doc-snarfage.c 

Log message:
        * filter-doc-snarfage.c (process): added ungetc in
        MULTILINE_COOKIE case since otherwise it fails when there's no
        space between the '(' and the quote of the following string
        (gcc 3.0).

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1441&tr2=1.1442&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/filter-doc-snarfage.c.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1441 
guile/guile-core/libguile/ChangeLog:1.1442
--- guile/guile-core/libguile/ChangeLog:1.1441  Thu Jun 14 13:20:18 2001
+++ guile/guile-core/libguile/ChangeLog Tue Jun 19 15:56:29 2001
@@ -1,3 +1,10 @@
+2001-06-19  Gary Houston  <address@hidden>
+
+       * filter-doc-snarfage.c (process): added ungetc in
+       MULTILINE_COOKIE case since otherwise it fails when there's no
+       space between the '(' and the quote of the following string
+       (gcc 3.0).
+
 2001-06-14  Marius Vollmer  <address@hidden>
 
        Throughout: replace "scm_*_t" with "scm_t_*", except "scm_lisp_t".
Index: guile/guile-core/libguile/filter-doc-snarfage.c
diff -u guile/guile-core/libguile/filter-doc-snarfage.c:1.3 
guile/guile-core/libguile/filter-doc-snarfage.c:1.4
--- guile/guile-core/libguile/filter-doc-snarfage.c:1.3 Fri Jun  8 07:49:05 2001
+++ guile/guile-core/libguile/filter-doc-snarfage.c     Tue Jun 19 15:56:29 2001
@@ -100,6 +100,8 @@
       switch (c) {
       case '(':
         state = STRINGS;
+       /* in case there are no spare spaces to be consumed.  */
+       ungetc ('(', stdin);
         break;
       case '%':
         state = MULTILINE_BEGINNING_OF_LINE;
@@ -188,7 +190,10 @@
         break;
       default:
         if (!isspace (c))
-          die ("stray stuff where should be only strings");
+         {
+           fprintf (stderr, "got: %c\n", c);
+           die ("stray stuff where should be only strings");
+         }
         break;
       }
       break;