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

rules for constructing structural words (separate from Paradigms - is this desirable?)

Browse Source
This commit is contained in:
aarne
2008-11-14 17:32:34 +00:00
parent e9592c8020
commit 65c6f8548a
14 changed files with 81 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
next-lib/src/german/MakeStructuralGer.gf Normal file
View File

@@ -0,0 +1,11 @@
--# -path=.:../common:../abstract
resource MakeStructuralGer = open CatGer, ParadigmsGer, MorphoGer, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; lock_Subj = <>} ;
}

8
next-lib/src/german/StructuralGer.gf
View File

@@ -128,12 +128,6 @@ concrete StructuralGer of Structural = CatGer **
yes_Utt = ss "ja" ;
not_Predet = {s = \\_,_,_ => "nicht" ; c = NoCase} ;
nothing_but_Predet = {s = \\_,_,_ => "nichts ausser" ; c = PredCase Dat} ;
nobody_but_Predet = {
s = \\_,_,c =>
caselist "niemand" "niemanden" "niemandem" "niemands" ! c ++ "ausser" ;
c = PredCase Dat
} ;
no_Quant = let
keiner : Number => Gender => Case => Str = table {
Sg => \\g,c => "kein" + pronEnding ! GSg g ! c ;
@@ -148,5 +142,5 @@ concrete StructuralGer of Structural = CatGer **
nameNounPhrase {s = \\_ => "nichts"} ;
at_least_AdN = ss "wenigstens" ;
at_most_AdN = ss "höchstens" ;
except_Prep = mkPrep "außer" Dat ;
}