mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
improved resource doc
This commit is contained in:
@@ -40,7 +40,7 @@ lincat
|
||||
-- = CommNoun ** {s2 : Preposition ; c : CaseA} ;
|
||||
N3 = Function ** {s3 : Preposition ; c3 : CaseA} ;
|
||||
Prep = {s : Preposition ; c : CaseA} ;
|
||||
Num = {s : Gender => Str ; n : Number} ;
|
||||
Num = {s : Gender => Str ; n : Number ; isNo : Bool} ;
|
||||
|
||||
A = Adjective ;
|
||||
-- = {s : AForm => Str ; p : Bool} ;
|
||||
|
||||
@@ -35,7 +35,7 @@ lin
|
||||
ModGenOne = npGenDet singular ;
|
||||
ModGenNum = npGenDetNum ;
|
||||
|
||||
UseInt i = {s = \\_ => i.s ; n = Pl} ; ---- n
|
||||
UseInt i = {s = \\_ => i.s ; n = Pl ; isNo = False} ; ---- n
|
||||
NoNum = noNum ;
|
||||
|
||||
UseA = adj2adjPhrase ;
|
||||
|
||||
@@ -60,9 +60,10 @@ oper
|
||||
pronNounPhrase : Pronoun -> NounPhrase = \pro -> pro ;
|
||||
|
||||
-- Many determiners can be modified with numerals, which may be inflected in
|
||||
-- gender.
|
||||
-- gender. The label $isNo$ is a hack used to force $des$ for plural
|
||||
-- indefinite with $noNum$.
|
||||
|
||||
Numeral : Type = {s : Gender => Str ; n : Number} ;
|
||||
Numeral : Type = {s : Gender => Str ; n : Number ; isNo : Bool} ;
|
||||
|
||||
pronWithNum : Pronoun -> Numeral -> Pronoun = \nous,deux ->
|
||||
{s = \\c => nous.s ! c ++ deux.s ! pgen2gen nous.g ;
|
||||
@@ -72,7 +73,7 @@ oper
|
||||
c = nous.c
|
||||
} ;
|
||||
|
||||
noNum : Numeral = {s = \\_ => [] ; n = Pl} ;
|
||||
noNum : Numeral = {s = \\_ => [] ; n = Pl ; isNo = True} ;
|
||||
|
||||
-- The existence construction "il y a", "c'è / ci sono" is defined separately,
|
||||
-- and ad hoc, in each language.
|
||||
@@ -138,7 +139,11 @@ oper
|
||||
|
||||
indefNounPhraseNum : Numeral -> CommNounPhrase -> NounPhrase = \nu,mec ->
|
||||
normalNounPhrase
|
||||
(\\c => prepCase c ++ nu.s ! mec.g ++ mec.s ! nu.n)
|
||||
(\\c => case nu.isNo of {
|
||||
True => artIndef mec.g Pl c ++ mec.s ! Pl ;
|
||||
_ => prepCase c ++ nu.s ! mec.g ++ mec.s ! nu.n
|
||||
}
|
||||
)
|
||||
mec.g
|
||||
nu.n ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user