mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 13:59:31 -06:00
15 lines
194 B
Plaintext
15 lines
194 B
Plaintext
resource param_table = {
|
|
|
|
param Q = Q1 | Q2 ;
|
|
param P = P1 | P2 Q ;
|
|
|
|
oper ab_patt = #["ab"];
|
|
|
|
oper test : Str -> Q = \s ->
|
|
case s of {
|
|
#ab_patt + _ => Q1 ;
|
|
_ => Q2
|
|
} ;
|
|
|
|
}
|