From ffeb8b43f664fcfe9e7fc586d1a825d80ac1afb5 Mon Sep 17 00:00:00 2001
From: Elias Gabriel Amaral da Silva <tolkiendili@gmail.com>
Date: Thu, 4 Nov 2010 20:45:42 -0300
Subject: [PATCH] some cleanup

---
 image.ml                             | 23 -----------------------
 src/ts-template.sh                   |  3 ++-
 tools/{createdb => createdb-pgocaml} |  0
 web/ts-web => tools/web              |  0
 4 files changed, 2 insertions(+), 24 deletions(-)
 delete mode 100644 image.ml
 rename tools/{createdb => createdb-pgocaml} (100%)
 rename web/ts-web => tools/web (100%)

diff --git a/image.ml b/image.ml
deleted file mode 100644
index b10d398..0000000
--- a/image.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-type either = Maxh of int | Maxw of int
-
-let resize (h, w) = function
-    Maxh h' when h <= h' -> (h, w)
-  | Maxw w' when w <= w' -> (h, w)
-  | Maxh h'              -> h', (w * h') / h
-  | Maxw w'              -> (h * w') / w, w'
-
-let resize_h maxh h w =
-  if h <= maxh then
-    (h, w)
-  else
-    maxh, (w*maxh) / h
-
-let resize_w maxw h w =
-  if w <= maxw then
-    (h, w)
-  else
-    (h*maxw) / w, maxw
-
-
-let resize maxh maxw h w =
-  [resize_h maxh h w; resize_w maxw h w]
diff --git a/src/ts-template.sh b/src/ts-template.sh
index 091efb8..73e31a1 100644
--- a/src/ts-template.sh
+++ b/src/ts-template.sh
@@ -14,10 +14,11 @@ c="$1"
 shift
 
 case "$c" in
+    clean) $0 rm; $0 createdb;;
     add) "$BIN"/ts-add "$@";;
     rm) rm -rf "$files_dir"/?*;;
     createdb) "$TOOLS"/createdb-simpler;;
     interface) "$TOOLS"/interface "$@";;
-    web) "$WEB"/ts-web;;
+    web) "$TOOLS"/web;;
     *) cat "$0";;
 esac
diff --git a/tools/createdb b/tools/createdb-pgocaml
similarity index 100%
rename from tools/createdb
rename to tools/createdb-pgocaml
diff --git a/web/ts-web b/tools/web
similarity index 100%
rename from web/ts-web
rename to tools/web