/* CASL_symbols.h - C code emitted by the CASLpro compiler (DO NOT MODIFY) */ 

#ifndef CASL_SYMBOLS_H

#define CASL_SYMBOLS_H 1

extern CASL_FLOATNUM invokeR_cv_;
extern CASL_FLOATNUM invokersuB_cv_;
extern CASL_FLOATNUM bytesreaD_cv_;
extern CASL_FLOATNUM errorcodE_cv_;
extern CASL_FLOATNUM curdiR_cv_;
extern CASL_STRINGT platforM_cv_;
extern CASL_FLOATNUM bookmarK_cv_;
extern CASL_FLOATNUM _casl_c__cv_;
CASL_BYTE *hmicoN_cv_;
CASL_BYTE *righT_cv_;
CASL_BYTE *lefT_cv_;
extern CASL_FLOATNUM ide__pasS_cv_;
extern CASL_FLOATNUM numindexstarT_cv_;
extern CASL_FLOATNUM numindexshoW_cv_;
CASL_STRINGT indexA_cv_[110];
extern CASL_STRINGT fldreghmdC_cv_;
extern CASL_STRINGT passstrinG_cv_;
extern CASL_STRINGT fldindexpoS_cv_;
extern CASL_STRINGT fldindexseL_cv_;
extern CASL_STRINGT fldpositioN_cv_;
extern CASL_STRINGT fldtexT_cv_;
extern CASL_FLOATNUM numindexgO_cv_;



#define DT_NUM                 0
#define DT_STR                 1
#define DT_ARRAY               2
#define DT_STR_ARRAY           3
#define DT_BYTE_ARRAY          6
#define DT_OBJ                 5
#define DT_MULT_DIM_ARRAY      7
#define DT_MULT_DIM_STR_ARRAY  8
#define DT_MULT_DIM_BYTE_ARRAY 9
#define DT_MULT_DIM_OBJ_ARRAY  10

typedef struct
  {
  char *symbol_name;
  void *symbol_address;
  CASL_WORD symbol_datatype;
  CASL_WORD symbol_size;
  CASL_WORD symbol_array_size1;
  CASL_WORD symbol_array_size2;
  CASL_WORD symbol_array_size3;
  } CASLpro_symbol_struct;


CASLpro_symbol_struct CASLpro_symbol_table[22] =
  {
  "invoker", &invokeR_cv_, DT_OBJ, 0, 0, 0, 0,
  "invokersub", &invokersuB_cv_, DT_NUM, 0, 0, 0, 0,
  "bytesread", &bytesreaD_cv_, DT_NUM, 0, 0, 0, 0,
  "errorcode", &errorcodE_cv_, DT_NUM, 0, 0, 0, 0,
  "curdir", &curdiR_cv_, DT_NUM, 0, 0, 0, 0,
  "platform", &platforM_cv_, DT_STR, 0, 0, 0, 0,
  "bookmark", &bookmarK_cv_, DT_NUM, 0, 0, 0, 0,
  "_casl_c_", &_casl_c__cv_, DT_NUM, 0, 0, 0, 0,
  "hmicon", &hmicoN_cv_, DT_BYTE_ARRAY, 825, 0, 0, 0,
  "right", &righT_cv_, DT_BYTE_ARRAY, 41, 0, 0, 0,
  "left", &lefT_cv_, DT_BYTE_ARRAY, 41, 0, 0, 0,
  "ide__pass", &ide__pasS_cv_, DT_NUM, 0, 0, 0, 0,
  "numindexstart", &numindexstarT_cv_, DT_NUM, 0, 0, 0, 0,
  "numindexshow", &numindexshoW_cv_, DT_NUM, 0, 0, 0, 0,
  "indexa", &indexA_cv_, DT_STR_ARRAY, 110, 0, 0, 0,
  "fldreghmdc", &fldreghmdC_cv_, DT_STR, 0, 0, 0, 0,
  "passstring", &passstrinG_cv_, DT_STR, 0, 0, 0, 0,
  "fldindexpos", &fldindexpoS_cv_, DT_STR, 0, 0, 0, 0,
  "fldindexsel", &fldindexseL_cv_, DT_STR, 0, 0, 0, 0,
  "fldposition", &fldpositioN_cv_, DT_STR, 0, 0, 0, 0,
  "fldtext", &fldtexT_cv_, DT_STR, 0, 0, 0, 0,
  "numindexgo", &numindexgO_cv_, DT_NUM, 0, 0, 0, 0,
  };


CASLpro_symbol_struct *find_CASLpro_symbol(char *str)
{
int i = 0;
CASLpro_symbol_struct *found_symptr = NULL;

while ( (i < 22) && (NULL == found_symptr) )
  {
  if (0 == _pda_strcmp(str, CASLpro_symbol_table[i].symbol_name))
    found_symptr = &CASLpro_symbol_table[i];
  else
    i++;
  }
return(found_symptr);
}

#endif
