Home
last modified time | relevance | path

Searched refs:GOSUB (Results 1 – 12 of 12) sorted by relevance

/openbsd-src/gnu/usr.bin/perl/
H A Dconfigure.com395 $ GOSUB Shut_up
706 $ GOSUB Shut_up
770 $ GOSUB myread
801 $ GOSUB myread
915 $ GOSUB myread
1010 $ GOSUB myread
1094 $ GOSUB myread
1113 $ GOSUB myread
1315 $ IF (silent) THEN GOSUB Shut_up
1321 $ GOSUB List_Pars
[all...]
H A Dregnodes.h1084 #define GOSUB 94 /* 0x5e recurse to paren arg1 macro
2424 .type = GOSUB,
H A Dregcomp.sym277 GOSUB GOSUB, num/ofs 2 ; recurse to paren arg1 at (signed) ofs arg2
H A Dregcomp_debug.c708 } else if (k == GOSUB) { in Perl_regprop()
H A Dregcomp_study.c1481 I32 stopparen, /* treat CLOSE-N as END, see GOSUB */ in Perl_join_exact()
1482 U32 recursed_depth, /* how deep have we recursed via GOSUB */ in Perl_join_exact()
1575 * enframed handling for a GOSUB: the outermost level will handle it. in Perl_study_chunk()
2112 } else if (OP(scan) == SUSPEND || OP(scan) == GOSUB) { in Perl_study_chunk()
2118 if (OP(scan) != SUSPEND) { /* GOSUB */ in Perl_study_chunk()
2129 * if we do nothing with a GOSUB */ in Perl_study_chunk()
2151 * However we must assume this GOSUB is infinite, to in Perl_study_chunk()
2229 (frame && frame->in_gosub) || OP(scan) == GOSUB in Perl_study_chunk()
H A Dregcomp.c2369 * to calculate the distance between a GOSUB regopcode and in S_reg_scan_name()
2374 * away a GOSUB opcode then the assert should be changed to in S_reg_scan_name()
2378 assert(scan && OP(scan) == GOSUB); in S_reg_scan_name()
3750 /* We keep track how many GOSUB items we have produced. in S_reg()
3751 To start off the ARG2i() of the GOSUB holds its "id", in S_reg()
3753 to calculate the offset we need to jump for the GOSUB, in S_reg()
3758 ret = reg2node(pRExC_state, GOSUB, num, RExC_recurse_count); in S_reg()
3936 * parno == 1 => /(?(R0)YES|NO)/ "in GOSUB (?0) / (?R)" in S_reg()
3937 * parno == 2 => /(?(R1)YES|NO)/ "in GOSUB (?1) (parno-1)" in S_reg()
H A Dregexec.c6466 U32 nochange_depth = 0; /* depth of GOSUB recursion with nochange */ in S_regmatch()
8138 case GOSUB: /* /(...(?1))/ /(...(?&foo))/ */ in S_regmatch()
8173 "entering GOSUB, prev_recurse_locinput=%p recurse_locinput[%d]=%p\n", in S_regmatch()
8477 reginfo->strend, "EVAL/GOSUB: Matching embedded"); in S_regmatch()
8481 * close_paren only for GOSUB */ in S_regmatch()
8482 ST.prev_recurse_locinput= NULL; /* only used for GOSUB */ in S_regmatch()
8492 eval_recurse_doit: /* Share code with GOSUB below this line in S_regmatch()
8535 Perl_re_exec_indentf( aTHX_ STR " GOSUB%d ce=%p recurse_locinput=%p\n",\ in S_regmatch()
9378 /* handle the single-char capture called as a GOSUB etc */ in S_regmatch()
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/base/
H A D500900582 GOSUB # Z added by devel/scanprov
/openbsd-src/gnu/usr.bin/perl/t/re/
H A Dpat_advanced.t2645 | | ~ CLOSE2 'c' (12) -> GOSUB
2685 | | ~ CLOSE2 'c' (12) -> GOSUB
H A Dre_tests2096 /(?(DEFINE)(?<a>(?:[ab]|[cd](*ACCEPT)|[ef])g))(?&a)(?&a)/ cc y $& cc - # ACCEPT in GOSUB
2097 /(?(DEFINE)(?<a>(?:[ab]|[cd](*ACCEPT)|[ef])g))(?&a)(?&a)/ agag y $& agag - # (not) ACCEPT in GOSUB
2098 /(?(DEFINE)(?<a>(?:[ab]|[cd](*ACCEPT)|[ef])g))(?&a)(?&a)/ agcq y $& agc - # (not) ACCEPT in GOSUB
/openbsd-src/gnu/usr.bin/perl/pod/
H A Dperldebguts.pod828 GOSUB num/ofs 2 recurse to paren arg1 at (signed) ofs arg2
H A Dperlre.pod2073 X<regex, relative recursion> X<GOSUB> X<GOSTART>