mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-21 10:49:33 -06:00
22 lines
402 B
Plaintext
22 lines
402 B
Plaintext
concrete ParamsCnc of Params = {
|
|
param
|
|
R = R1 | R2 ;
|
|
P = PR R Q | PP ;
|
|
Q = Q3 | Q2 | Q1 ;
|
|
lincat
|
|
S = Str ;
|
|
F = { r : R } ;
|
|
lin
|
|
f1 = { r = R1 } ;
|
|
f2 = { r = R2 } ;
|
|
FtoS f = tbl ! PR f.r Q1 ;
|
|
oper
|
|
tbl = table {
|
|
PR R1 Q2 => "PR R1 Q2" ;
|
|
PR R1 Q1 => "PR R1 Q1" ;
|
|
PR R1 Q3 => "PR R1 Q3" ;
|
|
PR R2 _ => "PR R2 _" ;
|
|
PP => "PP"
|
|
} ;
|
|
}
|