Changeset 654 for trunk/browsecif.tcl

Timestamp:

Dec 4, 2009 5:09:47 PM (13 years ago)

Author:

toby

Message:

# on 2002/09/24 20:49:58, toby did:
quote reserved "words" (DATA_ LOOP_ SAVE_ STOP_ GLOBAL_)

File:

• trunk/browsecif.tcl (modified) (1 diff, 3 props)

trunk/browsecif.tcl

@@ -1186 +1186 @@
     # if no, are there any square brackets? -- treat them as requiring quotes
     if {$spaces == -1} {set spaces [string first {[} $value]}
+    # are there any reserved strings inside $value? If so, it must be quoted
+    if {$spaces == -1} {
+        set tmp [string toupper $value]
+        foreach s {DATA_ LOOP_ SAVE_ STOP_ GLOBAL_} {
+            if {[set spaces [string first $s $tmp]] != -1} break
+        }
+    }
     # are there quotes inside the string?
     set doublequote [string first "\"" $value]
     set singlequote [string first {'} $value]
-    # if we have both types of quotes, use semicolon quoting
+    # if we have either type of quotes, use semicolon quoting
     if {$singlequote != -1 && $doublequote != -1} {set num $l}