#define meth_max 400

typedef long cint;  /* native 32 bit integer */
typedef float cfloat; /* native 32 bit float */
typedef unsigned char* cstring;
typedef cint* cptr;
typedef cint (*f0)();

extern cptr entity_methods[meth_max];
void copy_meth_table(cptr target[], cptr source[]);

#define lookup_char(str, pos) ((unsigned char*)(str))[pos]
#define update_char(str, pos, ch) ((unsigned char*)(str))[pos] = ch
