/* 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)  endend