ncurses 5.0
[ncurses.git] / misc / cleantic.cmd
1 /*\r
2  * $Id: cleantic.cmd,v 1.3 1998/08/29 21:43:19 tom Exp $\r
3  *\r
4  * Author:  Juan Jose Garcia Ripoll <worm@arrakis.es>.\r
5  * Webpage: http://www.arrakis.es/~worm/\r
6  */\r
7 parse arg dir\r
8 \r
9 pause\r
10 dir = translate(dir,'\','/');\r
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'\r
12 \r
13 if dir = '' then\r
14     dir = '.'\r
15 'echo Cleaning 'dir\r
16 'for %%1 in ('letters') do @if not exist 'dir'\%%1\* (echo Cleaning ...\%%1 & rd %%1 2>NUL)'\r