tcsh-65/tcsh/tw.comp.c

194 tw_pos(Char *ran, int wno)
198     if (ran[0] == '*' && ran[1] == '\0')
201     for (p = ran; *p && *p != '-'; p++)
205 	return wno == getn(ran);
207     if (ran == p)			/* range = - <number> */
208 	return wno <= getn(&ran[1]);
212 	return getn(ran) <= wno;
214 	return (getn(ran) <= wno) && (wno <= getn(p));
523 	Char  *ran,	        /* The pattern or range X/<range>/XXXX/ */
561 	ptr = tw_dollar(&ptr[2], wl, wordno, &ran, sep,
563 	cleanup_push(ran, xfree);
564 	if (ran[0] == '\0')	/* check for empty pattern (disallowed) */
586 	xprintf("pattern:    %s\n", short2str(ran));
605 	    xprintf("p: tw_pos(%s, %lu) = ", short2str(ran),
607 	    xprintf("%d\n", tw_pos(ran, wordno - 1));
609 	    if (!tw_pos(ran, wordno - 1)) {
610 		cleanup_until(ran);
622 	    if ((n = tw_match(pos, ran)) < 0) {
623 		cleanup_until(ran);