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

partly restore the Names API in German

Browse Source
This commit is contained in:
Krasimir Angelov
2023-08-21 19:37:52 +02:00
parent 1c775791b4
commit ce8b4575ee
2 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/german/GrammarGer.gf
View File

@@ -14,8 +14,8 @@ concrete GrammarGer of Grammar =
TextX - [Tense,Temp], TextX - [Tense,Temp],
IdiomGer, IdiomGer,
StructuralGer, -- AR: keep for BW comp - [part_Prep,possess_Prep], -- use PartNP, PossNP instead StructuralGer, -- AR: keep for BW comp - [part_Prep,possess_Prep], -- use PartNP, PossNP instead
TenseGer TenseGer,
---- NamesGer -- notYet! NamesGer
** { ** {
flags startcat = Phr ; unlexer = text ; lexer = text ; flags startcat = Phr ; unlexer = text ; lexer = text ;

28
src/german/NamesGer.gf
View File

@@ -36,32 +36,32 @@ lin FullName gn sn = {
} ; } ;
-- UseLN : LN -> NP ; -- UseLN : LN -> NP ;
lin UseLN ln = notYet "UseLN" ; lin UseLN ln = {
{- Old version by Krasimir: { s = \\b,c => case ln.hasArt of {
s = \\c => case ln.hasArt of { True => case b of {
True => artDefContr (gennum ln.g ln.n) c ++ usePrepC c (\k -> ln.s ! Weak ! k) ; True => [] ; -- defart dropped
False => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k) False => artDef ! (gennum ln.g ln.n) ! c
} ; } ++
ln.s ! (adjfCase Weak c) ! c ;
False => ln.s ! Strong ! c
} ;
a = agrgP3 ln.g ln.n ; a = agrgP3 ln.g ln.n ;
w = WLight ; w = WLight ;
rc, ext = [] rc, ext = []
} ; } ;
-}
-- PlainLN : LN -> NP ; -- PlainLN : LN -> NP ;
lin PlainLN ln = notYet "PlainLN" ; lin PlainLN ln = {
{- { s = \\_,c => ln.s ! Strong ! c ;
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 = []
} ; } ;
-}
{-
-- InLN : LN -> Adv ; -- InLN : LN -> Adv ;
lin InLN ln = notYet "InLN" ; lin InLN ln = {
{- { s = let c = 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)