diff options
author | Dimitri van Heesch <dimitri@stack.nl> | 2011-11-19 13:09:36 (GMT) |
---|---|---|
committer | Dimitri van Heesch <dimitri@stack.nl> | 2011-11-19 13:09:36 (GMT) |
commit | f85cf6d15f69843ec02fdd3bfc95873bfd1ddc31 (patch) | |
tree | d14342c0212d31af6f2509a6267a4f319dc3eecd /src/tclscanner.l | |
parent | d0ad09e7946a30cef0c568d6012637069d1b8cb9 (diff) | |
download | Doxygen-f85cf6d15f69843ec02fdd3bfc95873bfd1ddc31.zip Doxygen-f85cf6d15f69843ec02fdd3bfc95873bfd1ddc31.tar.gz Doxygen-f85cf6d15f69843ec02fdd3bfc95873bfd1ddc31.tar.bz2 |
Release-1.7.5.1-20111119
Diffstat (limited to 'src/tclscanner.l')
-rw-r--r-- | src/tclscanner.l | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/tclscanner.l b/src/tclscanner.l index e8db560..a70f018 100644 --- a/src/tclscanner.l +++ b/src/tclscanner.l @@ -969,14 +969,21 @@ D unput('#'); yy_push_state(COMMENTLINE); } -<COMMAND>\x1A { +<COMMAND>{ws}*\x1A { D tcl.string_commentcodify = ""; tcl.string_commentline = ""; - tcl.line_body1=yylineno-1; + tcl.line_body1=yylineno; tcl_command(-1,""); } -<COMMAND>{ws}*[;\n] { +<COMMAND>{ws}*; { +D + tcl.string_commentcodify = ""; + tcl.string_commentline = ""; + tcl.line_body1=yylineno; + tcl_command(-1,yytext); +} +<COMMAND>{ws}*\n { D tcl.string_commentcodify = ""; tcl.string_commentline = ""; |