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

   1 /* OS/2 REXX script to remove cleaned files
   2  * run with 'remove dirlist_file'
   3  * where dirlist_file is be a XFree86 removed-* file
   4  *
   5  * $XFree86: xc/config/util/remove.cmd,v 3.0 1994/10/20 06:01:04 dawes Exp $
   6  */
   7 '@echo off'
   8 file = arg(1)
   9 linein(file,1,0)
  10 curdir = directory()
  11 do while lines(file)=1
  12   fs = translate(linein(file),'\','/')
  13   del fs
  14 end