mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 06:49:31 -06:00
12 lines
319 B
Plaintext
12 lines
319 B
Plaintext
resource DatabaseRes = open Prelude in {
|
|
oper
|
|
mkSent : SS -> SS -> SS1 Bool = \long, short ->
|
|
{s = table {b => if_then_else Str b long.s short.s}} ;
|
|
|
|
mkSentPrel : Str -> SS -> SS1 Bool = \prel, matter ->
|
|
mkSent (ss (prel ++ matter.s)) matter ;
|
|
|
|
mkSentSame : SS -> SS1 Bool = \s ->
|
|
mkSent s s ;
|
|
} ;
|