diff options
| author | aarne <aarne@chalmers.se> | 2009-12-09 09:47:16 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-12-09 09:47:16 +0000 |
| commit | c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b (patch) | |
| tree | 5f0b314341c129eba1bc67b8b887fb8a4486fad8 /old-lib/resource/hindi/utf8/MkLex.hs | |
| parent | 101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff) | |
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/hindi/utf8/MkLex.hs')
| -rw-r--r-- | old-lib/resource/hindi/utf8/MkLex.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/old-lib/resource/hindi/utf8/MkLex.hs b/old-lib/resource/hindi/utf8/MkLex.hs deleted file mode 100644 index 248f6f875..000000000 --- a/old-lib/resource/hindi/utf8/MkLex.hs +++ /dev/null @@ -1,19 +0,0 @@ -main = interact (concat . map mkOne . zip [10001..] . lines) - -mkOne (i,line) = case line of - '<':cs -> case pos line of - "nuon" -> entry (show i) (word line) "N" - "brev" -> entry (show i) (word line) "V" - "evitcejda" -> entry (show i) (word line) "A" - _ -> "" - _ -> "" - -pos line = case reverse line of - '>':cs -> takeWhile (/='<') cs - _ -> "" - -word line = takeWhile (/='>') line - -entry i w c = - "fun w" ++ i ++ "_" ++ c ++ " : " ++ c ++ " ;\n" ++ - "lin w" ++ i ++ "_" ++ c ++ " = mk" ++ c ++ " \"" ++ w ++ "\" ;\n" |