#define YYBYACC 1
#line 16 "perly.y"
#include "EXTERN.h"
+#define PERL_IN_PERLY_C
#include "perl.h"
#define yydebug PL_yydebug
#define yyval PL_yyval
#define yylval PL_yylval
-#ifdef PERL_OBJECT
-static void
-Dep(CPerlObj *pPerl)
-{
- pPerl->deprecate("\"do\" to call subroutines");
-}
-#define dep() Dep(this)
-#else
-static void
-dep(void)
-{
- deprecate("\"do\" to call subroutines");
-}
-#endif
+#define dep() deprecate("\"do\" to call subroutines")
+
+static void yydestruct(pTHXo_ void *ptr);
#line 30 "perly.y"
#define YYERRCODE 256
YYSTYPE oldyylval;
};
-void
-yydestruct(void *ptr)
-{
- struct ysv* ysave = (struct ysv*)ptr;
- if (ysave->yyss) Safefree(ysave->yyss);
- if (ysave->yyvs) Safefree(ysave->yyvs);
- yydebug = ysave->oldyydebug;
- yynerrs = ysave->oldyynerrs;
- yyerrflag = ysave->oldyyerrflag;
- yychar = ysave->oldyychar;
- yyval = ysave->oldyyval;
- yylval = ysave->oldyylval;
- Safefree(ysave);
-}
-
int
-yyparse(void)
+Perl_yyparse(pTHX)
{
register int yym, yyn, yystate;
register short *yyssp;
yyaccept:
return retval;
}
+
+
+#ifdef PERL_OBJECT
+#define NO_XSLOCKS
+#include "XSUB.h"
+#endif
+
+static void
+yydestruct(pTHXo_ void *ptr)
+{
+ struct ysv* ysave = (struct ysv*)ptr;
+ if (ysave->yyss) Safefree(ysave->yyss);
+ if (ysave->yyvs) Safefree(ysave->yyvs);
+ yydebug = ysave->oldyydebug;
+ yynerrs = ysave->oldyynerrs;
+ yyerrflag = ysave->oldyyerrflag;
+ yychar = ysave->oldyychar;
+ yyval = ysave->oldyyval;
+ yylval = ysave->oldyylval;
+ Safefree(ysave);
+}