More work on rom

This commit is contained in:
aarne
2003-12-16 15:39:07 +00:00
parent 06936f0f18
commit fb1e3fa798
6 changed files with 39 additions and 15 deletions

View File

@@ -9,6 +9,8 @@ oper
jean.g
Sg ;
nounPhraseOn = mkNameNounPhrase "si" Masc ; --- can be plural dep. on object
partitiveNounPhrase = \n,vino ->
normalNounPhrase
(table {
@@ -85,7 +87,8 @@ oper
isTransVerbClit = \v -> case v.c of {
Acc => True ;
_ => False --- hmmm
CPrep P_a => True ; -- dative
_ => False
} ;
-- The negation of a verb.

View File

@@ -65,6 +65,13 @@ oper
_ => Ton c
} ;
case2pformClit = \c -> case c of {
Nom => Aton Nom ;
Acc => Aton Acc ;
CPrep P_a => Aton c ;
_ => Ton c
} ;
-- Comparative adjectives are only sometimes formed morphologically
-- (actually: by different morphemes).