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 SRC "SOURCE"
#define LIBVAR "LNAME"
#define SUFFIX "SUFFIX"
/* Intended for flags, possibly in bit fields */

View file

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