#ifndef _EMBRYO_H
#define _EMBRYO_H

#ifdef EAPI
#undef EAPI
#endif
#ifdef _MSC_VER
# ifdef BUILDING_DLL
#  define EAPI __declspec(dllexport)
# else
#  define EAPI __declspec(dllimport)
# endif
#else
# ifdef __GNUC__
#  if __GNUC__ >= 4
#   define EAPI __attribute__ ((visibility("default")))
#  else
#   define EAPI
#  endif
# else
#  define EAPI
# endif
#endif

#ifdef  __cplusplus
extern "C" {
#endif

   /* potentioal error values */
   enum
     {
	EMBRYO_ERROR_NONE,
	  /* reserve the first 15 error codes for exit codes of the abstract machine */
	  EMBRYO_ERROR_EXIT,         /** Forced exit */
	  EMBRYO_ERROR_ASSERT,       /** Assertion failed */
	  EMBRYO_ERROR_STACKERR,     /** Stack/heap collision */
	  EMBRYO_ERROR_BOUNDS,       /** Index out of bounds */
	  EMBRYO_ERROR_MEMACCESS,    /** Invalid memory access */
	  EMBRYO_ERROR_INVINSTR,     /** Invalid instruction */
	  EMBRYO_ERROR_STACKLOW,     /** Stack underflow */
	  EMBRYO_ERROR_HEAPLOW,      /** Heap underflow */
	  EMBRYO_ERROR_CALLBACK,     /** No callback, or invalid callback */
	  EMBRYO_ERROR_NATIVE,       /** Native function failed */
	  EMBRYO_ERROR_DIVIDE,       /** Divide by zero */
	  EMBRYO_ERROR_SLEEP,        /** Go into sleepmode - code can be restarted */
	  
	  EMBRYO_ERROR_MEMORY = 16,  /** Out of memory */
	  EMBRYO_ERROR_FORMAT,       /** Invalid file format */
	  EMBRYO_ERROR_VERSION,      /** File is for a newer version of the Embryo_Program */
	  EMBRYO_ERROR_NOTFOUND,     /** Function not found */
	  EMBRYO_ERROR_INDEX,        /** Invalid index parameter (bad entry point) */
	  EMBRYO_ERROR_DEBUG,        /** Debugger cannot run */
	  EMBRYO_ERROR_INIT,         /** Embryo_Program not initialized (or doubly initialized) */
	  EMBRYO_ERROR_USERDATA,     /** Unable to set user data field (table full) */
	  EMBRYO_ERROR_INIT_JIT,     /** Cannot initialize the JIT */
	  EMBRYO_ERROR_PARAMS,       /** Parameter error */
	  EMBRYO_ERROR_DOMAIN,       /** Domain error, expression result does not fit in range */
     };

   /* possible function type values that are enumerated */
#define EMBRYO_FUNCTION_NONE 0x7fffffff /* An invalid/non existant function */
#define EMBRYO_FUNCTION_MAIN -1         /* Start at program entry point */
#define EMBRYO_FUNCTION_CONT -2         /* Continue from last address */
  /** An invalid cell reference */
#define EMBRYO_CELL_NONE     0x7fffffff 
   /* program run return values */
#define EMBRYO_PROGRAM_OK      1
#define EMBRYO_PROGRAM_SLEEP   2
#define EMBRYO_PROGRAM_BUSY    3
#define EMBRYO_PROGRAM_TOOLONG 4
#define EMBRYO_PROGRAM_FAIL    0

   typedef unsigned int                Embryo_UCell;
   typedef int                         Embryo_Cell;
   typedef struct _Embryo_Program      Embryo_Program;
   typedef int                         Embryo_Function;

   typedef union
     {
	float       f;
	Embryo_Cell c;
     } Embryo_Float_Cell;

/** Float to Embryo_Cell */
#define EMBRYO_FLOAT_TO_CELL(f) ((Embryo_Float_Cell) f).c
/** Embryo_Cell to float */
#define EMBRYO_CELL_TO_FLOAT(c) ((Embryo_Float_Cell) c).f
   
   EAPI int              embryo_init(void);
   EAPI int              embryo_shutdown(void);
   
   EAPI Embryo_Program  *embryo_program_new(void *data, int size);
   EAPI Embryo_Program  *embryo_program_const_new(void *data, int size);
   EAPI Embryo_Program  *embryo_program_load(char *file);
   EAPI void             embryo_program_free(Embryo_Program *ep);
   EAPI void             embryo_program_native_call_add(Embryo_Program *ep, char *name, Embryo_Cell (*func) (Embryo_Program *ep, Embryo_Cell *params));
   EAPI void             embryo_program_vm_reset(Embryo_Program *ep);
   EAPI void             embryo_program_vm_push(Embryo_Program *ep);
   EAPI void             embryo_program_vm_pop(Embryo_Program *ep);
   EAPI void             embryo_swap_16(unsigned short *v);
   EAPI void             embryo_swap_32(unsigned int *v);
   EAPI Embryo_Function  embryo_program_function_find(Embryo_Program *ep, char *name);
   EAPI Embryo_Cell      embryo_program_variable_find(Embryo_Program *ep, char *name);
   EAPI int              embryo_program_variable_count_get(Embryo_Program *ep);
   EAPI Embryo_Cell      embryo_program_variable_get(Embryo_Program *ep, int num);
   EAPI void             embryo_program_error_set(Embryo_Program *ep, int error);
   EAPI int              embryo_program_error_get(Embryo_Program *ep);
   EAPI void             embryo_program_data_set(Embryo_Program *ep, void *data);
   EAPI void            *embryo_program_data_get(Embryo_Program *ep);
   EAPI const char      *embryo_error_string_get(int error);
   EAPI int              embryo_data_string_length_get(Embryo_Program *ep, Embryo_Cell *str_cell);
   EAPI void             embryo_data_string_get(Embryo_Program *ep, Embryo_Cell *str_cell, char *dst);
   EAPI void             embryo_data_string_set(Embryo_Program *ep, char *src, Embryo_Cell *str_cell);
   EAPI Embryo_Cell     *embryo_data_address_get(Embryo_Program *ep, Embryo_Cell addr);
   EAPI Embryo_Cell      embryo_data_heap_push(Embryo_Program *ep, int cells);
   EAPI void             embryo_data_heap_pop(Embryo_Program *ep, Embryo_Cell down_to);
   EAPI int              embryo_program_recursion_get(Embryo_Program *ep);
   EAPI int              embryo_program_run(Embryo_Program *ep, Embryo_Function func);
   EAPI Embryo_Cell      embryo_program_return_value_get(Embryo_Program *ep);
   EAPI void             embryo_program_max_cycle_run_set(Embryo_Program *ep, int max);
   EAPI int              embryo_program_max_cycle_run_get(Embryo_Program *ep);
   EAPI int              embryo_parameter_cell_push(Embryo_Program *ep, Embryo_Cell cell);
   EAPI int              embryo_parameter_string_push(Embryo_Program *ep, char *str);
   EAPI int              embryo_parameter_cell_array_push(Embryo_Program *ep, Embryo_Cell *cells, int num);
   
#ifdef  __cplusplus
}         
#endif

#endif