Lines Matching refs:first
13 * our Mr. Bilbo's first cousin on the mother's side (her mother being the
15 * cousin. So Mr. Frodo is his first *and* second cousin, once removed
117 yyerror(Perl_form(aTHX_ "Missing comma after first argument to %s function",
1468 * where the first kid is OP_PUSHMARK and the remaining ones
2116 Perl_append_elem(pTHX_ I32 type, OP *first, OP *last)
2118 if (!first)
2122 return first;
2124 if (first->op_type != type
2125 || (type == OP_LIST && (first->op_flags & OPf_PARENS)))
2127 return newLISTOP(type, 0, first, last);
2130 if (first->op_flags & OPf_KIDS)
2131 ((LISTOP*)first)->op_last->op_sibling = last;
2133 first->op_flags |= OPf_KIDS;
2134 ((LISTOP*)first)->op_first = last;
2136 ((LISTOP*)first)->op_last = last;
2137 return first;
2141 Perl_append_list(pTHX_ I32 type, LISTOP *first, LISTOP *last)
2143 if (!first)
2147 return (OP*)first;
2149 if (first->op_type != type)
2150 return prepend_elem(type, (OP*)first, (OP*)last);
2153 return append_elem(type, (OP*)first, (OP*)last);
2155 first->op_last->op_sibling = last->op_first;
2156 first->op_last = last->op_last;
2157 first->op_flags |= (last->op_flags & OPf_KIDS);
2161 return (OP*)first;
2165 Perl_prepend_elem(pTHX_ I32 type, OP *first, OP *last)
2167 if (!first)
2171 return first;
2175 first->op_sibling = ((LISTOP*)last)->op_first->op_sibling;
2176 ((LISTOP*)last)->op_first->op_sibling = first;
2177 if (!(first->op_flags & OPf_PARENS))
2182 ((LISTOP*)last)->op_last = first;
2185 first->op_sibling = ((LISTOP*)last)->op_first;
2186 ((LISTOP*)last)->op_first = first;
2192 return newLISTOP(type, 0, first, last);
2213 Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP *first, OP *last)
2221 if (first || last)
2225 if (!last && first)
2226 last = first;
2227 else if (!first && last)
2228 first = last;
2229 else if (first)
2230 first->op_sibling = last;
2231 listop->op_first = first;
2236 pushop->op_sibling = first;
2265 Perl_newUNOP(pTHX_ I32 type, I32 flags, OP *first)
2269 if (!first)
2270 first = newOP(OP_STUB, 0);
2272 first = force_list(first);
2277 unop->op_first = first;
2288 Perl_newBINOP(pTHX_ I32 type, I32 flags, OP *first, OP *last)
2293 if (!first)
2294 first = newOP(OP_NULL, 0);
2298 binop->op_first = first;
2301 last = first;
2306 first->op_sibling = last;
2497 /* now see which range will peter our first, if either. */
3232 * single bit marker, but then we'd have to make 2 passes, first
3418 Perl_newLOGOP(pTHX_ I32 type, I32 flags, OP *first, OP *other)
3420 return new_logop(type, flags, &first, &other);
3428 OP *first = *firstp;
3432 return newBINOP(type, flags, scalar(first), scalar(other));
3434 scalarboolean(first);
3436 if (first->op_type == OP_NOT && (first->op_flags & OPf_SPECIAL)) {
3442 o = first;
3443 first = *firstp = cUNOPo->op_first;
3445 first->op_next = o->op_next;
3450 if (first->op_type == OP_CONST) {
3451 if (first->op_private & OPpCONST_STRICT)
3452 no_bareword_allowed(first);
3453 else if (ckWARN(WARN_BAREWORD) && (first->op_private & OPpCONST_BARE))
3455 if ((type == OP_AND) == (SvTRUE(((SVOP*)first)->op_sv))) {
3456 op_free(first);
3465 if (first->op_type == OP_CONST)
3466 first->op_private |= OPpCONST_SHORTCIRCUIT;
3467 return first;
3470 else if (ckWARN(WARN_MISC) && (first->op_flags & OPf_KIDS)) {
3471 OP *k1 = ((UNOP*)first)->op_first;
3474 switch (first->op_type)
3509 return first;
3518 logop->op_first = first;
3524 logop->op_next = LINKLIST(first);
3525 first->op_next = (OP*)logop;
3526 first->op_sibling = other;
3537 Perl_newCONDOP(pTHX_ I32 flags, OP *first, OP *trueop, OP *falseop)
3544 return newLOGOP(OP_AND, 0, first, trueop);
3546 return newLOGOP(OP_OR, 0, first, falseop);
3548 scalarboolean(first);
3549 if (first->op_type == OP_CONST) {
3550 if (first->op_private & OPpCONST_BARE &&
3551 first->op_private & OPpCONST_STRICT) {
3552 no_bareword_allowed(first);
3554 if (SvTRUE(((SVOP*)first)->op_sv)) {
3555 op_free(first);
3560 op_free(first);
3568 logop->op_first = first;
3578 start = LINKLIST(first);
3579 first->op_next = (OP*)logop;
3581 first->op_sibling = trueop;
5745 OP *first = cLISTOPx(o)->op_first; /* The pushmark. */
5753 (oa = first->op_sibling) && /* The fh. */
6767 /* check that the sort is the first arg on RHS of assign */