forked from GitHub/gf-core
12 lines
350 B
Plaintext
12 lines
350 B
Plaintext
resource MakeStructuralEst = open CatEst, ParadigmsEst, MorphoEst, Prelude in {
|
|
|
|
oper
|
|
mkConj : Str -> Str -> ParadigmsEst.Number -> Conj = \x,y,n ->
|
|
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
|
|
mkSubj : Str -> Subj = \x ->
|
|
{s = x ; lock_Subj = <>} ;
|
|
mkIQuant : Str -> IQuant = \s ->
|
|
{s = \\n,c => s ; lock_IQuant = <>} ; ----
|
|
|
|
}
|