From 9e60f90597b4a16b056e2e310f8df652ccd2e1f0 Mon Sep 17 00:00:00 2001
From: keie <none@none>
Date: Thu, 21 Jun 1984 13:13:10 +0000
Subject: [PATCH] Some ad-hoc stuff for searching in the new tree shape.

--HG--
branch : unlabeled-1.1.1
---
 util/ack/rmach.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/util/ack/rmach.c b/util/ack/rmach.c
index 7a97bca40..b0d8309eb 100644
--- a/util/ack/rmach.c
+++ b/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") ;
 	}