mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-03 04:08:54 -06:00
13 lines
292 B
Plaintext
13 lines
292 B
Plaintext
concrete QuestionSlv of Question = CatSlv ** open ResSlv,Prelude in {
|
|
|
|
------AR BEGIN
|
|
lin
|
|
QuestVP ip vp = mkClause (ip.s ! Nom) ip.a False vp ;
|
|
QuestCl cl = {s = \\t,a,p => "ali" ++ cl.s ! t ! a ! p} ;
|
|
QuestIAdv iadv cl = {s = \\t,a,p => iadv.s ++ cl.s ! t ! a ! p} ;
|
|
|
|
|
|
------AR END
|
|
|
|
}
|