mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-19 01:39:32 -06:00
47 lines
1.2 KiB
Haskell
47 lines
1.2 KiB
Haskell
main :: IO ()
|
|
main = do
|
|
|
|
s <- readFile "verbs"
|
|
mapM_ putRule $ combine $ map words $ lines s -- to create fun/lin
|
|
-- mapM_ putConjug [1..100] -- to create oper
|
|
|
|
putRule = appendFile "verbs.gf" . mkRule
|
|
|
|
mkRule s = case s of
|
|
n:v:cs ->
|
|
"fun " ++ fv ++ cat ++ " : " ++ cat ++ " ;\n" ++
|
|
"lin " ++ fv ++ cat ++
|
|
" = v_nancy" ++ n ++ " \"" ++ v ++ "\"" ++ ext ++ " ;\n"
|
|
where
|
|
(cat,ext) = case cs of
|
|
_ | elem "T" cs -> ("VN2", " ** {aux = AHabere ; c = Acc}")
|
|
"a":au -> ("VN2", " ** {aux = " ++ aux au ++ " ; c = Dat}")
|
|
"de":au -> ("VN2", " ** {aux = " ++ aux au ++ " ; c = Gen}")
|
|
"P":_ -> ("VNR", "")
|
|
au -> ("VN", " ** {aux = " ++ aux au ++ "}")
|
|
|
|
fv = map unhyph v
|
|
|
|
unhyph c = case c of
|
|
'-' -> '_'
|
|
_ -> c
|
|
|
|
aux au = case au of
|
|
"etre":_ -> "AEsse"
|
|
_ -> "AHabere"
|
|
|
|
combine ls = case ls of
|
|
l@(n:v:_:c:_):vs ->
|
|
let (vv,rest) = span ((==v) . (!!1)) vs in
|
|
([n,v,c] ++ map (!!3) vs) : combine rest
|
|
_ -> ls
|
|
|
|
|
|
---
|
|
|
|
putConjug = appendFile "nancy_conjugs.gf" . mkConjug
|
|
|
|
mkConjug :: Integer -> String
|
|
mkConjug i = "oper v_nancy" ++ show i ++
|
|
" : Str -> V = \\s -> conj v ++ {lock_V = <>} ;\n"
|