#define IMAGE_MAGIC 0x0f0e0d0c
#define IMAGE_VERSION_0 0
#define IMAGE_VERSION 1

typedef struct {
	CELL magic;
	CELL version;
	/* all pointers in the image file are relocated from
	   relocation_base to here when the image is loaded */
	CELL relocation_base;
	/* tagged pointer to bootstrap quotation */
	CELL boot;
	/* tagged pointer to global namespace */
	CELL global;
	/* size of heap */
	CELL size;
} HEADER;

/* If version is IMAGE_VERSION_1 */
typedef struct EXT_HEADER {
	/* size of code heap */
	CELL size;
	/* code relocation base */
	CELL relocation_base;
	/* end of literal table */
	CELL literal_top;
	/* maximum value of literal_top */
	CELL literal_max;
} HEADER_2;

void load_image(char* file);
bool save_image(char* file);
void primitive_save_image(void);