Changeset 4213 for rat/trunk/tcltk.c

Timestamp:

07/08/08 23:25:15 (5 years ago)

Author:

turam

Message:

Accept -X arguments on command line, and pass to underlying apps and into tcl interpreter

Files:

• rat/trunk/tcltk.c (modified) (3 diffs)

rat/trunk/tcltk.c

@@ -273 +273 @@
 #include "xbm/reception.xbm"
 
+static char*
+parse_assignment(char* cp)
+{
+        cp = strchr(cp, '=');
+        if (cp != 0) {
+                *cp = 0;
+                return (cp + 1);
+        } else
+                return ("true");
+}
+
 int
 tcl_init1(int argc, char **argv)
@@ -278 +289 @@
         char            *cmd_line_args, buffer[10];
         Tcl_Obj         *audiotool_obj;
+        int             i;
 
         Tcl_FindExecutable(argv[0]);
@@ -290 +302 @@
         Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY);
         Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);
+        for(i=1; i<argc; i++ ) {
+                if( strcmp(argv[i],"-X") == 0) {
+                        const char* value = parse_assignment(argv[++i]);
+                        Tcl_SetVar(interp, argv[i], value, TCL_GLOBAL_ONLY);
+                }
+        }
 
         /*