Attachment #2656 for bug #5707




    fileName = NULL;
    argi = 1;
    while ((argi < argc) && (argv[argi][0] == '-')) {
        argi++;
        if (STREQU(argv[argi], "--")) {
          argi++;
          break; /* end of options */
        } else if (!STREQU(argv[argi], "-sync")) {
          argi++; /* takes an argument */
        }
        argi++;
    }
    /* Parse out file name, if supplied. */
    if (argi < argc) {

        while (argi < argc) {
            argv[i++] = argv[argi++];
        }
        argc = i;
    }
#else
    /*

Return to bug 5707

Lines 190-201 Link Here

(-)tclx8.3/tk/generic/tkXshell.c.argv (-4 / +5 lines)
190	fileName = NULL;	190	fileName = NULL;
191	argi = 1;	191	argi = 1;
192	while ((argi < argc) && (argv[argi][0] == '-')) {	192	while ((argi < argc) && (argv[argi][0] == '-')) {
193	argi++;
194	if (STREQU(argv[argi], "--")) {	193	if (STREQU(argv[argi], "--")) {
195	break; /* end of options */	194	argi++;
		195	break; /* end of options */
196	} else if (!STREQU(argv[argi], "-sync")) {	196	} else if (!STREQU(argv[argi], "-sync")) {
197	argi++; /* takes an argument */	197	argi++; /* takes an argument */
198	}	198	}
		199	argi++;
199	}	200	}
200	/* Parse out file name, if supplied. */	201	/* Parse out file name, if supplied. */
201	if (argi < argc) {	202	if (argi < argc) {
Lines 210-216 Link Here
210	while (argi < argc) {	211	while (argi < argc) {
211	argv[i++] = argv[argi++];	212	argv[i++] = argv[argi++];
212	}	213	}
213	argc = i+1;	214	argc = i;
214	}	215	}
215	#else	216	#else
216	/*	217	/*