[Bast-commits] r5089 - Devel-Declare/1.000/trunk
rafl at dev.catalyst.perl.org
rafl at dev.catalyst.perl.org
Mon Nov 10 01:35:53 GMT 2008
Author: rafl
Date: 2008-11-10 01:35:52 +0000 (Mon, 10 Nov 2008)
New Revision: 5089
Modified:
Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c
Log:
Eliminate undefined symbols.
Modified: Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c
===================================================================
--- Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c 2008-11-10 01:28:01 UTC (rev 5088)
+++ Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c 2008-11-10 01:35:52 UTC (rev 5089)
@@ -53,6 +53,8 @@
(MEM_SIZE)((n))))); \
} STMT_END
+#define isCONTROLVAR(x) (isUPPER(x) || strchr("[\\]^_?", (x)))
+
/* On MacOS, respect nonbreaking spaces */
#ifdef MACOS_TRADITIONAL
#define SPACE_OR_TAB(c) ((c)==' '||(c)=='\312'||(c)=='\t')
@@ -916,8 +918,11 @@
bracket = s;
s++;
}
+ /* we always call this with ck_uni == 0 (rafl) */
+ /*
else if (ck_uni)
check_uni();
+ */
if (s < send)
*d = *s++;
d[1] = '\0';
@@ -957,12 +962,17 @@
*d = '\0';
while (s < send && SPACE_OR_TAB(*s)) s++;
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) {
+ /* we don't want perl to guess what is meant. the keyword
+ * parser decides that later. (rafl)
+ */
+ /*
if (ckWARN(WARN_AMBIGUOUS) && keyword(dest, d - dest)) {
const char *brack = *s == '[' ? "[...]" : "{...}";
Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS),
"Ambiguous use of %c{%s%s} resolved to %c%s%s",
funny, dest, brack, funny, dest, brack);
}
+ */
bracket++;
PL_lex_brackstack[PL_lex_brackets++] = (char)(XOPERATOR | XFAKEBRACK);
return s;
@@ -989,6 +999,10 @@
}
if (funny == '#')
funny = '@';
+ /* we don't want perl to guess what is meant. the keyword
+ * parser decides that later. (rafl)
+ */
+ /*
if (PL_lex_state == LEX_NORMAL) {
if (ckWARN(WARN_AMBIGUOUS) &&
(keyword(dest, d - dest) || get_cv(dest, FALSE)))
@@ -998,13 +1012,17 @@
funny, dest, funny, dest);
}
}
+ */
}
else {
s = bracket; /* let the parser handle it */
*dest = '\0';
}
}
+ /* don't intuit. we really just want the string. (rafl) */
+ /*
else if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets && !intuit_more(s))
PL_lex_state = LEX_INTERPEND;
+ */
return s;
}
More information about the Bast-commits
mailing list