date and time created 83/05/06 23:47:06 by tut

SCCS-vsn: old/refer/refer/glue2.c 4.1

diff --git a/usr/src/old/refer/refer/glue2.c b/usr/src/old/refer/refer/glue2.c
new file mode 100644 (file)
index 0000000..2b003f5
--- /dev/null
+++ b/usr/src/old/refer/refer/glue2.c
@@ -0,0 +1,17 @@
+#ifndef lint
+static char *sccsid = "@(#)glue2.c     4.1 (Berkeley) %G%";
+#endif
+
+char refdir[50];
+
+savedir()
+{
+       if (refdir[0]==0)
+               corout ("", refdir, "/bin/pwd", "", 50);
+       trimnl(refdir);
+}
+
+restodir()
+{
+       chdir(refdir);
+}