/
enums.h
92 lines (78 loc) · 3.02 KB
/
enums.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
/* enums.h
* Copyright (C) 2001-2008, Parrot Foundation.
* Overview:
* enums shared by much of the stack-handling code
* Data Structure and Algorithms:
* History:
* Notes:
* References:
*/
#ifndef PARROT_ENUMS_H_GUARD
#define PARROT_ENUMS_H_GUARD
typedef enum {
NO_STACK_ENTRY_TYPE = 0,
STACK_ENTRY_MARK = 1,
STACK_ENTRY_DESTINATION = 2,
STACK_ENTRY_ACTION = 3,
STACK_ENTRY_PMC = 4
} Stack_entry_type;
typedef enum {
NO_STACK_ENTRY_FLAGS = 0,
STACK_ENTRY_CLEANUP_FLAG = 1 << 0
} Stack_entry_flags;
typedef enum {
NO_STACK_CHUNK_FLAGS = 0,
STACK_CHUNK_COW_FLAG = 1 << 0
} Stack_chunk_flags;
/* &gen_from_enum(iterator.pasm) */
typedef enum {
ITERATE_FROM_START,
ITERATE_FROM_START_KEYS,
ITERATE_GET_NEXT,
ITERATE_GET_PREV,
ITERATE_FROM_END
} Iterator_action_t;
/* &end_gen */
/* &gen_from_enum(call_bits.pasm lib/Parrot/Pmc2c/PCCMETHOD_BITS.pm) */
typedef enum {
/* 4 low bits are argument types */
PARROT_ARG_INTVAL = 0x0000, /* 0 */
PARROT_ARG_STRING = 0x0001, /* 1 */
PARROT_ARG_PMC = 0x0002, /* 2 */
PARROT_ARG_FLOATVAL = 0x0003, /* 3 */
PARROT_ARG_TYPE_MASK = 0x000f,
/* argument meaning and conversion bits */
PARROT_ARG_CONSTANT = 0x0010, /* 16 */
/* bits a user has to define */
PARROT_ARG_FLATTEN = 0x0020, /* .flatten_arg */
PARROT_ARG_SLURPY_ARRAY = PARROT_ARG_FLATTEN, /* i.e. foldup */
/* unused - 0x040 */
PARROT_ARG_OPTIONAL = 0x0080, /* 128 */
PARROT_ARG_OPT_FLAG = 0x0100, /* 256 prev optional was set */
PARROT_ARG_NAME = 0x0200, /* 512 this String is an arg name */
PARROT_ARG_LOOKAHEAD = 0x0400, /* 1024 this is a lookahead argument */
PARROT_ARG_INVOCANT = 0x0800, /* 2048 this PMC is an invocant */
PARROT_ARG_CALL_SIG = 0x1000
/* more to come soon */
} Call_bits_enum_t;
/* &end_gen */
#define PARROT_ARG_INTVAL_ISSET(o) ((o) & PARROT_ARG_INTVAL)
#define PARROT_ARG_STRING_ISSET(o) ((o) & PARROT_ARG_STRING)
#define PARROT_ARG_PMC_ISSET(o) ((o) & PARROT_ARG_PMC)
#define PARROT_ARG_FLOATVAL_ISSET(o) ((o) & PARROT_ARG_FLOATVAL)
#define PARROT_ARG_TYPE_MASK_MASK(o) ((o) & PARROT_ARG_TYPE_MASK)
#define PARROT_ARG_TYPE(o) PARROT_ARG_TYPE_MASK_MASK(o)
#define PARROT_ARG_CONSTANT_ISSET(o) ((o) & PARROT_ARG_CONSTANT)
#define PARROT_ARG_FLATTEN_ISSET(o) ((o) & PARROT_ARG_FLATTEN)
#define PARROT_ARG_SLURPY_ARRAY_ISSET(o) ((o) & PARROT_ARG_SLURPY_ARRAY)
#define PARROT_ARG_OPTIONAL_ISSET(o) ((o) & PARROT_ARG_OPTIONAL)
#define PARROT_ARG_OPT_FLAG_ISSET(o) ((o) & PARROT_ARG_OPT_FLAG)
#define PARROT_ARG_NAME_ISSET(o) ((o) & PARROT_ARG_NAME)
#define PARROT_ARG_INVOCANT_ISSET(o) ((o) & PARROT_ARG_INVOCANT)
#endif /* PARROT_ENUMS_H_GUARD */
/*
* Local variables:
* c-file-style: "parrot"
* End:
* vim: expandtab shiftwidth=4 cinoptions='\:2=2' :
*/