#define DD_AM_LEXING DD_AM_LEXING_CHECK
#endif
+static OP *previous_op = NULL;
+
/* thing that decides whether we're dealing with a declarator */
int dd_is_declarator(pTHX_ char* name) {
}
void dd_set_linestr(pTHX_ char* new_value) {
- int new_len = strlen(new_value);
+ unsigned int new_len = strlen(new_value);
if (SvLEN(PL_linestr) < new_len) {
croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
return s - base_s;
}
+int dd_toke_scan_ident(pTHX_ int offset) {
+ char tmpbuf[sizeof PL_tokenbuf];
+ char* base_s = SvPVX(PL_linestr) + offset;
+ char* s = scan_ident(base_s, PL_bufend, tmpbuf, sizeof tmpbuf, 0);
+ return s - base_s;
+}
+
int dd_toke_scan_str(pTHX_ int offset) {
char* base_s = SvPVX(PL_linestr) + offset;
char* s = scan_str(base_s, FALSE, FALSE);
OP* kid;
int dd_flags;
+ PERL_UNUSED_VAR(user_data);
+
if (in_declare) {
if (dd_debug) {
printf("Deconstructing declare\n");
}
STATIC OP *dd_ck_entereval(pTHX_ OP *o, void *user_data) {
+ PERL_UNUSED_VAR(user_data);
+
if (o->op_ppaddr == PL_ppaddr[OP_ENTEREVAL])
o->op_ppaddr = dd_pp_entereval;
return o;
int dd_flags;
char* name;
+ PERL_UNUSED_VAR(user_data);
+
/* if this is set, we just grabbed a delimited string or something,
not a bareword, so NO TOUCHY */
if (dd_flags == -1)
return o;
+ if (previous_op != NULL) {
+ switch (previous_op->op_type) {
+ case OP_QR:
+ case OP_MATCH:
+ case OP_SUBST:
+ case OP_TRANS:
+ return o;
+ break;
+ default:
+ break;
+ }
+ }
dd_linestr_callback(aTHX_ "const", name);
- return o;
+ return o;
+}
+
+STATIC OP *
+remember_previous_op (pTHX_ OP *o, void *user_data)
+{
+ PERL_UNUSED_VAR (user_data);
+ previous_op = o;
+ return o;
}
static int initialized = 0;
void
setup()
+ PREINIT:
+ I32 i;
CODE:
if (!initialized++) {
hook_op_check(OP_RV2CV, dd_ck_rv2cv, NULL);
hook_op_check(OP_ENTEREVAL, dd_ck_entereval, NULL);
hook_op_check(OP_CONST, dd_ck_const, NULL);
}
+ for (i = 0; i < OP_max; i++) {
+ (void)hook_op_check(i, remember_previous_op, NULL);
+ }
filter_add(dd_filter_realloc, NULL);
char*
RETVAL
int
+toke_scan_ident(int offset)
+ CODE:
+ RETVAL = dd_toke_scan_ident(aTHX_ offset);
+ OUTPUT:
+ RETVAL
+
+int
toke_skipspace(int offset)
CODE:
RETVAL = dd_toke_skipspace(aTHX_ offset);