Subversion Repositories igor

#ifndef _OBJECT_H_

#define _OBJECT_H_

#include "types.h"

#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

// size and position of the parts of an object

#define OBJECT_DATUM_OFFSET 0

#define OBJECT_DATUM_MASK 0x3FFFFFF

#define OBJECT_TYPE_OFFSET 27

#define OBJECT_TYPE_MASK 0x1F

#define OBJECT_GC_OFFSET 26

#define OBJECT_GC_MASK 0x1

#define OBJECT_NEW(type, datum) \

        ((((type)&OBJECT_TYPE_MASK) << OBJECT_TYPE_OFFSET) | ((datum)&OBJECT_DATUM_MASK))

#define OBJECT_DATUM(obj) ((obj) & OBJECT_DATUM_MASK)

#define OBJECT_TYPE(obj) (((obj)>>OBJECT_TYPE_OFFSET) & OBJECT_TYPE_MASK)

#define OBJECT_GC(obj) (((obj)>>OBJECT_GC_OFFSET)&OBJECT_GC_MASK)

void object_dump(reg_t object);

reg_t object_get_type(reg_t object);

reg_t object_set_type(reg_t object, uint8_t type);

reg_t object_get_datum(reg_t object);

reg_t object_get_datum_signed(reg_t object);

reg_t object_set_datum(reg_t object, uint32_t datum);

reg_t object_get_gc(reg_t object);

reg_t object_set_gc(reg_t object, uint32_t gc);

reg_t object_make(uint8_t type, uint32_t datum);

int object_read(reg_t *objects, int length, FILE *f);

int object_write(reg_t *objects, int length, FILE *f);

#endif /* _OBJECT_H_ */