/* zooall.rexx						*/
/*	Rexx program to zoo every directory		*/

address command
parse upper arg path

if ~show('L',"rexxsupport.library") then
   call addlib "rexxsupport.library",0,-30

if ~show('L',"rexxmathlib.library") then
   call addlib "rexxmathlib.library",0,-30

list = getlist()
workpath = path
parse value list with name list
do while name ~= ''

	outpath = "df1:"
	cnt = lastpos('/',name)
	if cnt ~= 0
	then do
		outpath = outpath||substr(name,1,cnt)
		end

	outname = strip(name,"b","/")
	cnt = lastpos('/',outname)
	if cnt ~= 0
	then outname = substr(outname,cnt+1)

	path = workpath
	cnt = lastpos('/',name)
	if cnt ~= 0
	then do
		path = path||substr(name,1,cnt)
		name = substr(name,cnt+1)
		end

	call pragma('D',path)
	'makedir' strip(outpath,'t','/')
	t = showdir(path,'F')
	if t ~= ''
	then 'zoo -add 'outpath||outname'.zoo *'
        parse value list with name list
        end
	exit

getlist: procedure expose path
	parse arg extra
	list = ''
	dir = showdir(path||extra,'D')
	do while dir ~= ''
		parse var dir curr dir
		list = list extra||curr'/'
	        list = list getlist(extra||curr'/')
		end
	return list