ncurses 5.0

[ncurses.git] / misc / cleantic.cmd

diff --git a/misc/cleantic.cmd b/misc/cleantic.cmd
new file mode 100644 (file)
index 0000000..ab6a40a
--- /dev/null
+++ b/misc/cleantic.cmd
@@ -0,0 +1,16 @@
+/*\r
+ * $Id: cleantic.cmd,v 1.3 1998/08/29 21:43:19 tom Exp $\r
+ *\r
+ * Author:  Juan Jose Garcia Ripoll <worm@arrakis.es>.\r
+ * Webpage: http://www.arrakis.es/~worm/\r
+ */\r
+parse arg dir\r
+\r
+pause\r
+dir = translate(dir,'\','/');\r
+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
+\r
+if dir = '' then\r
+    dir = '.'\r
+'echo Cleaning 'dir\r
+'for %%1 in ('letters') do @if not exist 'dir'\%%1\* (echo Cleaning ...\%%1 & rd %%1 2>NUL)'\r