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

(Dut) Replace "," with bindComma in several places

Browse Source
This commit is contained in:
Inari Listenmaa
2018-05-07 16:30:20 +02:00
parent b8b67e8585
commit 1a338ea034
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/dutch/NounDut.gf
View File

@@ -178,7 +178,7 @@ concrete NounDut of Noun = CatDut ** open ResDut, Prelude in {
} ;
RelNP np rs = heavyNP {
s = \\c => np.s ! c ++ "," ++ rs.s ! np.a.g ! np.a.n ;
s = \\c => np.s ! c ++ embedInCommas (rs.s ! np.a.g ! np.a.n) ;
a = np.a
} ;

2
src/dutch/PhraseDut.gf
View File

@@ -29,6 +29,6 @@ concrete PhraseDut of Phrase = CatDut ** open Prelude, ResDut in
PConjConj conj = ss (conj.s2) ;
NoVoc = {s = []} ;
VocNP np = {s = "," ++ np.s ! NPNom} ;
VocNP np = {s = bindComma ++ np.s ! NPNom} ;
}

6
src/dutch/SentenceDut.gf
View File

@@ -68,10 +68,10 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
} ;
AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! Inv} ;
ExtAdvS a s = {s = \\o => a.s ++ bindComma ++ s.s ! Inv} ;
RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;
RelS s r = {s = \\o => s.s ! o ++ bindComma ++ r.s ! Neutr ! Sg} ;
SSubjS a s b = {s = \\o => a.s ! o ++ "," ++ s.s ++ b.s ! Sub} ;
SSubjS a s b = {s = \\o => a.s ! o ++ bindComma ++ s.s ++ b.s ! Sub} ;
}

2
src/dutch/SymbolDut.gf
View File

@@ -41,7 +41,7 @@ lin
MkSymb s = s ;
BaseSymb = infixSS "en" ;
ConsSymb = infixSS "," ;
ConsSymb = infixSS bindComma ;
oper
artDef : Number -> Gender -> Str = \n,g -> case <n,g> of {<Sg,Neutr> => "het" ; _ => "de"} ;