diff options
| author | aarne <aarne@chalmers.se> | 2010-12-22 14:11:55 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-12-22 14:11:55 +0000 |
| commit | c5b963769539c8a7c9bd154585686d263c7d6d8a (patch) | |
| tree | c1bc4129d94e51c5e68ed4b7c1888ae120aac3fd /deprecated/old-lib/resource/hindi/utf8/MkLex.hs | |
| parent | ce15ec7b787479ca4c7295863ea7fa5cfdd16755 (diff) | |
removed GF/deprecated
Diffstat (limited to 'deprecated/old-lib/resource/hindi/utf8/MkLex.hs')
| -rw-r--r-- | deprecated/old-lib/resource/hindi/utf8/MkLex.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/deprecated/old-lib/resource/hindi/utf8/MkLex.hs b/deprecated/old-lib/resource/hindi/utf8/MkLex.hs deleted file mode 100644 index 248f6f875..000000000 --- a/deprecated/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" |