1
0
forked from GitHub/gf-rgl

new Afrikaans by L&L Pretorius

This commit is contained in:
aarne
2011-03-12 11:29:42 +00:00
parent e00f7f7ba3
commit 56a26acb00
19 changed files with 834 additions and 724 deletions

View File

@@ -11,7 +11,7 @@ concrete AdjectiveAfr of Adjective = CatAfr ** open ResAfr, Prelude in
isPre = True isPre = True
} ; } ;
ComparA a np = { ComparA a np = {
s = \\af => a.s ! Compar ! af ++ "dan" ++ np.s ! NPNom ; s = \\af => a.s ! Compar ! af ++ "as" ++ np.s ! NPNom ; --afr
isPre = True isPre = True
} ; } ;
CAdvAP ad ap np = { CAdvAP ad ap np = {

View File

@@ -0,0 +1,11 @@
--# -path=.:../abstract:../common:prelude
abstract AllAfrAbs =
Lang,
IrregAfrAbs,
ExtraAfrAbs
**
{
--{} ;
}

View File

@@ -10,7 +10,7 @@ concrete ConjunctionAfr of Conjunction =
ConjAdv conj ss = conjunctDistrSS conj ss ; ConjAdv conj ss = conjunctDistrSS conj ss ;
ConjNP conj ss = heavyNP (conjunctDistrTable NPCase conj ss ** { ConjNP conj ss = heavyNP (conjunctDistrTable NPCase conj ss ** {
a = {g = Utr ; n = conjNumber conj.n ss.a.n ; p = ss.a.p} a = {g = Neutr ; n = conjNumber conj.n ss.a.n ; p = ss.a.p}
}) ; }) ;
ConjAP conj ss = conjunctDistrTable AForm conj ss ** { ConjAP conj ss = conjunctDistrTable AForm conj ss ** {

View File

@@ -28,3 +28,11 @@ concrete ExtraAfr of ExtraAfrAbs = CatAfr **
-- Fem => "zur" -- Fem => "zur"
-- } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat -- } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat
-- } ; -- } ;
lin
ICompAP ap = {s = \\_ => "hoe" ++ ap.s ! APred} ;
IAdvAdv adv = {s = "hoe" ++ adv.s} ;
}

View File

@@ -0,0 +1,15 @@
abstract ExtraAfrAbs = Extra [
VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
VV,VP,Conj,IComp,ICompAP,IAdvAdv,Adv,AP,IAdv] **
{
--{
--
-- fun
-- PPzuAdv : CN -> Adv ; -- zum Lied, zur Flasche
-- TImpfSubj : Tense ; -- ich möchte... --# notpresent
--
-- moegen_VV : VV ; -- ich mag/möchte singen
--
--}
}

View File

@@ -4,19 +4,19 @@ concrete IdiomAfr of Idiom = CatAfr **
flags optimize=all_subs ; flags optimize=all_subs ;
lin lin
ImpersCl vp = mkClause "'t" (agrP3 Sg) vp ; ImpersCl vp = mkClause "dit" (agrP3 Sg) vp ;
GenericCl vp = mkClause "men" (agrP3 Sg) vp ; GenericCl vp = mkClause "mens" (agrP3 Sg) vp ; --afr
CleftNP np rs = mkClause "'t" (agrP3 Sg) CleftNP np rs = mkClause "dit" (agrP3 Sg)
(insertExtrapos (rs.s ! np.a.g ! np.a.n) ---- (insertExtrapos (rs.s ! np.a.g ! np.a.n) ----
(insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ; (insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ;
CleftAdv ad s = mkClause "'t" (agrP3 Sg) CleftAdv ad s = mkClause "dit" (agrP3 Sg)
(insertExtrapos (conjThat ++ s.s ! Sub) (insertExtrapos (conjThat ++ s.s ! Sub)
(insertObj (\\_ => ad.s) (predV zijn_V))) ; (insertObj (\\_ => ad.s) (predV zijn_V))) ;
ExistNP np = ExistNP np =
mkClause "er" (agrP3 np.a.n) mkClause "daar" (agrP3 np.a.n) --afr
(insertObj (\\_ => np.s ! NPNom) (insertObj (\\_ => np.s ! NPNom)
(predV zijn_V)) ; (predV zijn_V)) ;
@@ -24,7 +24,7 @@ concrete IdiomAfr of Idiom = CatAfr **
s = \\t,a,p => s = \\t,a,p =>
let let
cls = cls =
(mkClause "er" (agrP3 ip.n) (predV zijn_V)).s ! t ! a ! p ; (mkClause "daar" (agrP3 ip.n) (predV zijn_V)).s ! t ! a ! p ; --afr
who = ip.s ! NPNom who = ip.s ! NPNom
in table { in table {
QDir => who ++ cls ! Inv ; QDir => who ++ cls ! Inv ;
@@ -32,7 +32,7 @@ concrete IdiomAfr of Idiom = CatAfr **
} }
} ; } ;
ProgrVP vp = insertAdv ("aan" ++ "het" ++ useInfVP True vp) (predV zijn_V) ; ProgrVP vp = insertAdv ("aan" ++ "die" ++ useInfVP True vp) (predV zijn_V) ; --afr
ImpPl1 vp = ImpPl1 vp =
let let
@@ -43,7 +43,7 @@ concrete IdiomAfr of Idiom = CatAfr **
insertObj vpi.p1 ( insertObj vpi.p1 (
predVGen True v))) ; predVGen True v))) ;
in in
{s = (mkClause "we" {g = Utr ; n = Pl ; p = P1} vvp).s ! {s = (mkClause "ons" {g = Neutr ; n = Pl ; p = P1} vvp).s !
Pres ! Simul ! Pos ! Inv Pres ! Simul ! Pos ! Inv
} ; } ;

View File

@@ -2,194 +2,194 @@
concrete IrregAfr of IrregAfrAbs = CatAfr ** open ParadigmsAfr in { concrete IrregAfr of IrregAfrAbs = CatAfr ** open ParadigmsAfr in {
{- {-
lin bakken_V = mkV "bakken" "bakte" "bakten" "gebakken" ; -- lin bakken_V = mkV "bakken" "bakte" "bakten" "gebakken" ;
lin bannen_V = mkV "bannen" "bande" "banden" "gebannen" ; -- lin bannen_V = mkV "bannen" "bande" "banden" "gebannen" ;
lin barsten_V = mkV "barsten" "barstte" "barstten" "gebarsten" ; -- lin barsten_V = mkV "barsten" "barstte" "barstten" "gebarsten" ;
lin bederven_V = mkZijnHebbenV "bederven" "bedierf" "bedierven" "bedorven" ; -- lin bederven_V = mkZijnHebbenV "bederven" "bedierf" "bedierven" "bedorven" ;
lin bedriegen_V = mkV "bedriegen" "bedroog" "bedrogen" "bedrogen" ; -- lin bedriegen_V = mkV "bedriegen" "bedroog" "bedrogen" "bedrogen" ;
lin beginnen_V = mkZijnV "beginnen" "begon" "begonnen" "begonnen" ; -- lin beginnen_V = mkZijnV "beginnen" "begon" "begonnen" "begonnen" ;
lin behangen_V = mkV "behangen" "behangde" "behangden" "behangen" ; -- lin behangen_V = mkV "behangen" "behangde" "behangden" "behangen" ;
lin bergen_V = mkV "bergen" "borg" "borgen" "geborgen" ; -- lin bergen_V = mkV "bergen" "borg" "borgen" "geborgen" ;
lin bevelen_V = mkV "bevelen" "beval" "bevalen" "bevolen" ; -- lin bevelen_V = mkV "bevelen" "beval" "bevalen" "bevolen" ;
lin bezwijken_V = mkZijnV "bezwijken" "bezweek" "bezweken" "bezweken" ; -- lin bezwijken_V = mkZijnV "bezwijken" "bezweek" "bezweken" "bezweken" ;
lin bidden_V = mkV "bidden" "bad" "baden" "gebeden" ; -- lin bidden_V = mkV "bidden" "bad" "baden" "gebeden" ;
lin bieden_V = mkV "bieden" "bood" "boden" "geboden" ; -- lin bieden_V = mkV "bieden" "bood" "boden" "geboden" ;
lin bijten_V = mkV "bijten" "beet" "beten" "gebeten" ; -- lin bijten_V = mkV "bijten" "beet" "beten" "gebeten" ;
lin binden_V = mkV "binden" "bond" "bonden" "gebonden" ; -- lin binden_V = mkV "binden" "bond" "bonden" "gebonden" ;
lin blazen_V = mkV "blazen" "blies" "bliezen" "geblazen" ; -- lin blazen_V = mkV "blazen" "blies" "bliezen" "geblazen" ;
lin blijken_V = mkZijnV "blijken" "bleek" "bleken" "gebleken" ; -- lin blijken_V = mkZijnV "blijken" "bleek" "bleken" "gebleken" ;
lin blijven_V = mkZijnV "blijven" "bleef" "bleven" "gebleven" ; -- lin blijven_V = mkZijnV "blijven" "bleef" "bleven" "gebleven" ;
lin blinken_V = mkV "blinken" "blonk" "blonken" "geblonken" ; -- lin blinken_V = mkV "blinken" "blonk" "blonken" "geblonken" ;
lin braden_V = mkV "braden" "braadde" "braadden" "gebraden" ; -- lin braden_V = mkV "braden" "braadde" "braadden" "gebraden" ;
lin breken_V = mkZijnHebbenV "breken" "brak" "braken" "gebroken" ; -- lin breken_V = mkZijnHebbenV "breken" "brak" "braken" "gebroken" ;
lin brengen_V = mkV "brengen" "bracht" "brachten" "gebracht" ; -- lin brengen_V = mkV "brengen" "bracht" "brachten" "gebracht" ;
lin brouwen_V = mkV "brouwen" "brouwde" "brouwden" "gebrouwen" ; -- lin brouwen_V = mkV "brouwen" "brouwde" "brouwden" "gebrouwen" ;
lin buigen_V = mkV "buigen" "boog" "bogen" "gebogen" ; -- lin buigen_V = mkV "buigen" "boog" "bogen" "gebogen" ;
lin denken_V = mkV "denken" "dacht" "dachten" "gedacht" ; -- lin denken_V = mkV "denken" "dacht" "dachten" "gedacht" ;
lin dingen_V = mkV "dingen" "naar" "dong" "naar" ; -- lin dingen_V = mkV "dingen" "naar" "dong" "naar" ;
lin doen_V = mkV "doen" "deed" "deden" "gedaan" ; -- lin doen_V = mkV "doen" "deed" "deden" "gedaan" ;
lin dragen_V = mkV "dragen" "droeg" "droegen" "gedragen" ; -- lin dragen_V = mkV "dragen" "droeg" "droegen" "gedragen" ;
lin drijven_V = mkV "drijven" "dreef" "dreven" "gedreven" ; -- lin drijven_V = mkV "drijven" "dreef" "dreven" "gedreven" ;
lin dringen_V = mkV "dringen" "drong" "drongen" "gedrongen" ; -- lin dringen_V = mkV "dringen" "drong" "drongen" "gedrongen" ;
lin drinken_V = mkV "drinken" "dronk" "dronken" "gedronken" ; -- lin drinken_V = mkV "drinken" "dronk" "dronken" "gedronken" ;
lin druipen_V = mkZijnHebbenV "druipen" "droop" "dropen" "gedropen" ; -- lin druipen_V = mkZijnHebbenV "druipen" "droop" "dropen" "gedropen" ;
lin duiken_V = mkZijnHebbenV "duiken" "dook" "doken" "gedoken" ; -- lin duiken_V = mkZijnHebbenV "duiken" "dook" "doken" "gedoken" ;
lin dwingen_V = mkV "dwingen" "dwong" "dwongen" "gedwongen" ; -- lin dwingen_V = mkV "dwingen" "dwong" "dwongen" "gedwongen" ;
lin eten_V = mkV "eten" "at" "aten" "gegeten" ; -- lin eten_V = mkV "eten" "at" "aten" "gegeten" ;
lin fluiten_V = mkV "fluiten" "floot" "floten" "gefloten" ; -- lin fluiten_V = mkV "fluiten" "floot" "floten" "gefloten" ;
lin gelden_V = mkV "gelden" "gold" "golden" "gegolden" ; -- lin gelden_V = mkV "gelden" "gold" "golden" "gegolden" ;
lin gaan_V = mkZijnV "gaan" "ging" "gingen" "gegaan" ; -- lin gaan_V = mkZijnV "gaan" "ging" "gingen" "gegaan" ;
lin genezen_V = mkZijnHebbenV "genezen" "genas" "genazen" "genezen" ; -- lin genezen_V = mkZijnHebbenV "genezen" "genas" "genazen" "genezen" ;
lin genieten_V = mkV "genieten" "genoot" "genoten" "genoten" ; -- lin genieten_V = mkV "genieten" "genoot" "genoten" "genoten" ;
lin geven_V = mkV "geven" "gaf" "gaven" "gegeven" ; -- lin geven_V = mkV "geven" "gaf" "gaven" "gegeven" ;
lin gieten_V = mkV "gieten" "goot" "goten" "gegoten" ; -- lin gieten_V = mkV "gieten" "goot" "goten" "gegoten" ;
lin glijden_V = mkZijnHebbenV "glijden" "gleed" "gleden" "gegleden" ; -- lin glijden_V = mkZijnHebbenV "glijden" "gleed" "gleden" "gegleden" ;
lin glimmen_V = mkV "glimmen" "glom" "glommen" "geglommen" ; -- lin glimmen_V = mkV "glimmen" "glom" "glommen" "geglommen" ;
lin graven_V = mkV "graven" "groef" "groeven" "gegraven" ; -- lin graven_V = mkV "graven" "groef" "groeven" "gegraven" ;
lin grijpen_V = mkV "grijpen" "greep" "grepen" "gegrepen" ; -- lin grijpen_V = mkV "grijpen" "greep" "grepen" "gegrepen" ;
lin hangen_V = mkV "hangen" "hing" "hingen" "gehangen" ; -- lin hangen_V = mkV "hangen" "hing" "hingen" "gehangen" ;
lin heffen_V = mkV "heffen" "hief" "hieven" "geheven" ; -- lin heffen_V = mkV "heffen" "hief" "hieven" "geheven" ;
lin helpen_V = mkV "helpen" "hielp" "hielpen" "geholpen" ; -- lin helpen_V = mkV "helpen" "hielp" "hielpen" "geholpen" ;
lin heten_V = mkV "heten" "heette" "heetten" "geheten" ; -- lin heten_V = mkV "heten" "heette" "heetten" "geheten" ;
lin hijsen_V = mkV "hijsen" "hees" "hesen" "gehesen" ; -- lin hijsen_V = mkV "hijsen" "hees" "hesen" "gehesen" ;
lin hoeven_V = mkV "hoeven" "hoefde" "hoefden" "gehoeven" ; -- lin hoeven_V = mkV "hoeven" "hoefde" "hoefden" "gehoeven" ;
lin houden_V = mkV "houden" "hield" "hielden" "gehouden" ; -- lin houden_V = mkV "houden" "hield" "hielden" "gehouden" ;
lin houwen_V = mkV "houwen" "houwde" "houwden" "gehouwen" ; -- lin houwen_V = mkV "houwen" "houwde" "houwden" "gehouwen" ;
lin jagen_V = mkV "jagen" "joeg" "joegen" "gejaagd" ; -- lin jagen_V = mkV "jagen" "joeg" "joegen" "gejaagd" ;
lin kiezen_V = mkV "kiezen" "koos" "kozen" "gekozen" ; -- lin kiezen_V = mkV "kiezen" "koos" "kozen" "gekozen" ;
lin kijken_V = mkV "kijken" "naar" "keek" "naar" ; -- lin kijken_V = mkV "kijken" "naar" "keek" "naar" ;
lin klimmen_V = mkZijnHebbenV "klimmen" "klom" "klommen" "geklommen" ; -- lin klimmen_V = mkZijnHebbenV "klimmen" "klom" "klommen" "geklommen" ;
lin klinken_V = mkV "klinken" "klonk" "klonken" "geklonken" ; -- lin k-- linken_V = mkV "k-- linken" "klonk" "klonken" "geklonken" ;
lin kluiven_V = mkV "kluiven" "kloof" "kloven" "gekloven" ; -- lin kluiven_V = mkV "kluiven" "kloof" "kloven" "gekloven" ;
lin knijpen_V = mkV "knijpen" "kneep" "knepen" "geknepen" ; -- lin knijpen_V = mkV "knijpen" "kneep" "knepen" "geknepen" ;
lin kopen_V = mkV "kopen" "kocht" "kochten" "gekocht" ; -- lin kopen_V = mkV "kopen" "kocht" "kochten" "gekocht" ;
lin krijgen_V = mkV "krijgen" "kreeg" "kregen" "gekregen" ; -- lin krijgen_V = mkV "krijgen" "kreeg" "kregen" "gekregen" ;
lin krimpen_V = mkZijnV "krimpen" "kromp" "krompen" "gekrompen" ; -- lin krimpen_V = mkZijnV "krimpen" "kromp" "krompen" "gekrompen" ;
lin kruipen_V = mkZijnHebbenV "kruipen" "kroop" "kropen" "gekropen" ; -- lin kruipen_V = mkZijnHebbenV "kruipen" "kroop" "kropen" "gekropen" ;
lin zich_V = mkV "zich" "kwijten" "van" "kweet" ; -- lin zich_V = mkV "zich" "kwijten" "van" "kweet" ;
lin lachen_V = mkV "lachen" "lachte" "lachten" "gelachen" ; -- lin lachen_V = mkV "lachen" "lachte" "lachten" "gelachen" ;
lin laden_V = mkV "laden" "laadde" "laadden" "geladen" ; -- lin laden_V = mkV "laden" "laadde" "laadden" "geladen" ;
lin laten_V = mkV "laten" "liet" "lieten" "gelaten" ; -- lin laten_V = mkV "laten" "liet" "lieten" "gelaten" ;
lin lezen_V = mkV "lezen" "las" "lazen" "gelezen" ; -- lin lezen_V = mkV "lezen" "las" "lazen" "gelezen" ;
lin liegen_V = mkV "liegen" "loog" "logen" "gelogen" ; -- lin liegen_V = mkV "liegen" "loog" "logen" "gelogen" ;
lin liggen_V = mkV "liggen" "lag" "lagen" "gelegen" ; -- lin liggen_V = mkV "liggen" "lag" "lagen" "gelegen" ;
lin lijden_V = mkV "lijden" "leed" "leden" "geleden" ; -- lin lijden_V = mkV "lijden" "leed" "leden" "geleden" ;
lin lijken_V = mkV "lijken" "op" "leek" "op" ; -- lin lijken_V = mkV "lijken" "op" "leek" "op" ;
lin lopen_V = mkZijnHebbenV "lopen" "liep" "liepen" "gelopen" ; -- lin lopen_V = mkZijnHebbenV "lopen" "liep" "liepen" "gelopen" ;
lin malen_V = mkV "malen" "maalde" "maalden" "gemalen" ; -- lin malen_V = mkV "malen" "maalde" "maalden" "gemalen" ;
lin melken_V = mkV "melken" "molk" "molken" "gemolken" ; -- lin melken_V = mkV "melken" "molk" "molken" "gemolken" ;
lin meten_V = mkV "meten" "mat" "maten" "gemeten" ; -- lin meten_V = mkV "meten" "mat" "maten" "gemeten" ;
lin mijden_V = mkV "mijden" "meed" "meden" "gemeden" ; -- lin mijden_V = mkV "mijden" "meed" "meden" "gemeden" ;
lin moeten_V = mkV "moeten" "moest" "moesten" "gemoeten" ; -- lin moeten_V = mkV "moeten" "moest" "moesten" "gemoeten" ;
lin nemen_V = mkV "nemen" "nam" "namen" "genomen" ; -- lin nemen_V = mkV "nemen" "nam" "namen" "genomen" ;
lin nijgen_V = mkV "nijgen" "neeg" "negen" "genegen" ; -- lin nijgen_V = mkV "nijgen" "neeg" "negen" "genegen" ;
lin ontginnen_V = mkV "ontginnen" "ontgon" "ontgonnen" "ontgonnen" ; -- lin ontginnen_V = mkV "ontginnen" "ontgon" "ontgonnen" "ontgonnen" ;
lin ontluiken_V = mkZijnV "ontluiken" "ontlook" "ontloken" "ontloken" ; -- lin ontluiken_V = mkZijnV "ontluiken" "ontlook" "ontloken" "ontloken" ;
lin pluizen_V = mkV "pluizen" "ploos" "plozen" "geplozen" ; -- lin pluizen_V = mkV "pluizen" "ploos" "plozen" "geplozen" ;
lin prijzen_V = mkV "prijzen" "prees" "prezen" "geprezen" ; -- lin prijzen_V = mkV "prijzen" "prees" "prezen" "geprezen" ;
lin raden_V = mkV "raden" "raadde" "raadden" "geraden" ; -- lin raden_V = mkV "raden" "raadde" "raadden" "geraden" ;
lin rijden_V = mkZijnHebbenV "rijden" "reed" "reden" "gereden" ; -- lin rijden_V = mkZijnHebbenV "rijden" "reed" "reden" "gereden" ;
lin rijgen_V = mkV "rijgen" "reeg" "regen" "geregen" ; -- lin rijgen_V = mkV "rijgen" "reeg" "regen" "geregen" ;
lin rijten_V = mkV "rijten" "reet" "reten" "gereten" ; -- lin rijten_V = mkV "rijten" "reet" "reten" "gereten" ;
lin rijzen_V = mkZijnV "rijzen" "rees" "rezen" "gerezen" ; -- lin rijzen_V = mkZijnV "rijzen" "rees" "rezen" "gerezen" ;
lin roepen_V = mkV "roepen" "riep" "riepen" "geroepen" ; -- lin roepen_V = mkV "roepen" "riep" "riepen" "geroepen" ;
lin ruiken_V = mkV "ruiken" "rook" "roken" "geroken" ; -- lin ruiken_V = mkV "ruiken" "rook" "roken" "geroken" ;
lin scheiden_V = mkZijnHebbenV "scheiden" "scheidde" "scheidden" "gescheiden" ; -- lin scheiden_V = mkZijnHebbenV "scheiden" "scheidde" "scheidden" "gescheiden" ;
lin schelden_V = mkV "schelden" "schold" "scholden" "gescholden" ; -- lin schelden_V = mkV "schelden" "schold" "scholden" "gescholden" ;
lin schenden_V = mkV "schenden" "schond" "schonden" "geschonden" ; -- lin schenden_V = mkV "schenden" "schond" "schonden" "geschonden" ;
lin schenken_V = mkV "schenken" "schonk" "schonken" "geschonken" ; -- lin schenken_V = mkV "schenken" "schonk" "schonken" "geschonken" ;
lin scheppen_V = mkV "scheppen" "shiep" "schiepen" "geschapen" ; -- lin scheppen_V = mkV "scheppen" "shiep" "schiepen" "geschapen" ;
lin scheren_V = mkV "scheren" "scheerde" "scheerden" "geschoren" ; -- lin scheren_V = mkV "scheren" "scheerde" "scheerden" "geschoren" ;
lin schieten_V = mkV "schieten" "schoot" "schoten" "geschoten" ; -- lin schieten_V = mkV "schieten" "schoot" "schoten" "geschoten" ;
lin schijnen_V = mkV "schijnen" "scheen" "schenen" "1." ; -- lin schijnen_V = mkV "schijnen" "scheen" "schenen" "1." ;
lin verschijnen_V = mkZijnV "verschijnen" "verscheen" "verschenen" "verschenen" ; -- lin verschijnen_V = mkZijnV "verschijnen" "verscheen" "verschenen" "verschenen" ;
lin schijten_V = mkV "schijten" "scheet" "scheten" "gescheten" ; -- lin schijten_V = mkV "schijten" "scheet" "scheten" "gescheten" ;
lin schrijven_V = mkV "schrijven" "schreef" "schreven" "geschreven" ; -- lin schrijven_V = mkV "schrijven" "schreef" "schreven" "geschreven" ;
lin schrikken_V = mkZijnV "schrikken" "schrok" "schrokken" "geschrokken" ; -- lin schrikken_V = mkZijnV "schrikken" "schrok" "schrokken" "geschrokken" ;
lin schuilen_V = mkV "schuilen" "school" "scholen" "gescholen" ; -- lin schuilen_V = mkV "schuilen" "school" "scholen" "gescholen" ;
lin schuiven_V = mkZijnHebbenV "schuiven" "schoof" "schoven" "geschoven" ; -- lin schuiven_V = mkZijnHebbenV "schuiven" "schoof" "schoven" "geschoven" ;
lin slaan_V = mkV "slaan" "sloeg" "sloegen" "geslagen" ; -- lin slaan_V = mkV "slaan" "sloeg" "sloegen" "geslagen" ;
lin slapen_V = mkV "slapen" "sliep" "sliepen" "geslapen" ; -- lin slapen_V = mkV "slapen" "sliep" "sliepen" "geslapen" ;
lin slijpen_V = mkV "slijpen" "sleep" "slepen" "geslepen" ; -- lin slijpen_V = mkV "slijpen" "sleep" "slepen" "geslepen" ;
lin slijten_V = mkZijnHebbenV "slijten" "sleet" "sleten" "gesleten" ; -- lin slijten_V = mkZijnHebbenV "slijten" "sleet" "sleten" "gesleten" ;
lin slinken_V = mkZijnV "slinken" "slonk" "slonken" "geslonken" ; -- lin s-- linken_V = mkZijnV "s-- linken" "slonk" "slonken" "geslonken" ;
lin sluipen_V = mkZijnHebbenV "sluipen" "sloop" "slopen" "geslopen" ; -- lin sluipen_V = mkZijnHebbenV "sluipen" "sloop" "slopen" "geslopen" ;
lin sluiten_V = mkZijnHebbenV "sluiten" "sloot" "sloten" "gesloten" ; -- lin sluiten_V = mkZijnHebbenV "sluiten" "sloot" "sloten" "gesloten" ;
lin smelten_V = mkZijnHebbenV "smelten" "smolt" "smolten" "gesmolten" ; -- lin smelten_V = mkZijnHebbenV "smelten" "smolt" "smolten" "gesmolten" ;
lin smijten_V = mkV "smijten" "smeet" "smeten" "gesmeten" ; -- lin smijten_V = mkV "smijten" "smeet" "smeten" "gesmeten" ;
lin snijden_V = mkV "snijden" "sneed" "sneden" "gesneden" ; -- lin snijden_V = mkV "snijden" "sneed" "sneden" "gesneden" ;
lin snuiten_V = mkV "snuiten" "snoot" "snoten" "gesnoten" ; -- lin snuiten_V = mkV "snuiten" "snoot" "snoten" "gesnoten" ;
lin snuiven_V = mkV "snuiven" "snoof" "snoven" "gesnoven" ; -- lin snuiven_V = mkV "snuiven" "snoof" "snoven" "gesnoven" ;
lin spannen_V = mkV "spannen" "spande" "spanden" "gespannen" ; -- lin spannen_V = mkV "spannen" "spande" "spanden" "gespannen" ;
lin spijten_V = mkV "spijten" "speet" "speten" "gespeten" ; -- lin spijten_V = mkV "spijten" "speet" "speten" "gespeten" ;
lin spinnen_V = mkV "spinnen" "spon" "sponnen" "gesponnen" ; -- lin spinnen_V = mkV "spinnen" "spon" "sponnen" "gesponnen" ;
lin splijten_V = mkZijnHebbenV "splijten" "spleet" "spleten" "gespleten" ; -- lin splijten_V = mkZijnHebbenV "splijten" "spleet" "spleten" "gespleten" ;
lin spreken_V = mkV "spreken" "sprak" "spraken" "gesproken" ; -- lin spreken_V = mkV "spreken" "sprak" "spraken" "gesproken" ;
lin springen_V = mkZijnHebbenV "springen" "sprong" "sprongen" "gesprongen" ; -- lin springen_V = mkZijnHebbenV "springen" "sprong" "sprongen" "gesprongen" ;
lin spruiten_V = mkZijnV "spruiten" "sproot" "sproten" "gesproten" ; -- lin spruiten_V = mkZijnV "spruiten" "sproot" "sproten" "gesproten" ;
lin spuiten_V = mkV "spuiten" "spoot" "spoten" "gespoten" ; -- lin spuiten_V = mkV "spuiten" "spoot" "spoten" "gespoten" ;
lin staan_V = mkV "staan" "stond" "stonden" "gestaan" ; -- lin staan_V = mkV "staan" "stond" "stonden" "gestaan" ;
lin steken_V = mkV "steken" "stak" "staken" "gestoken" ; -- lin steken_V = mkV "steken" "stak" "staken" "gestoken" ;
lin stelen_V = mkV "stelen" "stal" "stalen" "gestolen" ; -- lin stelen_V = mkV "stelen" "stal" "stalen" "gestolen" ;
lin sterven_V = mkZijnV "sterven" "stierf" "stierven" "gestorven" ; -- lin sterven_V = mkZijnV "sterven" "stierf" "stierven" "gestorven" ;
lin stijgen_V = mkZijnV "stijgen" "steeg" "stegen" "gestegen" ; -- lin stijgen_V = mkZijnV "stijgen" "steeg" "stegen" "gestegen" ;
lin stijven_V = mkV "stijven" "steef" "steven" "gesteven" ; -- lin stijven_V = mkV "stijven" "steef" "steven" "gesteven" ;
lin stinken_V = mkV "stinken" "stonk" "stonken" "gestonken" ; -- lin stinken_V = mkV "stinken" "stonk" "stonken" "gestonken" ;
lin stoten_V = mkV "stoten" "stootte" "stootten" "gestoten" ; -- lin stoten_V = mkV "stoten" "stootte" "stootten" "gestoten" ;
lin strijden_V = mkV "strijden" "streed" "streden" "gestreden" ; -- lin strijden_V = mkV "strijden" "streed" "streden" "gestreden" ;
lin strijken_V = mkV "strijken" "streek" "streken" "gestreken" ; -- lin strijken_V = mkV "strijken" "streek" "streken" "gestreken" ;
lin neerstrijken_V = mkV "neerstrijken" "streek" "neer" "streken" ; -- lin neerstrijken_V = mkV "neerstrijken" "streek" "neer" "streken" ;
lin stuiven_V = mkV "stuiven" "stoof" "stoven" "gestoven" ; -- lin stuiven_V = mkV "stuiven" "stoof" "stoven" "gestoven" ;
lin treden_V = mkZijnHebbenV "treden" "trad" "traden" "getreden" ; -- lin treden_V = mkZijnHebbenV "treden" "trad" "traden" "getreden" ;
lin treffen_V = mkV "treffen" "trof" "troffen" "getroffen" ; -- lin treffen_V = mkV "treffen" "trof" "troffen" "getroffen" ;
lin trekken_V = mkZijnHebbenV "trekken" "trok" "trokken" "getrokken" ; -- lin trekken_V = mkZijnHebbenV "trekken" "trok" "trokken" "getrokken" ;
lin vallen_V = mkZijnV "vallen" "viel" "vielen" "gevallen" ; -- lin vallen_V = mkZijnV "vallen" "viel" "vielen" "gevallen" ;
lin vangen_V = mkV "vangen" "ving" "vingen" "gevangen" ; -- lin vangen_V = mkV "vangen" "ving" "vingen" "gevangen" ;
lin varen_V = mkZijnHebbenV "varen" "voer" "voeren" "gevaren" ; -- lin varen_V = mkZijnHebbenV "varen" "voer" "voeren" "gevaren" ;
lin vechten_V = mkV "vechten" "vocht" "vochten" "gevochten" ; -- lin vechten_V = mkV "vechten" "vocht" "vochten" "gevochten" ;
lin verdrieten_V = mkV "verdrieten" "verdroot" "verdroten" "verdroten" ; -- lin verdrieten_V = mkV "verdrieten" "verdroot" "verdroten" "verdroten" ;
lin verdwijnen_V = mkZijnV "verdwijnen" "verdween" "verdwenen" "verdwenen" ; -- lin verdwijnen_V = mkZijnV "verdwijnen" "verdween" "verdwenen" "verdwenen" ;
lin vergeten_V = mkV "vergeten" "+" "vergat" "vergaten" ; -- lin vergeten_V = mkV "vergeten" "+" "vergat" "vergaten" ;
lin verliezen_V = mkV "verliezen" "verloor" "verloren" "verloren" ; -- lin verliezen_V = mkV "verliezen" "verloor" "verloren" "verloren" ;
lin vinden_V = mkV "vinden" "vond" "vonden" "gevonden" ; -- lin vinden_V = mkV "vinden" "vond" "vonden" "gevonden" ;
lin vlechten_V = mkV "vlechten" "vlocht" "vlochten" "gevlochten" ; -- lin vlechten_V = mkV "vlechten" "vlocht" "vlochten" "gevlochten" ;
lin vliegen_V = mkZijnHebbenV "vliegen" "vloog" "vlogen" "gevlogen" ; -- lin vliegen_V = mkZijnHebbenV "vliegen" "vloog" "vlogen" "gevlogen" ;
lin vouwen_V = mkV "vouwen" "vouwde" "vouwden" "gevouwen" ; -- lin vouwen_V = mkV "vouwen" "vouwde" "vouwden" "gevouwen" ;
lin vragen_V = mkV "vragen" "vroeg" "vroegen" "gevraagd" ; -- lin vragen_V = mkV "vragen" "vroeg" "vroegen" "gevraagd" ;
lin vreten_V = mkV "vreten" "vrat" "vraten" "gevreten" ; -- lin vreten_V = mkV "vreten" "vrat" "vraten" "gevreten" ;
lin vriezen_V = mkV "vriezen" "vroor" "vroren" "gevroren" ; -- lin vriezen_V = mkV "vriezen" "vroor" "vroren" "gevroren" ;
lin vrijen_V = mkV "vrijen" "vree" "/" "vrijde" ; -- lin vrijen_V = mkV "vrijen" "vree" "/" "vrijde" ;
lin wassen_V = mkV "wassen" "waste" "wasten" "gewassen" ; -- lin wassen_V = mkV "wassen" "waste" "wasten" "gewassen" ;
lin wegen_V = mkV "wegen" "woog" "wogen" "gewogen" ; -- lin wegen_V = mkV "wegen" "woog" "wogen" "gewogen" ;
lin werpen_V = mkV "werpen" "wierp" "wierpen" "geworpen" ; -- lin werpen_V = mkV "werpen" "wierp" "wierpen" "geworpen" ;
lin werven_V = mkV "werven" "wierf" "wierven" "geworven" ; -- lin werven_V = mkV "werven" "wierf" "wierven" "geworven" ;
lin weten_V = mkV "weten" "wist" "wisten" "geweten" ; -- lin weten_V = mkV "weten" "wist" "wisten" "geweten" ;
lin weven_V = mkV "weven" "weefde" "weefden" "geweven" ; -- lin weven_V = mkV "weven" "weefde" "weefden" "geweven" ;
lin wijken_V = mkZijnV "wijken" "week" "weken" "geweken" ; -- lin wijken_V = mkZijnV "wijken" "week" "weken" "geweken" ;
lin wijten_V = mkV "wijten" "weet" "weten" "geweten" ; -- lin wijten_V = mkV "wijten" "weet" "weten" "geweten" ;
lin wijzen_V = mkV "wijzen" "wees" "wezen" "gewezen" ; -- lin wijzen_V = mkV "wijzen" "wees" "wezen" "gewezen" ;
lin winden_V = mkV "winden" "wond" "wonden" "gewonden" ; -- lin winden_V = mkV "winden" "wond" "wonden" "gewonden" ;
lin winnen_V = mkV "winnen" "won" "wonnen" "gewonnen" ; -- lin winnen_V = mkV "winnen" "won" "wonnen" "gewonnen" ;
lin worden_V = mkV "worden" "werd" "werden" "geworden" ; -- lin worden_V = mkV "worden" "werd" "werden" "geworden" ;
lin wrijven_V = mkV "wrijven" "wreef" "wreven" "gewreven" ; -- lin wrijven_V = mkV "wrijven" "wreef" "wreven" "gewreven" ;
lin wringen_V = mkV "wringen" "wrong" "wrongen" "gewrongen" ; -- lin wringen_V = mkV "wringen" "wrong" "wrongen" "gewrongen" ;
lin zeggen_V = mkV "zeggen" "zei" "zeiden" "gezegd" ; -- lin zeggen_V = mkV "zeggen" "zei" "zeiden" "gezegd" ;
lin zenden_V = mkV "zenden" "zond" "zonden" "gezonden" ; -- lin zenden_V = mkV "zenden" "zond" "zonden" "gezonden" ;
lin zien_V = mkV "zien" "zag" "zagen" "gezien" ; -- lin zien_V = mkV "zien" "zag" "zagen" "gezien" ;
lin zijgen_V = mkZijnV "zijgen" "zeeg" "zegen" "gezegen" ; -- lin zijgen_V = mkZijnV "zijgen" "zeeg" "zegen" "gezegen" ;
lin zingen_V = mkV "zingen" "zong" "zongen" "gezongen" ; -- lin zingen_V = mkV "zingen" "zong" "zongen" "gezongen" ;
lin zinken_V = mkZijnV "zinken" "zonk" "zonken" "gezonken" ; -- lin zinken_V = mkZijnV "zinken" "zonk" "zonken" "gezonken" ;
lin zinnen_V = mkV "zinnen" "zon" "zonnen" "gezonnen" ; -- lin zinnen_V = mkV "zinnen" "zon" "zonnen" "gezonnen" ;
lin zitten_V = mkV "zitten" "zat" "zaten" "gezeten" ; -- lin zitten_V = mkV "zitten" "zat" "zaten" "gezeten" ;
lin zoeken_V = mkV "zoeken" "zocht" "zochten" "gezocht" ; -- lin zoeken_V = mkV "zoeken" "zocht" "zochten" "gezocht" ;
lin zuigen_V = mkV "zuigen" "zoog" "zogen" "gezogen" ; -- lin zuigen_V = mkV "zuigen" "zoog" "zogen" "gezogen" ;
lin zuipen_V = mkV "zuipen" "zoop" "zopen" "gezopen" ; -- lin zuipen_V = mkV "zuipen" "zoop" "zopen" "gezopen" ;
lin zwelgen_V = mkV "zwelgen" "zwolg" "zwolgen" "gezwolgen" ; -- lin zwelgen_V = mkV "zwelgen" "zwolg" "zwolgen" "gezwolgen" ;
lin zwellen_V = mkZijnV "zwellen" "zwol" "zwollen" "gezwollen" ; -- lin zwellen_V = mkZijnV "zwellen" "zwol" "zwollen" "gezwollen" ;
lin zwemmen_V = mkZijnHebbenV "zwemmen" "zwom" "zwommen" "gezwommen" ; -- lin zwemmen_V = mkZijnHebbenV "zwemmen" "zwom" "zwommen" "gezwommen" ;
lin zweren_V = mkV "zweren" "zwoer" "zwoeren" "gezworen" ; -- lin zweren_V = mkV "zweren" "zwoer" "zwoeren" "gezworen" ;
lin zwerven_V = mkV "zwerven" "zwierf" "zwierven" "gezworven" ; -- lin zwerven_V = mkV "zwerven" "zwierf" "zwierven" "gezworven" ;
lin zwijgen_V = mkV "zwijgen" "zweeg" "zwegen" "gezwegen" ; -- lin zwijgen_V = mkV "zwijgen" "zweeg" "zwegen" "gezwegen" ;
oper oper
mkZijnV, mkZijnHebbenV : (_,_,_,_ : Str) -> V ; mkZijnV, mkZijnHebbenV : (_,_,_,_ : Str) -> V ;

View File

@@ -1,192 +1,192 @@
abstract IrregAfrAbs = Cat ** { abstract IrregAfrAbs = Cat ** {
{- {-
fun bakken_V : V ; -- to fry -- fun bakken_V : V ; -- to fry
fun bannen_V : V ; -- to ban -- fun bannen_V : V ; -- to ban
fun barsten_V : V ; -- to burst -- fun barsten_V : V ; -- to burst
fun bederven_V : V ; -- to rot, to decay -- fun bederven_V : V ; -- to rot, to decay
fun bedriegen_V : V ; -- to deceive, to cheat, to trick -- fun bedriegen_V : V ; -- to deceive, to cheat, to trick
fun beginnen_V : V ; -- to begin -- fun beginnen_V : V ; -- to begin
fun behangen_V : V ; -- to wall-paper -- fun behangen_V : V ; -- to wall-paper
fun bergen_V : V ; -- to store, to recover -- fun bergen_V : V ; -- to store, to recover
fun bevelen_V : V ; -- to order, to command -- fun bevelen_V : V ; -- to order, to command
fun bezwijken_V : V ; -- to succumb, to collapse -- fun bezwijken_V : V ; -- to succumb, to collapse
fun bidden_V : V ; -- to pray -- fun bidden_V : V ; -- to pray
fun bieden_V : V ; -- to offer -- fun bieden_V : V ; -- to offer
fun bijten_V : V ; -- to bite -- fun bijten_V : V ; -- to bite
fun binden_V : V ; -- to bind, to tie -- fun binden_V : V ; -- to bind, to tie
fun blazen_V : V ; -- to blow, to spit (cat) -- fun blazen_V : V ; -- to blow, to spit (cat)
fun blijken_V : V ; -- to appear, to be evident -- fun blijken_V : V ; -- to appear, to be evident
fun blijven_V : V ; -- to stay, to remain, to keep -- fun blijven_V : V ; -- to stay, to remain, to keep
fun blinken_V : V ; -- to shine, to gleam -- fun blinken_V : V ; -- to shine, to gleam
fun braden_V : V ; -- to roast, to grill -- fun braden_V : V ; -- to roast, to grill
fun breken_V : V ; -- to break -- fun breken_V : V ; -- to break
fun brengen_V : V ; -- to bring -- fun brengen_V : V ; -- to bring
fun brouwen_V : V ; -- to brew -- fun brouwen_V : V ; -- to brew
fun buigen_V : V ; -- to bend -- fun buigen_V : V ; -- to bend
fun denken_V : V ; -- to think -- fun denken_V : V ; -- to think
fun dingen_V : V ; -- dongen naar gedongen naar to bid for, to compete for -- fun dingen_V : V ; -- dongen naar gedongen naar to bid for, to compete for
fun doen_V : V ; -- to do -- fun doen_V : V ; -- to do
fun dragen_V : V ; -- to carry, to bear -- fun dragen_V : V ; -- to carry, to bear
fun drijven_V : V ; -- to drive, to float , to manage -- fun drijven_V : V ; -- to drive, to float , to manage
fun dringen_V : V ; -- to push (a crowd) -- fun dringen_V : V ; -- to push (a crowd)
fun drinken_V : V ; -- to drink -- fun drinken_V : V ; -- to drink
fun druipen_V : V ; -- to drip -- fun druipen_V : V ; -- to drip
fun duiken_V : V ; -- to dive -- fun duiken_V : V ; -- to dive
fun dwingen_V : V ; -- to force -- fun dwingen_V : V ; -- to force
fun eten_V : V ; -- to eat -- fun eten_V : V ; -- to eat
fun fluiten_V : V ; -- to whistle, to play the flute -- fun fluiten_V : V ; -- to whistle, to play the flute
fun gelden_V : V ; -- to be valid, to be in effect -- fun gelden_V : V ; -- to be valid, to be in effect
fun gaan_V : V ; -- to go -- fun gaan_V : V ; -- to go
fun genezen_V : V ; -- to heal, to cure -- fun genezen_V : V ; -- to heal, to cure
fun genieten_V : V ; -- to enjoy -- fun genieten_V : V ; -- to enjoy
fun geven_V : V ; -- to give -- fun geven_V : V ; -- to give
fun gieten_V : V ; -- to pour -- fun gieten_V : V ; -- to pour
fun glijden_V : V ; -- to glide -- fun glijden_V : V ; -- to glide
fun glimmen_V : V ; -- to glimmer, to shine, to gleam -- fun glimmen_V : V ; -- to glimmer, to shine, to gleam
fun graven_V : V ; -- to dig -- fun graven_V : V ; -- to dig
fun grijpen_V : V ; -- to grab, to snatch -- fun grijpen_V : V ; -- to grab, to snatch
fun hangen_V : V ; -- to hang -- fun hangen_V : V ; -- to hang
fun heffen_V : V ; -- to raise, to lift, to levy -- fun heffen_V : V ; -- to raise, to lift, to levy
fun helpen_V : V ; -- to help -- fun helpen_V : V ; -- to help
fun heten_V : V ; -- to be called, to be named -- fun heten_V : V ; -- to be called, to be named
fun hijsen_V : V ; -- to hoist (sails, flag), to pull up -- fun hijsen_V : V ; -- to hoist (sails, flag), to pull up
fun hoeven_V : V ; -- to be necessary -- fun hoeven_V : V ; -- to be necessary
fun houden_V : V ; -- to hold -- fun houden_V : V ; -- to hold
fun houwen_V : V ; -- to hew, hack -- fun houwen_V : V ; -- to hew, hack
fun jagen_V : V ; -- to hunt -- fun jagen_V : V ; -- to hunt
fun kiezen_V : V ; -- to choose, to elect -- fun kiezen_V : V ; -- to choose, to elect
fun kijken_V : V ; -- keken naar gekeken naar to look at -- fun kijken_V : V ; -- keken naar gekeken naar to look at
fun klimmen_V : V ; -- to climb -- fun klimmen_V : V ; -- to climb
fun klinken_V : V ; -- to sound, to ring, to clink -- fun klinken_V : V ; -- to sound, to ring, to clink
fun kluiven_V : V ; -- to pick (a bone), to nibble -- fun kluiven_V : V ; -- to pick (a bone), to nibble
fun knijpen_V : V ; -- to pinch, to squeeze -- fun knijpen_V : V ; -- to pinch, to squeeze
fun kopen_V : V ; -- to buy -- fun kopen_V : V ; -- to buy
fun krijgen_V : V ; -- to get -- fun krijgen_V : V ; -- to get
fun krimpen_V : V ; -- to shrink -- fun krimpen_V : V ; -- to shrink
fun kruipen_V : V ; -- to crawl, to creep -- fun kruipen_V : V ; -- to crawl, to creep
fun zich_V : V ; -- zich van kweten zich van zich gekweten van to acquit oneself of -- fun zich_V : V ; -- zich van kweten zich van zich gekweten van to acquit oneself of
fun lachen_V : V ; -- to laugh, to smile -- fun lachen_V : V ; -- to laugh, to smile
fun laden_V : V ; -- to load, to charge -- fun laden_V : V ; -- to load, to charge
fun laten_V : V ; -- to let, to allow -- fun laten_V : V ; -- to let, to allow
fun lezen_V : V ; -- to read -- fun lezen_V : V ; -- to read
fun liegen_V : V ; -- to (tell a) lie -- fun liegen_V : V ; -- to (tell a) lie
fun liggen_V : V ; -- to lie (on a bed) -- fun liggen_V : V ; -- to lie (on a bed)
fun lijden_V : V ; -- to suffer -- fun lijden_V : V ; -- to suffer
fun lijken_V : V ; -- leken op geleken op to resemble, to seem -- fun lijken_V : V ; -- leken op geleken op to resemble, to seem
fun lopen_V : V ; -- to walk -- fun lopen_V : V ; -- to walk
fun malen_V : V ; -- to grind -- fun malen_V : V ; -- to grind
fun melken_V : V ; -- to milk (a cow) -- fun melken_V : V ; -- to milk (a cow)
fun meten_V : V ; -- to measure -- fun meten_V : V ; -- to measure
fun mijden_V : V ; -- to avoid -- fun mijden_V : V ; -- to avoid
fun moeten_V : V ; -- to must, have to -- fun moeten_V : V ; -- to must, have to
fun nemen_V : V ; -- to take -- fun nemen_V : V ; -- to take
fun nijgen_V : V ; -- to (make a bow -- fun nijgen_V : V ; -- to (make a bow
fun ontginnen_V : V ; -- to reclaim (land), to clear (forest), to exploit (mine) -- fun ontginnen_V : V ; -- to reclaim (land), to clear (forest), to exploit (mine)
fun ontluiken_V : V ; -- to open (flower, beauty) -- fun ontluiken_V : V ; -- to open (flower, beauty)
fun pluizen_V : V ; -- to fluff, to give off fluff -- fun pluizen_V : V ; -- to fluff, to give off fluff
fun prijzen_V : V ; -- to praise -- fun prijzen_V : V ; -- to praise
fun raden_V : V ; -- go guess -- fun raden_V : V ; -- go guess
fun rijden_V : V ; -- to drive, to ride -- fun rijden_V : V ; -- to drive, to ride
fun rijgen_V : V ; -- to tack, to lace, to thread -- fun rijgen_V : V ; -- to tack, to lace, to thread
fun rijten_V : V ; -- to tear, to rip -- fun rijten_V : V ; -- to tear, to rip
fun rijzen_V : V ; -- to rise -- fun rijzen_V : V ; -- to rise
fun roepen_V : V ; -- to call, to shout -- fun roepen_V : V ; -- to call, to shout
fun ruiken_V : V ; -- to smell, to scent -- fun ruiken_V : V ; -- to smell, to scent
fun scheiden_V : V ; -- to divorce, to separate -- fun scheiden_V : V ; -- to divorce, to separate
fun schelden_V : V ; -- to curse, to swear -- fun schelden_V : V ; -- to curse, to swear
fun schenden_V : V ; -- to violate, to damage -- fun schenden_V : V ; -- to violate, to damage
fun schenken_V : V ; -- 1. to donate 2. to pour -- fun schenken_V : V ; -- 1. to donate 2. to pour
fun scheppen_V : V ; -- to create -- fun scheppen_V : V ; -- to create
fun scheren_V : V ; -- to shave -- fun scheren_V : V ; -- to shave
fun schieten_V : V ; -- to shoot -- fun schieten_V : V ; -- to shoot
fun schijnen_V : V ; -- geschenen -- fun schijnen_V : V ; -- geschenen
fun verschijnen_V : V ; -- to appear, to turn up -- fun verschijnen_V : V ; -- to appear, to turn up
fun schijten_V : V ; -- to shit (flat) -- fun schijten_V : V ; -- to shit (flat)
fun schrijven_V : V ; -- to write -- fun schrijven_V : V ; -- to write
fun schrikken_V : V ; -- to be startled -- fun schrikken_V : V ; -- to be startled
fun schuilen_V : V ; -- to shelter -- fun schuilen_V : V ; -- to shelter
fun schuiven_V : V ; -- to shove -- fun schuiven_V : V ; -- to shove
fun slaan_V : V ; -- to hit -- fun slaan_V : V ; -- to hit
fun slapen_V : V ; -- to sleep -- fun slapen_V : V ; -- to sleep
fun slijpen_V : V ; -- to sharpen, to polish -- fun slijpen_V : V ; -- to sharpen, to polish
fun slijten_V : V ; -- to wear out, to sell -- fun slijten_V : V ; -- to wear out, to sell
fun slinken_V : V ; -- to shrink, to decrease in number -- fun slinken_V : V ; -- to shrink, to decrease in number
fun sluipen_V : V ; -- to sneak, to slink -- fun sluipen_V : V ; -- to sneak, to slink
fun sluiten_V : V ; -- to close, to shut -- fun sluiten_V : V ; -- to close, to shut
fun smelten_V : V ; -- to melt -- fun smelten_V : V ; -- to melt
fun smijten_V : V ; -- to throw, to fling -- fun smijten_V : V ; -- to throw, to fling
fun snijden_V : V ; -- to cut -- fun snijden_V : V ; -- to cut
fun snuiten_V : V ; -- to snout, to blow (nose) -- fun snuiten_V : V ; -- to snout, to blow (nose)
fun snuiven_V : V ; -- to sniff, to snort -- fun snuiven_V : V ; -- to sniff, to snort
fun spannen_V : V ; -- to strain, to bend (a bow) -- fun spannen_V : V ; -- to strain, to bend (a bow)
fun spijten_V : V ; -- to regret -- fun spijten_V : V ; -- to regret
fun spinnen_V : V ; -- to twist -- fun spinnen_V : V ; -- to twist
fun splijten_V : V ; -- to split, to cleave -- fun splijten_V : V ; -- to split, to cleave
fun spreken_V : V ; -- to speak -- fun spreken_V : V ; -- to speak
fun springen_V : V ; -- to jump, to spring -- fun springen_V : V ; -- to jump, to spring
fun spruiten_V : V ; -- to sprout, to grow out -- fun spruiten_V : V ; -- to sprout, to grow out
fun spuiten_V : V ; -- to spout, to squirt -- fun spuiten_V : V ; -- to spout, to squirt
fun staan_V : V ; -- to stand -- fun staan_V : V ; -- to stand
fun steken_V : V ; -- to stab, to prick, to sting -- fun steken_V : V ; -- to stab, to prick, to sting
fun stelen_V : V ; -- to steal -- fun stelen_V : V ; -- to steal
fun sterven_V : V ; -- to die -- fun sterven_V : V ; -- to die
fun stijgen_V : V ; -- to rise -- fun stijgen_V : V ; -- to rise
fun stijven_V : V ; -- to starch -- fun stijven_V : V ; -- to starch
fun stinken_V : V ; -- to stink -- fun stinken_V : V ; -- to stink
fun stoten_V : V ; -- to push, to bump -- fun stoten_V : V ; -- to push, to bump
fun strijden_V : V ; -- to battle, to fight -- fun strijden_V : V ; -- to battle, to fight
fun strijken_V : V ; -- to iron (clothes), strike (flag), smooth (hair) -- fun strijken_V : V ; -- to iron (clothes), strike (flag), smooth (hair)
fun neerstrijken_V : V ; -- neer neergestreken * to settle in a place -- fun neerstrijken_V : V ; -- neer neergestreken * to settle in a place
fun stuiven_V : V ; -- to cause dust to whirl, to dash forward -- fun stuiven_V : V ; -- to cause dust to whirl, to dash forward
fun treden_V : V ; -- to tread -- fun treden_V : V ; -- to tread
fun treffen_V : V ; -- to hit (goal) to strike -- fun treffen_V : V ; -- to hit (goal) to strike
fun trekken_V : V ; -- to pull, to draw, to travel -- fun trekken_V : V ; -- to pull, to draw, to travel
fun vallen_V : V ; -- to fall -- fun vallen_V : V ; -- to fall
fun vangen_V : V ; -- to catch -- fun vangen_V : V ; -- to catch
fun varen_V : V ; -- to fare, to sail -- fun varen_V : V ; -- to fare, to sail
fun vechten_V : V ; -- to fight -- fun vechten_V : V ; -- to fight
fun verdrieten_V : V ; -- to grieve -- fun verdrieten_V : V ; -- to grieve
fun verdwijnen_V : V ; -- to disappear -- fun verdwijnen_V : V ; -- to disappear
fun vergeten_V : V ; -- vergeten to forget -- fun vergeten_V : V ; -- vergeten to forget
fun verliezen_V : V ; -- to lose -- fun verliezen_V : V ; -- to lose
fun vinden_V : V ; -- to find -- fun vinden_V : V ; -- to find
fun vlechten_V : V ; -- to plait, to braid -- fun vlechten_V : V ; -- to plait, to braid
fun vliegen_V : V ; -- to fly -- fun vliegen_V : V ; -- to fly
fun vouwen_V : V ; -- to fold -- fun vouwen_V : V ; -- to fold
fun vragen_V : V ; -- to ask -- fun vragen_V : V ; -- to ask
fun vreten_V : V ; -- to eat, to devour -- fun vreten_V : V ; -- to eat, to devour
fun vriezen_V : V ; -- to freeze ("it's freezing") -- fun vriezen_V : V ; -- to freeze ("it's freezing")
fun vrijen_V : V ; -- vreeën / vrijden gevreeën / gevrijd to make love -- fun vrijen_V : V ; -- vreeën / vrijden gevreeën / gevrijd to make love
fun wassen_V : V ; -- to wash -- fun wassen_V : V ; -- to wash
fun wegen_V : V ; -- to weigh -- fun wegen_V : V ; -- to weigh
fun werpen_V : V ; -- to throw -- fun werpen_V : V ; -- to throw
fun werven_V : V ; -- to recruit -- fun werven_V : V ; -- to recruit
fun weten_V : V ; -- to know -- fun weten_V : V ; -- to know
fun weven_V : V ; -- to weave -- fun weven_V : V ; -- to weave
fun wijken_V : V ; -- to give way, to disappear -- fun wijken_V : V ; -- to give way, to disappear
fun wijten_V : V ; -- to blame (something) on -- fun wijten_V : V ; -- to blame (something) on
fun wijzen_V : V ; -- to point -- fun wijzen_V : V ; -- to point
fun winden_V : V ; -- to wind -- fun winden_V : V ; -- to wind
fun winnen_V : V ; -- to win -- fun winnen_V : V ; -- to win
fun worden_V : V ; -- to become -- fun worden_V : V ; -- to become
fun wrijven_V : V ; -- to rub -- fun wrijven_V : V ; -- to rub
fun wringen_V : V ; -- to wring -- fun wringen_V : V ; -- to wring
fun zeggen_V : V ; -- to say -- fun zeggen_V : V ; -- to say
fun zenden_V : V ; -- to send -- fun zenden_V : V ; -- to send
fun zien_V : V ; -- to see -- fun zien_V : V ; -- to see
fun zijgen_V : V ; -- to sink down (neerzijgen) -- fun zijgen_V : V ; -- to sink down (neerzijgen)
fun zingen_V : V ; -- to sing -- fun zingen_V : V ; -- to sing
fun zinken_V : V ; -- to sink -- fun zinken_V : V ; -- to sink
fun zinnen_V : V ; -- to ponder (zinnen op) -- fun zinnen_V : V ; -- to ponder (zinnen op)
fun zitten_V : V ; -- to sit -- fun zitten_V : V ; -- to sit
fun zoeken_V : V ; -- to seek, to search -- fun zoeken_V : V ; -- to seek, to search
fun zuigen_V : V ; -- to suck -- fun zuigen_V : V ; -- to suck
fun zuipen_V : V ; -- to booze -- fun zuipen_V : V ; -- to booze
fun zwelgen_V : V ; -- to revel, to dwell (in self-pity) -- fun zwelgen_V : V ; -- to revel, to dwell (in self-pity)
fun zwellen_V : V ; -- to swell -- fun zwellen_V : V ; -- to swell
fun zwemmen_V : V ; -- to swim -- fun zwemmen_V : V ; -- to swim
fun zweren_V : V ; -- to swear (oath) -- fun zweren_V : V ; -- to swear (oath)
fun zwerven_V : V ; -- to wander, to ramble -- fun zwerven_V : V ; -- to wander, to ramble
fun zwijgen_V : V ; -- to be silent -- fun zwijgen_V : V ; -- to be silent
-} -}
} }

View File

@@ -16,347 +16,355 @@ lin
bad_A = mkA "boos" ; bad_A = mkA "boos" ;
beautiful_A = mkA "mooi" ; beautiful_A = mkA "mooi" ;
become_VA = mkVA (mkV "word") ; become_VA = mkVA (mkV "word") ;
beer_N = mkN "bier" "bieren" neuter ; beer_N = mkN "bier" neuter ;
beg_V2V = mkV2V (mkV "smek") noPrep ; ---- om te beg_V2V = mkV2V (mkV "smeek") noPrep ; ---- om te
big_A = mkA "groot" ; big_A = mkA "groot" "groot" "groots" "groter" "grootste";
bike_N = mkN "fiets" ; bike_N = mkN "fiets" ;
black_A = mkA "swart" ; black_A = mkA "swart" ;
blue_A = mkA "blauw"; blue_A = mkA "blou";
book_N = mkN "boek" ; book_N = mkN "boek" ;
brother_N2 = mkN2 (mkN "broer" "broers" masculine) van_Prep ; brother_N2 = mkN2 (mkN "broer" "broers" masculine) van_Prep ;
brown_A = mkA "bruin" ; brown_A = mkA "bruin" ;
buy_V2 = mkV2 (mkV "kop" "kocht" "gekocht") ; buy_V2 = mkV2 (mkV "koop") ;
child_N = mkN "kind" "kinderen" neuter ; child_N = mkN "kind" "kinders" neuter ;
come_V = zijnV (mkV "kom") ; come_V = zijnV (mkV "kom") ;
die_V = zijnV (mkV "sterv" "stierf" "gestorv") ; die_V = zijnV (mkV "sterf") ;
distance_N3 = mkN3 (mkN "afstand") van_Prep (mkPrep "naar") ; distance_N3 = mkN3 (mkN "afstand") van_Prep (mkPrep "na") ;
drink_V2 = mkV2 (mkV "drink") ; drink_V2 = mkV2 (mkV "drink") ;
easy_A2V = mkA2 (mkA "gemakkelik") noPrep ; easy_A2V = mkA2 (mkA "gemaklik") noPrep ;
eat_V2 = mkV2 (mkV "eet") ; eat_V2 = mkV2 (mkV "eet") ;
father_N2 = mkN2 (mkN "vader") van_Prep ; father_N2 = mkN2 (mkN "vader") van_Prep ;
fear_VS = mkVS (mkV "vres") ; fear_VS = mkVS (mkV "vrees") ;
fish_N = mkN "vis" ; fish_N = mkN "vis" ;
go_V = mkV "gaan" ; go_V = mkV "gaan" ;
hope_VS = mkVS (mkV "hop") ; hope_VS = mkVS (mkV "hoop") ;
house_N = mkN "huis" neuter ; house_N = mkN "huis" neuter ;
know_VQ = mkVQ (mkV "weet") ; know_VQ = mkVQ (mkV "weet") ;
know_VS = mkVS (mkV "weet") ; know_VS = mkVS (mkV "weet") ;
married_A2 = mkA2 (mkA "getrouwd") (mkPrep "met") ; married_A2 = mkA2 (mkA "getroud") (mkPrep "met") ;
mother_N2 = mkN2 (mkN "moeder") ; mother_N2 = mkN2 (mkN "ma") ;
now_Adv = mkAdv "nu" ; now_Adv = mkAdv "nou" ;
paint_V2A = mkV2A (mkV "schilder") noPrep ; paint_V2A = mkV2A (mkV "skilder") noPrep ;
paris_PN = mkPN "Parys" ; paris_PN = mkPN "Parys" ;
red_A = mkA "rood" ; red_A = mkA "rooi" ;
say_VS = mkVS (mkV "sê") ; say_VS = mkVS (mkV "sê") ;
see_V2 = mkV2 (mkV "sien") ; see_V2 = mkV2 (mkV "sien") ;
sell_V3 = mkV3 (mkV "verkop" "verkocht" "verkocht") ; sell_V3 = mkV3 (mkV "verkoop") ;
send_V3 = mkV3 (mkV "stur") (mkPrep "naar") ; send_V3 = mkV3 (mkV "stuur") (mkPrep "na") ;
sleep_V = mkV "slaap" ; sleep_V = mkV "slaap" ;
small_A = mkA "klein" ; small_A = mkA "klein" ;
talk_V3 = mkV3 (mkV "prat") (mkPrep "met") (mkPrep "over") ; talk_V3 = mkV3 (mkV "praat") (mkPrep "met") (mkPrep "oor") ;
warm_A = mkA "warm" ; warm_A = mkA "warm" ;
wine_N = mkN "wyn" ; wine_N = mkN "wyn" ;
john_PN = mkPN "Jan" ; john_PN = mkPN "Jan" ;
left_Ord = mkOrd (invarA "linker") ; ---- left_Ord = mkOrd (invarA "linker") ; ----
right_Ord = mkOrd (invarA "rechter") ; ---- right_Ord = mkOrd (invarA "regter") ; ----
today_Adv = mkAdv "vandaag" ; today_Adv = mkAdv "vandag" ;
far_Adv = mkAdv "ver" ; far_Adv = mkAdv "ver" ;
give_V3 = mkV3 (mkV "gee") ; give_V3 = mkV3 (mkV "gee") ;
wonder_VQ = mkVQ (reflV (mkV "af" (mkV "vra"))) ; wonder_VQ = mkVQ (reflV (mkV "af" (mkV "vra"))) ;
airplane_N = mkN "vliegtuig" neuter ; airplane_N = mkN "vliegtuig" neuter ;
animal_N = mkN "dier" neuter ; animal_N = mkN "dier" neuter ;
apartment_N = mkN "appartement" neuter ; apartment_N = mkN "woonstel" "woonstelle" neuter ;
apple_N = mkN "appel" utrum ; apple_N = mkN "appel" neuter ;
art_N = mkN "kunst" utrum ; art_N = mkN "kuns" "kunste" neuter ;
ashes_N = mkN "as" utrum ; ashes_N = mkN "as" neuter ;
baby_N = mkN "baby" utrum ; baby_N = mkN "baba" neuter ;
back_N = mkN "achterkant" utrum ; back_N = mkN "agterkant" neuter ;
bank_N = mkN "bank" utrum ; bank_N = mkN "bank" neuter ;
bark_N = mkN "schors" utrum ; bark_N = mkN "blaf" neuter ;
belly_N = mkN "buik" utrum ; belly_N = mkN "maag" neuter ;
bird_N = mkN "vogel" utrum ; bird_N = mkN "voël" "voëls" neuter ;
bite_V2 = mkV2 (mkV "byt") ; bite_V2 = mkV2 (mkV "byt") ;
black_A = mkA "swart" ; black_A = mkA "swart" ;
blood_N = mkN "bloed" neuter ; blood_N = mkN "bloed" neuter ;
blow_V = mkV "blaas" ; blow_V = mkV "blaas" ;
boat_N = mkN "boot" utrum ; boat_N = mkN "boot" neuter ;
bone_N = mkN "bot" neuter ; bone_N = mkN "been" neuter ;
boot_N = mkN "boot" utrum ; boot_N = mkN "stewel" neuter ;
boss_N = mkN "baas" utrum ; boss_N = mkN "baas" neuter ;
boy_N = mkN "jongen" utrum ; boy_N = mkN "seun" "seuns" neuter ;
bread_N = mkN "brood" neuter ; bread_N = mkN "brood" neuter ;
break_V2 = mkV2 (mkV "breek") ; break_V2 = mkV2 (mkV "breek") ;
breast_N = mkN "borst" utrum ; breast_N = mkN "bors" "borste" neuter ;
breathe_V = mkV "adem" ; breathe_V = mkV "asem" ;
broad_A = mkA "breed" ; broad_A = mkA "breed" ;
burn_V = mkV "brand" ; burn_V = mkV "brand" ;
butter_N = mkN "boter" utrum ; butter_N = mkN "botter" neuter ;
camera_N = mkN "camera" utrum ; camera_N = mkN "kamera" neuter ;
cap_N = mkN "kap" utrum ; cap_N = mkN "keps" neuter ;
car_N = mkN "auto" utrum ; car_N = mkN "kar" neuter ;
carpet_N = mkN "tapyt" neuter ; carpet_N = mkN "tapyt" neuter ;
cat_N = mkN "kat" utrum ; cat_N = mkN "kat" neuter ;
ceiling_N = mkN "plafond" neuter ; ceiling_N = mkN "plafon" neuter ;
chair_N = mkN "stoel" utrum ; chair_N = mkN "stoel" neuter ;
cheese_N = mkN "kaas" utrum ; cheese_N = mkN "kaas" neuter ;
church_N = mkN "kerk" utrum ; church_N = mkN "kerk" neuter ;
city_N = mkN "stad" utrum ; city_N = mkN "stad" "stede" neuter ;
clean_A = mkA "schoon" ; clean_A = mkA "skoon" ;
clever_A = mkA "slim" ; clever_A = mkA "slim" ;
close_V2 = mkV2 (mkV "sluit") ; close_V2 = mkV2 (mkV "sluit") ;
cloud_N = mkN "wolk" utrum ; cloud_N = mkN "wolk" neuter ;
coat_N = mkN "vacht" utrum ; coat_N = mkN "baadjie" neuter ;
cold_A = mkA "koud" ;
computer_N = mkN "computer" utrum ; cold_A = mkA "koud" ;
correct_A = mkA "correct" ;
count_V2 = mkV2 "reken" ; computer_N = mkN "rekenaar" neuter ;
correct_A = mkA "korrek" ;
-- correct_A = mkA "reg" ; --afr
count_V2 = mkV2 "tel" ;
country_N = mkN "land" neuter ; country_N = mkN "land" neuter ;
cousin_N = mkN "neef" utrum ; cousin_N = mkN "neef" "neefs" neuter ;
cow_N = mkN "koe" utrum ; cow_N = mkN "koei" neuter ;
cut_V2 = mkV2 (mkV "sny") ; cut_V2 = mkV2 (mkV "sny") ;
day_N = mkN "dag" utrum ; day_N = mkN "dag" neuter ;
dig_V = mkV "grawe" ; dig_V = mkV "grawe" ;
dirty_A = mkA "vuil" ; dirty_A = mkA "vuil" ;
do_V2 = mkV2 (mkV "doen") ; do_V2 = mkV2 (mkV "doen") ;
doctor_N = mkN "arts" utrum ; doctor_N = mkN "dokter" neuter ;
dog_N = mkN "hond" utrum ; dog_N = mkN "hond" neuter ;
door_N = mkN "deur" utrum ; door_N = mkN "deur" neuter ;
dry_A = mkA "droog" ; dry_A = mkA "droog" ;
dull_A = mkA "saai" ; dull_A = mkA "vervelig" ;
dust_N = mkN "stof" neuter ; dust_N = mkN "stof" neuter ;
ear_N = mkN "oor" neuter ; ear_N = mkN "oor" neuter ;
earth_N = mkN "aarde" utrum ; earth_N = mkN "aarde" neuter ;
egg_N = mkN "ei" neuter ; egg_N = mkN "eier" "eiers" neuter ;
empty_A = mkA "leeg" ; empty_A = mkA "leeg" ;
enemy_N = mkN "vyand" utrum ; enemy_N = mkN "vyand" neuter ;
eye_N = mkN "oog" neuter ; eye_N = mkN "oog" neuter ;
factory_N = mkN "fabriek" utrum ; factory_N = mkN "fabriek" neuter ;
fall_V = mkV "val" ; fall_V = mkV "val" ;
fat_N = mkN "vet" neuter ; fat_N = mkN "vet" neuter ;
fear_V2 = mkV2 "vrez" ; fear_V2 = mkV2 "vrees" ;
feather_N = mkN "veer" utrum ; feather_N = mkN "veer" neuter ;
fight_V2 = mkV2 (mkV "veg") ; fight_V2 = mkV2 (mkV "veg") ;
find_V2 = mkV2 (mkV "vind") ; find_V2 = mkV2 (mkV "vind") ;
fingernail_N = mkN "vingernagel" utrum ; fingernail_N = mkN "vingernael" neuter ;
fire_N = mkN "brand" utrum ; fire_N = mkN "brand" neuter ;
float_V = mkV "dryf" ; float_V = mkV "dryf" ;
floor_N = mkN "vloer" utrum ; floor_N = mkN "vloer" neuter ;
flow_V = mkV "strom" ; flow_V = mkV "stroom" ;
flower_N = mkN "bloem" utrum ; flower_N = mkN "blom" neuter ;
fly_V = mkV "vlieg" ; fly_V = mkV "vlieg" ;
fog_N = mkN "mist" utrum ; fog_N = mkN "mis" neuter ;
foot_N = mkN "voet" utrum ; foot_N = mkN "voet" neuter ;
forest_N = mkN "bos" neuter ; forest_N = mkN "bos" neuter ;
forget_V2 = mkV2 (mkV "vergeet") ; forget_V2 = mkV2 (mkV "vergeet") ;
freeze_V = mkV "vries" ; freeze_V = mkV "vries" ;
fridge_N = mkN "koelkast" utrum ; fridge_N = mkN "yskas" "yskaste" neuter ;
friend_N = mkN "vriend" utrum ; friend_N = mkN "vriend" neuter ;
fruit_N = mkN "vrucht" utrum ; fruit_N = mkN "vrug" "vrugte" neuter ;
full_A = mkA "vol" ; full_A = mkA "vol" ;
fun_AV = mkA "leuk" ; fun_AV = mkA "prettig" ; --afr
garden_N = mkN "tuin" utrum ; garden_N = mkN "tuin" neuter ;
girl_N = mkN "meisje" neuter ; girl_N = mkN "meisie" neuter ;
glove_N = mkN "handschoen" utrum ; glove_N = mkN "handskoen" neuter ;
gold_N = mkN "goud" neuter ; gold_N = mkN "goud" neuter ;
good_A = mkA "goed" "goede" "goeds" "beter" "best" ; good_A = mkA "goed" "goeie" "goeds" "beter" "beste" ;
grammar_N = mkN "grammatica" utrum ; grammar_N = mkN "grammatika" neuter ;
grass_N = mkN "gras" neuter ; grass_N = mkN "gras" neuter ;
green_A = mkA "groen" ; green_A = mkA "groen" ;
guts_N = mkN "darm" utrum ; guts_N = mkN "derms" "derms" neuter ;
hair_N = mkN "haar" neuter ; hair_N = mkN "haar" neuter ;
hand_N = mkN "hand" utrum ; hand_N = mkN "hand" neuter ;
harbour_N = mkN "haven" utrum ; harbour_N = mkN "hawe" "hawens" neuter ;
hat_N = mkN "hoed" utrum ; hat_N = mkN "hoed" "hoedens" neuter ;
hate_V2 = mkV2 "hat" ; hate_V2 = mkV2 "haat" ;
head_N = mkN "hoofd" neuter ; head_N = mkN "hoof" "hoofde" neuter ;
hear_V2 = mkV2 "hor" ; hear_V2 = mkV2 "hoor" ;
heart_N = mkN "hart" neuter ; heart_N = mkN "hart" neuter ;
heavy_A = mkA "swaar" ; heavy_A = mkA "swaar" ;
hill_N = mkN "heuvel" utrum ; hill_N = mkN "heuwel" neuter ;
hit_V2 = mkV2 "rak" ; hit_V2 = mkV2 "tref" ; --afr
hold_V2 = mkV2 (mkV "hou") ; hold_V2 = mkV2 (mkV "hou") ;
horn_N = mkN "hoorn" utrum ; horn_N = mkN "horing" neuter ;
horse_N = mkN "paard" neuter ; horse_N = mkN "perd" neuter ;
hot_A = mkA "heet" ; hot_A = mkA "warm" ;
hunt_V2 = mkV2 "jag" ; hunt_V2 = mkV2 "jag" ;
husband_N = mkN "man" utrum ; husband_N = mkN "man" "mans" neuter ;
ice_N = mkN "ys" neuter ; ice_N = mkN "ys" neuter ;
important_A = mkA "belangryk" ; important_A = mkA "belangrik" ;
industry_N = mkN "industrie" "industrieën" utrum ; industry_N = mkN "industrie" "industrieë" neuter ;
iron_N = mkN "yser" neuter ; iron_N = mkN "yster" neuter ;
jump_V = mkV "spring" ; jump_V = mkV "spring" ;
kill_V2 = mkV2 "dood" ; kill_V2 = mkV2 "dood" ;
king_N = mkN "koning" utrum ; -- kill_V2 = mkV2 "doodmaak" ; --afr
knee_N = mkN "knie" utrum ; king_N = mkN "koning" neuter ;
know_V2 = mkV2 "kenn" ; knee_N = mkN "knie" neuter ;
know_V2 = mkV2 "ken" ;
lake_N = mkN "meer" neuter ; lake_N = mkN "meer" neuter ;
lamp_N = mkN "lamp" utrum ; lamp_N = mkN "lamp" neuter ;
language_N = mkN "taal" utrum ; language_N = mkN "taal" neuter ;
laugh_V = mkV "lag" ; laugh_V = mkV "lag" ;
leaf_N = mkN "blad" neuter ; leaf_N = mkN "blaar" neuter ;
learn_V2 = mkV2 "ler" ; learn_V2 = mkV2 "leer" ;
leather_N = mkN "leer" neuter ; leather_N = mkN "leer" neuter ;
leave_V2 = mkV2 (mkV "laat") ; leave_V2 = mkV2 (mkV "verlaat") ;
leg_N = mkN "been" neuter ; leg_N = mkN "been" neuter ;
lie_V = mkV "lê" ; lie_V = mkV "lê" ;
like_V2 = mkV2 (mkV "hou") van_Prep ; like_V2 = mkV2 (mkV "hou") van_Prep ;
listen_V2 = mkV2 "luister" ; listen_V2 = mkV2 "luister" ;
live_V = mkV "leef" ; live_V = mkV "leef" ;
liver_N = mkN "lewer" utrum ; liver_N = mkN "lewer" neuter ;
long_A = mkA "lang" ; long_A = mkA "lank" "lang" "langs" "langer" "langste" ;
lose_V2 = mkV2 (mkV "verloor") ; lose_V2 = mkV2 (mkV "verloor") ;
louse_N = mkN "luis" utrum ; louse_N = mkN "luis" neuter ;
love_N = mkN "liefde" utrum ; love_N = mkN "liefde" neuter ;
love_V2 = mkV2 (mkV "lief" hebben_V) ; love_V2 = mkV2 (mkV "lief" hebben_V) ;
man_N = mkN "man" utrum ; man_N = mkN "man" "mans" neuter ;
meat_N = mkN "vlees" neuter ; meat_N = mkN "vleis" neuter ;
milk_N = mkN "melk" utrum ; milk_N = mkN "melk" neuter ;
moon_N = mkN "maan" utrum ; moon_N = mkN "maan" neuter ;
mountain_N = mkN "berg" utrum ; mountain_N = mkN "berg" neuter ;
mouth_N = mkN "mond" utrum ; mouth_N = mkN "mond" neuter ;
music_N = mkN "musiek" utrum ; music_N = mkN "musiek" neuter ;
name_N = mkN "naam" utrum ; name_N = mkN "naam" neuter ;
narrow_A = mkA "smal" ; narrow_A = mkA "smal" ;
near_A = mkA "naby" ; near_A = mkA "naby" "naby" "nabys" "nader" "naaste";
neck_N = mkN "nek" utrum ; neck_N = mkN "nek" neuter ;
new_A = mkA "nieuw" ; new_A = mkA "nuut" "nuwe" ;
newspaper_N = mkN "krant" utrum ; newspaper_N = mkN "koerant" neuter ;
night_N = mkN "nacht" utrum ; night_N = mkN "nag" "nagte" neuter ;
nose_N = mkN "neus" utrum ; nose_N = mkN "neus" neuter ;
number_N = mkN "nummer" neuter ; number_N = mkN "nommer" neuter ;
oil_N = mkN "olie-schakelaars" utrum ; oil_N = mkN "olie" neuter ;
old_A = mkA "oud" ; old_A = mkA "oud" "ou" "ouds" "ouer" "oudste";
open_V2 = mkV2 "open" ; open_V2 = mkV2 "oop" ;
paper_N = mkN "papier" neuter ; paper_N = mkN "papier" "papiere" neuter ;
peace_N = mkN "vrede" utrum ; peace_N = mkN "vrede" neuter ;
pen_N = mkN "pen" utrum ; pen_N = mkN "pen" neuter ;
person_N = mkN "persoon" utrum ; person_N = mkN "persoon" neuter ;
planet_N = mkN "planeet" utrum ; planet_N = mkN "planeet" neuter ;
plastic_N = mkN "plastic" utrum ; plastic_N = mkN "plastiek" neuter ;
play_V = mkV "spel" ; play_V = mkV "speel" ;
play_V2 = mkV2 "spel" ; play_V2 = mkV2 "speel" ;
policeman_N = mkN "politieagent" utrum ; policeman_N = mkN "polisieman" neuter ;
priest_N = mkN "priester" utrum ; priest_N = mkN "priester" neuter ;
probable_AS = mkA "waarschynlik" ; probable_AS = mkA "waarskynlik" ;
pull_V2 = mkV2 "trekk" ; pull_V2 = mkV2 "trek" ;
push_V2 = mkV2 "duw" ; push_V2 = mkV2 "stoot" ;
put_V2 = mkV2 "sett" ; put_V2 = mkV2 "sit" ;
queen_N = mkN "koningin" utrum ; queen_N = mkN "koningin" neuter ;
question_N = mkN "vraag" utrum ; question_N = mkN "vraag" neuter ;
radio_N = mkN "radio" utrum ; radio_N = mkN "radio" neuter ;
rain_N = mkN "regen" utrum ; rain_N = mkN "reën" "reëns" neuter ;
rain_V0 = mkV "regen" ; rain_V0 = mkV "reën" ;
read_V2 = mkV2 (mkV "lees") ; read_V2 = mkV2 (mkV "lees") ;
ready_A = mkA "klaar" ; ready_A = mkA "reg" ;
reason_N = mkN "reden" utrum ; reason_N = mkN "rede" neuter ;
-- red_A = mkA "rood" ; -- red_A = mkA "rooi" ;
religion_N = mkN "religie" utrum ; religion_N = mkN "godsdiens" "godsdienste" neuter ;
restaurant_N = mkN "restaurant" neuter ; restaurant_N = mkN "restaurant" neuter ;
river_N = mkN "rivier" utrum ; river_N = mkN "rivier" "riviere" neuter ;
road_N = mkN "weg" utrum ; road_N = mkN "pad" "paaie" neuter ;
rock_N = mkN "rots" utrum ; rock_N = mkN "rots" neuter ;
roof_N = mkN "dak" neuter ; roof_N = mkN "dak" neuter ;
root_N = mkN "wortel" utrum ; root_N = mkN "wortel" neuter ;
rope_N = mkN "touw" neuter ; rope_N = mkN "tou" neuter ;
rotten_A = mkA "verrot" ; rotten_A = mkA "vrot" ;
round_A = mkA "rond" ; round_A = mkA "rond" ;
rub_V2 = mkV2 (mkV "vryf") ; rub_V2 = mkV2 (mkV "vryf") ;
rubber_N = mkN "rubberen" utrum ; rubber_N = mkN "rubber" neuter ;
rule_N = mkN "regel" utrum ; rule_N = mkN "reël" "reël" neuter ;
run_V = zijnV (mkV "renn") ; run_V = zijnV (mkV "hardloop") ;
salt_N = mkN "sout" neuter ; salt_N = mkN "sout" neuter ;
sand_N = mkN "sand" neuter ; sand_N = mkN "sand" neuter ;
school_N = mkN "school" utrum ; school_N = mkN "skool" neuter ;
science_N = mkN "wetenschap" utrum ; science_N = mkN "wetenskap" neuter ;
scratch_V2 = mkV2 "krass" ; scratch_V2 = mkV2 "krap" ;
sea_N = mkN "see" utrum ; sea_N = mkN "see" neuter ;
seed_N = mkN "saad" neuter ; seed_N = mkN "saad" neuter ;
seek_V2 = mkV2 (mkV "soek") ; seek_V2 = mkV2 (mkV "soek") ;
sew_V = mkV "naai" ; sew_V = mkV "naai" ;
sharp_A = mkA "scherp" ; sharp_A = mkA "skerp" ;
sheep_N = mkN "schaap" neuter ; sheep_N = mkN "skaap" neuter ;
ship_N = mkN "schip" neuter ; ship_N = mkN "skip" "skepe" neuter ;
shirt_N = mkN "shirt" neuter ; shirt_N = mkN "hemp" "hemde" neuter ;
shoe_N = mkN "schoen" utrum ; shoe_N = mkN "skoen" neuter ;
shop_N = mkN "winkel" utrum ; shop_N = mkN "winkel" neuter ;
short_A = mkA "kort" ; short_A = mkA "kort" ;
silver_N = mkN "silver" neuter ; silver_N = mkN "silwer" neuter ;
sing_V = mkV "sing" ; sing_V = mkV "sing" ;
sister_N = mkN "suster" utrum ; sister_N = mkN "suster" neuter ;
sit_V = mkV "sit" ; sit_V = mkV "sit" ;
skin_N = mkN "huid" utrum ; skin_N = mkN "vel" neuter ;
sky_N = mkN "lucht" utrum ; sky_N = mkN "lug" "lugte" neuter ;
smell_V = mkV "ruik" ; smell_V = mkV "ruik" ;
smoke_N = mkN "rook" utrum ; smoke_N = mkN "rook" neuter ;
smooth_A = mkA "glad" ; smooth_A = mkA "glad" ;
snake_N = mkN "slang" utrum ; snake_N = mkN "slang" neuter ;
snow_N = mkN "sneeuw" utrum ; snow_N = mkN "sneeu" neuter ;
sock_N = mkN "sok" utrum ; sock_N = mkN "sokkie" neuter ;
song_N = mkN "liedje" neuter ; song_N = mkN "liedjie" neuter ;
speak_V2 = mkV2 (mkV "spreek") ; speak_V2 = mkV2 (mkV "spreek") ;
spit_V = mkV "spug" ; spit_V = mkV "spoeg" ;
split_V2 = mkV2 (mkV "splyt") ; split_V2 = mkV2 (mkV "splits") ;
squeeze_V2 = mkV2 (mkV "knyp") ; squeeze_V2 = mkV2 (mkV "knyp") ;
stab_V2 = mkV2 (mkV "steek") ; stab_V2 = mkV2 (mkV "steek") ;
stand_V = mkV "staan" ; stand_V = mkV "staan" ;
star_N = mkN "ster" utrum ; star_N = mkN "ster" neuter ;
steel_N = mkN "staal" neuter ; steel_N = mkN "staal" neuter ;
stick_N = mkN "stok" utrum ; stick_N = mkN "stok" neuter ;
stone_N = mkN "steen" utrum ; stone_N = mkN "steen" neuter ;
stop_V = mkV "stoppen" ; stop_V = mkV "stop" ;
stove_N = mkN "kachel" utrum ; stove_N = mkN "stoof" neuter ;
straight_A = mkA "recht" ; straight_A = mkA "reguit" ;
student_N = mkN "student" utrum ; student_N = mkN "student" neuter ;
stupid_A = mkA "dom" ; stupid_A = mkA "dom" ;
suck_V2 = mkV2 (mkV "suig") ; suck_V2 = mkV2 (mkV "suig") ;
sun_N = mkN "son" utrum ; sun_N = mkN "son" neuter ;
swell_V = mkV "swel" ; swell_V = mkV "swel" ;
swim_V = mkV "swem" ; swim_V = mkV "swem" ;
switch8off_V2 = mkV2 "schakel" ; switch8off_V2 = mkV2 "skakel" ;
switch8on_V2 = mkV2 (mkV "op" (mkV "schakel")) ; switch8on_V2 = mkV2 (mkV "aan" (mkV "skakel")) ; --afr
table_N = mkN "tabel" utrum ; table_N = mkN "tabel" "tabelle" neuter ;
tail_N = mkN "staart" utrum ; tail_N = mkN "stert" neuter ;
teach_V2 = mkV2 "ler" ; teach_V2 = mkV2 "leer" ;
teacher_N = mkN "leraar" utrum ; teacher_N = mkN "onderwyser" neuter ;
television_N = mkN "televisie" utrum ; television_N = mkN "televisie" neuter ;
thick_A = mkA "dik" ; thick_A = mkA "dik" ;
--afr
--thief_N = mkN "dief" neuter ;
thin_A = mkA "dun" ; thin_A = mkA "dun" ;
think_V = mkV "dink" ; think_V = mkV "dink" ;
throw_V2 = mkV2 "gooi" ; throw_V2 = mkV2 "gooi" ;
tie_V2 = mkV2 "band" ; tie_V2 = mkV2 "bind" ;
tongue_N = mkN "tong" utrum ; tongue_N = mkN "tong" neuter ;
tooth_N = mkN "tand" utrum ; tooth_N = mkN "tand" neuter ;
train_N = mkN "trein" utrum ; train_N = mkN "trein" neuter ;
travel_V = mkV "reis" ; travel_V = mkV "reis" ;
tree_N = mkN "boom" utrum ; tree_N = mkN "boom" neuter ;
turn_V = mkV "draai" ; turn_V = mkV "draai" ;
ugly_A = mkA "lelik" ; ugly_A = mkA "lelik" ;
uncertain_A = mkA "onseker" ; uncertain_A = mkA "onseker" ;
understand_V2 = mkV2 (mkV "begryp") ; understand_V2 = mkV2 (mkV "verstaan") ;
university_N = mkN "universiteit" utrum ; university_N = mkN "universiteit" neuter ;
village_N = mkN "dorp" neuter ; village_N = mkN "dorp" neuter ;
vomit_V = mkV "brak" ; vomit_V = mkV "braak" ;
wait_V2 = mkV2 "wach" ; wait_V2 = mkV2 "wag" ;
walk_V = mkV "lop" ; walk_V = mkV "loop" ;
war_N = mkN "oorlog" utrum ; war_N = mkN "oorlog" neuter ;
wash_V2 = mkV2 (mkV "was") ; wash_V2 = mkV2 (mkV "was") ;
watch_V2 = mkV2 (mkV "kyk") (mkPrep "naar") ; watch_V2 = mkV2 (mkV "kyk") (mkPrep "na") ;
water_N = mkN "water" neuter ; water_N = mkN "water" neuter ;
wet_A = mkA "nat" ; wet_A = mkA "nat" ;
white_A = mkA "wit" ; white_A = mkA "wit" ;
wide_A = mkA "breed" ; wide_A = mkA "breed" ;
wife_N = mkN "vrouw" utrum ; wife_N = mkN "vrou" neuter ;
win_V2 = mkV2 (mkV "wen") ; win_V2 = mkV2 (mkV "wen") ;
wind_N = mkN "wind" utrum ; wind_N = mkN "wind" neuter ;
window_N = mkN "raam" neuter ; window_N = mkN "venster" neuter ;
wing_N = mkN "vleugel" utrum ; wing_N = mkN "vlerk" neuter ;
wipe_V2 = mkV2 "veg" ; wipe_V2 = mkV2 "vee" ;
woman_N = mkN "vrouw" utrum ; woman_N = mkN "vrou" neuter ;
wood_N = mkN "hout" neuter ; wood_N = mkN "hout" neuter ;
worm_N = mkN "worm" utrum ; worm_N = mkN "wurm" neuter ;
write_V2 = mkV2 (mkV "skryf") ; write_V2 = mkV2 (mkV "skryf") ;
year_N = mkN "jaar" neuter ; year_N = mkN "jaar" neuter ;
yellow_A = mkA "geel" ; yellow_A = mkA "geel" ;
young_A = mkA "jong" ; young_A = mkA "jonk" "jong" "jongs" "jonger" "jongste";
} }

View File

@@ -4,7 +4,7 @@ concrete NounAfr of Noun = CatAfr ** open ResAfr, Prelude in {
lin lin
DetCN det cn = { DetCN det cn = {
s = \\c => det.s ! cn.g ++ cn.s ! det.a ! NF det.n Nom ; s = \\c => det.s ! cn.g ++ cn.s ! det.a ! NF det.n Nom ; -- kan dalk vereenvoudig (2011-01-14)
a = agrP3 det.n ; a = agrP3 det.n ;
isPron = False isPron = False
} ; } ;
@@ -69,7 +69,7 @@ concrete NounAfr of Noun = CatAfr ** open ResAfr, Prelude in {
a = Strong a = Strong
} ; } ;
NumCard n = {s = n.s ! Utr ! Nom ; n = n.n ; isNum = True} ; NumCard n = {s = n.s ! Neutr ! Nom ; n = n.n ; isNum = True} ;
NumPl = {s = []; n = Pl ; isNum = False} ; NumPl = {s = []; n = Pl ; isNum = False} ;
NumSg = {s = []; n = Sg ; isNum = False} ; NumSg = {s = []; n = Sg ; isNum = False} ;
@@ -85,8 +85,8 @@ concrete NounAfr of Noun = CatAfr ** open ResAfr, Prelude in {
OrdSuperl a = {s = a.s ! Superl} ; OrdSuperl a = {s = a.s ! Superl} ;
DefArt = { DefArt = {
s = \\_,n,g => case <n,g> of {<Sg,Neutr> => "het" ; _ => "de"} ; s = \\_,n,g => case <n,g> of {<Sg,Neutr> => "die" ; _ => "die"} ; --afr
sp = \\n,g => "die" ; sp = \\n,g => "hulle" ; --afr
a = Weak a = Weak
} ; } ;
@@ -94,13 +94,13 @@ concrete NounAfr of Noun = CatAfr ** open ResAfr, Prelude in {
s = table { s = table {
True => \\_,_ => [] ; True => \\_,_ => [] ;
False => table { False => table {
Sg => \\g => "een" ; Sg => \\g => "'n" ; --afr
Pl => \\_ => [] Pl => \\_ => []
} }
} ; } ;
sp = table { sp = table {
Sg => \\g => "een" ; Sg => \\g => "'n" ; --afr
Pl => \\_ => "een" ---- Pl => \\_ => "'n" ---- --afr
} ; } ;
a = Strong a = Strong
} ; } ;

View File

@@ -14,16 +14,16 @@ lin
n2 = mkDigit "twee" "twaalf" "twintig" "tweede" ; n2 = mkDigit "twee" "twaalf" "twintig" "tweede" ;
n3 = mkDigit "drie" "dertien" "dertig" "derde" ; n3 = mkDigit "drie" "dertien" "dertig" "derde" ;
n4 = mkDigit "vier" "veertien" "veertig" "vierde" ; n4 = mkDigit "vier" "veertien" "veertig" "vierde" ;
n5 = mkDigit "vijf" "vijftien" "vijftig" "vijfde" ; n5 = mkDigit "vyf" "vyftien" "vyftig" "vyfde" ;
n6 = mkDigit "zes" "zestien" "zestig" "zesde" ; n6 = mkDigit "ses" "sestien" "sestig" "sesde" ;
n7 = mkDigit "zeven" "zeventien" "zeventig" "zevende" ; n7 = mkDigit "seven" "seventien" "seventig" "sevende" ;
n8 = mkDigit "acht" "achttien" "tachtig" "achtste" ; n8 = mkDigit "agt" "agtien" "tagtig" "agtste" ;
n9 = mkDigit "negen" "negentien" "negentig" "negende" ; n9 = mkDigit "nege" "negentien" "negentig" "negende" ;
pot01 = { pot01 = {
s = \\f => table { s = \\f => table {
NCard g _ => "een" ; ---- "één" ; NCard g _ => "een" ; ---- "één" ;
NOrd af => (regAdjective "eerst").s ! Posit ! af NOrd af => (regAdjective "eerste").s ! Posit ! af
} ; } ;
n = Sg ; n = Sg ;
attr = [] ; attr = [] ;
@@ -44,9 +44,9 @@ lin
addAttr {s = \\g => d.attr ++ "honderd" ++ BIND ++ e.s ! g ; n = Pl} ; addAttr {s = \\g => d.attr ++ "honderd" ++ BIND ++ e.s ! g ; n = Pl} ;
pot2as3 n = n ; pot2as3 n = n ;
pot3 n = pot3 n =
addAttr {s = \\g => n.attr ++ cardOrd "duizend" "duizendste" ! g ; n = Pl} ; addAttr {s = \\g => n.attr ++ cardOrd "duisend" "duisendste" ! g ; n = Pl} ;
pot3plus n m = pot3plus n m =
addAttr {s = \\g => n.attr ++ "duizend" ++ m.s ! g ; n = Pl} ; addAttr {s = \\g => n.attr ++ "duisend" ++ m.s ! g ; n = Pl} ;
lincat lincat
@@ -103,7 +103,7 @@ lin
} ; } ;
en = case drei of {_ + "e" => "ën" ; _ => "en"} en = case drei of {_ + "e" => "ën" ; _ => "en"}
} ; } ;
invNum : CardOrd = NCard Utr Nom ; invNum : CardOrd = NCard Neutr Nom ;
addAttr : {s : CardOrd => Str ; n : Number} -> addAttr : {s : CardOrd => Str ; n : Number} ->
{s : CardOrd => Str ; n : Number ; attr : Str} = \n -> n ** {attr = n.s ! invNum ++ BIND} ; {s : CardOrd => Str ; n : Number ; attr : Str} = \n -> n ** {attr = n.s ! invNum ++ BIND} ;

View File

@@ -36,9 +36,10 @@ oper
feminine : Gender ; --% feminine : Gender ; --%
neuter : Gender ; --% neuter : Gender ; --%
utrum : Gender ; --% utrum : Gender ; --%
--afr!
de : Gender ; -- non-neutrum de : Gender ; -- non-neutrum
het : Gender ; -- neutrum het : Gender ; -- neutrum
--die : Gender ;
@@ -77,6 +78,7 @@ oper
mkA : overload { mkA : overload {
mkA : (vers : Str) -> A ; -- regular adjective mkA : (vers : Str) -> A ; -- regular adjective
mkA : (sag, sagte : Str) -> A ; --"semi-irregular"
mkA : (goed,goede,goeds,beter,best : Str) -> A ; -- irregular adjective mkA : (goed,goede,goeds,beter,best : Str) -> A ; -- irregular adjective
} ; } ;
@@ -199,13 +201,14 @@ oper
mkPN : Str -> PN = \s -> lin PN {s = \\_ => s} ; mkPN : Str -> PN = \s -> lin PN {s = \\_ => s} ;
} ; } ;
masculine = Utr ; masculine = Neutr ;
feminine = Utr ; feminine = Neutr ;
het,neuter = Neutr ; het,neuter = Neutr ;
de,utrum = Utr ; de,utrum = Neutr ;
mkA = overload { mkA = overload {
mkA : (vers : Str) -> A = \a -> lin A (regAdjective a) ; mkA : (vers : Str) -> A = \a -> lin A (regAdjective a) ;
mkA : (sag, sagte : Str) -> A = \a,b -> lin A (semregAdjective a b) ;
mkA : (goed,goede,goeds,beter,best : Str) -> A = \a,b,c,d,e -> lin A (mkAdjective a b c d e) ; mkA : (goed,goede,goeds,beter,best : Str) -> A = \a,b,c,d,e -> lin A (mkAdjective a b c d e) ;
} ; } ;

View File

@@ -19,7 +19,7 @@ concrete PhraseAfr of Phrase = CatAfr ** open Prelude, ResAfr in
UttVP vp = {s = useInfVP True vp} ; -- without zu UttVP vp = {s = useInfVP True vp} ; -- without zu
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! Strong ! NF Sg Nom} ; UttCN n = {s = n.s ! Strong ! NF Sg Nom} ;
UttCard n = {s = n.s ! Utr ! Nom} ; UttCard n = {s = n.s ! Neutr ! Nom} ;
UttAP ap = {s = ap.s ! APred} ; UttAP ap = {s = ap.s ! APred} ;
NoPConj = {s = []} ; NoPConj = {s = []} ;

View File

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

View File

@@ -12,7 +12,7 @@ resource ResAfr = ParamX ** open Prelude in {
param param
Case = Nom | Gen ; Case = Nom | Gen ;
Gender = Utr | Neutr ; --! Gender = Neutr ; --!
-- Gender = Utr | Neutr ; --! -- Gender = Utr | Neutr ; --!
NForm = NF Number Case ; NForm = NF Number Case ;
@@ -32,18 +32,47 @@ resource ResAfr = ParamX ** open Prelude in {
g = g g = g
} ; } ;
--Volgens Afrikaanse Woordelys & Spelreëls, 2009
--
-- Uitsonderings wat in die leksikon hanteer moet word:
--
-- * enige uitsonderings wat in die AWS vermeld word
-- * enige woord wat in die mv. "te" kry, soos lig, ligte
-- * enige meerlettergrepige woord wat met "ie","ël","el","em","en","ng","ior","er","êr","erd","aar","aard","ier"
-- eindig wat nie 'n "s" in die mv. kry nie
-- * eiename wat nie reëlmatig verbuig
-- * woorde met wisselvorme in die mv. moet as sinonieme in die leksikon hanteer word
--
regNoun : Str -> Noun = \s -> case s of { regNoun : Str -> Noun = \s -> case s of {
_ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ; _ + #cons + ("i" | "o" | "u" ) => mkNoun s (s + "'s") Neutr ; --ski, ski's --R13.7
_ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ; #cons* + ("ie" | "oe") =>mkNoun s (s + "ë") Neutr ; --knie, knieë --R13.10
#cons* + ("ee") =>mkNoun s (init s + "ë") Neutr ; --fee, feë --R13.10
#cons* + "a" => mkNoun s (s + "'s") Neutr ; --ma, ma's R13.7
_ + ("a" | "e" | "ie" | "ee" | "é" | "ê" | "ô") => mkNoun s (s + "s") Neutr ; --gogga, goggas --R13.5
b + v@("oo") + "g" => mkNoun s (b + init v + "ë") Neutr ; --boog, boë --R13.11
b + v@("e"|"ie"|"o"|"oe") + "g" => mkNoun s (b + v + "ë") Neutr ; --kroeg, kroeë --R13.11
b + v@("aa") + "g" => mkNoun s (b + init v + "e") Neutr ; --kraag, krae --R13.11
b + v@("a") + "g" => mkNoun s (b + v + "e") Neutr ; --dag, dae --R13.11
b + v@("ei"|"eu"|"oe"|"ou"|"ie"|"y"|"ui") + "g" => mkNoun s (b + v + "e") Neutr ; --tuig, tuie --R13.1
_ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ; --uit Nederlandse reël
_ + ("rm" | "lm") => mkNoun s (s + "s") Neutr ; --R13.3
? + ? + ? + _ + ? + ? + ? + _ +
("el" | "em" | "en" | "er" | "erd" | "aar" | "aard" | "ie") => -- unstressed ("ël" |"el" | "em" | "um" | "ing" | "or" | "ior" | "er" | "êr" | "erd" | "aar" | "aard" | "ier") => -- unstressed
mkNoun s (s + "s") Utr ; mkNoun s (s + "s") Neutr ; --R13.3
_ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "en") Utr ; ? + ? + _ + (#cons + "en") => mkNoun s (s + "s") Neutr ; --R13.3
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => mkNoun s (endCons s + "en") Utr ;
_ + "ie" => mkNoun s (s + "ën") Utr ;
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => mkNoun s (b + v + c + c + "en") Utr ; _ + ("i"|"u") => mkNoun s (s + "e") Neutr ; --R13.4
_ => mkNoun s (endCons s + "en") Utr b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "e") Neutr ; --brood, brode --R13.1
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"y"|"ui") + ? => mkNoun s (endCons s + "e") Neutr ; --geluid, geluide --R13.1
b + v@("a"|"e"|"i"|"o"|"u" ) + "f" => mkNoun s (b + v + "ww" + "e") Neutr ; --stof, stowwe --R13.1
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => mkNoun s (b + v + c + c + "e") Neutr ; --dak, dakke --R13.1
_ => mkNoun s (endCons s + "e") Neutr --R13.1
} ; } ;
regNounG : Str -> Gender -> Noun = \s,g -> { regNounG : Str -> Gender -> Noun = \s,g -> {
@@ -55,16 +84,18 @@ resource ResAfr = ParamX ** open Prelude in {
endCons : Str -> Str = \s -> case s of { endCons : Str -> Str = \s -> case s of {
_ + ("ts" |"rs" | "ls" | "ds" | "ns" | "ms") => s ; _ + ("ts" |"rs" | "ls" | "ds" | "ns" | "ms") => s ;
b + "s" => b + "z" ; b + "f" => b + "w" ;
b + "f" => b + "v" ;
_ => s _ => s
} ; } ;
vowel : pattern Str = #("a"|"e"|"i"|"o"|"u") ;
cons : pattern Str = #("b"|"c"|"d"|"f"|"g"|"h"|"j"|"k"|"l"|"m"|"n"|"p"|"q"|"r"|"s"|"t"|"v"|"w"|"x"|"z") ;
dupCons : pattern Str = #("b"|"d"|"f"|"g"|"k"|"l"|"m"|"n"|"p"|"r"|"s"|"t") ; dupCons : pattern Str = #("b"|"d"|"f"|"g"|"k"|"l"|"m"|"n"|"p"|"r"|"s"|"t") ;
--afr! untested because something "breaks" in other languages
add_s : Str -> Str = \s -> case s of { add_s : Str -> Str = \s -> case s of {
_ + "s" => s ; _ + "s" => s ++ "se";
_ => s + "s" _ => s ++ "se"
} ; } ;
param param
@@ -76,30 +107,54 @@ resource ResAfr = ParamX ** open Prelude in {
mkAdjective : (_,_,_,_,_ : Str) -> Adjective = \ap,aa,ag,ac,as -> { mkAdjective : (_,_,_,_,_ : Str) -> Adjective = \ap,aa,ag,ac,as -> {
s = table { s = table {
Posit => table {APred => ap ; AAttr => aa ; AGen => ag} ; Posit => table {APred => ap ; AAttr => aa ; AGen => ag} ;
Compar => table {APred => ac ; AAttr => ac + "e" ; AGen => ac + "es"} ; ---- Compar => table {APred => ac ; AAttr => ac ; AGen => ac + "s"} ; ----
Superl => table {APred => as ; AAttr => as + "e" ; AGen => as + "es"} ---- Superl => table {APred => as ; AAttr => as ; AGen => as + "s"} ----
} }
} ; } ;
--Volgens Afrikaanse Morfologie: Capital Exemplaria, Combrinck, 1990
regAdjective : Str -> Adjective = \s -> ---- regAdjective : Str -> Adjective = \s -> ----
let let
se : Str = case s of { se : Str = case s of {
_ + "er" => s + "e" ; ---- b + v@("aal"|"baar"|"eel"|"loos") => b + init (init v) + last v + "e" ; --p288
_ + ("i"|"u") => endCons s + "e" ; _ + ("agtig"|"ant"|"ent"|"êr"|"ies"|"ig"|"lik"|"matig"|"s") => s + "e" ; --p288
b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ; b + "ief" => b + "iewe" ; --p288
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => endCons s + "e" ;
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => b + v + c + c + "e" ; --b + ("ei"|"eu"|"oe"|"ou"|"ie"|"y"|"ui") + ? => endCons s + "e" ;
_ => endCons s + "e" b + v@("ou"|"y") + "d" => b + v + "e" ; --koud, koue / wyd, wye
--b + v@("oo"|"ee") + "d" => b + init v + "ë" ; --leeg, leë
b + v@("oo"|"ee") + ("g"|"d") => b + init v + "ë" ; --leeg, leë
b + v@("e"|"ie"|"o"|"oe") + "g" => b + v + "ë" ; --moeg, moeë
b + v@("aa") + "g" => b + init v + "e" ; --vaag, vae
b + v@("a") + "g" => b + v + "e" ; --kan nog nie aan 'n voorbeeld dink nie
b + v@("aa"|"ee"|"oo"|"uu") + "r" => s ; --duur, duur
b + v@("aa"|"ee"|"oo"|"uu") + c@#cons => b + shortVoc v c + "e" ; --gaaf, gawe
b + v@("a"|"e"|"i"|"o"|"u" ) + "f" => b + v + "ww" + "e" ; --grof, growwe
--b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => b + v + c + c + "e" ; --stom, growwe
_ + "d" => s + "e" ; --p286
_ => s
} ; } ;
ser : Str = case s of { ser : Str = case se of {
_ + "r" => s + "der" ; b + v@("aa"|"ee"|"oo"|"uu") + "r" => se + "der" ;
_ => se + "r" b + v@("a"|"i"|"o"|"u" ) + c@#cons => b + v + c + c + "er" ; --dom, dommer
_ + "r" => se + "der" ;
_ + "ë" => se + "r" ;
_ + "e" => se + "r" ;
_ => se + "er"
} ; } ;
sst : Str = case s of { sst : Str = case s of {
_ + "s" => s + "t" ; _ + "s" => s + "te" ;
_ => s + "st" _ => s + "ste"
} ; } ;
in in
mkAdjective s se (s + "s") ser sst ; mkAdjective s se (s + "s") ser sst ;
semregAdjective : Str -> Str -> Adjective = \ap,aa -> mkAdjective ap aa (ap + "s") (aa + "r") (ap + "ste") ;
--shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ;
param param
VForm = --! VForm = --!
@@ -119,7 +174,7 @@ resource ResAfr = ParamX ** open Prelude in {
s = table { s = table {
VInf => aaien; -- hij/zij/het/wij aaien VInf => aaien; -- hij/zij/het/wij aaien
VPres => aai; -- ik aai VPres => aai; -- ik aai
VPast => aaide; -- ik aaide --# notpresent VPast => aai; -- ik aaide --# notpresent --!afr! lyk vir nou soos VPres
VPerf => geaaid -- ik heb geaaid VPerf => geaaid -- ik heb geaaid
} }
}; };
@@ -160,9 +215,9 @@ resource ResAfr = ParamX ** open Prelude in {
hebben_V : VVerb = { hebben_V : VVerb = {
s = table { s = table {
VInf => "hê" ; VInf => "het" ;
VPres => "het" ; VPres => "het" ;
VPast => "hat" ; --# notpresent VPast => "had" ; --# notpresent
VPerf => "gehad" VPerf => "gehad"
} ; } ;
aux = VHebben ; aux = VHebben ;
@@ -181,7 +236,7 @@ resource ResAfr = ParamX ** open Prelude in {
VInf => "sal" ; VInf => "sal" ;
VPres => "sal" ; VPres => "sal" ;
VPast => "sou" ; --# notpresent VPast => "sou" ; --# notpresent
VPerf => "gesou" VPerf => "sou" --!afr! perfektum moet hom soos past gedra
} ; } ;
aux = VHebben ; aux = VHebben ;
prefix = [] ; prefix = [] ;
@@ -208,7 +263,7 @@ resource ResAfr = ParamX ** open Prelude in {
a = {g = g ; n = n ; p = p} a = {g = g ; n = n ; p = p}
} ; } ;
het_Pron : Pronoun = mkPronoun "'t" "'t" "ze" "hij" "hem" "zijn" "zijne" Neutr Sg P3 ; het_Pron : Pronoun = mkPronoun "dit" "dit" "hy" "hy" "hom" "sy" "syne" Neutr Sg P3 ;
-- Complex $CN$s, like adjectives, have strong and weak forms. -- Complex $CN$s, like adjectives, have strong and weak forms.
@@ -305,18 +360,18 @@ param
negation : Polarity => Str = table { negation : Polarity => Str = table {
Pos => [] ; Pos => [] ;
Neg => "niet" Neg => "nie"
} ; } ;
-- Extending a verb phrase with new constituents. -- Extending a verb phrase with new constituents
insertObj : (Agr => Str) -> VP -> VP = insertObjNP False ; insertObj : (Agr => Str) -> VP -> VP = insertObjNP False ;
insertObjNP : Bool -> (Agr => Str) -> VP -> VP = \isPron, obj,vp -> { insertObjNP : Bool -> (Agr => Str) -> VP -> VP = \isPron, obj,vp -> {
s = vp.s ; s = vp.s ;
a1 = vp.a1 ; a1 = vp.a1 ;
n0 = \\a => case isPron of {True => obj ! a ; _ => []} ++ vp.n0 ! a ; n0 = \\a => case isPron of {True => obj ! a ; _ => []} ++ vp.n0 ! a;
n2 = \\a => case isPron of {False => obj ! a ; _ => []} ++ vp.n2 ! a ; n2 = \\a => case isPron of {False => obj ! a ; _ => []} ++ vp.n2 ! a;
a2 = vp.a2 ; a2 = vp.a2 ;
isAux = vp.isAux ; isAux = vp.isAux ;
inf = vp.inf ; inf = vp.inf ;
@@ -393,7 +448,7 @@ param
neg = vp.a1 ! b ; neg = vp.a1 ! b ;
obj0 = vp.n0 ! agr ; obj0 = vp.n0 ! agr ;
obj = vp.n2 ! agr ; obj = vp.n2 ! agr ;
compl = obj0 ++ neg ++ obj ++ vp.a2 ++ vp.s.prefix ; compl = obj0 ++ neg ++ obj ++ vp.a2 ++ vp.s.prefix ++ neg;
inf = inf =
case <vp.isAux, vp.inf.p2, a> of { --# notpresent case <vp.isAux, vp.inf.p2, a> of { --# notpresent
<True,True,Anter> => vp.s.s ! VInf ++ vp.inf.p1 ; --# notpresent <True,True,Anter> => vp.s.s ! VInf ++ vp.inf.p1 ; --# notpresent
@@ -423,7 +478,7 @@ param
infVP : Bool -> VP -> ((Agr => Str) * Str * Str) = \isAux, vp -> infVP : Bool -> VP -> ((Agr => Str) * Str * Str) = \isAux, vp ->
< <
\\agr => vp.n2 ! agr ++ vp.a2, \\agr => vp.n0 ! agr ++ vp.n2 ! agr ++ vp.a2,
vp.a1 ! Pos ++ vp.a1 ! Pos ++
if_then_Str isAux [] "te" ++ vp.s.s ! VInf, if_then_Str isAux [] "te" ++ vp.s.s ! VInf,
vp.inf.p1 ++ vp.ext vp.inf.p1 ++ vp.ext
@@ -434,20 +489,22 @@ param
vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ; vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ;
reflPron : Agr => Str = table { reflPron : Agr => Str = table {
{n = Sg ; p = P1} => "me" ; {n = Sg ; p = P1} => "my" ; --afr
{n = Sg ; p = P2} => "je" ; {n = Sg ; p = P2} => "jou" ; --afr
{n = Sg ; p = P3} => "zich" ; {n = Sg ; p = P3} => "hom" ; --afr
{n = Pl ; p = P1} => "ons" ; {g = masculine ; n = Sg ; p = P3} => "hom" ; --afr
{n = Pl ; p = P2} => "je" ; {g = feminine ; n = Sg ; p = P3} => "haar" ; --afr
{n = Pl ; p = P3} => "zich" {n = Pl ; p = P1} => "ons" ; --afr
{n = Pl ; p = P2} => "julle" ; --afr
{n = Pl ; p = P3} => "hulle" --afr
} ; } ;
conjThat : Str = "dat" ; conjThat : Str = "dat" ; --afr
conjThan : Str = "dan" ; conjThan : Str = "as" ; --afr
conjAgr : Agr -> Agr -> Agr = \a,b -> { conjAgr : Agr -> Agr -> Agr = \a,b -> {
g = Utr ; ---- g = Neutr ; ----
n = conjNumber a.n b.n ; n = conjNumber a.n b.n ;
p = conjPerson a.p b.p p = conjPerson a.p b.p
} ; } ;

View File

@@ -16,7 +16,7 @@ concrete SentenceAfr of Sentence = CatAfr ** open ResAfr, Prelude in {
ImpF Sg True => <VInf,[],Sg> ; ImpF Sg True => <VInf,[],Sg> ;
ImpF Sg False => <VInf,[],Sg> ImpF Sg False => <VInf,[],Sg>
} ; } ;
agr = {g = Utr ; n = ps.p3 ; p = P2} ; ---- P2? -- g does not matter agr = {g = Neutr ; n = ps.p3 ; p = P2} ; ---- P2? -- g does not matter
verb = vp.s.s ! ps.p1 ; verb = vp.s.s ! ps.p1 ;
inf = vp.inf.p1 ; inf = vp.inf.p1 ;
in in

View File

@@ -8,7 +8,7 @@ concrete StructuralAfr of Structural = CatAfr, Prelude **
lin lin
above_Prep = mkPrep "boven" ; above_Prep = mkPrep "bo" ;
after_Prep = mkPrep "na" ; after_Prep = mkPrep "na" ;
all_Predet = mkPredet "alle" "alle" ; ---- all_Predet = mkPredet "alle" "alle" ; ----
almost_AdA, almost_AdN = ss "byna" ; almost_AdA, almost_AdN = ss "byna" ;
@@ -17,109 +17,109 @@ concrete StructuralAfr of Structural = CatAfr, Prelude **
and_Conj = {s1 = [] ; s2 = "en" ; n = Pl} ; and_Conj = {s1 = [] ; s2 = "en" ; n = Pl} ;
because_Subj = ss "omdat" ; ---- doordat because_Subj = ss "omdat" ; ---- doordat
before_Prep = mkPrep "voor" ; before_Prep = mkPrep "voor" ;
behind_Prep = mkPrep "achter" ; behind_Prep = mkPrep "agter" ;
between_Prep = mkPrep "tussen" ; between_Prep = mkPrep "tussen" ;
both7and_DConj = {s1 = "sowel" ; s2 = "als" ; n = Pl} ; both7and_DConj = {s1 = "sowel" ; s2 = "as" ; n = Pl} ;
but_PConj = ss "maar" ; but_PConj = ss "maar" ;
by8agent_Prep = mkPrep "door" ; by8agent_Prep = mkPrep "deur" ;
by8means_Prep = mkPrep "met" ; by8means_Prep = mkPrep "met" ;
can8know_VV, can_VV = auxVV (mkV "kan" "kon") ; can8know_VV, can_VV = auxVV (mkV "kan" "kon") ;
during_Prep = mkPrep "tydens" ; during_Prep = mkPrep "tydens" ;
either7or_DConj = {s1 = "ofwel" ; s2 = "of" ; n = Pl} ; either7or_DConj = {s1 = "òf" ; s2 = "òf" ; n = Pl} ;
everybody_NP = mkNP "alle" Utr Pl ; ---- everybody_NP = mkNP "almal" Neutr Pl ; ----
every_Det = mkDet "elke" "elk" Sg ; ---- every_Det = mkDet "elke" "elk" Sg ; ----
everything_NP = mkNP "alles" Neutr Sg ; ---- everything_NP = mkNP "alles" Neutr Sg ; ----
everywhere_Adv = ss "overal" ; everywhere_Adv = ss "oral" ;
few_Det = mkDet "weinig" "weinig" Pl ; few_Det = mkDet "min" "min" Pl ;
for_Prep = mkPrep "voor" ; for_Prep = mkPrep "voor" ;
from_Prep = mkPrep "uit" ; from_Prep = mkPrep "uit" ;
he_Pron = mkPronoun "hy" "hem" "syn" "hy" "hem" "syn" "syne" Utr Sg P3 ; he_Pron = mkPronoun "hy" "hom" "sy" "hy" "hom" "sy" "syne" Neutr Sg P3 ; --afr
here7to_Adv = ss ["hier"] ; here7to_Adv = ss ["hier"] ;
here7from_Adv = ss ["van hier"] ; ---- here7from_Adv = ss ["van hier"] ; ----
here_Adv = ss "hier" ; here_Adv = ss "hier" ;
how_IAdv = ss "hoe" ; how_IAdv = ss "hoe" ;
how8much_IAdv = ss "hoeveel" ; how8much_IAdv = ss "hoeveel" ;
how8many_IDet = mkDet "hoeveel" "hoeveel" Pl ; how8many_IDet = mkDet "hoeveel" "hoeveel" Pl ;
if_Subj = ss "als" ; if_Subj = ss "as" ;
in8front_Prep = mkPrep "voor" ; in8front_Prep = mkPrep "voor" ;
i_Pron = mkPronoun "ek" "me" "myn" "ik" "my" "myn" "myne" Utr Sg P1 ; i_Pron = mkPronoun "ek" "my" "my" "ek" "my" "my" "myne" Neutr Sg P1 ;
in_Prep = ss "in" ; in_Prep = ss "in" ;
it_Pron = mkPronoun "het" "het" "syn" "het" "het" "syn" "syne" Neutr Sg P3 ; it_Pron = mkPronoun "dit" "dit" "sy" "dit" "dit" "sy" "syne" Neutr Sg P3 ;
less_CAdv = X.mkCAdv "minder" "dan" ; less_CAdv = X.mkCAdv "minder" "as" ;
many_Det = mkDet "veel" "veel" Pl ; many_Det = mkDet "baie" "baie" Pl ;
more_CAdv = X.mkCAdv "meer" "dan" ; more_CAdv = X.mkCAdv "meer" "as" ;
most_Predet = mkPredet "meeste" "meeste" ; most_Predet = mkPredet "meeste" "meeste" ;
much_Det = mkDet "veel" "veel" Sg ; much_Det = mkDet "baie" "baie" Sg ;
must_VV = auxVV (mkV "moeten" "moest" "gemoeten") ; must_VV = auxVV (mkV "moet" "moes" "gemoeten") ; --afr
only_Predet = {s = \\_,_ => "slechts"} ; only_Predet = {s = \\_,_ => "slegs"} ;
no_Utt = ss "neen" ; no_Utt = ss "neen" ;
on_Prep = mkPrep "op" ; on_Prep = mkPrep "op" ;
or_Conj = {s1 = [] ; s2 = "of" ; n = Sg} ; or_Conj = {s1 = [] ; s2 = "of" ; n = Sg} ;
otherwise_PConj = ss "anders" ; otherwise_PConj = ss "anders" ;
part_Prep = mkPrep "van" ; part_Prep = mkPrep "van" ;
please_Voc = ss "alsjeblieft" ; please_Voc = ss "asseblief" ;
possess_Prep = mkPrep "van" ; possess_Prep = mkPrep "van" ;
quite_Adv = ss "heel" ; quite_Adv = ss "heel" ;
she_Pron = mkPronoun "se" "haar" "haar" "sy" "haar" "haar" "hare" Utr Sg P3 ; she_Pron = mkPronoun "sy" "haar" "haar" "sy" "haar" "haar" "hare" Neutr Sg P3 ;
so_AdA = ss "so" ; so_AdA = ss "so" ;
somebody_NP = mkNP "iemand" Utr Sg ; somebody_NP = mkNP "iemand" Neutr Sg ;
somePl_Det = mkDet "sommige" "sommige" Pl ; somePl_Det = mkDet "sommige" "sommige" Pl ;
someSg_Det = mkDet "sommige" "sommige" Sg ; someSg_Det = mkDet "sommige" "sommige" Sg ;
something_NP = mkNP "iets" Utr Sg ; something_NP = mkNP "iets" Neutr Sg ;
somewhere_Adv = ss "ergens" ; somewhere_Adv = ss "êrens" ;
that_Quant = mkQuant "die" "dat" ; that_Quant = mkQuant "daardie" "daardie" ;
that_Subj = ss "dat" ; that_Subj = ss "dat" ;
there_Adv = ss "daar" ; there_Adv = ss "daar" ;
there7to_Adv = ss "daar" ; there7to_Adv = ss "daar" ;
there7from_Adv = ss "van daar" ; there7from_Adv = ss "van daar" ;
therefore_PConj = ss "daarom" ; therefore_PConj = ss "daarom" ;
they_Pron = mkPronoun "se" "se" "hun" "sy" "hen" "hun" "hunne" Utr Pl P3 ; ---- they_Pron = mkPronoun "hulle" "hulle" "hulle" "hulle" "hulle" "hulle" "hulle s'n" Neutr Pl P3 ; ----
this_Quant = mkQuant "dese" "dit" ; this_Quant = mkQuant "hierdie" "hierdie" ;
through_Prep = mkPrep "door" ; through_Prep = mkPrep "deur" ;
too_AdA = ss "te" ; too_AdA = ss "te" ;
to_Prep = mkPrep "naar" ; to_Prep = mkPrep "na" ;
under_Prep = mkPrep "onder" ; under_Prep = mkPrep "onder" ;
very_AdA = ss "erg" ; very_AdA = ss "baie" ;
want_VV = auxVV (mkV "wil" "wou" "gewil") ; want_VV = auxVV (mkV "wil" "wou" "gewil") ;
we_Pron = mkPronoun "we" "ons" "ons" "wy" "ons" "onse" "onse" Utr Pl P3 ; ---- we_Pron = mkPronoun "ons" "ons" "ons" "ons" "ons" "ons" "ons s'n" Neutr Pl P3 ; ----
whatSg_IP = {s = \\_ => "wat" ; n = Sg} ; whatSg_IP = {s = \\_ => "wat" ; n = Sg} ;
whatPl_IP = {s = \\_ => "wat" ; n = Pl} ; whatPl_IP = {s = \\_ => "wat" ; n = Pl} ;
when_IAdv = ss "wanneer" ; when_IAdv = ss "wanneer" ;
when_Subj = ss "als" ; when_Subj = ss "as" ;
where_IAdv = ss "waar" ; where_IAdv = ss "waar" ;
which_IQuant = mkPredet "welke" "welk" ; which_IQuant = mkPredet "watter" "watter" ;
whoSg_IP = {s = \\_ => "wie" ; n = Sg} ; whoSg_IP = {s = \\_ => "wie" ; n = Sg} ;
whoPl_IP = {s = \\_ => "wie" ; n = Pl} ; whoPl_IP = {s = \\_ => "wie" ; n = Pl} ;
why_IAdv = ss "waarom" ; why_IAdv = ss "waarom" ;
without_Prep = mkPrep "sonder" ; without_Prep = mkPrep "sonder" ;
with_Prep = mkPrep "met" ; with_Prep = mkPrep "met" ;
youSg_Pron = mkPronoun "je" "je" "je" "jy" "jou" "je" "jouwe" Neutr Sg P2 ; --- Neutr as hack for familiarity youSg_Pron = mkPronoun "jy" "jou" "jou" "jy" "jou" "je" "joune" Neutr Sg P2 ; --- Neutr as hack for familiarity
youPl_Pron = mkPronoun "jullie" "jullie" "je" "jullie" "jullie" "jullie" "uwe" Utr Pl P2 ; youPl_Pron = mkPronoun "julle" "julle" "julle" "julle" "julle" "julle" "julle s'n" Neutr Pl P2 ;
youPol_Pron = mkPronoun "u" "u" "uw" "u" "u" "uw" "uwe" Utr Sg P2 ; youPol_Pron = mkPronoun "u" "u" "u" "u" "u" "u" "u s'n" Neutr Sg P2 ;
yes_Utt = ss "ja" ; yes_Utt = ss "ja" ;
not_Predet = mkPredet "niet" "niet" ; not_Predet = mkPredet "nie" "nie" ;
no_Quant = mkQuant "geen" "geen" ; no_Quant = mkQuant "geen" "geen" ;
if_then_Conj = {s1 = "als" ; s2 = "dan" ; n = Sg ; lock_Conj = <>} ; if_then_Conj = {s1 = "as" ; s2 = "dan" ; n = Sg ; lock_Conj = <>} ;
nobody_NP = mkNP "niemand" Utr Sg ; nobody_NP = mkNP "niemand" Neutr Sg ;
nothing_NP = mkNP "niets" Neutr Sg ; nothing_NP = mkNP "niks" Neutr Sg ;
at_least_AdN = ss "ten minste" ; at_least_AdN = ss "ten minste" ;
at_most_AdN = ss "hooguit" ; at_most_AdN = ss "hoogstens" ;
except_Prep = mkPrep "met uitsondering van" ; except_Prep = mkPrep "behalwe" ;
as_CAdv = X.mkCAdv "so" "als" ; as_CAdv = X.mkCAdv "so" "soos" ; --afr
have_V2 = mkV2 ParadigmsAfr.hebben_V ; have_V2 = mkV2 ParadigmsAfr.hebben_V ;
lin language_title_Utt = ss "nederlands" ; lin language_title_Utt = ss "afrikaans" ;
} }

View File

@@ -44,6 +44,6 @@ lin
ConsSymb = infixSS "," ; ConsSymb = infixSS "," ;
oper oper
artDef : Number -> Gender -> Str = \n,g -> case <n,g> of {<Sg,Neutr> => "het" ; _ => "de"} ; artDef : Number -> Gender -> Str = \n,g -> case <n,g> of {<Sg,Neutr> => "die" ; _ => "die"} ; --afr
} }

View File

@@ -64,7 +64,15 @@ concrete VerbAfr of Verb = CatAfr ** open Prelude, ResAfr in {
predVv v)))) ** {c2 = v.c2} ; predVv v)))) ** {c2 = v.c2} ;
UseComp comp = insertObj comp.s (predV zijn_V) ; -- agr not used UseComp comp = insertObj comp.s (predV zijn_V) ; -- agr not used
CompCN cn = {s = \\a => cn.s ! Strong ! NF a.n Nom} ;
--edited
CompCN cn = {s = \\a => case a.n of {
Sg => "'n" ++ cn.s ! Strong ! NF a.n Nom ;
Pl => cn.s ! Strong ! NF a.n Nom
}
} ;
CompAP ap = {s = \\_ => ap.s ! APred} ; CompAP ap = {s = \\_ => ap.s ! APred} ;
CompNP np = {s = \\_ => np.s ! NPNom} ; CompNP np = {s = \\_ => np.s ! NPNom} ;
CompAdv a = {s = \\_ => a.s} ; CompAdv a = {s = \\_ => a.s} ;
@@ -72,7 +80,7 @@ concrete VerbAfr of Verb = CatAfr ** open Prelude, ResAfr in {
AdvVP vp adv = insertAdv adv.s vp ; AdvVP vp adv = insertAdv adv.s vp ;
AdVVP adv vp = insertAdV adv.s vp ; AdVVP adv vp = insertAdV adv.s vp ;
ReflVP vp = insertObj (\\a => appPrep vp.c2 (\\_ => reflPron ! a)) vp ; ReflVP vp = insertObj (\\a => appPrep vp.c2 (\\_ => reflPron ! a )) vp ;
PassV2 v = insertInf (v.s ! VPerf) (predV word_V) ; PassV2 v = insertInf (v.s ! VPerf) (predV word_V) ;