Subversion Repositories igor

#ifndef _ENCDEC_H_
#define _ENCDEC_H_
 
uint32_t encode_object(uint32_t, uint32_t);
uint32_t decode_object(uint32_t, uint32_t, uint8_t *);
 
#define TYPE_NONE	0x0
#define TYPE_INT	0x1
#define TYPE_FLOAT	0x3
#define TYPE_CONS	0x4
#define TYPE_SNOC	0x5
#define TYPE_PTR	0x6
#define TYPE_ARRAY	0x7
#define TYPE_NIL	0x8
#define TYPE_T		0x9
#define TYPE_CHAR	0xA
#define TYPE_SYMBOL	0xB
#define TYPE_FUNCTION	0xC
#define TYPE_BUILTIN    0xD
#define SIZE_INT	26
#define BSIZE_INT	(SIZE_INT + 2)
#define SIZE_CHAR	8
#define BSIZE_CHAR	(SIZE_CHAR + 2)
 
// size and position of the parts of an object
#define OBJECT_DATUM_OFFSET 0
#define OBJECT_DATUM_MASK 0x3FFFFFF
#define OBJECT_TYPE_OFFSET 26
#define OBJECT_TYPE_MASK 0x1F
#define OBJECT_GC_OFFSET 31
#define OBJECT_GC_MASK 0x1
 
 
#define OBJECT_NEW(type, datum)						\
	((((uint32_t)(type) << OBJECT_TYPE_OFFSET)&0x7C000000) |	\
	((datum)&OBJECT_DATUM_MASK))
#define OBJECT_TYPE(obj) \
	(((uint32_t)(obj)>>OBJECT_TYPE_OFFSET) & OBJECT_TYPE_MASK)
#define OBJECT_DATUM(obj) ((obj) & OBJECT_DATUM_MASK)
#define OBJECT_GC(obj) (((obj)>>OBJECT_GC_OFFSET)&OBJECT_GC_MASK)
 
#define DATA_SIZE_TYPE(type) ((type) == TYPE_CHAR) ? 1 : 4
// XXX: Change to DEVTYPE_BOOT || == DEVTYPE_STORAGE when we're ready
#define DATA_TYPE_DEV(dev) \
	(((dev) == DEVTYPE_BOOT) ? TYPE_NONE : TYPE_CHAR)
#endif /* _ENCDEC_H_ */