[bug-idutils] Bug in lisp scanner (infinite loop)

[Walter Sosa]

Greetings,

The following test case gets mkid into infinite loop:

$ cat junk.el
(defun foo ()
"\"^//[A"
)

$ src/mkid --version
src/mkid - 4.2

$ src/mkid -v -m libidu/id-lang.map junk.el
files=1, largest=26, slots=2048
0: lisp: junk.el ## sits here forever


Here is the fix:
$ diff -u libidu/scanners.c.orig libidu/scanners.c
--- libidu/scanners.c.orig      Fri Jul 21 19:27:00 2006
+++ libidu/scanners.c   Wed Oct 18 10:58:18 2006
@@ -1639,7 +1639,7 @@
       if (c == '\\')
         {
           c = getc (in_FILE);
-           continue;
+           goto string;
         }
      } while ( (c != EOF) && (c != '"'));
      goto top;

Latest CVS version still has that bug.

Regards,