/dports/devel/p5-Devel-Declare/Devel-Declare-0.006022/ |
H A D | stolen_chunk_of_toke.c | 142 #define PL_lex_op (PL_parser->lex_op) 152 #define PL_linestr (PL_parser->linestr) 154 #define PL_linestr (PL_parser->linestr) 155 #define PL_expect (PL_parser->expect) 157 #define PL_bufptr (PL_parser->bufptr) 161 #define PL_bufend (PL_parser->bufend) 166 #define PL_rsfp (PL_parser->rsfp) 168 #define PL_in_my (PL_parser->in_my) 173 #define PL_nexttoke (PL_parser->nexttoke) 177 # define PL_curforce (PL_parser->curforce) [all …]
|
/dports/lang/perl5.30/perl-5.30.3/ |
H A D | toke.c | 1250 if (PL_parser->last_uni && PL_parser->last_uni < ptr) in Perl_lex_discard_to() 1252 if (PL_parser->last_lop && PL_parser->last_lop < ptr) in Perl_lex_discard_to() 1327 && PL_parser->bufptr == PL_parser->bufend) in Perl_lex_next_chunk() 1331 if (PL_parser->last_uni != PL_parser->bufend) in Perl_lex_next_chunk() 1333 if (PL_parser->last_lop != PL_parser->bufend) in Perl_lex_next_chunk() 1349 } else if (!PL_parser->rsfp && !PL_parser->filtered) { in Perl_lex_next_chunk() 1368 PL_parser->in_pod = PL_parser->filtered = 0; in Perl_lex_next_chunk() 1524 PL_parser->bufptr += UTF8SKIP(PL_parser->bufptr); in Perl_lex_read_unichar() 4505 PL_parser->last_uni ? PL_parser->last_uni - buf : 0; in Perl_filter_add() 4507 PL_parser->last_lop ? PL_parser->last_lop - buf : 0; in Perl_filter_add() [all …]
|
H A D | op.c | 1759 if (PL_parser && PL_parser->error_count) in S_scalar_slice_warning() 1902 if (PL_parser && PL_parser->error_count) in Perl_scalar() 2326 || (PL_parser && PL_parser->error_count) in Perl_list() 4548 if (PL_parser && PL_parser->error_count) in Perl_doref() 5245 if (PL_parser && PL_parser->parsed_sub) { in Perl_block_end() 5448 if ( PL_parser->bufptr > PL_parser->oldbufptr in Perl_localize() 5638 if (PL_parser && PL_parser->error_count) in S_fold_constants() 5767 if (PL_parser && PL_parser->error_count) in S_gen_constant_list() 9561 if (PL_parser && PL_parser->error_count) { in Perl_newMYSUB() 11551 && !(PL_parser && PL_parser->error_count)) in Perl_ck_exists() [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ |
H A D | toke.c | 1080 last_uni_pos = PL_parser->last_uni ? PL_parser->last_uni - buf : 0; in Perl_lex_grow_linestr() 1081 last_lop_pos = PL_parser->last_lop ? PL_parser->last_lop - buf : 0; in Perl_lex_grow_linestr() 1361 if (PL_parser->last_uni && PL_parser->last_uni < ptr) in Perl_lex_discard_to() 1363 if (PL_parser->last_lop && PL_parser->last_lop < ptr) in Perl_lex_discard_to() 1390 if (PL_parser) { in Perl_notify_parser_that_changed_to_utf8() 1440 && PL_parser->bufptr == PL_parser->bufend) in Perl_lex_next_chunk() 1444 if (PL_parser->last_uni != PL_parser->bufend) in Perl_lex_next_chunk() 1446 if (PL_parser->last_lop != PL_parser->bufend) in Perl_lex_next_chunk() 1462 } else if (!PL_parser->rsfp && !PL_parser->filtered) { in Perl_lex_next_chunk() 1481 PL_parser->in_pod = PL_parser->filtered = 0; in Perl_lex_next_chunk() [all …]
|
/dports/lang/perl5.32/perl-5.32.1/ |
H A D | toke.c | 1262 if (PL_parser->last_uni && PL_parser->last_uni < ptr) in Perl_lex_discard_to() 1264 if (PL_parser->last_lop && PL_parser->last_lop < ptr) in Perl_lex_discard_to() 1341 && PL_parser->bufptr == PL_parser->bufend) in Perl_lex_next_chunk() 1345 if (PL_parser->last_uni != PL_parser->bufend) in Perl_lex_next_chunk() 1347 if (PL_parser->last_lop != PL_parser->bufend) in Perl_lex_next_chunk() 1363 } else if (!PL_parser->rsfp && !PL_parser->filtered) { in Perl_lex_next_chunk() 1382 PL_parser->in_pod = PL_parser->filtered = 0; in Perl_lex_next_chunk() 1538 PL_parser->bufptr += UTF8SKIP(PL_parser->bufptr); in Perl_lex_read_unichar() 4601 PL_parser->last_uni ? PL_parser->last_uni - buf : 0; in Perl_filter_add() 4603 PL_parser->last_lop ? PL_parser->last_lop - buf : 0; in Perl_filter_add() [all …]
|
H A D | op.c | 1833 if (PL_parser && PL_parser->error_count) in S_scalar_slice_warning() 4883 if (PL_parser && PL_parser->error_count) in Perl_doref() 5725 if (PL_parser && PL_parser->parsed_sub) { in Perl_block_end() 5928 if ( PL_parser->bufptr > PL_parser->oldbufptr in Perl_localize() 6119 if (PL_parser && PL_parser->error_count) in S_fold_constants() 6252 if (PL_parser && PL_parser->error_count) in S_gen_constant_list() 10763 if (PL_parser && PL_parser->copline != NOLINE) in S_already_defined() 10839 if (PL_parser && PL_parser->error_count) { in Perl_newMYSUB() 12179 if (PL_parser && PL_parser->error_count) { in Perl_newFORM() 12831 && !(PL_parser && PL_parser->error_count)) in Perl_ck_exists() [all …]
|
/dports/lang/perl5.34/perl-5.34.0/ |
H A D | toke.c | 1287 if (PL_parser->last_uni && PL_parser->last_uni < ptr) in Perl_lex_discard_to() 1289 if (PL_parser->last_lop && PL_parser->last_lop < ptr) in Perl_lex_discard_to() 1366 && PL_parser->bufptr == PL_parser->bufend) in Perl_lex_next_chunk() 1370 if (PL_parser->last_uni != PL_parser->bufend) in Perl_lex_next_chunk() 1372 if (PL_parser->last_lop != PL_parser->bufend) in Perl_lex_next_chunk() 1388 } else if (!PL_parser->rsfp && !PL_parser->filtered) { in Perl_lex_next_chunk() 1407 PL_parser->in_pod = PL_parser->filtered = 0; in Perl_lex_next_chunk() 1562 PL_parser->bufptr += UTF8SKIP(PL_parser->bufptr); in Perl_lex_read_unichar() 4648 PL_parser->last_uni ? PL_parser->last_uni - buf : 0; in Perl_filter_add() 4650 PL_parser->last_lop ? PL_parser->last_lop - buf : 0; in Perl_filter_add() [all …]
|
H A D | op.c | 1844 if (PL_parser && PL_parser->error_count) in S_scalar_slice_warning() 4889 if (PL_parser && PL_parser->error_count) in Perl_doref() 5727 if (PL_parser && PL_parser->parsed_sub) { in Perl_block_end() 5930 if ( PL_parser->bufptr > PL_parser->oldbufptr in Perl_localize() 6127 if (PL_parser && PL_parser->error_count) in S_fold_constants() 6259 if (PL_parser && PL_parser->error_count) in S_gen_constant_list() 10818 if (PL_parser && PL_parser->copline != NOLINE) in S_already_defined() 10894 if (PL_parser && PL_parser->error_count) { in Perl_newMYSUB() 12241 if (PL_parser && PL_parser->error_count) { in Perl_newFORM() 12948 && !(PL_parser && PL_parser->error_count)) in Perl_ck_exists() [all …]
|
/dports/devel/p5-Keyword-Simple/Keyword-Simple-0.04/ |
H A D | Simple.xs | 103 #define PL_rsfp_filters (PL_parser->rsfp_filters) 108 #define PL_parser_filtered (PL_parser->filtered) 124 if (PL_parser && PL_parser->error_count) { in kw_handler() 201 sv_setpvn(sv, PL_parser->bufptr, PL_parser->bufend - PL_parser->bufptr); in total_recall() 202 lex_unstuff(PL_parser->bufend); /* you saw nothing */ in total_recall() 204 if (PL_parser->rsfp || PL_parser_filtered) { in total_recall() 230 if (PL_parser->rsfp || PL_parser_filtered) { in total_recall()
|
/dports/lang/perl5.34/perl-5.34.0/dist/Devel-PPPort/parts/inc/ |
H A D | variables | 45 PL_parser 144 /* Warning: PL_parser 149 * If you always check that PL_parser is non-NULL, you can 156 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 157 (croak("panic: PL_parser == NULL in %s:%d", \ 166 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 168 __NEED_DUMMY_VAR__ yy_parser PL_parser; 177 * An always non-NULL PL_parser dummy is provided for earlier 204 # define PL_parser ((void *) 1) 344 PL_parser() [all …]
|
/dports/lang/perl5.30/perl-5.30.3/dist/Devel-PPPort/parts/inc/ |
H A D | variables | 44 PL_parser 140 /* Warning: PL_parser 145 * If you always check that PL_parser is non-NULL, you can 152 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 153 (croak("panic: PL_parser == NULL in %s:%d", \ 162 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 164 __NEED_DUMMY_VAR__ yy_parser PL_parser; 200 # define PL_parser ((void *) 1) 340 PL_parser() 342 RETVAL = newSViv(PL_parser != NULL); [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Devel-PPPort/parts/inc/ |
H A D | variables | 45 PL_parser 144 /* Warning: PL_parser 149 * If you always check that PL_parser is non-NULL, you can 156 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 157 (croak("panic: PL_parser == NULL in %s:%d", \ 166 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 168 __NEED_DUMMY_VAR__ yy_parser PL_parser; 177 * An always non-NULL PL_parser dummy is provided for earlier 204 # define PL_parser ((void *) 1) 344 PL_parser() [all …]
|
/dports/lang/perl5.32/perl-5.32.1/dist/Devel-PPPort/parts/inc/ |
H A D | variables | 45 PL_parser 144 /* Warning: PL_parser 149 * If you always check that PL_parser is non-NULL, you can 156 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 157 (croak("panic: PL_parser == NULL in %s:%d", \ 166 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 168 __NEED_DUMMY_VAR__ yy_parser PL_parser; 204 # define PL_parser ((void *) 1) 344 PL_parser() 346 RETVAL = newSViv(PL_parser != NULL); [all …]
|
/dports/devel/p5-Devel-PPPort/Devel-PPPort-3.63/parts/inc/ |
H A D | variables | 45 PL_parser 144 /* Warning: PL_parser 149 * If you always check that PL_parser is non-NULL, you can 156 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 157 (croak("panic: PL_parser == NULL in %s:%d", \ 166 # define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \ 168 __NEED_DUMMY_VAR__ yy_parser PL_parser; 177 * An always non-NULL PL_parser dummy is provided for earlier 204 # define PL_parser ((void *) 1) 344 PL_parser() [all …]
|
/dports/devel/p5-B-Hooks-Parser/B-Hooks-Parser-0.21/ |
H A D | stolen_chunk_of_toke.c | 96 #define PL_lex_inwhat (PL_parser->lex_inwhat) 99 #define PL_oldbufptr (PL_parser->oldbufptr) 100 #define PL_linestart (PL_parser->linestart) 101 #define PL_last_lop (PL_parser->last_lop) 102 #define PL_last_uni (PL_parser->last_uni) 104 #define PL_multi_open (PL_parser->multi_open) 106 #define PL_multi_end (PL_parser->multi_end) 107 #define PL_lex_repl (PL_parser->lex_repl) 108 #define PL_nexttype (PL_parser->nexttype) 109 #define PL_nexttoke (PL_parser->nexttoke) [all …]
|
/dports/devel/p5-Keyword-Pluggable/Keyword-Pluggable-1.04/ |
H A D | Pluggable.xs | 104 #define PL_rsfp_filters (PL_parser->rsfp_filters) 109 #define PL_parser_filtered (PL_parser->filtered) 127 if (PL_parser && PL_parser->error_count) { in kw_handler() 218 sv_setpvn(sv, PL_parser->bufptr, PL_parser->bufend - PL_parser->bufptr); in total_recall() 219 lex_unstuff(PL_parser->bufend); /* you saw nothing */ in total_recall() 221 if (PL_parser->rsfp || PL_parser_filtered) { in total_recall() 247 if (PL_parser->rsfp || PL_parser_filtered) { in total_recall()
|
/dports/math/polymake/polymake-4.5/lib/core/src/perl/ |
H A D | Shell.xxs | 32 if (PL_parser->yyerrstatus) { 35 …} else if (PL_parser->lex_brackets == 0 && PL_parser->lex_state == LEX_NORMAL && PL_parser->expect… 39 for (const char* b = PL_parser->bufptr; b < PL_parser->bufend; ++b) {
|
H A D | Scope.cc | 90 if (PL_parser->bufptr == PL_parser->bufend || *PL_parser->bufptr != '(') in parse_expression_in_parens() 92 lex_read_to(PL_parser->bufptr+1); in parse_expression_in_parens() 96 if (PL_parser->bufptr == PL_parser->bufend || *PL_parser->bufptr != ')') { in parse_expression_in_parens() 100 lex_read_to(PL_parser->bufptr+1); in parse_expression_in_parens() 852 if (PL_parser->bufptr == PL_parser->bufend || *PL_parser->bufptr != '{') { in parse_local_block() 1004 if (PL_parser->bufptr + kw.len < PL_parser->bufend in following_keyword() 1005 && !strncmp(PL_parser->bufptr, kw.ptr, kw.len) in following_keyword() 1006 && !isALNUM(PL_parser->bufptr[kw.len])) { in following_keyword() 1008 lex_read_to(PL_parser->bufptr + kw.len); in following_keyword() 1035 if (PL_parser->bufptr == PL_parser->bufend) in parse_enhanced_local() [all …]
|
H A D | namespaces.xxs | 1975 for (b=PL_parser->bufptr; b < PL_parser->bufend; ++b) 2003 const STRLEN oldpos = PL_parser->bufptr - PL_parser->linestart; 2005 if (PL_parser->bufptr == PL_parser->linestart + oldpos) { 2013 if (PL_parser->bufptr == PL_parser->bufend) { 2034 char c = *PL_parser->bufptr; 2077 c = *PL_parser->bufptr; 2109 *PL_parser->bufptr == '(') 2298 if (*PL_parser->bufptr == '>') { 2668 const SSize_t pos = skip_spaces(aTHX_ PL_parser->bufptr - PL_parser->linestart); 2721 assert(PL_parser->bufptr > PL_parser->linestart); [all …]
|
/dports/devel/p5-XS-Parse-Sublike/XS-Parse-Sublike-0.14/hax/ |
H A D | parse_subsignature.c.inc | 20 #define PL_linestr (PL_parser->linestr) 25 # define UTF cBOOL((PL_linestr && DO_UTF8(PL_linestr)) || ( !(PL_parser->lex_flags & LEX_IGNORE_U… 33 char *context = PL_parser->oldbufptr; 34 STRLEN contlen = PL_parser->bufptr - PL_parser->oldbufptr; 45 PL_parser->error_count++; 78 yy_parser *parser = PL_parser; 105 varop->op_targ = pad_add_name_pvn(lexname, PL_parser->bufptr - lexname, 0, NULL, NULL); 159 yy_parser *parser = PL_parser; 176 if(PL_parser->error_count) {
|
H A D | lexer-additions.c.inc | 27 if(s[i] != PL_parser->bufptr[i]) 31 lex_read_to(PL_parser->bufptr + i); 46 char *ident = PL_parser->bufptr; 63 STRLEN len = PL_parser->bufptr - ident; 273 char *lexname = PL_parser->bufptr; 285 if(PL_parser->bufptr - lexname == 2 && lexname[1] == '_') 288 return pad_add_name_pvn(lexname, PL_parser->bufptr - lexname, 0, NULL, NULL);
|
/dports/devel/p5-XS-Parse-Keyword/XS-Parse-Keyword-0.21/src/ |
H A D | keyword.c | 35 #define PL_linestr (PL_parser->linestr) 54 char *context = PL_parser->oldbufptr; in S_yycroak() 55 STRLEN contlen = PL_parser->bufptr - PL_parser->oldbufptr; in S_yycroak() 69 PL_parser->error_count++; in S_yycroak() 86 if(PL_parser->error_count) \ 95 if(s[i] != PL_parser->bufptr[i]) in MY_lex_probe_str() 109 lex_read_to(PL_parser->bufptr + len); in MY_lex_expect_str() 155 (PL_parser->preambling != NOLINE) ? PL_parser->preambling : in probe_piece() 176 lex_read_to(PL_parser->bufptr + len); in probe_piece() 338 (PL_parser->preambling != NOLINE) ? PL_parser->preambling : in parse_piece() [all …]
|
/dports/devel/p5-indirect/indirect-0.39/ |
H A D | indirect.xs | 77 #if XSH_HAS_PERL(5, 10, 0) || defined(PL_parser) in indirect_hint() 78 if (!PL_parser) in indirect_hint() 136 #if XSH_HAS_PERL(5, 10, 0) || defined(PL_parser) 138 # define PL_linestr PL_parser->linestr 141 # define PL_bufptr PL_parser->bufptr 144 # define PL_oldbufptr PL_parser->oldbufptr 147 # define PL_lex_inwhat PL_parser->lex_inwhat 150 # define PL_multi_close PL_parser->multi_close 205 #if XSH_HAS_PERL(5, 10, 0) || defined(PL_parser) in indirect_call_sv() 206 if (PL_parser) in indirect_call_sv() [all …]
|
/dports/devel/p5-XS-Parse-Keyword/XS-Parse-Keyword-0.21/hax/ |
H A D | lexer-additions.c.inc | 27 if(s[i] != PL_parser->bufptr[i]) 31 lex_read_to(PL_parser->bufptr + i); 46 char *ident = PL_parser->bufptr; 63 STRLEN len = PL_parser->bufptr - ident; 273 char *lexname = PL_parser->bufptr; 285 if(PL_parser->bufptr - lexname == 2 && lexname[1] == '_') 288 return pad_add_name_pvn(lexname, PL_parser->bufptr - lexname, 0, NULL, NULL);
|
/dports/devel/p5-Filter/Filter-1.60/decrypt/ |
H A D | decrypt.xs | 37 (PL_parser && PL_parser->rsfp_filters ? av_len(PL_parser->rsfp_filters) : 0)
|