mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-20 18:29:33 -06:00
17 lines
341 B
Plaintext
17 lines
341 B
Plaintext
concrete PreCnc of Pre = {
|
|
lincat
|
|
S = { s : Str } ;
|
|
N = { s : Str } ;
|
|
Det = { s : Str } ;
|
|
lin
|
|
ant = { s = "ant" } ;
|
|
dog = { s = "dog" } ;
|
|
a = { s = pre {
|
|
"a"|"e"|"i"|"o"|"u" => "an" ;
|
|
_ => "a"
|
|
} } ;
|
|
the = { s = "the" } ;
|
|
mkS det n = { s = det.s ++ n.s } ;
|
|
detS det = { s = det.s } ;
|
|
}
|