GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

restored ExtensionsGer.CompoundN so that it compiles with the current RGL

Browse Source
This commit is contained in:
aarne
2015-05-22 12:27:35 +00:00
parent b57e5dcc12
commit fa7a2f601a
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/translator/ExtensionsGer.gf
View File

@@ -63,12 +63,24 @@ lin
PredVPosv = G.PredVP; PredVPosv = G.PredVP;
PredVPovs = G.PredVP; PredVPovs = G.PredVP;
CompoundN noun cn = {
s = \\n,c => glue noun.co (cn.uncap.s ! n ! c) ;
co = glue noun.co (cn.uncap.co) ;
uncap = {
s = \\n,c => glue noun.uncap.co (cn.uncap.s ! n ! c) ;
co = glue noun.uncap.co (cn.uncap.co)
} ;
g = cn.g
} ;
{- ---- doesn't compile AR 22/5/2015
CompoundN noun cn = { CompoundN noun cn = {
s = \\n,c => glue noun.co (cn.s ! n ! c) ; s = \\n,c => glue noun.co (cn.s ! n ! c) ;
co = glue noun.co (cn.co) ; co = glue noun.co (cn.co) ;
g = cn.g g = cn.g
} ; } ;
-}
CompoundAP noun adj = { CompoundAP noun adj = {
s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ; s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ;
isPre = True isPre = True