uemacs/eval.h

#ifndef _EVAL_H_
#define _EVAL_H_


#define DEBUGM	1		/* $debug triggers macro debugging	*/


#if	DEBUGM
/* Vars needed for macro debugging output. */
extern char outline[] ;		/* Global string to hold debug line text. */
#endif


/* Emacs global flag bit definitions (for gflags). */

#define	GFREAD	1

extern int gflags ;		/* global control flag          */
extern int macbug ;		/* macro debuging flag          */
extern int cmdstatus ;		/* last command status          */
extern int flickcode ;		/* do flicker supression?       */
extern int rval ;		/* return value of a subprocess */
extern long envram ;		/* # of bytes current in use by malloc */

/*	Macro argument token types					*/

#define	TKNUL	0		/* end-of-string                */
#define	TKARG	1		/* interactive argument         */
#define	TKBUF	2		/* buffer argument              */
#define	TKVAR	3		/* user variables               */
#define	TKENV	4		/* environment variables        */
#define	TKFUN	5		/* function....                 */
#define	TKDIR	6		/* directive                    */
#define	TKLBL	7		/* line label                   */
#define	TKLIT	8		/* numeric literal              */
#define	TKSTR	9		/* quoted string literal        */
#define	TKCMD	10		/* command name                 */

int gettyp( char *token) ;

void varinit( void) ;
char *gtfun( char *fname) ;
char *gtusr( char *vname) ;
char *gtenv( char *vname) ;
int setvar( int f, int n) ;
char *i_to_a( int i) ;
char *getval( char *token) ;
int stol( char *val) ;
char *mkupper( char *str) ;
char *mklower( char *str) ;
int abs( int x) ;
int ernd( void) ;
int sindex( char *source, char *pattern) ;
char *xlat( char *source, char *lookup, char *trans) ;

#endif