102 lines
2.7 KiB
C
102 lines
2.7 KiB
C
#ifndef Py_LIMITED_API
|
|
#ifndef Py_ASDL_H
|
|
#define Py_ASDL_H
|
|
|
|
typedef PyObject * identifier;
|
|
typedef PyObject * string;
|
|
typedef PyObject * object;
|
|
typedef PyObject * constant;
|
|
|
|
/* It would be nice if the code generated by asdl_c.py was completely
|
|
independent of Python, but it is a goal the requires too much work
|
|
at this stage. So, for example, I'll represent identifiers as
|
|
interned Python strings.
|
|
*/
|
|
|
|
#define _ASDL_SEQ_HEAD \
|
|
Py_ssize_t size; \
|
|
void **elements;
|
|
|
|
typedef struct {
|
|
_ASDL_SEQ_HEAD
|
|
} asdl_seq;
|
|
|
|
typedef struct {
|
|
_ASDL_SEQ_HEAD
|
|
void *typed_elements[1];
|
|
} asdl_generic_seq;
|
|
|
|
typedef struct {
|
|
_ASDL_SEQ_HEAD
|
|
PyObject *typed_elements[1];
|
|
} asdl_identifier_seq;
|
|
|
|
typedef struct {
|
|
_ASDL_SEQ_HEAD
|
|
int typed_elements[1];
|
|
} asdl_int_seq;
|
|
|
|
asdl_generic_seq *_Py_asdl_generic_seq_new(Py_ssize_t size, PyArena *arena);
|
|
asdl_identifier_seq *_Py_asdl_identifier_seq_new(Py_ssize_t size, PyArena *arena);
|
|
asdl_int_seq *_Py_asdl_int_seq_new(Py_ssize_t size, PyArena *arena);
|
|
|
|
|
|
#define GENERATE_ASDL_SEQ_CONSTRUCTOR(NAME, TYPE) \
|
|
asdl_ ## NAME ## _seq *_Py_asdl_ ## NAME ## _seq_new(Py_ssize_t size, PyArena *arena) \
|
|
{ \
|
|
asdl_ ## NAME ## _seq *seq = NULL; \
|
|
size_t n; \
|
|
/* check size is sane */ \
|
|
if (size < 0 || \
|
|
(size && (((size_t)size - 1) > (SIZE_MAX / sizeof(void *))))) { \
|
|
PyErr_NoMemory(); \
|
|
return NULL; \
|
|
} \
|
|
n = (size ? (sizeof(TYPE *) * (size - 1)) : 0); \
|
|
/* check if size can be added safely */ \
|
|
if (n > SIZE_MAX - sizeof(asdl_ ## NAME ## _seq)) { \
|
|
PyErr_NoMemory(); \
|
|
return NULL; \
|
|
} \
|
|
n += sizeof(asdl_ ## NAME ## _seq); \
|
|
seq = (asdl_ ## NAME ## _seq *)PyArena_Malloc(arena, n); \
|
|
if (!seq) { \
|
|
PyErr_NoMemory(); \
|
|
return NULL; \
|
|
} \
|
|
memset(seq, 0, n); \
|
|
seq->size = size; \
|
|
seq->elements = (void**)seq->typed_elements; \
|
|
return seq; \
|
|
}
|
|
|
|
#define asdl_seq_GET_UNTYPED(S, I) (S)->elements[(I)]
|
|
#define asdl_seq_GET(S, I) (S)->typed_elements[(I)]
|
|
#define asdl_seq_LEN(S) ((S) == NULL ? 0 : (S)->size)
|
|
#ifdef Py_DEBUG
|
|
#define asdl_seq_SET(S, I, V) \
|
|
do { \
|
|
Py_ssize_t _asdl_i = (I); \
|
|
assert((S) != NULL); \
|
|
assert(0 <= _asdl_i && _asdl_i < (S)->size); \
|
|
(S)->typed_elements[_asdl_i] = (V); \
|
|
} while (0)
|
|
#else
|
|
#define asdl_seq_SET(S, I, V) (S)->typed_elements[I] = (V)
|
|
#endif
|
|
|
|
#ifdef Py_DEBUG
|
|
#define asdl_seq_SET_UNTYPED(S, I, V) \
|
|
do { \
|
|
Py_ssize_t _asdl_i = (I); \
|
|
assert((S) != NULL); \
|
|
assert(0 <= _asdl_i && _asdl_i < (S)->size); \
|
|
(S)->elements[_asdl_i] = (V); \
|
|
} while (0)
|
|
#else
|
|
#define asdl_seq_SET_UNTYPED(S, I, V) (S)->elements[I] = (V)
|
|
#endif
|
|
|
|
#endif /* !Py_ASDL_H */
|
|
#endif /* Py_LIMITED_API */
|