>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