msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

working on ExTramI and german verbs phrase

Browse Source
This commit is contained in:
aarne
2006-03-06 15:36:09 +00:00
parent ae7f33bec0
commit d6040b9f62
3 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
resource-1.0/german/ResGer.gf
View File

@@ -481,12 +481,12 @@ resource ResGer = ParamX ** open Prelude in {
} ; } ;
insertInf : Str -> VP -> VP = \inf,vp -> { insertInf : Str -> VP -> VP = \inf,vp -> {
s = vp.s ; s = \\a,vf => {fin = (vp.s ! a ! vf).fin ; inf = inf ++ (vp.s ! a ! vf).inf} ;
a1 = vp.a1 ; a1 = vp.a1 ;
n2 = vp.n2 ; n2 = vp.n2 ;
a2 = vp.a2 ; a2 = vp.a2 ;
isAux = vp.isAux ; ---- isAux = vp.isAux ; ----
inf = vp.inf ++ inf ; inf = vp.inf ; --- ++ inf ;
ext = vp.ext ext = vp.ext
} ; } ;

1
resource-1.0/multimodal/Demonstrative.gf
View File

@@ -85,4 +85,5 @@ abstract Demonstrative = Cat, PredefAbs ** {
point1, point2 : Point ; point1, point2 : Point ;
x_MAdv, y_MAdv : MAdv ;
} }

3
resource-1.0/multimodal/DemonstrativeI.gf
View File

@@ -102,5 +102,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat **
point1 = mkPoint "p1" ; point1 = mkPoint "p1" ;
point2 = mkPoint "p2" ; point2 = mkPoint "p2" ;
x_MAdv = mkDem Adv (ss "X") noPoint ; --- relies on Adv = {s : Str}
y_MAdv = mkDem Adv (ss "Y") noPoint ; ---
} }