casa-mp-base

>From e1d82ff8117e2368ffe56bb8c1a5aab42750043a Mon Sep 17 00:00:00 2001

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

Date: Fri, 29 Jan 2010 10:37:16 +0100

Subject: [PATCH 4/9] recognize package require|provide statements

 replace package require with '#include "<package>"'

​

---

 tcl-dox.l |   15 ++++++++++++++-

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

​

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

index 17887c4..ee254a0 100644

--- a/tcl-dox.l

+++ b/tcl-dox.l

@@ -58,7 +58,7 @@ void handleArgumentComma();

 %option nounput 

 %x CBLOCK CLASS PROC PROC_OPEN PROC_ARGS OPTIONAL_ARG 

-%x VAR CLASS_INH INH NAMESPACE UNSUPPORTED_CMD EXEC

+%x VAR CLASS_INH INH NAMESPACE UNSUPPORTED_CMD PACKAGE EXEC

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

 WS    [ \t]

@@ -135,6 +135,10 @@ WS    [ \t]

     BEGIN(VAR);

  }

+ "package"[ \t]+ {

+    BEGIN(PACKAGE);

+ }

+

  \} {

@@ -170,6 +174,15 @@ WS    [ \t]

 }

+<PACKAGE>{

+   "require"[ \t]+.* {

+       fprintf(yyout, "%s \"%s\"\n", "#include", yytext + strlen("require") + 1);

+       BEGIN(INITIAL);

+   }

+   .* {

+       BEGIN(INITIAL);

+   }

+}

 <CBLOCK>{

    ^{WS}*#.*$ {

-- 

1.6.6.1

​