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

German negation place

Browse Source
This commit is contained in:
aarne
2006-01-31 17:39:15 +00:00
parent 5ae834c9c1
commit ed71566bd9
3 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -373,8 +373,8 @@ resource ResGer = ParamGer ** open Prelude in {
let let
verb = vp.s ! agr ! VPFinite t a ; verb = vp.s ! agr ! VPFinite t a ;
neg = vp.a1 ! b ; neg = vp.a1 ! b ;
obj = vp.n2 ! agr ++ vp.a2 ; obj = vp.n2 ! agr ;
compl = obj ++ neg ; compl = obj ++ neg ++ vp.a2 ;
inf = vp.inf ++ verb.inf ; inf = vp.inf ++ verb.inf ;
extra = vp.ext ; extra = vp.ext ;
inffin = case <a,vp.isAux> of { inffin = case <a,vp.isAux> of {

3
lib/resource-1.0/german/VerbGer.gf
View File

@@ -30,7 +30,8 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
ComplV2A v np ap = ComplV2A v np ap =
insertObj (\\_ => appPrep v.c2 np.s ++ ap.s ! APred) (predV v) ; insertObj (\\_ => appPrep v.c2 np.s ++ ap.s ! APred) (predV v) ;
UseComp comp = insertObj comp.s (predV sein_V) ; UseComp comp = insertAdv (comp.s ! agrP3 Sg) (predV sein_V) ; -- agr not used
-- we want to say "ich liebe sie nicht" but not "ich bin alt nicht"
CompAP ap = {s = \\_ => ap.s ! APred} ; CompAP ap = {s = \\_ => ap.s ! APred} ;
CompNP np = {s = \\_ => np.s ! Nom} ; CompNP np = {s = \\_ => np.s ! Nom} ;

5
lib/resource-1.0/german/log.txt
View File

@@ -265,3 +265,8 @@ Work: ca 27h for whole German (but with support in 0.6 esp. morphology, Swedish)
Fixed double infinitives with a new field (isAux : Bool) in VP. Used in Fixed double infinitives with a new field (isAux : Bool) in VP. Used in
mkClause. mkClause.
31/1
Fine-tuned the place of negation by changing in ResGerman.mkClause and
VerbGerman.UseCompl. Want to say "ich bin nicht alt" and "ich liebe sie nicht".