Parent Directory | Revision Log | Patch
revision 1.29 by akim, Fri May 16 09:54:47 2003 UTC | revision 1.30 by akim, Thu Oct 2 12:47:49 2003 UTC | |
---|---|---|
# | Line 107 sub scan_file ($) | Line 107 sub scan_file ($) |
107 | # Remove comments. Not perfect, but close enough. | # Remove comments. Not perfect, but close enough. |
108 | s(/\*.*?\*/)(); | s(/\*.*?\*/)(); |
109 | s(/\*.*)(); | s(/\*.*)(); |
110 | s(//.*)(); | |
111 | foreach my $word (split (/\W+/)) | foreach my $word (split (/\W+/)) |
112 | { | { |
113 | next | next |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |