rfivet/uemacs
1
0
Fork 0
mirror of https://github.com/rfivet/uemacs.git synced 2024-06-09 05:20:42 +00:00
Code Releases Activity

Review mkupper and ltos in eval.

Browse Source
This commit is contained in:
Renaud 2015-01-17 14:45:50 +08:00
parent f60e3fbc9f
commit 36f24332c2
1 changed files with 20 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
eval.c
View File

@ -86,7 +86,7 @@ static char errorm[] = "ERROR" ; /* error literal */
static int seed = 0 ; /* random number seed */ static int seed = 0 ; /* random number seed */
static char *ltos( int val) ; static char *ltos( int val) ;
static char *mkupper( char *str) ; static char *mkupper( char *dst, char *src) ;
/* List of recognized environment variables. */ /* List of recognized environment variables. */
@ -499,8 +499,7 @@ static char *gtfun( char *fname) {
ressize = sz + 1 ; ressize = sz + 1 ;
} }
strcpy( result, argx) ; /* result is at least as long as argx */ retstr = mkupper( result, argx) ;
retstr = mkupper( result) ;
break ; break ;
case UFLOWER: case UFLOWER:
sz = strlen( argx) ; sz = strlen( argx) ;
@ -1247,33 +1246,32 @@ int stol(char *val)
* *
* int val; value to translate * int val; value to translate
*/ */
static char *ltos( int val) static char *ltos( int val) {
{ static char *boolm[] = { "TRUE", "FALSE" } ;
static char truem[] = "TRUE" ; /* true literal */
static char falsem[] = "FALSE" ; /* false literal */ return boolm[ !val] ;
if (val)
return truem;
else
return falsem;
} }
/* /*
* make a string upper case * make a string upper case
* *
* char *str; string to upper case * char *src ; string to upper case
* char *dst ; where to store
* dst must be at least as long as src.
*/ */
static char *mkupper( char *str) static char *mkupper( char *dst, char *src) {
{ char c, *sp ;
char *sp;
sp = str; sp = dst ;
while (*sp) { while( (c = *src++)) {
if ('a' <= *sp && *sp <= 'z') if( 'a' <= c && c <= 'z')
*sp += 'A' - 'a'; c += 'A' - 'a' ;
++sp;
*sp++ = c ;
} }
return str;
*sp = 0 ;
return dst ;
} }
/* /*