mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-26 04:52:51 -06:00
moving a few things to deprecated
This commit is contained in:
19
deprecated/old-lib/resource/hindi/utf8/MkLex.hs
Normal file
19
deprecated/old-lib/resource/hindi/utf8/MkLex.hs
Normal file
@@ -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"
|
||||
Reference in New Issue
Block a user