small fixes and additions

This commit is contained in:
Inari Listenmaa
2017-10-02 16:05:25 +02:00
parent 4cdbb0ec89
commit 1c9e90f74d
4 changed files with 18 additions and 9 deletions
+9 -4
View File
@@ -29,8 +29,8 @@ concrete AdjectiveEus of Adjective = CatEus ** open ResEus, Prelude in {
neureBuru : NounPhrase = empty_NP **
{ s = \\cas => neure ++ "buru"
++ artDef ! getNum agr ! cas ! FinalVow ;
agr = agr } -- neure buruekin eskondua naiz /
-- geure buruekin eskonduak gara
agr = agr } -- neure buruekin ezkondua naiz /
-- geure buruekin ezkonduak gara
in applyPost a2.compl neureBuru ++ a2.s ! AF Posit ;
typ = Bare } ;
@@ -59,7 +59,10 @@ concrete AdjectiveEus of Adjective = CatEus ** open ResEus, Prelude in {
-- phrases, although the semantics is only clear for some adjectives.
-- : AP -> SC -> AP ; -- good that she is here
SentAP ap sc = ap ; --TODO
SentAP ap sc = ap ** {
s = \\agr => sc.s ++ ap.s ! agr ;
typ = Bare
} ;
-- An adjectival phrase can be modified by an *adadjective*, such as "very".
@@ -72,7 +75,9 @@ concrete AdjectiveEus of Adjective = CatEus ** open ResEus, Prelude in {
-- It can also be postmodified by an adverb, typically a prepositional phrase.
-- : AP -> Adv -> AP ; -- warm by nature
AdvAP ap adv = ap ; --TODO
AdvAP ap adv = ap **
{ s = \\agr => ap.s ! agr ++ adv.s ;
typ = Bare } ;