Added the SUFFIX variable
This commit is contained in:
parent
c4e1e516ee
commit
63f1aea871
|
@ -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 */
|
||||||
|
|
||||||
|
|
|
@ -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 ***********************/
|
||||||
|
|
Loading…
Reference in a new issue