
#ifndef _ORC_EXECUTOR_H_
#define _ORC_EXECUTOR_H_

#include <orc/orclimits.h>
#include <orc/orcutils.h>

ORC_BEGIN_DECLS



typedef struct _OrcOpcodeExecutor OrcOpcodeExecutor;
typedef struct _OrcExecutor OrcExecutor;
typedef struct _OrcExecutorAlt OrcExecutorAlt;

typedef void (*OrcOpcodeEmulateFunc)(OrcOpcodeExecutor *ex, void *user);
typedef void (*OrcOpcodeEmulateNFunc)(OrcOpcodeExecutor *ex, int index, int n);
typedef void (*OrcOpcodeEmulate16Func)(OrcOpcodeExecutor *ex);

typedef void (*OrcExecutorFunc)(OrcExecutor * ORC_RESTRICT ex);

/**
 * OrcOpcodeExecutor:
 *
 * The OrcOpcodeExecutor structure has no public members
 */
struct _OrcOpcodeExecutor {
  /*< private >*/
  int src_values[ORC_STATIC_OPCODE_N_SRC];
  int dest_values[ORC_STATIC_OPCODE_N_DEST];

  OrcOpcodeEmulateNFunc emulateN;

  void *src_ptrs[ORC_STATIC_OPCODE_N_SRC];
  void *dest_ptrs[ORC_STATIC_OPCODE_N_DEST];
  int shift;
};

/**
 * OrcExecutor:
 *
 */
struct _OrcExecutor {
  /*< private >*/
  OrcProgram *program;
  int n;
  int counter1;
  int counter2;
  int counter3;

  void *arrays[ORC_N_VARIABLES];
  int params[ORC_N_VARIABLES];
  int accumulators[4];
  /* exec pointer is stored in arrays[ORC_VAR_A1] */
  /* OrcCode pointer is stored in arrays[ORC_VAR_A2] */
  /* row pointers are stored in arrays[i+ORC_VAR_C1] */
  /* the stride for arrays[x] is stored in params[x] */
  /* m is stored in params[ORC_VAR_A1] */
  /* m_index is stored in params[ORC_VAR_A2] */
  /* elapsed time is stored in params[ORC_VAR_A3] */
  /* high half of params is stored in params[ORC_VAR_T1..] */
};

/* the alternate view of OrcExecutor */
struct _OrcExecutorAlt {
  /*< private >*/
  OrcProgram *program;
  int n;
  int counter1;
  int counter2;
  int counter3;

  void *arrays[ORC_N_ARRAYS];
  OrcExecutorFunc exec;
  OrcCode *code;
  void *unused1[ORC_N_VARIABLES - ORC_N_ARRAYS - 2];
  int strides[ORC_N_ARRAYS];
  int m;
  int m_index;
  int time;
  int unused2;
  int unused4[8];
  int params[ORC_N_PARAMS];
  int params_hi[ORC_N_PARAMS];
  int unused3[ORC_N_VARIABLES - ORC_VAR_T9];
  int accumulators[4];
};
#define ORC_EXECUTOR_EXEC(ex) ((OrcExecutorFunc)((ex)->arrays[ORC_VAR_A1]))
#define ORC_EXECUTOR_M(ex) ((ex)->params[ORC_VAR_A1])
#define ORC_EXECUTOR_M_INDEX(ex) ((ex)->params[ORC_VAR_A2])
#define ORC_EXECUTOR_TIME(ex) ((ex)->params[ORC_VAR_A3])




ORC_API OrcExecutor * orc_executor_new (OrcProgram *program);

ORC_API void orc_executor_free (OrcExecutor *ex);

ORC_API void orc_executor_set_program (OrcExecutor *ex, OrcProgram *program);

ORC_API void orc_executor_set_array (OrcExecutor *ex, int var, void *ptr);

ORC_API void orc_executor_set_stride (OrcExecutor *ex, int var, int stride);

ORC_API void orc_executor_set_array_str (OrcExecutor *ex, const char *name, void *ptr);

ORC_API void orc_executor_set_param (OrcExecutor *ex, int var, int value);

ORC_API void orc_executor_set_param_str (OrcExecutor *ex, const char *name, int value);

ORC_API void orc_executor_set_param_float (OrcExecutor *ex, int var, float value);

ORC_API void orc_executor_set_param_int64 (OrcExecutor *ex, int var, orc_int64 value);

ORC_API void orc_executor_set_param_double (OrcExecutor *ex, int var, double value);

ORC_API int orc_executor_get_accumulator (OrcExecutor *ex, int var);

ORC_API int orc_executor_get_accumulator_str (OrcExecutor *ex, const char *name);

ORC_API void orc_executor_set_n (OrcExecutor *ex, int n);

ORC_API void orc_executor_set_m (OrcExecutor *ex, int m);

ORC_API void orc_executor_emulate (OrcExecutor *ex);

ORC_API void orc_executor_run (OrcExecutor *ex);

ORC_API void orc_executor_run_backup (OrcExecutor *ex);


ORC_END_DECLS

#endif

