1
0
forked from GitHub/gf-core

agreement in German Predet

This commit is contained in:
aarne
2010-01-05 13:35:24 +00:00
parent 234a3d3633
commit 1bbc4ec91d
6 changed files with 41 additions and 16 deletions

View File

@@ -46,8 +46,14 @@ resource ResGer = ParamX ** open Prelude in {
param NPForm = NPCase Case | NPPoss GenNum Case ;
-- Predeterminers sometimes require a case ("ausser mir"), sometimes not ("nur ich").
-- A number is sometimes inherited ("alle Menschen"),
-- sometimes forced ("jeder von Mwnschen").
param PredetCase = NoCase | PredCase Case ;
param
PredetCase = NoCase | PredCase Case ;
PredetAgr = PAg Number | PAgNone ;
oper
noCase : {p : Str ; k : PredetCase} = {p = [] ; k = NoCase} ;
--2 For $Adjective$