contrib/ncurses-5.4/misc/cleantic.cmd

   1 /*
   2  * $Id: cleantic.cmd,v 1.3 1998/08/29 21:43:19 tom Exp $
   3  *
   4  * Author:  Juan Jose Garcia Ripoll <worm@arrakis.es>.
   5  * Webpage: http://www.arrakis.es/~worm/
   6  */
   7 parse arg dir
   8
   9 pause
  10 dir = translate(dir,'\','/');
  11 letters = '0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z'
  12
  13 if dir = '' then
  14     dir = '.'
  15 'echo Cleaning 'dir
  16 'for %%1 in ('letters') do @if not exist 'dir'\%%1\* (echo Cleaning ...\%%1 & rd %%1 2>NUL)'