rfivet/uemacs
1
0
Fork 0
mirror of https://github.com/rfivet/uemacs.git synced 2025-02-20 23:17:13 -05:00
Code Releases Activity

Move global string literal to eval.

Browse Source
This commit is contained in:
Renaud 2013-09-29 14:07:53 +08:00
parent 2a34d732c5
commit d0a5516da6
4 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
edef.h
View File

@ -71,14 +71,9 @@ extern kbdstate kbdmode ; /* current keyboard macro mode */
extern int kbdrep; /* number of repetitions */ extern int kbdrep; /* number of repetitions */
extern int restflag; /* restricted use? */ extern int restflag; /* restricted use? */
extern int lastkey; /* last keystoke */ extern int lastkey; /* last keystoke */
extern int seed; /* random number seed */
extern long envram; /* # of bytes current in use by malloc */ extern long envram; /* # of bytes current in use by malloc */
extern int macbug; /* macro debuging flag */ extern int macbug; /* macro debuging flag */
extern char errorm[]; /* error literal */
extern char truem[]; /* true literal */
extern char falsem[]; /* false litereal */
extern int cmdstatus; /* last command status */ extern int cmdstatus; /* last command status */
extern char palstr[]; /* palette string */
extern int saveflag; /* Flags, saved with the $target var */ extern int saveflag; /* Flags, saved with the $target var */
extern int rval; /* return value of a subprocess */ extern int rval; /* return value of a subprocess */
extern int overlap; /* line overlap in forw/back page */ extern int overlap; /* line overlap in forw/back page */

17
eval.c
View File

@ -41,6 +41,12 @@ struct user_variable {
char *u_value; /* value (string) */ char *u_value; /* value (string) */
}; };
static char errorm[] = "ERROR" ; /* error literal */
static int seed = 0 ; /* random number seed */
static char *ltos( int val) ;
/* List of recognized environment variables. */ /* List of recognized environment variables. */
static const char *envars[] = { static const char *envars[] = {
@ -494,8 +500,12 @@ char *gtenv(char *vname)
return ltos(macbug); return ltos(macbug);
case EVSTATUS: case EVSTATUS:
return ltos(cmdstatus); return ltos(cmdstatus);
case EVPALETTE: case EVPALETTE: {
static char palstr[ 49] = "" ; /* palette string */
return palstr; return palstr;
}
case EVASAVE: case EVASAVE:
return itoa(gasave); return itoa(gasave);
case EVACOUNT: case EVACOUNT:
@ -1089,8 +1099,11 @@ int stol(char *val)
* *
* int val; value to translate * int val; value to translate
*/ */
char *ltos(int val) static char *ltos( int val)
{ {
static char truem[] = "TRUE" ; /* true literal */
static char falsem[] = "FALSE" ; /* false literal */
if (val) if (val)
return truem; return truem;
else else

1
eval.h
View File

@ -25,7 +25,6 @@ int setvar( int f, int n) ;
char *itoa( int i) ; char *itoa( int i) ;
char *getval( char *token) ; char *getval( char *token) ;
int stol( char *val) ; int stol( char *val) ;
char *ltos( int val) ;
char *mkupper( char *str) ; char *mkupper( char *str) ;
char *mklower( char *str) ; char *mklower( char *str) ;
int abs( int x) ; int abs( int x) ;

5
globals.c
View File

@ -72,14 +72,9 @@ kbdstate kbdmode = STOP; /* current keyboard macro mode */
int kbdrep = 0; /* number of repetitions */ int kbdrep = 0; /* number of repetitions */
int restflag = FALSE; /* restricted use? */ int restflag = FALSE; /* restricted use? */
int lastkey = 0; /* last keystoke */ int lastkey = 0; /* last keystoke */
int seed = 0; /* random number seed */
long envram = 0l; /* # of bytes current in use by malloc */ long envram = 0l; /* # of bytes current in use by malloc */
int macbug = FALSE; /* macro debuging flag */ int macbug = FALSE; /* macro debuging flag */
char errorm[] = "ERROR"; /* error literal */
char truem[] = "TRUE"; /* true literal */
char falsem[] = "FALSE"; /* false litereal */
int cmdstatus = TRUE; /* last command status */ int cmdstatus = TRUE; /* last command status */
char palstr[49] = ""; /* palette string */
int saveflag = 0; /* Flags, saved with the $target var */ int saveflag = 0; /* Flags, saved with the $target var */
int rval = 0; /* return value of a subprocess */ int rval = 0; /* return value of a subprocess */
int overlap = 0; /* line overlap in forw/back page */ int overlap = 0; /* line overlap in forw/back page */