File: pboolobject.h

package info (click to toggle)
psyco 1.5.1-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,864 kB
  • ctags: 3,295
  • sloc: ansic: 24,491; python: 5,573; perl: 1,309; makefile: 166; sh: 1
file content (56 lines) | stat: -rw-r--r-- 1,732 bytes parent folder | download | duplicates (6)
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
 /***************************************************************/
/***             Psyco equivalent of boolobject.h              ***/
 /***************************************************************/

#ifndef _PSY_BOOLOBJECT_H
#define _PSY_BOOLOBJECT_H


#include "pobject.h"
#include "pabstract.h"

#if BOOLEAN_TYPE    /* Booleans were introduced in Python 2.3 */


#define BOOL_ob_ival    DEF_FIELD(PyBoolObject, long, ob_ival, OB_type)
#define iBOOL_OB_IVAL   FIELD_INDEX(BOOL_ob_ival)
#define BOOL_TOTAL      FIELDS_TOTAL(BOOL_ob_ival)


#define PsycoBool_Check(tp) PyType_TypeCheck(tp, &PyBool_Type)


 /***************************************************************/
  /***   Virtual-time object builder                           ***/

/* not-yet-computed booleans */
EXTERNVAR source_virtual_t psyco_computed_bool;

/* !! consumes a reference to vlong. PsycoBool_FromLong() does not. */
PSY_INLINE vinfo_t* PsycoBool_FROM_LONG(vinfo_t* vlong)
{
	vinfo_t* result = vinfo_new(VirtualTime_New(&psyco_computed_bool));
	result->array = array_new(BOOL_TOTAL);
	result->array->items[iOB_TYPE] =
		vinfo_new(CompileTime_New((long)(&PyBool_Type)));
	result->array->items[iBOOL_OB_IVAL] = vlong;  assert_nonneg(vlong);
	return result;
}
PSY_INLINE vinfo_t* PsycoBool_FromLong(vinfo_t* vlong)
{
	vinfo_incref(vlong);
	return PsycoBool_FROM_LONG(vlong);
}


#else /* !BOOLEAN_TYPE */
/* define the booleans as synonims for integers */
# define PsycoBool_FROM_LONG(v)  PsycoInt_FROM_LONG(v)
# define PsycoBool_FromLong(v)   PsycoInt_FromLong(v)
#endif /* BOOLEAN_TYPE */

/* utility */
#define PsycoBool_FromCondition(po, cc)                         \
	PsycoBool_FROM_LONG(psyco_vinfo_condition(po, cc))

#endif /* _PSY_INTOBJECT_H */