diff options
| author | Kess Vargavind <vargavind@gmail.com> | 2009-09-21 08:35:18 +0200 |
|---|---|---|
| committer | Kess Vargavind <vargavind@gmail.com> | 2009-09-21 11:31:41 +0200 |
| commit | 81d5ed3b69f2935a92fd6c88eb799b8ab24a0ef1 (patch) | |
| tree | 735c1efcf6aced509a3d5f43da09bd178e23ce6e | |
| parent | 744260bb2b91b3b80e16cb506349718fb33cd6b3 (diff) | |
| download | tools-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.
| -rw-r--r-- | retab.sml | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -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 |