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

use consistent lin X everywhere

Browse Source
This commit is contained in:
Krasimir Angelov
2025-11-14 14:12:57 +01:00
parent 48658e3689
commit c7fe453c12
58 changed files with 330 additions and 334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/german/ExtraGer.gf
View File

@@ -291,7 +291,7 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
lin
FocObj np cl =
let n = appPrepNP cl.c2 np in mkFoc n cl ;
let n = appPrepNP cl.c2 np in mkFoc n (lin Cl cl) ;
FocAdv adv cl = mkFoc adv.s cl ;
@@ -304,7 +304,7 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
-- "froh ist sie dass er da ist"
-- "stolz ist sie auf ihn"
subj = mkSubject np vp.c1 ;
cl = mkClause subj.s subj.a vp
cl = lin Cl (mkClause subj.s subj.a vp)
in mkFoc adj cl ;
UseFoc t p f = {s = t.s ++ p.s ++ f.s ! t.m ! t.t ! t.a ! p.p} ;