partial adjectives support

This commit is contained in:
krasimir
2008-02-20 17:01:19 +00:00
parent d5c53ccb7e
commit 5330d189ed
6 changed files with 36 additions and 1 deletions

View File

@@ -29,6 +29,12 @@ resource ParadigmsBul = VerbParadigmsBul, AdjParadigmsBul ** open
in {
oper
--3 Two-place adjectives
--
-- Two-place adjectives need a preposition for their second argument.
mkA2 : A -> Prep -> A2 ;
--2 Adverbs
-- Adverbs are not inflected. Most lexical ones have position
@@ -49,6 +55,8 @@ oper
mkPrep : Str -> Prep ;
noPrep : Prep ;
mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ;
--2 Verbs
--