xref: /titanic_51/usr/src/cmd/refer/glue2.c (revision 8eea8e29cc4374d1ee24c25a07f45af132db3499)
1 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
2 /*	  All Rights Reserved  	*/
3 
4 
5 /*
6  * Copyright (c) 1980 Regents of the University of California.
7  * All rights reserved. The Berkeley software License Agreement
8  * specifies the terms and conditions for redistribution.
9  */
10 
11 /*
12  * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
13  * All Rights Reserved.
14  */
15 
16 #pragma ident	"%Z%%M%	%I%	%E% SMI"
17 
18 
19 char refdir[50];
20 
21 savedir()
22 {
23 	if (refdir[0]==0)
24 		corout ("", refdir, "/usr/bin/pwd", "", 50);
25 	trimnl(refdir);
26 }
27 
28 restodir()
29 {
30 	chdir(refdir);
31 }
32