%%s 0/0/0 %%d D 1.1 26-Mar-82 12:33:17 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 #-h- prd.r 1228 asc 25-mar-82 07:35:34 v1.1 (sw-tools v1.1) #-h- main 1155 asc 25-mar-82 07:35:19 v1.1 (sw-tools v1.1) subroutine main integer uic, desc, found, fuic, d, i, j, local, junk character file(FILENAMESIZE), dev(10), buf(FILENAMESIZE) integer opendr, gdrprm, indexs, f11uic, equal, getarg string dotdir ".dir" string root "[0,377]" string minusl "-l" call query("usage: prd [-l].") local = NO if (getarg(1, dev, 10) != EOF) { call fold(dev) if (equal(dev, minusl) == YES) local = YES else call remark("Ignoring invalid argument.") } found = NO call getuic(uic) if (opendr(root, desc) != ERR) { while (gdrprm(desc, file) != EOF) { i = indexs(file, dotdir) if (i > 0) { file(i) = EOS j = 1 call chcopy('[', buf, j) call stcopy(file, 1, buf, j) call chcopy(']', buf, j) junk = f11uic(desc, fuic) if (fuic == uic) { found = YES break } } } } call closdr(desc) if (found == YES) { call trndev("SY", 0, dev) call fold(dev) call concat(dev, buf, file) } else { call gwdir(file, LOCAL) } if (local == NO) { call strcpy(file, buf) call mkpath(buf, file) } call putlin(file, STDOUT) call putch('@n', STDOUT) return end #-h- prd.fmt 572 asc 25-mar-82 07:35:35 v1.1 (sw-tools v1.1) .so ~bin/manhdr .hd Prd (1) 12-Mar-82 print current working directory in alpha-numeric mode .sy prd [-l] .ds `prd' displays the current working disk and directory on standard output. If the current directory has an alpha-numeric alias created by `mkd', that name is displayed instead of the UIC. If the `-l' option is specified, the output is formatted as ddn:[name] instead of the default /ddn/name. .fl sy:[0,377]*.dir .sa mkd - make an alpha-numeric directory .br lsd - list alpha-numeric directories .br pwd - print current working directory .di .au Joe Sventek .bu %%E 1