mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 06:19:33 -06:00
12 lines
277 B
Plaintext
12 lines
277 B
Plaintext
resource MakeStructuralGre = open CatGre, ParadigmsGre, ResGre, Prelude in {
|
|
|
|
|
|
oper
|
|
|
|
mkSubj : Str -> Subj = \x ->
|
|
{s = x ; m = Ind ; lock_Subj = <>} ;
|
|
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
|
|
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
|
|
|
|
|
|
} |