Italian prepositions

This commit is contained in:
aarne
2006-12-07 10:40:30 +00:00
parent 5a5a05df95
commit 640998d273
3 changed files with 11 additions and 2 deletions

View File

@@ -66,6 +66,10 @@ oper
mkPrep : Str -> Prep ;
-- The following prepositions also have special contracted forms.
con_Prep, da_Prep, in_Prep, su_Prep : Prep ;
--2 Nouns
-- Worst case: give both two forms and the gender.
@@ -293,6 +297,11 @@ oper
dative = complDat ;
mkPrep p = {s = p ; c = Acc ; isDir = False} ;
con_Prep = {s = [] ; c = CPrep P_con ; isDir = False} ;
da_Prep = {s = [] ; c = CPrep P_da ; isDir = False} ;
in_Prep = {s = [] ; c = CPrep P_in ; isDir = False} ;
su_Prep = {s = [] ; c = CPrep P_su ; isDir = False} ;
mkN x y g = mkNounIrreg x y g ** {lock_N = <>} ;
regN x = mkNomReg x ** {lock_N = <>} ;
compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ;