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)