GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-07 06:06:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

scandinavian agreement to object

Browse Source
This commit is contained in:
aarne
2008-06-24 12:00:40 +00:00
parent c03c228b8b
commit 822ee9f66e
5 changed files with 51 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
resource-1.4/scandinavian/RelativeScand.gf
View File

@@ -29,8 +29,14 @@ incomplete concrete RelativeScand of Relative =
RelSlash rp slash = {
s = \\t,a,p,ag =>
slash.c2.s ++ rp.s ! ag.gn ! RPrep slash.c2.hasPrep ++
slash.s ! t ! a ! p ! Sub ;
let
agr = case rp.a of {
RNoAg => ag ;
RAg agg => agg
}
in
slash.c2.s ++ rp.s ! ag.gn ! RPrep slash.c2.hasPrep ++
slash.s ! t ! a ! p ! Sub ++ slash.n3 ! agr ;
c = NPAcc
} ;