}
char* dd_get_lex_stuff(pTHX) {
- return SvPVX(PL_lex_stuff);
+ return (PL_lex_stuff ? SvPVX(PL_lex_stuff) : "");
}
char* dd_clear_lex_stuff(pTHX) {
return HvNAME(PL_curstash);
}
-char* dd_move_past_token(pTHX_ char* s) {
+int dd_get_linestr_offset(pTHX) {
+ char* linestr = SvPVX(PL_linestr);
+ return PL_bufptr - linestr;
+}
+
+char* dd_move_past_token (pTHX_ char* s) {
/*
* buffer will be at the beginning of the declarator, -unless- the
return s;
}
-int dd_toke_move_past_token(pTHX_ int offset) {
+int dd_toke_move_past_token (pTHX_ int offset) {
char* base_s = SvPVX(PL_linestr) + offset;
char* s = dd_move_past_token(aTHX_ base_s);
return s - base_s;
o = dd_old_ck_rv2cv(aTHX_ o); /* let the original do its job */
if (in_declare) {
- dSP;
- PUSHMARK(SP);
- call_pv("Devel::Declare::done_declare", G_VOID|G_DISCARD);
- in_declare--;
+ cb_args[0] = NULL;
+#ifdef DD_DEBUG
+ printf("Deconstructing declare\n");
+ printf("PL_bufptr: %s\n", PL_bufptr);
+ printf("bufend at: %i\n", PL_bufend - PL_bufptr);
+ printf("linestr: %s\n", SvPVX(PL_linestr));
+ printf("linestr len: %i\n", PL_bufend - SvPVX(PL_linestr));
+#endif
+ call_argv("Devel::Declare::done_declare", G_VOID|G_DISCARD, cb_args);
+#ifdef DD_DEBUG
+ printf("PL_bufptr: %s\n", PL_bufptr);
+ printf("bufend at: %i\n", PL_bufend - PL_bufptr);
+ printf("linestr: %s\n", SvPVX(PL_linestr));
+ printf("linestr len: %i\n", PL_bufend - SvPVX(PL_linestr));
+ printf("actual len: %i\n", strlen(PL_bufptr));
+#endif
return o;
}
if (PL_lex_state != LEX_NORMAL && PL_lex_state != LEX_INTERPNORMAL)
return o; /* not lexing? */
+#ifdef DD_DEBUG
+ printf("Checking GV %s -> %s\n", HvNAME(GvSTASH(kGVOP_gv)), GvNAME(kGVOP_gv));
+#endif
+
dd_flags = dd_is_declarator(aTHX_ GvNAME(kGVOP_gv));
if (dd_flags == -1)
return o;
+#ifdef DD_DEBUG
+ printf("dd_flags are: %i\n", dd_flags);
+#endif
+
+#ifdef DD_DEBUG
+ printf("PL_tokenbuf: %s\n", PL_tokenbuf);
+#endif
+
dd_linestr_callback(aTHX_ "rv2cv", GvNAME(kGVOP_gv));
return o;
o = dd_old_ck_const(aTHX_ o); /* let the original do its job */
+ /* if this is set, we just grabbed a delimited string or something,
+ not a bareword, so NO TOUCHY */
+
+ if (PL_lex_stuff)
+ return o;
+
/* don't try and look this up if it's not a string const */
if (!SvPOK(cSVOPo->op_sv))
return o;
RETVAL
int
+get_linestr_offset()
+ CODE:
+ RETVAL = dd_get_linestr_offset(aTHX);
+ OUTPUT:
+ RETVAL
+
+int
toke_scan_word(int offset, int handle_package)
CODE:
RETVAL = dd_toke_scan_word(aTHX_ offset, handle_package);