Changeset 4213 for rat/trunk/tcltk.c

Show
Ignore:
Timestamp:
07/08/08 23:25:15 (6 years ago)
Author:
turam
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/tcltk.c

    r3750 r4213  
    273273#include "xbm/reception.xbm" 
    274274 
     275static char* 
     276parse_assignment(char* cp) 
     277{ 
     278        cp = strchr(cp, '='); 
     279        if (cp != 0) { 
     280                *cp = 0; 
     281                return (cp + 1); 
     282        } else 
     283                return ("true"); 
     284} 
     285 
    275286int 
    276287tcl_init1(int argc, char **argv) 
     
    278289        char            *cmd_line_args, buffer[10]; 
    279290        Tcl_Obj         *audiotool_obj; 
     291        int             i; 
    280292 
    281293        Tcl_FindExecutable(argv[0]); 
     
    290302        Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY); 
    291303        Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY); 
     304        for(i=1; i<argc; i++ ) { 
     305                if( strcmp(argv[i],"-X") == 0) { 
     306                        const char* value = parse_assignment(argv[++i]); 
     307                        Tcl_SetVar(interp, argv[i], value, TCL_GLOBAL_ONLY); 
     308                } 
     309        } 
    292310 
    293311        /*