Finnish attempto started

This commit is contained in:
aarne
2009-03-11 16:08:55 +00:00
parent 84a1d54e82
commit 18c6ec5788
6 changed files with 159 additions and 1 deletions

View File

@@ -0,0 +1,16 @@
--# -path=.:../romance:../common:../abstract
resource MakeStructuralIta = open CatIta, ParadigmsIta, MorphoIta, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; m = Indic ; lock_Subj = <>} ;
mkSubjSubj : Str -> Subj = \x ->
{s = x ; m = Conjunct ; lock_Subj = <>} ;
mkIQuant : Str -> IQuant = \s ->
{s = \\_,_,c => prepCase c ++ s ; lock_IQuant = <>} ;
}