patch-2.2.18 linux/scripts/mkdep.c
Next file: linux/CREDITS
Previous file: linux/scripts/kwhich
Back to the patch index
Back to the overall index
-  Lines: 28
-  Date:
Mon Sep 25 16:08:59 2000
-  Orig file: 
v2.2.17/scripts/mkdep.c
-  Orig date: 
Sun Jun 11 21:44:24 2000
diff -u --new-file --recursive --exclude-from /usr/src/exclude v2.2.17/scripts/mkdep.c linux/scripts/mkdep.c
@@ -285,6 +285,7 @@
  * The state machine looks for (approximately) these Perl regular expressions:
  *
  *    m|\/\*.*?\*\/|
+ *    m|\/\/.*|
  *    m|'.*?'|
  *    m|".*?"|
  *    m|#\s*include\s*"(.*?)"|
@@ -319,9 +320,18 @@
 	CASE('_',  underscore);
 	goto start;
 
+/* // */
+slash_slash:
+	GETNEXT
+	CASE('\n', start);
+	NOTCASE('\\', slash_slash);
+	GETNEXT
+	goto slash_slash;
+
 /* / */
 slash:
 	GETNEXT
+	CASE('/',  slash_slash);
 	NOTCASE('*', __start);
 slash_star_dot_star:
 	GETNEXT
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen (who was at: slshen@lbl.gov)