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

the substantival form of every and some other Det's in English

Browse Source
This commit is contained in:
aarne
2012-05-30 12:07:32 +00:00
parent e84720622f
commit f674200079
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12512,7 +12512,7 @@ lin evergreen_A = compoundA (mkA "evergreen");
lin evergreen_N = mkN "evergreen" "evergreens";
lin everlasting_A = compoundA (mkA "everlasting");
lin evermore_Adv = mkAdv "evermore";
lin every_Det = mkDeterminer singular "every";
lin every_Det = mkDeterminerSpec singular "every" "everyone" False ;
lin everybody_NP = regNP "everybody" singular ;
lin everyday_A = compoundA (mkA "everyday");
lin everyone_NP = regNP "everyone" singular;

9
lib/src/english/MorphoEng.gf
View File

@@ -17,11 +17,14 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
oper
mkDeterminer : Number -> Str ->
{s : Str ; sp : NPCase => Str; n : Number ; hasNum : Bool} = \n,s ->
{s : Str ; sp : NPCase => Str; n : Number ; hasNum : Bool} = \n,s -> mkDeterminerSpec n s s False ; --- was True!?
mkDeterminerSpec : Number -> Str -> Str -> Bool ->
{s : Str ; sp : NPCase => Str; n : Number ; hasNum : Bool} = \n,s,sp,hasNum ->
{s = s;
sp = \\c => regGenitiveS s ! npcase2case c ;
sp = \\c => regGenitiveS sp ! npcase2case c ;
n = n ;
hasNum = True ; -- doesn't matter since s = sp
hasNum = hasNum ; --- doesn't matter when s = sp
} ;
--2 Pronouns

2
lib/src/english/StructuralEng.gf
View File

@@ -36,7 +36,7 @@ concrete StructuralEng of Structural = CatEng **
during_Prep = mkPrep "during" ;
either7or_DConj = mkConj "either" "or" singular ;
everybody_NP = regNP "everybody" singular ;
every_Det = mkDeterminer singular "every" ;
every_Det = mkDeterminerSpec singular "every" "everyone" False ;
everything_NP = regNP "everything" singular ;
everywhere_Adv = mkAdv "everywhere" ;
few_Det = mkDeterminer plural "few" ;