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

MAth

Browse Source
This commit is contained in:
aarne
2005-09-15 15:22:00 +00:00
parent efaafffb77
commit 7df1ff9409
30 changed files with 412 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/resource/english/SyntaxEng.gf
View File

@@ -66,11 +66,17 @@ oper
APl p => {n = Pl ; p = p ; g = human}
} ;
nameNounPhrase : ProperName -> NounPhrase = \john ->
{s = \\c => john.s ! toCase c ; a = toAgr Sg P3 john.g} ;
caseSymb : Case -> Str -> Str = \c,i -> case c of {
Nom => i ;
Gen => glue i "'s"
} ;
nameNounPhrasePl : ProperName -> NounPhrase = \john ->
{s = \\c => john.s ! toCase c ; a = toAgr Pl P3 john.g} ;
nameNounPhrase : ProperName -> NounPhrase =
nameNounPhraseN Sg ;
nameNounPhrasePl : ProperName -> NounPhrase =
nameNounPhraseN Pl ;
nameNounPhraseN : Number -> ProperName -> NounPhrase = \n,john ->
{s = \\c => john.s ! toCase c ; a = toAgr n P3 john.g} ;
-- The following construction has to be refined for genitive forms:
-- "we two", "us two" are OK, but "our two" is not.
@@ -86,6 +92,14 @@ oper
pronNounPhrase : Pronoun -> NounPhrase = \pro ->
{s = pro.s ; a = toAgr pro.n pro.p pro.g} ;
-- To add a symbol, such as a variable or variable list, to the end of
-- an NP.
addSymbNounPhrase : NounPhrase -> Str -> NounPhrase = \np,x ->
{s = \\c => np.s ! c ++ x ;
a = np.a
} ;
--2 Determiners
--
-- Determiners are inflected according to the nouns they determine.