mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-01 23:32:51 -06:00
fixed decodeUTF8 for pgf; removed old resources from darcs
This commit is contained in:
34
lib/resource/german/ExtraGer.gf
Normal file
34
lib/resource/german/ExtraGer.gf
Normal file
@@ -0,0 +1,34 @@
|
||||
concrete ExtraGer of ExtraGerAbs = CatGer **
|
||||
open ResGer, Coordination, Prelude, IrregGer in {
|
||||
|
||||
lincat
|
||||
VPI = {s : Bool => Str} ;
|
||||
[VPI] = {s1,s2 : Bool => Str} ;
|
||||
lin
|
||||
BaseVPI = twoTable Bool ;
|
||||
ConsVPI = consrTable Bool comma ;
|
||||
|
||||
MkVPI vp = {s = \\b => useInfVP b vp} ;
|
||||
ConjVPI = conjunctTable Bool ;
|
||||
|
||||
ComplVPIVV v vpi =
|
||||
insertInf (vpi.s ! v.isAux) (
|
||||
predVGen v.isAux v) ; ----
|
||||
{-
|
||||
insertExtrapos vpi.p3 (
|
||||
insertInf vpi.p2 (
|
||||
insertObj vpi.p1 (
|
||||
predVGen v.isAux v))) ;
|
||||
-}
|
||||
|
||||
PPzuAdv cn = {s = case cn.g of {
|
||||
Masc | Neutr => "zum" ;
|
||||
Fem => "zur"
|
||||
} ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat
|
||||
} ;
|
||||
|
||||
TImpfSubj = {s = [] ; t = Past ; m = MConjunct} ; --# notpresent
|
||||
|
||||
moegen_VV = auxVV mögen_V ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user