glue2.c (0:68f95e015346) glue2.c (719:6c26331bc6b8)
1/*
2 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
3 * Use is subject to license terms.
4 */
5
1/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
2/* All Rights Reserved */
3
6/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
7/* All Rights Reserved */
8
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
9/*
10 * Copyright (c) 1980 Regents of the University of California.
11 * All rights reserved. The Berkeley software License Agreement
12 * specifies the terms and conditions for redistribution.
13 */
14
11/*
12 * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
13 * All Rights Reserved.
14 */
15#pragma ident "%Z%%M% %I% %E% SMI"
15
16
16#pragma ident "%Z%%M% %I% %E% SMI"
17
17
18
19char refdir[50];
20
18char refdir[50];
19
21savedir()
20extern int corout();
21extern char *trimnl();
22
23void
24savedir(void)
22{
25{
23 if (refdir[0]==0)
24 corout ("", refdir, "/usr/bin/pwd", "", 50);
26 if (refdir[0] == 0)
27 corout("", refdir, "/usr/bin/pwd", "", 50);
25 trimnl(refdir);
26}
27
28 trimnl(refdir);
29}
30
28restodir()
31void
32restodir(void)
29{
30 chdir(refdir);
31}
33{
34 chdir(refdir);
35}