%%s 4/4/89 %%d D 1.2 16-Jun-83 11:17:25 sventek 2 1 %%c Removed trailing period in quoted strings, as they are no longer needed. %%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 %%D 2 #-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) %%E 2 %%I 2 #-h- prd.r 1230 asc 16-jun-83 11:17:12 sventek (joseph sventek) #-h- main 1153 asc 16-jun-83 11:16:56 sventek (joseph sventek) %%E 2 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" %%D 2 call query("usage: prd [-l].") %%E 2 %%I 2 call query("usage: prd [-l]") %%E 2 local = NO if (getarg(1, dev, 10) != EOF) { call fold(dev) if (equal(dev, minusl) == YES) local = YES else %%D 2 call remark("Ignoring invalid argument.") %%E 2 %%I 2 call remark("Ignoring invalid argument") %%E 2 } 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