varinit() {
/* initialize the string variables */
register char *envstr ;
- extern char em_dir[];
+ extern char *em_dir;
if ( envstr=getenv("ACKDIR") ) {
- setsvar(keeps(HOME),keeps(envstr)) ;
- } else {
- setsvar(keeps(HOME),keeps(em_dir)) ;
+ em_dir = keeps(envstr);
}
+ setsvar(keeps(HOME),em_dir) ;
setpvar(keeps(SRC),srcvar) ;
setpvar(keeps(SUFFIX),getsuffix) ;
}
static growstring rline ;
static FILE *infile ;
static char *inptr ;
-char em_dir[100] = EM_DIR; /* this way it is easier to
- * patch ...
- */
+char *em_dir = EM_DIR;
open_in(name) register char *name ; {
register dmach *cmac ;