1
0
forked from GitHub/gf-core

added Afrikaans (draft, direct adaptation from Dutch)

This commit is contained in:
aarne
2011-01-12 08:07:30 +00:00
parent 5661ecde18
commit 578591806f
24 changed files with 2960 additions and 0 deletions

View File

@@ -0,0 +1,57 @@
concrete AdjectiveAfr of Adjective = CatAfr ** open ResAfr, Prelude in
{
flags optimize=all_subs ;
lin
PositA a = {
s = a.s ! Posit ;
isPre = True
} ;
ComparA a np = {
s = \\af => a.s ! Compar ! af ++ "dan" ++ np.s ! NPNom ;
isPre = True
} ;
CAdvAP ad ap np = {
s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ np.s ! NPNom ;
isPre = False
} ;
UseComparA a = {
s = \\af => a.s ! Compar ! af ;
isPre = True
} ;
AdjOrd a = {
s = a.s ;
isPre = True
} ;
-- $SuperlA$ belongs to determiner syntax in $Noun$.
ComplA2 a np = {
s = \\af => a.s ! Posit ! af ++ appPrep a.c2 np.s ;
isPre = True
} ;
ReflA2 a = {
s = \\af => a.s ! Posit ! APred ++ appPrep a.c2 (\\_ => reflPron ! agrP3 Sg) ; --- agr
isPre = True
} ;
SentAP ap sc = {
s = \\a => ap.s ! a ++ sc.s ;
isPre = False
} ;
AdAP ada ap = {
s = \\a => ada.s ++ ap.s ! a ;
isPre = ap.isPre
} ;
UseA2 a = {
s = a.s ! Posit ;
isPre = True
} ;
}