d $! DO	SUB{/OUTPUT=filename} {SWITCH} {[DIR]}{filespec}
È $!		Gets directories and sub-directories listings.
,$!
$!	COMMAND PROCEEDURE TO GET A DIRECTORY LISTING OF THE
ô$!	PRESENT DIRECTORY AND ALL LOWER LEVEL SUB-DIRECTORIES.
X$!
¼$!		 <...> DENOTES OPTIONAL PARAMETERS
 $!	WHERE:	filename = OUTPUT FILE.		DEFAULT:  SYS$OUTPUT
„$!		SWITCH	 = FULL	 - FOR FULL DIRECTORY LIST
è$!			   BRIEF - FOR BRIEF LISTING
L$!		DIR	 = DEVICE:[DIRECTORY]  TO START SEARCH FROM
°$!		filespec = FILE.TYPE;VERSION
$!			
F$!		Thanks to Gary Lee 03/14/80
x$! -end.of.info-
ª$
Ü$	NP = 1
@$	INPDIR:=""			!DEFAULT NULL INPUT DIR
¤$	INPSW:=""			!"	"     LIST SWITCH
$	INPFSP:=""			!"	"     FILE SPEC
l$	INPDEV:=""			!"	"     DEVICE NAME
Ð$GETINP:
4$	IF (P'NP' .EQS. "") THEN GOTO XTRACT	!NO MORE INPUT PARAMS
˜$	ASSIGN &P'NP' PNP
ü$	PNP:= 'F$LOGICAL("PNP")'
`	$	CHAR2:= 'F$EXTRACT(0,2,PNP)	!GET FIRST 2 CHARS
Ä	$	CHAR1:= 'F$EXTRACT(0,1,PNP)	!GET FIRST CHARACTER
(
$	IF (CHAR1.NES."[") THEN GOTO AA	!NOT A DIRECTORY
Œ
$	INPDIR:='PNP'
ð
$	GOTO C
T$
¸$AA:			!CHECK TO SEE IF THIS STILL MIGHT BE A DIRECTORY
$	LOC = 'F$LOCATE("[",PNP)
€$	LENPNP='F$LENGTH(PNP)'
ä$	IF(LOC.EQ.LENPNP) THEN GOTO A	!DEFINITLY NOT A DIRECTORY
H$	INPDIR:='PNP'			!ASSUME FORM WAS "DEV:["
¬$	GOTO C
$A:
t$	IF (CHAR2.NES."BR".AND.CHAR2.NES."FU") THEN GOTO B
Ø$	INPSW:=/'PNP'
<$	GOTO C
 $B:
$	INPFSP:='PNP'
h$C:
Ì$	NP = NP + 1
0$	DEASSIGN PNP
”$	GOTO GETINP
ø$
\$XTRACT:
À$
$$	IF (INPDIR .EQS. "") THEN GOTO PROCESS
ˆ$	RBRKT = 'F$LOCATE("]",INPDIR)
ì$	LENDIR = 'F$LENGTH(INPDIR)'
P$	R1=RBRKT +1
´$	LENFSP=LENDIR-RBRKT-1
$	IF (R1 .EQ. LENDIR) THEN GOTO PROCESS
|$	IF (RBRKT .EQ. LENDIR) THEN GOTO ERR	!MISSING "]"
à$	INPFSP:='F$EXTRACT(R1,LENFSP,INPDIR)
D$	INPDIR:='F$EXTRACT(0,R1,INPDIR)
¨$
$PROCESS:
p$
Ô$ LEVEL = 0
8$ IF(INPDIR.EQS."") THEN GOTO DEFLT	!USE DEFAULT IF NO INPDIR
œ$ NAME:= 'INPDIR'
 $ GOTO GETDIR
d$
È$ERR:
,$
$ WRITE SYS$OUTPUT "/",INPDIR,"/  --  ILLEGAL DIRECTORY NAME"
ô$ GOTO END
X$
¼$ DEFLT:
 $ NAME:= 'F$DIRECTORY()'		!GET DEFAULT DIR NAME
„$
è$ GETDIR:
L$	LBRKT='F$LOCATE("[",INPDIR)
°$	L1=LBRKT + 1
$	INPDEV:='F$EXTRACT(0,LBRKT,INPDIR)
x$ LEN = 'F$LOCATE("]",NAME) -L1		!LENGTH W/O BRACKETS
Ü$ NAME:= 'F$EXTRACT(L1,LEN,NAME)		!GET DIR W/O BRACKETS
@$ DIR'INPSW' 'INPDEV'['NAME']'INPFSP'		!DIR LIST TO SYS$OUTPUT
¤$ ASSIGN/USER NL: SYS$OUTPUT		!SUPPRESS ERRORS FOR NEXT STEP
 $ ASSIGN/USER NL: SYS$ERROR		! DITTO
l $ DIRECTORY 'INPDEV'['NAME']*.DIR/OUTPUT=ALL'LEVEL'.SCI
Ð $
4!$ ON CONTROL THEN GOTO FINI
˜!$ ON ERROR THEN GOTO FINI
ü!$
`"$NXDIR:
Ä"$ OPEN/READ/ERR=NODIR ALL'LEVEL' ALL'LEVEL'.SCI
(#$
Œ#$NXITEM:
ð#$ READ/ERR=NODIR ALL'LEVEL' LINE
T$$ LINE := 'F$EXTRACT(2,100,LINE)	!SKIP PAGE MARKS
¸$$ LLINE = 'F$LENGTH(LINE)		!GET LINE LENGTH
%$ IPOS = 'F$LOCATE(".DIR",LINE)		!LOOK FOR ".DIR"
€%$ IF( IPOS.EQ.LLINE ) THEN GOTO NOTDIR	!BRANCH IF NOT A SUB-DIR
ä%$  IF( LEVEL.EQ.0 .AND. LINE.LES."9") THEN GOTO NXITEM	!SYSTEM FILES
H&$  LINE := 'F$EXTRACT( 0,IPOS,LINE)	!GET NAME PRECEEDING ".DIR"
¬&$  NAME := 'NAME'.'LINE'		!APPEND SUB NAME TO PREVIOUS
'$  LEVEL = LEVEL+1			!INCREMENT LEVEL COUNTER
t'$  ASSIGN/USER NL: SYS$ERROR
Ø'$  ASSIGN/USER NL: SYS$OUTPUT		!FOR NEXT STEP,SUPRESS ERRORS
<($  DIR 'INPDEV'['NAME']*.DIR/OUTPUT=ALL'LEVEL'.SCI	!GET DIR LIST OF SUB-DIR
 ($  DIR'INPSW' 'INPDEV'['NAME']'INPFSP'		!GET FULL DIR FOR SYS$ OUTPUT
)$  GOTO NXDIR
h)$
Ì)$NOTDIR:
0*$					!ITEM WAS NOT A DIRECTORY
”*$ IF( IPOS.EQ.LLINE ) THEN GOTO NXITEM	!GO TRY AGAIN
ø*$
\+$NODIR:					!NO MORE DIRECTORIES
À+$ CLOSE ALL'LEVEL'
$,$ DELETE ALL'LEVEL'.SCI;*		!CLOSE LOGICALS, DELETE FILES
ˆ,$ LEVEL = LEVEL - 1
ì,$
P-$INSUB:
´-$ IPOS = 'F$LOCATE(".",NAME)
.$ NAME := 'F$EXTRACT(0,IPOS,NAME)
|.$ IF(LEVEL.GE.0) THEN GOTO NXITEM
à.$
D/$FINI:
¨/$ IF( LEVEL.LT.0) THEN GOTO END
0$ CLOSE ALL'LEVEL'
p0$ DELETE ALL'LEVEL'.SCI;*
Ô0$ LEVEL = LEVEL - 1
81$ IF( LEVEL.GE.0 ) THEN GOTO FINI	!CYCLE THROUGH ALL LEVELS
œ1$
 2$ END:
d2$ EXIT