Browse Source

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

--HG--
branch : unlabeled-1.1.1
keie 40 years ago
parent
commit
9e60f90597
1 changed files with 15 additions and 0 deletions
  1. 15 0
      util/ack/rmach.c

+ 15 - 0
util/ack/rmach.c

@@ -195,9 +195,24 @@ open_in(name) register char *name ; {
 	}
 	/* Not in core */
 	incore= NO ;
+#ifdef NEW
+	gr_cat(&rline,EM_DIR) ;
+	gr_cat(&rline,"/lib/n_ack/") ;
+#else
 	gr_cat(&rline,ACK_DIR); gr_cat(&rline,"/") ;
+#endif
 	gr_cat(&rline,name) ;
 	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 ) {
 		infile= fopen(name,"r") ;
 	}