>From f20fb9dadea09c1703e705b72b836872ae592c15 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@emlix.com>
Date: Fri, 29 Jan 2010 14:24:02 +0100
Subject: [PATCH 7/9] consume whole lines or at least the newline character
---
tcl-dox.l | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/tcl-dox.l b/tcl-dox.l
index e99959e..d49e3ce 100644
--- a/tcl-dox.l
+++ b/tcl-dox.l
@@ -175,7 +175,7 @@ WS [ \t]
<EXEC>{
.*"exec"[ \t]+.* {BEGIN(INITIAL);}
- .* {BEGIN(EXEC);}
+ .*|\n {BEGIN(EXEC);}
}
@@ -320,7 +320,7 @@ WS [ \t]
}
<PROC_EAT>{
- .*\n {
+ .*|\n {
do
{
switch (*yytext)
--
1.6.6.1