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

Scharolta's DictionaryGer fixes

Browse Source
This commit is contained in:
aarne
2014-05-29 12:06:44 +00:00
parent 32ef765b0a
commit 392187e749
5 changed files with 1227 additions and 7983 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/german/ResGer.gf
View File

@@ -379,17 +379,17 @@ resource ResGer = ParamX ** open Prelude in {
-- Prepositions for complements indicate the complement case.
Preposition : Type = {s : Str ; c : PCase ; isPrep : Bool} ;
Preposition : Type = {s : Str ; s2 : Str ; c : PCase ; isPrep : Bool} ; -- s2 is postposition
-- To apply a preposition to a complement.
appPrep : Preposition -> (PCase => Str) -> Str = \prep,arg ->
prep.s ++ arg ! prep.c ;
prep.s ++ arg ! prep.c ++ prep.s2 ;
-- To build a preposition from just a case.
noPreposition : Case -> Preposition = \c ->
{s = [] ; c = NPC c ; isPrep = False} ;
{s,s2 = [] ; c = NPC c ; isPrep = False} ;
-- Pronouns and articles
-- Here we define personal and relative pronouns.