commit 3e94febfc10ae07adb4de0556de4d4c5d7f22d27
author Roberto Ierusalimschy <roberto@inf.puc-rio.br> Wed Nov 06 18:24:29 1996 -0200
committer Roberto Ierusalimschy <roberto@inf.puc-rio.br> Wed Nov 06 18:24:29 1996 -0200
tree f9312f4f2b9727e1fe092e5feb0abfc99bb98d7f
parent 243b3a1a47b30549198f874a497547b5656912c1

pragmas should not be recognized inside literal strings.

lex.c

diff --git a/lex.c b/lex.c
index df1210d..e34bde7 100644
--- a/lex.c
+++ b/lex.c
@@ -1,4 +1,4 @@
-char *rcs_lex = "$Id: lex.c,v 2.35 1996/09/09 14:11:11 roberto Exp roberto $";
+char *rcs_lex = "$Id: lex.c,v 2.36 1996/09/25 21:52:00 roberto Exp roberto $";
 
 
 #include <ctype.h>
@@ -72,9 +72,9 @@
   }
 }
 
-static int inclinenumber (void)
+static int inclinenumber (int pragma_allowed)
 {
-  if (current == '$') {  /* is a pragma? */
+  if (pragma_allowed && current == '$') {  /* is a pragma? */
     char buff[MINBUFF];
     int i = 0;
     next();  /* skip $ */
@@ -125,7 +125,7 @@
         continue;
       case '\n':
         save_and_next();
-        inclinenumber();
+        inclinenumber(0);
         continue;
       default:
         save_and_next();
@@ -156,7 +156,7 @@
     {
       case '\n':
         next();
-        linelasttoken = inclinenumber();
+        linelasttoken = inclinenumber(1);
         continue;
 
       case ' ': case '\t': case '\r':  /* CR: to avoid problems with DOS */
@@ -220,7 +220,7 @@
                 case 'n': save('\n'); next(); break;
                 case 't': save('\t'); next(); break;
                 case 'r': save('\r'); next(); break;
-                case '\n': save_and_next(); inclinenumber(); break;
+                case '\n': save_and_next(); inclinenumber(0); break;
                 default : save_and_next(); break;
               }
               break;