Added the SUFFIX variable

This commit is contained in:
ceriel 1987-02-26 12:44:11 +00:00
parent c4e1e516ee
commit 63f1aea871
2 changed files with 6 additions and 0 deletions

View file

@ -21,6 +21,7 @@
#define TAIL "TAIL" #define TAIL "TAIL"
#define SRC "SOURCE" #define SRC "SOURCE"
#define LIBVAR "LNAME" #define LIBVAR "LNAME"
#define SUFFIX "SUFFIX"
/* Intended for flags, possibly in bit fields */ /* Intended for flags, possibly in bit fields */

View file

@ -126,6 +126,10 @@ char *srcvar() {
return orig.p_path ; return orig.p_path ;
} }
char *getsuffix() {
return strrindex(orig.p_path, SUFCHAR) ;
}
varinit() { varinit() {
/* initialize the string variables */ /* initialize the string variables */
register char *envstr ; register char *envstr ;
@ -136,6 +140,7 @@ varinit() {
setsvar(keeps(HOME),keeps(EM_DIR)) ; setsvar(keeps(HOME),keeps(EM_DIR)) ;
} }
setpvar(keeps(SRC),srcvar) ; setpvar(keeps(SRC),srcvar) ;
setpvar(keeps(SUFFIX),getsuffix) ;
} }
/************************* flag processing ***********************/ /************************* flag processing ***********************/