1 /* OS/2 REXX script to create nonexisting directories
2 * run with 'added dirlist_file'
3 * where dirlist_file is a XFree86 added-* file
5 * $XFree86: xc/config/util/added.cmd,v 3.0 1994/10/20 06:01:00 dawes Exp $
11 do while lines(file)=1
12 fs = strip(filespec("path",linein(file)),'t','/')
13 newdir = directory(fs)
15 say 'create directory='fs
16 call directory(curdir)
17 call 'xc\config\util\mkdirhier.cmd' fs
20 say 'found directory='newdir
21 call directory(curdir)