next-lib renamed to lib, lib to old-lib

1 files changed, 19 insertions, 0 deletions

diff --git a/old-lib/resource/hindi/utf8/MkLex.hs b/old-lib/resource/hindi/utf8/MkLex.hs
new file mode 100644
index 000000000..248f6f875
--- /dev/null
+++ b/old-lib/resource/hindi/utf8/MkLex.hs
@@ -0,0 +1,19 @@
+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"