mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-14 09:30:13 -06:00
Fixes to num size and other fixes
This commit is contained in:
@@ -10,7 +10,7 @@ lin
|
||||
-- : IP -> VP -> QCl ; -- who walks
|
||||
QuestVP ip vp = {
|
||||
subj=ip.nom ;
|
||||
adv=[] ;
|
||||
adv=vp.adv ! ip.a ;
|
||||
verb=vp.verb ;
|
||||
dep=vp.dep ;
|
||||
compl=vp.compl ! ip.a ; --???
|
||||
@@ -63,7 +63,7 @@ lin
|
||||
|
||||
-- : IDet -> CN -> IP ; -- which five songs
|
||||
IdetCN idet cn = caseTableToRecord (\\cas => idet.s ! cn.g ! cn.anim ! cas
|
||||
++ cn.s ! numSizeNum idet.size ! numSizeCase idet.size)
|
||||
++ cn.s ! numSizeNum cas idet.size ! numSizeCase cas idet.size)
|
||||
(Ag (gennum cn.g (numSizeNumber idet.size)) P3) cn.anim ;
|
||||
|
||||
-- : IDet -> IP ; -- which five
|
||||
|
||||
Reference in New Issue
Block a user