casa-mp-base

>From 5ae7aab919826dc03c2f4a7e4ae33880fc132bf9 Mon Sep 17 00:00:00 2001

From: Jochen Keil <jochen.keil@emlix.com>

Date: Fri, 29 Jan 2010 10:33:34 +0100

Subject: [PATCH 3/9] if we match a #! at start of file we look for a matching exec statement

 to cover the exec tclsh "$0" ${1+$@} trick from the tclsh manpage

​

---

 tcl-dox.l |   12 +++++++++++-

 1 files changed, 11 insertions(+), 1 deletions(-)

​

diff --git a/tcl-dox.l b/tcl-dox.l

index ac3a69b..17887c4 100644

--- a/tcl-dox.l

+++ b/tcl-dox.l

@@ -58,13 +58,18 @@ void handleArgumentComma();

 %option nounput 

 %x CBLOCK CLASS PROC PROC_OPEN PROC_ARGS OPTIONAL_ARG 

-%x VAR CLASS_INH INH NAMESPACE UNSUPPORTED_CMD

+%x VAR CLASS_INH INH NAMESPACE UNSUPPORTED_CMD EXEC

 ID    [[:alpha:]_]+[[:alnum:]_]*

 WS    [ \t]

 %%

+   /* looks like a shebang line.. smells like the exec trick so lets

+    * try to catch it; match this only at the start of file */

+"#!".*$ {

+   BEGIN(EXEC);

+}

 <INITIAL>{

  ##{WS}*$ {

@@ -159,6 +164,11 @@ WS    [ \t]

 }

+<EXEC>{

+   .*"exec"[ \t]+.* {BEGIN(INITIAL);}

+   .* {BEGIN(EXEC);}

+}

+

 <CBLOCK>{

-- 

1.6.6.1

​