rfivet
/
uemacs
mirror of https://github.com/rfivet/uemacs.git
1
0
Fork 0
Code Releases Activity

Restrict to local scope some internal funtions of eval.

This commit is contained in:
Renaud 2015-01-09 16:00:11 +08:00
parent 3ce31669ae
commit 63776bb3f8
2 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
eval.c
View File

@ -297,6 +297,10 @@ static int putctext( char *iline)
static char *result ; /* string result */ static char *result ; /* string result */
static int ressize = 0 ; /* mark result as uninitialized */ static int ressize = 0 ; /* mark result as uninitialized */
static int ernd( void) ;
static int sindex( char *source, char *pattern) ;
static char *xlat( char *source, char *lookup, char *trans) ;
/* Initialize the user variable list. */ /* Initialize the user variable list. */
void varinit(void) void varinit(void)
{ {
@ -1295,8 +1299,7 @@ int abs(int x)
/* /*
* returns a random integer * returns a random integer
*/ */
int ernd(void) static int ernd( void) {
{
seed = abs(seed * 1721 + 10007); seed = abs(seed * 1721 + 10007);
return seed; return seed;
} }
@ -1307,8 +1310,7 @@ int ernd(void)
* char *source; source string to search * char *source; source string to search
* char *pattern; string to look for * char *pattern; string to look for
*/ */
int sindex(char *source, char *pattern) static int sindex( char *source, char *pattern) {
{
char *sp; /* ptr to current position to scan */ char *sp; /* ptr to current position to scan */
char *csp; /* ptr to source string during comparison */ char *csp; /* ptr to source string during comparison */
char *cp; /* ptr to place to check for equality */ char *cp; /* ptr to place to check for equality */
@ -1343,8 +1345,7 @@ int sindex(char *source, char *pattern)
* char *lookup; characters to translate * char *lookup; characters to translate
* char *trans; resulting translated characters * char *trans; resulting translated characters
*/ */
char *xlat(char *source, char *lookup, char *trans) static char *xlat( char *source, char *lookup, char *trans) {
{
char *sp; /* pointer into source table */ char *sp; /* pointer into source table */
char *lp; /* pointer into lookup table */ char *lp; /* pointer into lookup table */
char *rp; /* pointer into result */ char *rp; /* pointer into result */

3
eval.h
View File

@ -45,8 +45,5 @@ char *getval( char *token) ;
int stol( char *val) ; int stol( char *val) ;
char *mklower( char *str) ; char *mklower( char *str) ;
int abs( int x) ; int abs( int x) ;
int ernd( void) ;
int sindex( char *source, char *pattern) ;
char *xlat( char *source, char *lookup, char *trans) ;
#endif #endif