diff options
author | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2011-11-19 13:09:36 (GMT) |
---|---|---|
committer | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2011-11-19 13:09:36 (GMT) |
commit | 1e2fe510bdb06fd2a60f86dd7032f7e4e140fd25 (patch) | |
tree | d14342c0212d31af6f2509a6267a4f319dc3eecd /src/tclscanner.l | |
parent | fc748fd2cf351275e69d75b09d3cde448f03145e (diff) | |
download | Doxygen-1e2fe510bdb06fd2a60f86dd7032f7e4e140fd25.zip Doxygen-1e2fe510bdb06fd2a60f86dd7032f7e4e140fd25.tar.gz Doxygen-1e2fe510bdb06fd2a60f86dd7032f7e4e140fd25.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 = ""; |