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

corrected some incorrect inflections in LexiconEng

Browse Source
This commit is contained in:
aarne
2010-03-29 16:00:04 +00:00
parent f6f09b401e
commit 8052652c4e
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/english/LexiconEng.gf
View File

@@ -8,7 +8,7 @@ flags
lin
airplane_N = regN "airplane" ;
answer_V2S = mkV2S (regV "answer") toP ;
answer_V2S = mkV2S (mkV "answer" "answered") toP ;
apartment_N = regN "apartment" ;
apple_N = regN "apple" ;
art_N = regN "art" ;
@@ -49,7 +49,7 @@ lin
church_N = regN "church" ;
city_N = regN "city" ;
clean_A = regADeg "clean" ;
clever_A = regADeg "clever" ;
clever_A = mkA "clever" "cleverer" ;
close_V2 = dirV2 (regV "close") ;
coat_N = regN "coat" ;
cold_A = regADeg "cold" ;
@@ -207,7 +207,7 @@ lin
wine_N = regN "wine" ;
win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
woman_N = mkN feminine (mk2N "woman" "women") ;
wonder_VQ = mkVQ (regV "wonder") ;
wonder_VQ = mkVQ (mkV "wonder" "wondered") ;
wood_N = regN "wood" ;
write_V2 = dirV2 (irregV "write" "wrote" "written") ;
yellow_A = mkA "yellow" ;
@@ -325,7 +325,7 @@ lin
swim_V = IrregEng.swim_V ;
think_V = IrregEng.think_V ;
turn_V = regV "turn" ;
vomit_V = regV "vomit" ;
vomit_V = mkV "vomit" "vomited" ;
bite_V2 = dirV2 IrregEng.bite_V ;
count_V2 = dirV2 (regV "count") ;

1
lib/src/english/ParadigmsEng.gf
View File

@@ -450,6 +450,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
_ => duplFinal happy + "e"
} ;
happily : Str = case happy of {
_ + "ble" => init happy + "y" ;
_ + "y" => happ + "ily" ;
_ + "ll" => happy + "y" ;
_ => happy + "ly"