GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 10:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

German double infinitives, place of adverbials

Browse Source
This commit is contained in:
aarne
2006-01-22 21:12:07 +00:00
parent 29a4ef3172
commit 3f2a7db309
3 changed files with 43 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -196,13 +196,15 @@ resource ResGer = ParamGer ** open Prelude in {
VP : Type = {
s : Agr => VPForm => {
fin : Str ; -- V1 hat
inf : Str -- V2 gesagt
fin : Str ; -- hat
inf : Str -- wollen
} ;
a1 : Polarity => Str ; -- A1 nicht
n2 : Agr => Str ; -- N2 dich
a2 : Str ; -- A2 heute
ext : Str -- S-Ext dass sie kommt
a1 : Polarity => Str ; -- nicht
n2 : Agr => Str ; -- dich
a2 : Str ; -- heute
isAux : Bool ; -- is a double infinitive
inf : Str ; -- sagen
ext : Str -- dass sie kommt
} ;
predV : Verb -> VP = predVGen False ;
@@ -248,7 +250,8 @@ resource ResGer = ParamGer ** open Prelude in {
VRefl c => \\a => reflPron ! a ! c
} ;
a2 : Str = [] ;
ext : Str = []
isAux = isAux ; ----
inf,ext : Str = []
} ;
auxPerfect : Verb -> VForm => Str = \verb ->
@@ -314,6 +317,8 @@ resource ResGer = ParamGer ** open Prelude in {
a1 = vp.a1 ;
n2 = \\a => vp.n2 ! a ++ obj ! a ;
a2 = vp.a2 ;
isAux = vp.isAux ;
inf = vp.inf ;
ext = vp.ext
} ;
@@ -322,6 +327,8 @@ resource ResGer = ParamGer ** open Prelude in {
a1 = \\a => vp.a1 ! a ++ adv ;
n2 = vp.n2 ;
a2 = vp.a2 ;
isAux = vp.isAux ;
inf = vp.inf ;
ext = vp.ext
} ;
@@ -330,6 +337,8 @@ resource ResGer = ParamGer ** open Prelude in {
a1 = vp.a1 ;
n2 = vp.n2 ;
a2 = vp.a2 ++ adv ;
isAux = vp.isAux ;
inf = vp.inf ;
ext = vp.ext
} ;
@@ -338,9 +347,21 @@ resource ResGer = ParamGer ** open Prelude in {
a1 = vp.a1 ;
n2 = vp.n2 ;
a2 = vp.a2 ;
isAux = vp.isAux ;
inf = vp.inf ;
ext = vp.ext ++ ext
} ;
insertInf : Str -> VP -> VP = \inf,vp -> {
s = vp.s ;
a1 = vp.a1 ;
n2 = vp.n2 ;
a2 = vp.a2 ;
isAux = vp.isAux ; ----
inf = vp.inf ++ inf ;
ext = vp.ext
} ;
-- For $Sentence$.
Clause : Type = {
@@ -353,13 +374,18 @@ resource ResGer = ParamGer ** open Prelude in {
verb = vp.s ! agr ! VPFinite t a ;
neg = vp.a1 ! b ;
obj = vp.n2 ! agr ++ vp.a2 ;
compl = neg ++ obj ++ verb.inf ;
compl = neg ++ obj ;
inf = vp.inf ++ verb.inf ;
extra = vp.ext ;
inffin = case <a,vp.isAux> of {
<Anter,True> => verb.fin ++ inf ; -- double infinitive
_ => inf ++ verb.fin --- or just auxiliary vp
}
in
case o of {
Main => subj ++ verb.fin ++ compl ++ extra ;
Inv => verb.fin ++ subj ++ compl ++ extra ;
Sub => subj ++ compl ++ verb.fin ++ extra
Main => subj ++ verb.fin ++ compl ++ inf ++ extra ;
Inv => verb.fin ++ subj ++ compl ++ inf ++ extra ;
Sub => subj ++ compl ++ inffin ++ extra
}
} ;