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

remove some redundant adverbs from DictEng.gf

Browse Source
This commit is contained in:
krasimir
2010-11-22 13:50:25 +00:00
parent ab3327dab8
commit d4bfdba6ce
3 changed files with 16 additions and 3986 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1989
lib/src/english/DictEng.gf
View File

File diff suppressed because it is too large Load Diff

1989
lib/src/english/DictEngAbs.gf
View File

File diff suppressed because it is too large Load Diff

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

@@ -167,7 +167,7 @@ oper
compoundA : A -> A ; -- -/more/most ditto
simpleA : A -> A ; -- young,younger,youngest
irregAdv : A -> Str -> A ;
--3 Two-place adjectives
@@ -455,17 +455,19 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
"e" => happy ;
_ => duplFinal happy + "e"
} ;
happily : Str = case happy of {
_ + "ble" => init happy + "y" ;
_ + "y" => happ + "ily" ;
_ + "ll" => happy + "y" ;
_ => happy + "ly"
} ;
in mkADeg happy (happie + "r") (happie + "st") happily ;
in mkADeg happy (happie + "r") (happie + "st") (adj2adv happy) ;
adj2adv : Str -> Str = \happy ->
case happy of {
_ + "ble" => init happy + "y" ;
_ + "y" => init happy + "ily" ;
_ + "ll" => happy + "y" ;
_ => happy + "ly"
} ;
duplADeg fat =
mkADeg fat
(fat + last fat + "er") (fat + last fat + "est") (fat + "ly") ;
(fat + last fat + "er") (fat + last fat + "est") (adj2adv fat) ;
compoundADeg a =
let ad = (a.s ! AAdj Posit Nom)
@@ -591,7 +593,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
mkA = overload {
mkA : Str -> A = regA ;
mkA : (fat,fatter : Str) -> A = \fat,fatter ->
mkAdjective fat fatter (init fatter + "st") (fat + "ly") ;
mkAdjective fat fatter (init fatter + "st") (adj2adv fat) ;
mkA : (good,better,best,well : Str) -> A = \a,b,c,d ->
mkAdjective a b c d
} ;
@@ -600,6 +602,8 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
simpleA a =
let ad = (a.s ! AAdj Posit Nom)
in regADeg ad ;
irregAdv a adv = lin A {s = table {AAdv => adv; aform => a.s ! aform}} ;
prepA2 : A -> Prep -> A2 ;