Lines Matching refs:switchArgv
1607 char **switchArgv;
1610 switchArgv = argv+1;
1612 while ((switchArgc > 0) && (*switchArgv[0] == '-')) {
1613 if (strcmp(*switchArgv, "-exact") == 0) {
1615 } else if (strcmp(*switchArgv, "-glob") == 0) {
1617 } else if (strcmp(*switchArgv, "-regexp") == 0) {
1619 } else if (strcmp(*switchArgv, "--") == 0) {
1621 switchArgv++;
1624 Tcl_AppendResult(interp, "bad option \"", switchArgv[0],
1630 switchArgv++;
1638 string = *switchArgv;
1640 switchArgv++;
1649 code = Tcl_SplitList(interp, switchArgv[0], &switchArgc, &switchArgv);
1668 if ((*switchArgv[i] == 'd') && (i == switchArgc-2)
1669 && (strcmp(switchArgv[i], "default") == 0)) {
1674 matched = (strcmp(string, switchArgv[i]) == 0);
1677 matched = Tcl_StringMatch(string, switchArgv[i]);
1680 matched = Tcl_RegExpMatch(interp, string, switchArgv[i]);
1700 switchArgv[i], "\"", (char *) NULL);
1704 if ((switchArgv[body][0] != '-') || (switchArgv[body][1] != 0)) {
1708 code = Tcl_Eval(interp, switchArgv[body]);
1711 sprintf(msg, "\n (\"%.50s\" arm line %d)", switchArgv[i],
1726 ckfree((char *) switchArgv);