summaryrefslogtreecommitdiff
path: root/gf-book/examples/chapter4/DefArtGer.gf
blob: 1ef9394eb8cb5ec55c59bb8e81b15f43a8387dce (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
resource DefArtGer = {

  param DetForm = DSg Gender Case | DPl Case ;
  param Gender = Masc | Fem | Neutr ;
  param Case = Nom | Acc | Dat | Gen ;

  oper artDef : DetForm => Str = table {
    DSg Masc Acc | DPl Dat => "den" ;
    DSg (Masc | Neutr) Dat => "dem" ;
    DSg (Masc | Neutr) Gen => "des" ;
    DSg Neutr _ => "das" ;
    DSg Fem (Nom | Acc) | DPl (Nom | Acc) => "die" ; 
    _ => "der"
    } ;

}