GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

bew BigLexEng (not ready)

Browse Source
This commit is contained in:
aarne
2006-11-03 10:23:06 +00:00
parent d2897dd7d9
commit a6d8a143ca
5 changed files with 1905 additions and 1458 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
examples/big/MkDict.hs
View File

@@ -17,7 +17,13 @@ mkOne s = case words s of
nopar = filter (flip notElem "()")
mkCatf c r w = case c of
"Noun" -> ["N","regN",w]
"PRT" -> ["Adv","mkAdv",w] ----
"TITLE" -> ["N","regN",w] ----
"Adject" -> ["A","regA",w]
"AdjInf" -> ["A","regA",w] ----
"AdjInf_LONG" -> ["A","longA",w] ----
"AdjPrd" -> ["A","regA",w] ----
"AdjPrd_LONG" -> ["A","longA",w] ----
"Adject_LONG" -> ["A","longA",w]
"Verb" | r == "irreg" -> []
"Verb" -> ["V","regV",w]
@@ -25,7 +31,18 @@ mkOne s = case words s of
"V2" -> ["V2","regV2", w]
"PNoun" -> ["PN","regPN",toUpper (head w): tail w]
'V':'2':'_':prep | r == "irreg" ->
["V2","mkV2", w, "_V", map toLower prep]
x:'2':'_':prep -> [[x]++"2","prep" ++[x]++"2", w, map toLower prep]
let p = map toLower prep in ["V2","mkV2_"++p, w, "_V", p]
x:'2':'_':prep ->
let p = map toLower prep in [[x]++"2","prep" ++[x]++"2"++p, w, p]
"V3_NP" | r == "irreg" -> ["V3","irreg", w, "_V"]
"V3_NP" -> ["V3","regV3", w]
'V':'3':'_':'P':'P':prep | r == "irreg" ->
let p = map toLower prep in ["V3","mkV3_"++p, w, "_V", p]
'V':'3':'_':'P':'P':prep ->
let p = map toLower prep in ["V3","mkV3_"++p, w, p]
'V':'3':'_':'S':_ | r == "irreg" -> ["V2","mkV2_S", w, "_V"] ----
'V':'3':'_':'S':_ -> ["V2","mkV2_S", w] ----
'V':'3':'_':_ -> ["V3","mkV3", w] ----
_ -> [c,"mk" ++ c, w]