casa-mp-base

>From 941072cd481b4c070b1a5cc67dd1ad7ab0ebf880 Mon Sep 17 00:00:00 2001

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

Date: Fri, 29 Jan 2010 10:30:08 +0100

Subject: [PATCH 1/9] require at least one white space and/or tab after a keyword so we won't

 keywords in function names e.g. proc foo_set_var {}

​

---

 tcl-dox.l |   17 ++++++++---------

 1 files changed, 8 insertions(+), 9 deletions(-)

​

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

index 2dd813f..6d1a1ff 100644

--- a/tcl-dox.l

+++ b/tcl-dox.l

@@ -83,22 +83,21 @@ WS    [ \t]

  }

-

- "class" {

+ "class"[ \t]+ {

     ECHO;

     BEGIN(CLASS);

  } 

- "constructor" {

+ "constructor"[ \t]+ {

     fprintf(yyout, "public:\n %s", g_className);

     BEGIN(PROC_OPEN);

  }

- "destructor" {

+ "destructor"[ \t]+ {

     fprintf(yyout, "public:\n ~%s()", g_className);

  }

- "proc" {

+ "proc"[ \t]+ {

     /* If we are inside of a class then the proc is static. */

     if(g_className)

     {

@@ -111,22 +110,22 @@ WS    [ \t]

     BEGIN(PROC);

  }

- "method" {

+ "method"[ \t]+ {

     fprintf(yyout, "%s", "string ");

     BEGIN(PROC);

  }

- "namespace eval" {

+ "namespace eval"[ \t]+ {

     fprintf(yyout, "%s", "namespace");

     BEGIN(NAMESPACE);

  }

- "public"|"private"|"protected" {

+ "public"|"private"|"protected"[ \t]+ {

     ECHO;

     fprintf(yyout, "%s", ":\n");

  }