/*
 * External declarations for the run-time system.
 */

/*
 * External declarations common to the compiler and interpreter.
 */

extern struct b_proc *op_tbl;   /* operators available for string invocation */
extern int op_tbl_sz;           /* number of operators in op_tbl */
extern int debug_info;		/* flag: debugging information is available */
extern int err_conv;		/* flag: error conversion is supported */
extern int dodump;		/* termination dump */
extern int line_info;		/* flag: line information is available */
extern char *file_name;		/* source file for current execution point */
extern int line_num;		/* line number for current execution point */

extern unsigned char allchars[];/* array for making one-character strings */
extern char *blkname[];		/* print names for block types. */
extern char *currend;		/* current end of memory region */
extern dptr *quallist;		/* start of qualifier list */
extern int bsizes[];		/* sizes of blocks */
extern int firstd[];		/* offset (words) of first descrip. */
extern uword segsize[];		/* size of hash bucket segment */
extern int k_level;		/* value of &level */

extern struct b_coexpr *stklist;/* base of co-expression stack list */
extern struct b_cset blankcs;   /* ' ' */
extern struct b_cset lparcs;    /* '(' */
extern struct b_cset rparcs;    /* ')' */
extern struct b_cset fullcs;    /* cset containing all characters */
extern struct descrip blank;	/* blank */
extern struct descrip emptystr;	/* empty string */

extern struct descrip kywd_dmp; /* descriptor for &dump */
extern struct descrip nullptr;	/* descriptor with null block pointer */
extern struct descrip lcase;	/* lowercase string */
extern struct descrip letr;	/* letter "r" */
extern struct descrip maps2;	/* second argument to map() */
extern struct descrip maps3;	/* third argument to map() */
extern struct descrip nulldesc;	/* null value */
extern struct descrip onedesc;	/* one */
extern struct descrip ucase;	/* uppercase string */
extern struct descrip zerodesc;	/* zero */

extern word mstksize;		/* size of main stack in words */
extern word stksize;		/* size of co-expression stacks in words */
extern word qualsize;		/* size of string qualifier list */
extern word memcushion;		/* memory region cushion factor */
extern word memgrowth;		/* memory region growth factor */
extern uword stattotal;		/* cumulative total of all static allocations */
				/* N.B. not currently set */

extern struct tend_desc *tend;  /* chain of tended descriptors */

/*
 * Externals that are conditional on features.
 */
#ifdef Polling
   extern int pollctr;
#endif					/* Polling */

/*
 * Externals that were conditional on multithreading.
 */
extern struct region rootstring;
extern struct region rootblock;
extern dptr glbl_argp;		/* argument pointer */
extern struct region *curstring;
extern struct region *curblock;
extern struct descrip k_current;	/* &current */
extern char *k_errortext;		/* value of &errortext */
extern int have_errval;		/* &errorvalue has a legal value */
extern int k_errornumber;		/* value of &errornumber */
extern int t_errornumber;		/* tentative k_errornumber value */
extern int t_have_val;		/* tentative have_errval flag */
extern struct b_file k_errout;	/* value of &errout */
extern struct b_file k_input;	/* value of &input */
extern struct b_file k_output;	/* value of &output */
extern struct descrip k_errorvalue;	/* value of &errorvalue */
extern struct descrip kywd_err;	/* &error */
extern struct descrip kywd_pos;	/* descriptor for &pos */
extern struct descrip kywd_prog;	/* descriptor for &prog */
extern struct descrip kywd_ran;	/* descriptor for &random */
extern struct descrip k_subject;	/* &subject */
extern struct descrip kywd_trc;	/* descriptor for &trace */
extern struct descrip k_eventcode;	/* &eventcode */
extern struct descrip k_eventsource;	/* &eventsource */
extern struct descrip k_eventvalue;	/* &eventvalue */
extern struct descrip k_main;	/* value of &main */
extern struct descrip t_errorvalue;	/* tentative k_errorvalue value */
extern uword blktotal;		/* cumul total of all block allocs */
extern uword strtotal;		/* cumul total of all string allocs */
extern word coll_tot;		/* total number of collections */
extern word coll_stat;		/* collections from static reqests */
extern word coll_str;		/* collections from string requests */
extern word coll_blk;		/* collections from block requests */
extern dptr globals;			/* start of global variables */
extern dptr eglobals;		/* end of global variables */
extern dptr gnames;			/* start of global variable names */
extern dptr egnames;			/* end of global variable names */
extern dptr estatics;		/* end of static variables */
extern int n_globals;		/* number of global variables */
extern int n_statics;		/* number of static variables */
extern struct b_coexpr *mainhead;	/* &main */

/*
 * External declarations that differed for the compiler.
 */

extern int ixinited;			/* iconx has initialized */
extern inst ipc;			/* interpreter program counter */
extern int ilevel;			/* interpreter level */
extern int ntended;			/* number of active tended descriptors*/
extern struct b_cset k_ascii;	/* value of &ascii */
extern struct b_cset k_cset;		/* value of &cset */
extern struct b_cset k_digits;	/* value of &lcase */
extern struct b_cset k_lcase;	/* value of &lcase */
extern struct b_cset k_letters;	/* value of &letters */
extern struct b_cset k_ucase;	/* value of &ucase */
extern struct descrip tended[];	/* tended descriptors */
extern struct ef_marker *efp;	/* expression frame pointer */
extern struct gf_marker *gfp;	/* generator frame pointer */
extern struct pf_marker *pfp;	/* procedure frame pointer */
extern word *sp;			/* interpreter stack pointer */
extern word *stack;			/* interpreter stack base */
extern word *stackend;		/* end of evaluation stack */

extern struct pstrnm pntab[];
extern int pnsize;

extern char *code;		/* start of icode */
extern char *ecode;		/* end of icode */
extern dptr statics;		/* start of static variables */
extern char *strcons;		/* start of the string constants */
extern dptr fnames;		/* field names */
extern dptr efnames;		/* end of field names */
extern word *records;
extern int *ftabp;		/* field table pointer */
extern dptr xargp;
extern word xnargs;

extern word lastop;

/*
 * graphics
 */
#ifdef Graphics

   extern stringint attribs[], drawops[];
   extern wbp wbndngs;
   extern wcp wcntxts;
   extern wsp wstates;
   extern int GraphicsLeft, GraphicsUp, GraphicsRight, GraphicsDown;
   extern int GraphicsHome, GraphicsPrior, GraphicsNext, GraphicsEnd;
   extern int win_highwater, canvas_serial, context_serial;
   extern clock_t starttime;		/* start time in milliseconds */

      extern struct descrip kywd_xwin[];
      extern struct descrip lastEventWin;
      extern int lastEvFWidth, lastEvLeading, lastEvAscent;
      extern struct descrip amperCol;
      extern struct descrip amperRow;
      extern struct descrip amperX;
      extern struct descrip amperY;
      extern struct descrip amperInterval;
      extern uword xmod_control, xmod_shift, xmod_meta;

   #ifdef XWindows
      extern struct _wdisplay * wdsplys;
      extern stringint cursorsyms[];
   #endif				/* XWindows */

   #ifdef WinGraphics
      extern HINSTANCE mswinInstance;
      extern int ncmdShow;
   #endif				/* WinGraphics */

#endif					/* Graphics */