#ifndef __POBJ_H
#define __POBJ_H

#define member_sizeof(s,x)  (sizeof(((s *)NULL)->x))
#define member_offset(s,x)  ((int)&(((s *)NULL)->x))

struct pobj_memfunc {
    void *(*malloc) (size_t);
    void *(*calloc) (size_t, size_t);
    void *(*realloc) (void *, size_t);
    void (*free) (void *);
};


/* Transactional markers. */
int pobj_start (void);
int pobj_end (void);

/* Memory management calls. */
void *pobj_malloc (size_t);
void *pobj_malloc_transient (size_t);
void *pobj_calloc (size_t, size_t);
void *pobj_calloc_transient (size_t, size_t);
void pobj_free (void *);

/* GC-oriented memory management calls (experts only!). */
void *pobj_malloc_adhoc (size_t, void *(*) (size_t), void (*) (void *));
void *pobj_malloc_transient_adhoc (size_t, void *(*) (size_t), void (*) (void *));
void *pobj_calloc_adhoc (size_t, size_t, void *(*) (size_t), void (*) (void *));
void *pobj_calloc_transient_adhoc (size_t, size_t, void *(*) (size_t),
				   void (*) (void *));
void pobj_finalize (void *);
void pobj_finalize_raw (void *);
void pobj_free_raw (void *);


int pobj_ref_flag (void *, void *);
int pobj_ref_unflag (void *, void *);
#define POBJ_REF_FLAG(obj,fld)         pobj_ref_flag((obj), &((obj)->fld))
#define POBJ_REF_UNFLAG(obj,fld)       pobj_ref_unflag((obj), &((obj)->fld))
int pobj_ref_typify (void *, int *);

void *pobj_memcpy (void *, void *, void *, size_t);
int pobj_set_int (void *, int *, int);
int pobj_set_unsigned (void *, unsigned *, unsigned);
int pobj_set_long (void *, long *, long);
int pobj_set_unsigned_long (void *, unsigned long *, unsigned long);
int pobj_set_short (void *, short *, short);
int pobj_set_unsigned_short (void *, unsigned short *, unsigned short);
int pobj_set_char (void *, char *, char);
int pobj_set_unsigned_char (void *, unsigned char *, unsigned char);
int pobj_set_float (void *, float *, float);
int pobj_set_double (void *, double *, double);
int pobj_set_ref (void *, void *, void *);
#define POBJ_MEMCPY(obj,fld,data,len)  pobj_memcpy((obj), &((obj)->fld), data, len)
#define POBJ_SET_INT(obj,fld,data)     pobj_set_int((obj), &((obj)->fld), data)
#define POBJ_SET_UNSIGNED(obj,fld,data)  \
  pobj_set_unsigned((obj), &((obj)->fld), data)
#define POBJ_SET_LONG(obj,fld,data)    pobj_set_long((obj), &((obj)->fld), data)
#define POBJ_SET_UNSIGNED_LONG(obj,fld,data)  \
  pobj_set_unsigned_long((obj), &((obj)->fld), data)
#define POBJ_SET_SHORT(obj,fld,data)   pobj_set_short((obj), &((obj)->fld), data)
#define POBJ_SET_UNSIGNED_SHORT(obj,fld,data)  \
  pobj_set_unsigned_short((obj), &((obj)->fld), data)
#define POBJ_SET_CHAR(obj,fld,data)    pobj_set_char((obj), &((obj)->fld), data)
#define POBJ_SET_UNSIGNED_CHAR(obj,fld,data)  \
  pobj_set_unsigned_char((obj), &((obj)->fld), data)
#define POBJ_SET_FLOAT(obj,fld,data)   pobj_set_float((obj), &((obj)->fld), data)
#define POBJ_SET_DOUBLE(obj,fld,data)  pobj_set_double((obj), &((obj)->fld), data)
#define POBJ_SET_REF(obj,fld,ref)      pobj_set_ref((obj), &((obj)->fld), ref)

int pobj_update (void *);
int pobj_update_recursive (void *);

int pobj_static_set_ref (void *, void *);
int pobj_static_update_ref (void *);

int pobj_init (struct pobj_memfunc *);
int pobj_shutdown (void);

#endif /* __POBJ_H */