GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

German sentence formation; development log

Browse Source
This commit is contained in:
aarne
2006-01-05 13:40:34 +00:00
parent d006a6a016
commit 252d24642f
7 changed files with 123 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
lib/resource-1.0/german/ResGer.gf
View File

@@ -97,10 +97,7 @@ resource ResGer = ParamGer ** open Prelude in {
let
ifSibilant : Str -> Str -> Str -> Str = \u,b1,b2 ->
case u of {
"s" => b1 ;
"x" => b1 ;
"z" => b1 ;
"ß" => b1 ;
"s" | "x" | "z" | "ß" => b1 ;
_ => b2
} ;
en = Predef.dp 2 geben ;
@@ -171,6 +168,11 @@ resource ResGer = ParamGer ** open Prelude in {
Preposition : Type = {s : Str ; c : Case} ;
-- To apply a preposition to a complement.
appPrep : Preposition -> (Case => Str) -> Str = \prep,arg ->
prep.s ++ arg ! prep.c ;
-- Pronouns and articles
-- Here we define personal and relative pronouns.
-- All personal pronouns, except "ihr", conform to the simple
@@ -368,6 +370,23 @@ resource ResGer = ParamGer ** open Prelude in {
Neg => "nicht"
} ;
-- Extending a verb phrase with new constituents.
insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> {
s = vp.s ;
a1 = vp.a1 ;
n2 = \\a => vp.n2 ! a ++ obj ! a ;
a2 = vp.a2 ;
ext = vp.ext
} ;
insertAdv : Str -> VP -> VP = \adv,vp -> {
s = vp.s ;
a1 = vp.a1 ;
n2 = vp.n2 ;
a2 = vp.a2 ++ adv ;
ext = vp.ext
} ;
-- For $Sentence$.
@@ -380,12 +399,13 @@ resource ResGer = ParamGer ** open Prelude in {
let
verb = vp.s ! agr ! VPFinite t a ;
neg = vp.a1 ! b ;
compl = vp.n2 ! agr ++ vp.a2 ++ vp.ext
obj = vp.n2 ! agr ++ vp.a2 ++ vp.ext ;
compl = neg ++ obj ++ verb.inf ;
in
case o of {
Main => subj ++ verb.fin ++ neg ++ verb.inf ++ compl ;
Inv => verb.fin ++ subj ++ neg ++ verb.inf ++ compl ;
Sub => subj ++ neg ++ compl ++ verb.inf ++ verb.fin
Main => subj ++ verb.fin ++ compl ;
Inv => verb.fin ++ subj ++ compl ;
Sub => subj ++ compl ++ verb.fin
}
} ;