git.sesse.net Git - rdpsrv/blob - Xserver/config/util/added.cmd

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