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

Added ExtAdvS separate from AdvS in Sentence

Browse Source
This commit is contained in:
aarne
2011-08-03 15:19:39 +00:00
parent 930d9ab752
commit 2d91016760
6 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/german/SentenceGer.gf
View File

@@ -61,6 +61,8 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer, Prelude in {
} ;
AdvS a s = {s = table {Sub => a.s ++ s.s ! Sub ; o => a.s ++ s.s ! Inv}} ;
ExtAdvS a s =
{s = table {Sub => a.s ++ "," ++ s.s ! Sub ; o => a.s ++ "," ++ s.s ! Inv}} ;
SSubjS a s b = {s = \\o => a.s ! o ++ "," ++ s.s ++ b.s ! Sub} ;