This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix an fcntl example in perlopentut, spotted by MJD.
[perl5.git] / perly.h
CommitLineData
d8118cad 1#ifdef PERL_CORE
93a17b20
LW
2#define WORD 257
3#define METHOD 258
a0d0e21e
LW
4#define FUNCMETH 259
5#define THING 260
6#define PMFUNC 261
7#define PRIVATEREF 262
4633a7c4
LW
8#define FUNC0SUB 263
9#define UNIOPSUB 264
10#define LSTOPSUB 265
11#define LABEL 266
12#define FORMAT 267
13#define SUB 268
14#define ANONSUB 269
15#define PACKAGE 270
16#define USE 271
17#define WHILE 272
18#define UNTIL 273
19#define IF 274
20#define UNLESS 275
21#define ELSE 276
22#define ELSIF 277
23#define CONTINUE 278
24#define FOR 279
25#define LOOPEX 280
26#define DOTDOT 281
27#define FUNC0 282
28#define FUNC1 283
29#define FUNC 284
36477c24
PP
30#define UNIOP 285
31#define LSTOP 286
32#define RELOP 287
33#define EQOP 288
34#define MULOP 289
35#define ADDOP 290
36#define DOLSHARP 291
37#define DO 292
38#define HASHBRACK 293
39#define NOAMP 294
40#define LOCAL 295
41#define MY 296
09bef843
SB
42#define MYSUB 297
43#define COLONATTR 298
44#define PREC_LOW 299
45#define OROP 300
c963b151
BD
46#define DOROP 301
47#define ANDOP 302
48#define NOTOP 303
49#define ASSIGNOP 304
50#define OROR 305
51#define DORDOR 306
52#define ANDAND 307
53#define BITOROP 308
54#define BITANDOP 309
55#define SHIFTOP 310
56#define MATCHOP 311
57#define UMINUS 312
58#define REFGEN 313
59#define POWOP 314
60#define PREINC 315
61#define PREDEC 316
62#define POSTINC 317
63#define POSTDEC 318
64#define ARROW 319
d8118cad
GS
65#endif /* PERL_CORE */
66
93a17b20 67typedef union {
79072805
LW
68 I32 ival;
69 char *pval;
70 OP *opval;
71 GV *gvval;
72} YYSTYPE;