This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vmsish fix, ieee rand() cleanup
[perl5.git] / vms / perly_h.vms
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
66 typedef 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