mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 14:59:32 -06:00
28 lines
774 B
Plaintext
28 lines
774 B
Plaintext
--# -path=.:../common:../abstract
|
|
|
|
resource MakeStructuralGer = open CatGer, (P = ParadigmsGer), MorphoGer, 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 ; lock_Subj = <>} ;
|
|
mkIQuant : Str -> IQuant = \s ->
|
|
{s = \\_,_,_ => s ; lock_IQuant = <>} ;
|
|
|
|
mkPredet = overload {
|
|
mkPredet : A -> Predet = \a ->
|
|
lin Predet {
|
|
s = appAdj a ;
|
|
c = noCase ;
|
|
a = PAgNone
|
|
} ;
|
|
mkPredet : A -> Str -> PCase -> Bool -> Number -> Predet = \a,p,c,b,n ->
|
|
lin Predet {
|
|
s = appAdj a ;
|
|
c = {p = p ; k = PredCase c} ;
|
|
a = case b of {True => PAg n ; _ => PAgNone}
|
|
}
|
|
} ;
|
|
}
|