%%s 3/3/47
%%d D 1.2 15-Jun-83 11:46:18 sventek 2 1
%%c Removed trailing periods from quoted strings, as they are no longer needed.
%%s 0/0/0
%%d D 1.1 25-Mar-82 12:11:07 v1.1 1 0
%%c Version 1.1 is the Spring 1982 Distribution of the LBL/Hughes release
%%c of the Software Tools Virtual Operating System software and documentation.
%%T
%%I 1
%%D 2
#-h- pwd.r            390  asc  25-mar-82 08:18:41  v1.1 (sw-tools v1.1)
#-h- main             317  asc  25-mar-82 08:18:30  v1.1 (sw-tools v1.1)
%%E 2
%%I 2
#-h- pwd.r            393  asc  15-jun-83 11:46:07  sventek (joseph sventek)
#-h- main             316  asc  15-jun-83 11:45:50  sventek (joseph sventek)
%%E 2
 DRIVER(pwd)

 character buf(FILENAMESIZE), clower
 integer dtype, getarg

%%D 2
 call query("usage:  pwd [-l].")
%%E 2
%%I 2
 call query("usage:  pwd [-l]")
%%E 2
 dtype = PATH
 if (getarg(1, buf, FILENAMESIZE) != EOF)
    if (buf(1) == '-' & clower(buf(2)) == 'l')
	dtype = LOCAL
 call gwdir(buf, dtype)
 call putlin(buf, STDOUT)
 call putch('@n', STDOUT)

 DRETURN
 end
#-h- pwd.fmt          468  asc  25-mar-82 08:18:41  v1.1 (sw-tools v1.1)
.so ~bin/manhdr
.hd Pwd (1) 12-Aug-81
print working directory name on standard output
.sy
pwd [-l]
.ds
pwd prints the pathname of the working (current default) directory.
If the -l switch is present, the current working directory is printed
out in the local parlance.
This path name is of the form
.sp
/device/directory
.sp
For example,
.sp
.ce
/u/usrlib
.sp
is equivalent to
.sp
.ce
u:[usrlib]
.sp
on VMS
.sp
.sa
cd - change working directory
.di
.au
Joe Sventek
.bu
%%E 1