casa-mp-base

>From 6be037f73050404e0ae15b55049211a729555dea Mon Sep 17 00:00:00 2001

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

Date: Fri, 29 Jan 2010 14:22:36 +0100

Subject: [PATCH 6/9] add a pattern to recognize values in {} brackets in optional arguments

​

---

 tcl-dox.l |   29 ++++++++++++++++++-----------

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

​

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

index 21afca5..e99959e 100644

--- a/tcl-dox.l

+++ b/tcl-dox.l

@@ -280,17 +280,24 @@ WS    [ \t]

 <OPTIONAL_ARG>{

-   \} {

-      g_oarg = 0;

-      BEGIN(PROC_ARGS);

-   }

-   [^\n\} \t]+ {

-      g_oarg++;

-      if((g_oarg % 2) == 0){

-         fprintf(yyout, "%s", "=");

-      }

-      ECHO;

-   }

+   \} {

+       g_oarg = 0;

+       BEGIN(PROC_ARGS);

+   }

+   [^\n\} \t]+ {

+       g_oarg++;

+       if((g_oarg % 2) == 0){

+           fprintf(yyout, "%s", "=");

+       }

+       ECHO;

+   }

+   \{[^\n\} \t]*\} {

+       g_oarg++;

+       if((g_oarg % 2) == 0){

+           fprintf(yyout, "%s", "=");

+       }

+       ECHO;

+   }

 }

 <PROC_ARGS>{

-- 

1.6.6.1

​