Lines Matching +defs:c +defs:indent +defs:level
1 /* toke.c
43 #define new_constant(a,b,c,d,e,f,g, h) \
44 S_new_constant(aTHX_ a,b,STR_WITH_LEN(c),d,e,f, g, h)
121 #define isPLUGINFIX(c) (c && !isSPACE(c) && !isDIGIT(c) && !isALPHA(c))
123 #define isPLUGINFIX_FIRST(c) (isPLUGINFIX(c) && c != '"' && c != '\'')
127 #define SPACE_OR_TAB(c) isBLANK_A(c)
147 #define LEX_INTERPPUSH 7 /* starting a new sublex parse level */
214 * Aop : addition-level operator
215 * AopNOASSIGN : addition-level operator that is never part of .=
216 * Mop : multiplication-level operator
567 Perl_sv_catpvf(aTHX_ report, "'%c'", (char)rv);
777 Perl_croak(aTHX_ "Can't find string terminator %c%" UTF8f "%c"
1040 using the slightly higher-level functions L</lex_peek_unichar> and
1202 U8 c = (U8)*p;
1203 if (UTF8_IS_ABOVE_LATIN1(c)) {
1209 } else assert(UTF8_IS_INVARIANT(c));
1347 using the slightly higher-level functions L</lex_peek_unichar> and
1674 I32 c;
1677 c = lex_peek_unichar(flags);
1678 if (c != -1) {
1679 if (c == '\n')
1686 return c;
1720 char c = *s;
1721 if (c == '#') {
1723 c = *++s;
1724 } while (!(c == '\n' || (c == 0 && s == bufend)));
1725 } else if (c == '\n') {
1734 } else if (isSPACE(c)) {
1736 } else if (c == 0 && s == bufend) {
1754 } else if (!c) {
1854 "Prototype after '%c' for %" SVf " : %s",
3094 a certain range mark which will be handled by pmtrans() in op.c.
3388 "Invalid range \"%c-%c\" in transliteration operator",
3421 * for each of those bytes is created by op.c. So we
3663 /* The following should match regcomp.c */
3737 Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX), "\\%c better written as $%c", *s, *s);
3776 "Unrecognized escape \\%c passed through",
4270 /* \c is a control character */
4271 case 'c':
4284 yyerror("Missing control char name in \\c");
4487 * Rather than change this base-level function immediately, khw has added
5749 /* commas only at base level: /$a\Ub$c/ => ($a,uc(b.$c)) */
5915 case 'c': ftst = OP_FTCHR; break;
5935 PerlIO_printf(Perl_debug_log, "### Saw file test %c\n", (int)tmp);
5944 "### '-%c' looked like a file test but was not\n",
6224 "%c%c%c in attribute list", q, *s, q)
6988 Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX),"Can't use \\%c to mean $%c in expression",
7054 const char *c;
7061 c = sv_uni_display(dsv, newSVpvn_flags(s,
7067 c = Perl_form(aTHX_ "\\x%02X", (unsigned char)*s);
7086 Perl_croak(aTHX_ "Unrecognized character %s; marked by <-- HERE after %" UTF8f "<-- HERE near column %d", c,
7482 const char *c = ipath;
7483 while (*c && !memCHRs("; \t\r\n\f\v#", *c))
7484 c++;
7485 if (c < d)
7605 "Operator or semicolon missing before %c%" UTF8f,
7610 "Ambiguous use of %c resolved as operator %c",
7694 yyl_just_a_word(pTHX_ char *s, STRLEN len, I32 orig_keyword, struct code c)
7751 c.gv = NULL;
7752 c.gvp = 0;
7761 if (!c.sv)
7762 c.sv = S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len);
7763 if (c.gvp) {
7765 sv_catsv(sv, c.sv);
7766 SvREFCNT_dec(c.sv);
7767 c.sv = sv;
7772 pl_yylval.opval = newSVOP(OP_CONST, 0, c.sv);
7779 if (!c.off) {
7780 OP *const_op = newSVOP(OP_CONST, 0, SvREFCNT_inc_NN(c.sv));
7782 c.rv2cv_op = newCVREF(OPpMAY_RETURN_CONSTANT<<8, const_op);
7783 c.cv = c.lex
7784 ? isGV(c.gv)
7785 ? GvCV(c.gv)
7786 : SvROK(c.gv) && SvTYPE(SvRV(c.gv)) == SVt_PVCV
7787 ? (CV *)SvRV(c.gv)
7788 : ((CV *)c.gv)
7789 : rv2cv_op_cv(c.rv2cv_op, RV2CVOPCV_RETURN_STUB);
7816 && (key = intuit_method(s, c.lex ? NULL : c.sv, c.cv)))
7829 || (!c.cv
7839 op_free(c.rv2cv_op);
7849 op_free(c.rv2cv_op);
7851 if (c.gvp || (c.lex && !c.off)) {
7852 assert (cSVOPx(pl_yylval.opval)->op_sv == c.sv);
7855 SvREADONLY_off(c.sv);
7856 sv_setpv(c.sv, PL_tokenbuf);
7859 SvUTF8_on(c.sv);
7860 SvREADONLY_on(c.sv);
7868 if (c.cv) {
7872 if (*d == ')' && (c.sv = cv_const_sv_or_av(c.cv)))
7873 return yyl_constant_op(aTHX_ d + 1, c.sv, c.cv, c.rv2cv_op, c.off);
7876 c.off ? c.rv2cv_op : pl_yylval.opval;
7877 if (c.off)
7879 else op_free(c.rv2cv_op), force_next(BAREWORD);
7886 if ((*s == '$' || *s == '{') && !c.cv && FEATURE_INDIRECT_IS_ENABLED) {
7887 op_free(c.rv2cv_op);
7902 && (key = intuit_method(s, c.lex ? NULL : c.sv, c.cv)))
7905 if (c.lex && !c.off) {
7906 assert(cSVOPx(pl_yylval.opval)->op_sv == c.sv);
7907 SvREADONLY_off(c.sv);
7908 sv_setpvn(c.sv, PL_tokenbuf, len);
7911 SvUTF8_on(c.sv);
7912 else SvUTF8_off(c.sv);
7914 op_free(c.rv2cv_op);
7925 if (c.cv) {
7927 c.sv = cv_const_sv_or_av(c.cv);
7928 return yyl_constant_op(aTHX_ s, c.sv, c.cv, c.rv2cv_op, c.off);
7938 op_free(c.rv2cv_op);
7944 yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct code c)
7948 return yyl_just_a_word(aTHX_ s, len, orig_keyword, c);
7991 return yyl_just_a_word(aTHX_ s, len, orig_keyword, c);
8899 return yyl_just_a_word(aTHX_ s, len, orig_keyword, c);
8910 yyl_key_core(pTHX_ char *s, STRLEN len, struct code c)
8922 return yyl_just_a_word(aTHX_ d, olen, 0, c);
8935 return yyl_word_or_keyword(aTHX_ s, len, key, orig_keyword, c);
8989 struct code c = no_code;
8993 c.gv = gv;
9004 return yyl_key_core(aTHX_ s, len, c);
9005 return yyl_just_a_word(aTHX_ s, len, 0, c);
9083 c.off = pad_findmy_pvn(tmpbuf, len+1, 0);
9084 if (c.off != NOT_IN_PAD) {
9085 assert(c.off); /* we assume this is boolean-true below */
9086 if (PAD_COMPNAME_FLAGS_isOUR(c.off)) {
9087 HV * const stash = PAD_COMPNAME_OURSTASH(c.off);
9089 c.sv = newSVhek(stashname);
9090 sv_catpvs(c.sv, "::");
9091 sv_catpvn_flags(c.sv, PL_tokenbuf, len,
9093 c.gv = gv_fetchsv(c.sv, GV_NOADD_NOINIT | SvUTF8(c.sv),
9095 c.off = 0;
9096 if (!c.gv) {
9097 ASSUME(c.sv && SvREFCNT(c.sv) == 1);
9098 SvREFCNT_dec(c.sv);
9099 c.sv = NULL;
9100 return yyl_just_a_word(aTHX_ s, len, 0, c);
9104 c.rv2cv_op = newOP(OP_PADANY, 0);
9105 c.rv2cv_op->op_targ = c.off;
9106 c.cv = find_lexical_cv(c.off);
9108 c.lex = TRUE;
9109 return yyl_just_a_word(aTHX_ s, len, 0, c);
9111 c.off = 0;
9118 key = yyl_secondclass_keyword(aTHX_ s, len, key, &orig_keyword, &c.gv, &c.gvp);
9135 return yyl_word_or_keyword(aTHX_ s, len, key, orig_keyword, c);
9411 "Reversed %c= operator",(int)tmp);
9625 case 'c': case 'C':
9804 /* commas only at base level: /$a\Ub$c/ => ($a,uc(b.$c)) */
9886 /* Set flag if this was a pattern and there were errors. op.c will
9903 /* commas only at base level: /$a\Ub$c/ => ($a,uc(b.$c)) */
10146 int level = 1;
10148 for (w = s+2; *w && level; w++) {
10150 ++level;
10152 --level;
10331 * like c\N{COMBINING TILDE} would start failing, as the
10332 * isWORDCHAR_A case below would gobble the 'c' up.
10516 * c) Otherwise, when unicode rules are used, all XIDS characters.
10615 /* diag_listed_as: Ambiguous use of %c{%s[...]} resolved to %c%s[...] */
10617 "Ambiguous use of %c{%s%s} resolved to %c%s%s",
10665 "Ambiguous use of %c{%" SVf "} resolved to %c%" SVf,
10701 const char c = **s;
10704 if ( charlen != 1 || ! strchr(valid_flags, c) ) {
10716 switch (c) {
10729 *charset = c;
10736 *charset = c;
10754 *charset = c;
10761 *charset = c;
10769 if (*charset != c) {
10770 yyerror(Perl_form(aTHX_ "Regexp modifiers \"/%c\" and \"/%c\" are mutually exclusive", *charset, c));
10772 else if (c == 'a') {
10773 /* diag_listed_as: Regexp modifier "/%c" may appear a maximum of twice */
10777 yyerror(Perl_form(aTHX_ "Regexp modifier \"/%c\" may not appear twice", c));
10849 /* issue a warning if /c is specified,but /g is not */
10853 "Use of /c modifier is meaningless without /g" );
10911 Perl_ck_warner(aTHX_ packWARN(WARN_REGEXP), "Use of /c modifier is meaningless in s///" );
10980 case 'c':
11044 char *indent = 0;
11181 level is just one line, so there is no body to steal. */
11218 Newx(indent, indent_len + 1, char);
11219 memcpy(indent, backup + 1, indent_len);
11220 indent[indent_len] = 0;
11367 Newx(indent, indent_len + 1, char);
11368 memcpy(indent, backup, indent_len);
11369 indent[indent_len] = 0;
11406 if (indented && indent) {
11425 && memEQ(ss, indent, indent_len))
11439 Safefree(indent);
11449 Safefree(indent);
11467 if (indent)
11468 Safefree(indent);
11670 <> readline or globs <FOO>, <>, <$fh>, or <*.c>
11699 int brackets = 1; /* bracket nesting level */
11888 * above makes sure we don't get here until the nesting level,
12158 yyerror(Perl_form(aTHX_ "Illegal octal digit '%c'", *s));
12165 yyerror(Perl_form(aTHX_ "Illegal binary digit '%c'", *s));
12173 case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
13063 Perl_sv_catpvf(aTHX_ where_sv, "^%c", toCTRL(yychar));
13086 " (Might be a runaway multi-line %c%c string starting on"
13223 /* As we're automatically added, at the lowest level, and hence only called
13655 normally resulting in a single exception at the top level of parsing
13690 normally resulting in a single exception at the top level of parsing
13722 normally resulting in a single exception at the top level of parsing
13755 normally resulting in a single exception at the top level of parsing
13787 level of parsing which covers all the compilation errors that occurred.
13825 level of parsing which covers all the compilation errors that occurred.
13857 level of parsing which covers all the compilation errors that occurred.
13930 level of parsing which covers all the compilation errors that occurred.
13967 normally resulting in a single exception at the top level of parsing
13981 I32 c;
13985 c = lex_peek_unichar(0);
13986 if (c != -1 && c != /*{*/'}')