Cross Reference: /ast/src/lib/libtksh/tcl/regexp.c

Lines Matching refs:restate
750 			    struct regexec_state *restate));
752 			    struct regexec_state *restate));
754 			    struct regexec_state *restate));
773 	struct regexec_state *restate= &state;
801 	restate->regbol = start;
805 		return(regtry(prog, string, restate));
812 			if (regtry(prog, s, restate))
819 			if (regtry(prog, s, restate))
831 regtry(prog, string, restate)
834 struct regexec_state *restate;
840 	restate->reginput = string;
841 	restate->regstartp = prog->startp;
842 	restate->regendp = prog->endp;
850 	if (regmatch(prog->program + 1,restate)) {
852 		prog->endp[0] = restate->reginput;
869 regmatch(prog, restate)
871 struct regexec_state *restate;
890 		if (restate->reginput != restate->regbol) {
895 		if (*restate->reginput != '\0') {
900 		if (*restate->reginput == '\0') {
903 		restate->reginput++;
911 		if (*opnd != *restate->reginput) {
915 		if (len > 1 && strncmp(opnd, restate->reginput, (size_t) len)
919 		restate->reginput += len;
923 		if (*restate->reginput == '\0'
924 			|| strchr(OPERAND(scan), *restate->reginput) == NULL) {
927 		restate->reginput++;
930 		if (*restate->reginput == '\0'
931 			|| strchr(OPERAND(scan), *restate->reginput) != NULL) {
934 		restate->reginput++;
954 		save = restate->reginput;
956 		if (regmatch(next,restate)) {
961 		    if (restate->regstartp[no] == NULL) {
962 			restate->regstartp[no] = save;
983 		save = restate->reginput;
985 		if (regmatch(next,restate)) {
991 		    if (restate->regendp[no] == NULL)
992 			restate->regendp[no] = save;
1005 			save = restate->reginput;
1006 			if (regmatch(OPERAND(scan),restate))
1008 			restate->reginput = save;
1030 		save = restate->reginput;
1031 		no = regrepeat(OPERAND(scan),restate);
1034 		    if (nextch == '\0' || *restate->reginput == nextch)
1035 			if (regmatch(next,restate))
1039 		    restate->reginput = save + no;
1070 regrepeat(p, restate)
1072 struct regexec_state *restate;
1078 	scan = restate->reginput;
1108 	restate->reginput = scan;