+/* 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