GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -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

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