mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-06-24 18:46:26 -06:00
added Afrikaans (draft, direct adaptation from Dutch)
This commit is contained in:
@@ -0,0 +1,30 @@
|
||||
concrete ExtraAfr of ExtraAfrAbs = CatAfr **
|
||||
open ResAfr, Coordination, Prelude, IrregAfr 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 = conjunctDistrTable 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
|
||||
-- } ;
|
||||
Reference in New Issue
Block a user