forked from GitHub/gf-core
12 lines
322 B
Plaintext
12 lines
322 B
Plaintext
resource DatabaseEngRes = 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 ;
|
|
} ;
|