Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/regcomp.c

Lines Matching refs:first
942 		data->pos_min += l; /* As in the first entry. */
1741     regnode *first;
1781 #if 0 /* REGC() is (currently) a NOP at the first pass.
1890 	first = scan;
1892 	while ((OP(first) == OPEN && (sawopen = 1)) ||
1894 	    (OP(first) == BRANCH && OP(regnext(first)) != BRANCH) ||
1895 	    (OP(first) == PLUS) ||
1896 	    (OP(first) == MINMOD) ||
1898 	    (PL_regkind[(U8)OP(first)] == CURLY && ARG1(first) > 0) ) {
1899 		if (OP(first) == PLUS)
1902 		    first += regarglen[(U8)OP(first)];
1903 		first = NEXTOPER(first);
1908 	if (PL_regkind[(U8)OP(first)] == EXACT) {
1909 	    if (OP(first) == EXACT)
1911 	    else if ((OP(first) == EXACTF || OP(first) == EXACTFL))
1912 		r->regstclass = first;
1914 	else if (strchr((char*)PL_simple,OP(first)))
1915 	    r->regstclass = first;
1916 	else if (PL_regkind[(U8)OP(first)] == BOUND ||
1917 		 PL_regkind[(U8)OP(first)] == NBOUND)
1918 	    r->regstclass = first;
1919 	else if (PL_regkind[(U8)OP(first)] == BOL) {
1920 	    r->reganch |= (OP(first) == MBOL
1922 			   : (OP(first) == SBOL
1925 	    first = NEXTOPER(first);
1928 	else if (OP(first) == GPOS) {
1930 	    first = NEXTOPER(first);
1933 	else if (!sawopen && (OP(first) == STAR &&
1934 	    PL_regkind[(U8)OP(NEXTOPER(first))] == REG_ANY) &&
1938 	    int type = OP(NEXTOPER(first));
1946 	    first = NEXTOPER(first);
1954 	/* Scan is after the zeroth branch, first is atomic matcher. */
1955 	DEBUG_r(PerlIO_printf(Perl_debug_log, "first at %"IVdf"\n",
1956 			      (IV)(first - scan + 1)));
1974 	first = scan;
1983 	minlen = study_chunk(pRExC_state, &first, &fake, scan + RExC_size, /* Up to end */
2465 	regtail(pRExC_state, ret, br);		/* OPEN -> first. */
2569 S_regbranch(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, I32 first)
2576     if (first)
2587     if (!first && SIZE_ONLY)
4487 - regoptail - regtail on operand of first argument; nop if operandless
4842 		    for (i = 0; i <= 256; i++) { /* just the first 256 */