GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-04 08:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

new Afrikaans by L&L Pretorius

Browse Source
This commit is contained in:
aarne
2011-03-12 11:29:42 +00:00
parent afbfbaa73a
commit e6c353425c
19 changed files with 834 additions and 724 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/afrikaans/RelativeAfr.gf
View File

@@ -6,7 +6,7 @@ concrete RelativeAfr of Relative = CatAfr ** open ResAfr in {
lin
RelCl cl = {
s = \\t,a,b,_,_ => "zodat" ++ cl.s ! t ! a ! b ! Sub
s = \\t,a,b,_,_ => "sodat" ++ cl.s ! t ! a ! b ! Sub
} ;
RelVP rp vp = {
@@ -14,7 +14,7 @@ concrete RelativeAfr of Relative = CatAfr ** open ResAfr in {
let
agr = case rp.a of {
RNoAg => agrgP3 g n ;
RAg rn p => {g = Utr ; n = rn ; p = p} ---- g
RAg rn p => {g = Neutr ; n = rn ; p = p} ---- g
} ;
cl = mkClause (rp.s ! g ! n) agr vp
in
@@ -37,8 +37,8 @@ concrete RelativeAfr of Relative = CatAfr ** open ResAfr in {
oper
relPron : Gender => Number => Str = \\g,n =>
case <g,n> of {
<Neutr,Sg> => "dat" ;
_ => "die"
<Neutr,Sg> => "wat" ;
_ => "wat"
} ;
}