+++ /dev/null
-/* OS/2 REXX script to create nonexisting directories
- * run with 'added dirlist_file'
- * where dirlist_file is a XFree86 added-* file
- *
- * $XFree86: xc/config/util/added.cmd,v 3.0 1994/10/20 06:01:00 dawes Exp $
- */
-
-file = arg(1)
-linein(file,1,0)
-curdir = directory()
-do while lines(file)=1
- fs = strip(filespec("path",linein(file)),'t','/')
- newdir = directory(fs)
- if newdir='' then do
- say 'create directory='fs
- call directory(curdir)
- call 'xc\config\util\mkdirhier.cmd' fs
- end
- else do
- say 'found directory='newdir
- call directory(curdir)
- end
-end