summaryrefslogtreecommitdiff
path: root/retab.sml
diff options
context:
space:
mode:
authorKess Vargavind <vargavind@gmail.com>2009-09-21 08:35:18 +0200
committerKess Vargavind <vargavind@gmail.com>2009-09-21 11:31:41 +0200
commit81d5ed3b69f2935a92fd6c88eb799b8ab24a0ef1 (patch)
tree735c1efcf6aced509a3d5f43da09bd178e23ce6e /retab.sml
parent744260bb2b91b3b80e16cb506349718fb33cd6b3 (diff)
downloadtools-81d5ed3b69f2935a92fd6c88eb799b8ab24a0ef1.tar.gz
tools-81d5ed3b69f2935a92fd6c88eb799b8ab24a0ef1.tar.bz2
tools-81d5ed3b69f2935a92fd6c88eb799b8ab24a0ef1.tar.xz
tools-81d5ed3b69f2935a92fd6c88eb799b8ab24a0ef1.zip
Add license info and usage note for retab.sml
Executable ignored and test run commited as well.
Diffstat (limited to 'retab.sml')
-rw-r--r--retab.sml15
1 files changed, 15 insertions, 0 deletions
diff --git a/retab.sml b/retab.sml
index b374eff..8e2a054 100644
--- a/retab.sml
+++ b/retab.sml
@@ -1,3 +1,18 @@
+(*
+ * retab (c) 2009 The Mana World development team
+ * License: GPL, version 2 or later
+ *
+ * Compilation, e.g. (depends on SML implementation):
+ * mlton retab.sml
+ *
+ * Example usage:
+ * tools/retab < db/mob_db.txt > db/mob_db.txt.new && mv db/mob_db.txt.new db/mob_db.txt
+ *
+ * TODO:
+ * - Commas inside {} need to be seen as just one field when tabified
+ * - Commented lines should be left untabified
+ *)
+
fun width (#"\t", i) = let val m = i mod 8 in if m = 0 then 8 else m end
| width (c, i) = 1