/*$Header: /a/rathlin/disk/src/master/edml/EDML4/fam.src/UPTODATE/RCS/globvars.h,v 5.1 91/09/05 18:24:07 edml Exp $*/
/*$Log:	globvars.h,v $
 * Revision 5.1  91/09/05  18:24:07  edml
 * Version 4.2 of EdML
 * This version does not yet work on machines with large pointers
 * (e.g. DECmips / SGI) - conficts between ASSIGNED/ZERO/MARKBIT macros
 * 
 * Revision 4.4  90/07/04  11:10:53  rjg
 * Readline version 4.1.00
 * New bytecode OpPrompt 
 * 
 * Revision 4.0  89/09/20  13:33:03  rjg
 * incorporated RCS
 * */

#ifndef INTZERO
#include "globdefs.h"
#include "structs.h"
#endif

#ifdef READLINE
#include <readline/readline.h>
extern char rl_fam_prompt[];
#endif

extern int IntFlag  /*/ = 0 /*/ ,
           FloatExc /*/ = 0 /*/ ,
           TimeOut  /*/ = 0 /*/ ;

extern LWord HeapSize /*/ =  0x100000 /*/ ;

extern LWord *BegOfASpace /*/ =  0 /*/ ,
      *MidOfASpace /*/ =  0 /*/ ,
      *EndOfASpace /*/ =  0 /*/ ,
      *BegOfBSpace /*/ =  0 /*/ ,
      *EndOfBSpace /*/ =  0 /*/ ,
      *Wall        /*/ =  0 /*/ ,
      *BegOfRefs   /*/ =  0 /*/ ,
      *Refs        /*/ =  0 /*/ ;

extern LWord *FAM_AP, *FAM_CP, *FAM_TrapTop;
extern Byte  *FAM_PC;
extern Closure *FAM_FP;

extern State   *CurrentState  /*/ =  0 /*/ ;
extern Process *CurrentProcess/*/ =  0 /*/ ;

extern LWord   Seed /*/ = 0 /*/ ,
               TimeSlice /*/ = 10 /*/ ;

extern String  *EmptyString   /*/ =  0 /*/ ;
extern Ref     *ProfRef       /*/ =  0 /*/ ;
extern Closure *StartupClosure/*/ =  0 /*/ ;
extern Closure *FunIdClos     /*/ =  0 /*/ ;
extern Text    *FunCompText   /*/ =  0 /*/ ;
extern Text    *XConText      /*/ =  0 /*/ ;

extern LWord     FAM_TEMPORARY;
/*
 * External definition (for fam.c) of pipe/tty trickery flag...
 *
 * Sam Nelson, Stirling Univ., 20.1.88.
 */
extern int faketty  /*/ = 0 /*/;

/* native code additions (AJG) */

extern int dynamicprof /*/ = 0 /*/;
extern int nativeok  /*/ = 0 /*/; 

/* End of global variables */


