improved resource doc

This commit is contained in:
aarne
2005-05-22 18:43:00 +00:00
parent 60427e170c
commit e451bc03ba
16 changed files with 188 additions and 99 deletions

View File

@@ -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} ;

View File

@@ -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 ;

View File

@@ -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 ;