d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Some ad-hoc stuff for searching in the new tree shape.

Browse source 
--HG--
branch : unlabeled-1.1.1
This commit is contained in:
keie 1984-06-21 13:13:10 +00:00
parent cbc1105dae
commit 9e60f90597
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
util/ack/rmach.c
View file

@ -195,9 +195,24 @@ open_in(name) register char *name ; {
} }
/* Not in core */ /* Not in core */
incore= NO ; incore= NO ;
#ifdef NEW
gr_cat(&rline,EM_DIR) ;
gr_cat(&rline,"/lib/n_ack/") ;
#else
gr_cat(&rline,ACK_DIR); gr_cat(&rline,"/") ; gr_cat(&rline,ACK_DIR); gr_cat(&rline,"/") ;
#endif
gr_cat(&rline,name) ; gr_cat(&rline,name) ;
infile= fopen(gr_start(rline),"r") ; infile= fopen(gr_start(rline),"r") ;
#ifdef NEW
if ( !infile ) {
/* Try to read EM_DIR/lib/MACH/plan */
gr_throw(&rline) ;
gr_cat(&rline,EM_DIR) ;
gr_cat(&rline,"/lib/") ; gr_cat(&rline,name) ;
gr_cat(&rline,"/plan") ;
infile= fopen(gr_start(rline),"r") ;
}
#endif
if ( !infile ) { if ( !infile ) {
infile= fopen(name,"r") ; infile= fopen(name,"r") ;
} }