diff options
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" |