Sindbad~EG File Manager

/*  module "model" consists of files
       model
       editmod
       savemod
       adjmod
*/
/*
10.27.92  changed  bit fields to unsigned int
4.23.96 last modified
*/

typedef int (*actualop)(term,term,term *, char *);
typedef struct { unsigned men:8;
                 unsigned choice:8;
                } operation;  /* operator is a C++ keyword */

#define HASHPRIME  3793
/* This is the dimension of the 'model' array, and the range of values of the
hash function.  It should be a prime between 1K and 2K, larger to decrease the
load factor, smaller to save space, and not close to a power of 2.  It
should be at least 1.5 times the total number of operations, to minimize
the number of collisions while hashing.  Increased from 2309 on 1.16.00,
as saving 1K of memory no longer matters at all.
*/

typedef struct b {  unsigned int status:2 ;   /* UNKNOWN, LEARNING, KNOWN, WELLKNOWN */
                    unsigned int choice:4;   /* choice-1 in optable entry for this op */
                    unsigned int used:1;  /* needed in open addressing algorithm */
                    unsigned int inhibited:1;  /* nonzero to 'inhibit' an operator */
                    unsigned int men:8;   /* menu in optable entry for this op */
                 }  hashbucket;

     /*  an object of type 'hashbucket' uses 2 bytes only,
         since no link field is needed for 'open addressing' */
     /*  if .men is -1, that is 255,  it means this op is not on the menus,
         but is an automode_only op. */

MEXPORT_AUTOMODE short access_mod(actualop);
MEXPORT_AUTOMODE int status(actualop op);
MEXPORT_AUTOMODE void set_status(actualop, int);

#define UNKNOWN 0     /* four values for the user model */
#define LEARNING 1
#define KNOWN 2
#define WELLKNOWN 3


MEXPORT_AUTOMODE void init_model(int, hashbucket *);
MEXPORT_AUTOMODE void inhibit(actualop);
MEXPORT_AUTOMODE void release(actualop);
MEXPORT_AUTOMODE void temp_inhibit(actualop);
MEXPORT_AUTOMODE void temp_release(actualop);
MEXPORT_AUTOMODE void undo_inhibitions(void);
MEXPORT_AUTOMODE void kill_inhibitions(void);
MEXPORT_AUTOMODE int inhibited(actualop);
MEXPORT_AUTOMODE void set_model_arithflag(int);

#define VIEW_ONLY -2
#define EDIT -3
   /* -1 must be avoided as it is the initial value of problemtype */

MEXPORT_AUTOMODE void set_model(hashbucket *);
MEXPORT_AUTOMODE void adjust_model(int);   /* adjmod.c */

typedef struct inh {  short index;        /* offset in hashtable of inhibited operator */
                      short linenumber;   /* line at which this was pushed,
                                           for use of undo */
                      short kind;         /* 1 = inhibition, -1 = release */
                      struct inh *link;
                   }  inhibition;

MEXPORT_AUTOMODE void set_inhibitions(inhibition *);
MEXPORT_AUTOMODE inhibition *get_inhibitions(void);
MEXPORT_AUTOMODE void code_to_op(actualop, operation *);
void SetStopFlag(int n);
int GetStopFlag(void);
/* 1 to turn off the inhibit/release mechanism, 0 to turn it on again */