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

(Ger) Comment out lins that don't compile

Browse Source
This commit is contained in:
Inari Listenmaa
2023-08-21 11:44:49 +03:00
parent e872c57758
commit 98128cedd7
1 changed files with 21 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/german/NamesGer.gf
View File

@@ -3,28 +3,28 @@ concrete NamesGer of Names = CatGer ** open ResGer, Prelude in {
lin GivenName gn = { lin GivenName gn = {
s = \\_,c => gn.s ! c ; s = \\_,c => gn.s ! c ;
a = agrgP3 (sex2gender gn.g) Sg ; a = agrgP3 (sex2gender gn.g) Sg ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
lin MaleSurname sn = { lin MaleSurname sn = {
s = \\_,c => sn.s ! Male ! c ; s = \\_,c => sn.s ! Male ! c ;
a = agrgP3 Masc Sg ; a = agrgP3 Masc Sg ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
lin FemaleSurname sn = { lin FemaleSurname sn = {
s = \\_,c => sn.s ! Female ! c ; s = \\_,c => sn.s ! Female ! c ;
a = agrgP3 Fem Sg ; a = agrgP3 Fem Sg ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
lin PlSurname sn = { lin PlSurname sn = {
s = \\_,c => sn.s ! Male ! c ; s = \\_,c => sn.s ! Male ! c ;
a = agrgP3 Masc Pl ; a = agrgP3 Masc Pl ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
@@ -35,33 +35,43 @@ lin FullName gn sn = {
rc, ext = [] rc, ext = []
} ; } ;
lin UseLN ln = { -- UseLN : LN -> NP ;
lin UseLN ln = notYet "UseLN" ;
{- Old version by Krasimir: {
s = \\c => case ln.hasArt of { s = \\c => case ln.hasArt of {
True => artDefContr (gennum ln.g ln.n) c ++ usePrepC c (\k -> ln.s ! Weak ! k) ; True => artDefContr (gennum ln.g ln.n) c ++ usePrepC c (\k -> ln.s ! Weak ! k) ;
False => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k) False => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k)
} ; } ;
a = agrgP3 ln.g ln.n ; a = agrgP3 ln.g ln.n ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
-}
lin PlainLN ln = { -- PlainLN : LN -> NP ;
lin PlainLN ln = notYet "PlainLN" ;
{- {
s = \\c => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k) ; s = \\c => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k) ;
a = agrgP3 ln.g ln.n ; a = agrgP3 ln.g ln.n ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
-}
lin InLN ln = { -- InLN : LN -> Adv ;
lin InLN ln = notYet "InLN" ;
{- {
s = let c = NPP CInDat s = let c = NPP CInDat
in case ln.hasArt of { in case ln.hasArt of {
True => artDefContr (gennum ln.g ln.n) c ++ usePrepC c (\k -> ln.s ! Weak ! k) ; True => artDefContr (gennum ln.g ln.n) c ++ usePrepC c (\k -> ln.s ! Weak ! k) ;
False => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k) False => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k)
} ; } ;
} ; } ;
-}
-- AdjLN : AP -> LN -> LN ;
lin AdjLN ap ln = ln ** { lin AdjLN ap ln = ln ** {
s = \\a,c => s = \\a,c =>
preOrPost ap.isPre preOrPost ap.isPre
(ap.c.p1 ++ ap.c.p2 ++ ap.s ! agrAdj ln.g a ln.n c ++ ap.ext) (ap.c.p1 ++ ap.c.p2 ++ ap.s ! agrAdj ln.g a ln.n c ++ ap.ext)
(ln.s ! a ! c) ; (ln.s ! a ! c) ;