source: trunk/third/perl/vms/perly_h.vms @ 14545

Revision 14545, 1.4 KB checked in by ghudson, 25 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.
Line 
1/* Postprocessed by vms_yfix.pl 1.11 to add VMS declarations of globals */
2#ifdef PERL_CORE
3#define WORD 257
4#define METHOD 258
5#define FUNCMETH 259
6#define THING 260
7#define PMFUNC 261
8#define PRIVATEREF 262
9#define FUNC0SUB 263
10#define UNIOPSUB 264
11#define LSTOPSUB 265
12#define LABEL 266
13#define FORMAT 267
14#define SUB 268
15#define ANONSUB 269
16#define PACKAGE 270
17#define USE 271
18#define WHILE 272
19#define UNTIL 273
20#define IF 274
21#define UNLESS 275
22#define ELSE 276
23#define ELSIF 277
24#define CONTINUE 278
25#define FOR 279
26#define LOOPEX 280
27#define DOTDOT 281
28#define FUNC0 282
29#define FUNC1 283
30#define FUNC 284
31#define UNIOP 285
32#define LSTOP 286
33#define RELOP 287
34#define EQOP 288
35#define MULOP 289
36#define ADDOP 290
37#define DOLSHARP 291
38#define DO 292
39#define HASHBRACK 293
40#define NOAMP 294
41#define LOCAL 295
42#define MY 296
43#define MYSUB 297
44#define COLONATTR 298
45#define PREC_LOW 299
46#define OROP 300
47#define ANDOP 301
48#define NOTOP 302
49#define ASSIGNOP 303
50#define OROR 304
51#define ANDAND 305
52#define BITOROP 306
53#define BITANDOP 307
54#define SHIFTOP 308
55#define MATCHOP 309
56#define UMINUS 310
57#define REFGEN 311
58#define POWOP 312
59#define PREINC 313
60#define PREDEC 314
61#define POSTINC 315
62#define POSTDEC 316
63#define ARROW 317
64#endif /* PERL_CORE */
65
66typedef union {
67    I32 ival;
68    char *pval;
69    OP *opval;
70    GV *gvval;
71} YYSTYPE;
72#ifndef vax11c
73  extern YYSTYPE yylval;
74#else
75  globalref YYSTYPE yylval;
76#endif
Note: See TracBrowser for help on using the repository browser.