mirror of
https://github.com/rfivet/uemacs.git
synced 2024-06-09 05:20:42 +00:00
56 lines
1.6 KiB
C
56 lines
1.6 KiB
C
#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 *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
|