forked from GitHub/gf-core
added Afrikaans (draft, direct adaptation from Dutch)
This commit is contained in:
aarne
57
lib/src/afrikaans/AdjectiveAfr.gf
Normal file
57
lib/src/afrikaans/AdjectiveAfr.gf
Normal file
@@ -0,0 +1,57 @@
|
||||
concrete AdjectiveAfr of Adjective = CatAfr ** open ResAfr, Prelude in
|
||||
{
|
||||
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
|
||||
PositA a = {
|
||||
s = a.s ! Posit ;
|
||||
isPre = True
|
||||
} ;
|
||||
ComparA a np = {
|
||||
s = \\af => a.s ! Compar ! af ++ "dan" ++ np.s ! NPNom ;
|
||||
isPre = True
|
||||
} ;
|
||||
CAdvAP ad ap np = {
|
||||
s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ np.s ! NPNom ;
|
||||
isPre = False
|
||||
} ;
|
||||
UseComparA a = {
|
||||
s = \\af => a.s ! Compar ! af ;
|
||||
isPre = True
|
||||
} ;
|
||||
AdjOrd a = {
|
||||
s = a.s ;
|
||||
isPre = True
|
||||
} ;
|
||||
|
||||
-- $SuperlA$ belongs to determiner syntax in $Noun$.
|
||||
|
||||
ComplA2 a np = {
|
||||
s = \\af => a.s ! Posit ! af ++ appPrep a.c2 np.s ;
|
||||
isPre = True
|
||||
} ;
|
||||
|
||||
ReflA2 a = {
|
||||
s = \\af => a.s ! Posit ! APred ++ appPrep a.c2 (\\_ => reflPron ! agrP3 Sg) ; --- agr
|
||||
isPre = True
|
||||
} ;
|
||||
|
||||
SentAP ap sc = {
|
||||
s = \\a => ap.s ! a ++ sc.s ;
|
||||
isPre = False
|
||||
} ;
|
||||
|
||||
AdAP ada ap = {
|
||||
s = \\a => ada.s ++ ap.s ! a ;
|
||||
isPre = ap.isPre
|
||||
} ;
|
||||
|
||||
UseA2 a = {
|
||||
s = a.s ! Posit ;
|
||||
isPre = True
|
||||
} ;
|
||||
|
||||
}
|
||||
24
lib/src/afrikaans/AdverbAfr.gf
Normal file
24
lib/src/afrikaans/AdverbAfr.gf
Normal file
@@ -0,0 +1,24 @@
|
||||
concrete AdverbAfr of Adverb = CatAfr ** open ResAfr, Prelude in {
|
||||
|
||||
|
||||
lin
|
||||
PositAdvAdj a = {s = a.s ! Posit ! APred} ;
|
||||
|
||||
ComparAdvAdj cadv a np = {
|
||||
s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ np.s ! NPNom
|
||||
} ;
|
||||
ComparAdvAdjS cadv a s = {
|
||||
s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ s.s ! Sub
|
||||
} ;
|
||||
|
||||
PrepNP prep np = {s = appPrep prep.s np.s} ;
|
||||
|
||||
AdAdv = cc2 ;
|
||||
|
||||
PositAdAAdj a = {s = a.s ! Posit ! APred} ;
|
||||
|
||||
SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
|
||||
|
||||
AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
|
||||
|
||||
}
|
||||
11
lib/src/afrikaans/AllAfr.gf
Normal file
11
lib/src/afrikaans/AllAfr.gf
Normal file
@@ -0,0 +1,11 @@
|
||||
--# -path=.:../abstract:../common:prelude
|
||||
|
||||
concrete AllAfr of AllAfrAbs =
|
||||
LangAfr,
|
||||
IrregAfr,
|
||||
ExtraAfr
|
||||
**
|
||||
{
|
||||
--{} ;
|
||||
|
||||
}
|
||||
88
lib/src/afrikaans/CatAfr.gf
Normal file
88
lib/src/afrikaans/CatAfr.gf
Normal file
@@ -0,0 +1,88 @@
|
||||
concrete CatAfr of Cat =
|
||||
CommonX **
|
||||
open ResAfr, Prelude in {
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lincat
|
||||
|
||||
-- Tensed/Untensed
|
||||
|
||||
S = {s : Order => Str} ;
|
||||
QS = {s : QForm => Str} ;
|
||||
RS = {s : Gender => Number => Str} ;
|
||||
SSlash = {s : Order => Str} ** {c2 : Preposition} ;
|
||||
|
||||
-- Sentence
|
||||
|
||||
Cl = Clause ; -- {s : Tense => Anteriority => Polarity => Order => Str} ;
|
||||
ClSlash = Clause ** {c2 : Preposition} ;
|
||||
Imp = {s : Polarity => ImpForm => Str} ;
|
||||
|
||||
-- Question
|
||||
|
||||
QCl = {s : ResAfr.Tense => Anteriority => Polarity => QForm => Str} ;
|
||||
IP = {s : NPCase => Str ; n : Number} ;
|
||||
IComp = {s : Agr => Str} ;
|
||||
IDet = {s : Gender => Str ; n : Number} ;
|
||||
IQuant = {s : Number => Gender => Str} ;
|
||||
|
||||
-- Relative
|
||||
|
||||
RCl = {s : ResAfr.Tense => Anteriority => Polarity => Gender => Number => Str} ;
|
||||
RP = {s : Gender => Number => Str ; a : RAgr} ;
|
||||
|
||||
-- Verb
|
||||
|
||||
VP = ResAfr.VP ;
|
||||
VPSlash = ResAfr.VP ** {c2 : Preposition} ;
|
||||
Comp = {s : Agr => Str} ;
|
||||
|
||||
-- Adjective
|
||||
|
||||
AP = {s : AForm => Str ; isPre : Bool} ;
|
||||
|
||||
-- Noun
|
||||
|
||||
CN = {s : Adjf => NForm => Str ; g : Gender} ;
|
||||
NP = {s : NPCase => Str ; a : Agr ; isPron : Bool} ;
|
||||
Pron = Pronoun ;
|
||||
|
||||
Det = {s,sp : Gender => Str ; n : Number ; a : Adjf} ;
|
||||
Quant = {
|
||||
s : Bool => Number => Gender => Str ;
|
||||
sp : Number => Gender => Str ;
|
||||
a : Adjf
|
||||
} ;
|
||||
Predet = {s : Number => Gender => Str} ;
|
||||
Num = {s : Str ; n : Number ; isNum : Bool} ;
|
||||
Card = {s : Gender => Case => Str ; n : Number} ;
|
||||
Ord = {s : AForm => Str} ;
|
||||
|
||||
-- Numeral
|
||||
|
||||
Numeral = {s : CardOrd => Str ; n : Number } ;
|
||||
Digits = {s : CardOrd => Str ; n : Number } ;
|
||||
|
||||
-- Structural
|
||||
|
||||
Conj = {s1,s2 : Str ; n : Number} ;
|
||||
Subj = {s : Str} ;
|
||||
Prep = {s : Str} ;
|
||||
|
||||
-- Open lexical classes, e.g. Lexicon
|
||||
|
||||
V, VS, VQ, VA = ResAfr.VVerb ;
|
||||
VV = VVerb ** {isAux : Bool} ;
|
||||
V2, V2A, V2S, V2Q = VVerb ** {c2 : Preposition} ;
|
||||
V2V = VVerb ** {c2 : Preposition ; isAux : Bool} ;
|
||||
V3 = VVerb ** {c2, c3 : Preposition} ;
|
||||
|
||||
A = Adjective ;
|
||||
A2 = Adjective ** {c2 : Preposition} ;
|
||||
|
||||
N = Noun ;
|
||||
N2 = {s : NForm => Str ; g : Gender} ** {c2 : Preposition} ;
|
||||
N3 = {s : NForm => Str ; g : Gender} ** {c2,c3 : Preposition} ;
|
||||
PN = {s : NPCase => Str} ;
|
||||
|
||||
}
|
||||
42
lib/src/afrikaans/ConjunctionAfr.gf
Normal file
42
lib/src/afrikaans/ConjunctionAfr.gf
Normal file
@@ -0,0 +1,42 @@
|
||||
concrete ConjunctionAfr of Conjunction =
|
||||
CatAfr ** open ResAfr, Coordination, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
|
||||
ConjS conj ss = conjunctDistrTable Order conj ss ;
|
||||
|
||||
ConjAdv conj ss = conjunctDistrSS conj ss ;
|
||||
|
||||
ConjNP conj ss = heavyNP (conjunctDistrTable NPCase conj ss ** {
|
||||
a = {g = Utr ; n = conjNumber conj.n ss.a.n ; p = ss.a.p}
|
||||
}) ;
|
||||
|
||||
ConjAP conj ss = conjunctDistrTable AForm conj ss ** {
|
||||
isPre = ss.isPre
|
||||
} ;
|
||||
|
||||
ConjRS conj ss = conjunctDistrTable2 Gender Number conj ss ;
|
||||
|
||||
-- These fun's are generated from the list cat's.
|
||||
|
||||
BaseS = twoTable Order ;
|
||||
ConsS = consrTable Order comma ;
|
||||
BaseAdv = twoSS ;
|
||||
ConsAdv = consrSS comma ;
|
||||
BaseNP x y = twoTable NPCase x y ** {a = conjAgr x.a y.a} ;
|
||||
ConsNP xs x = consrTable NPCase comma xs x ** {a = conjAgr xs.a x.a} ;
|
||||
BaseAP x y = twoTable AForm x y ** {isPre = andB x.isPre y.isPre} ;
|
||||
ConsAP xs x = consrTable AForm comma xs x ** {isPre = andB xs.isPre x.isPre} ;
|
||||
BaseRS x y = twoTable2 Gender Number x y ** {c = y.c} ;
|
||||
ConsRS xs x = consrTable2 Gender Number comma xs x ;
|
||||
|
||||
lincat
|
||||
[S] = {s1,s2 : Order => Str} ;
|
||||
[Adv] = {s1,s2 : Str} ;
|
||||
[NP] = {s1,s2 : NPCase => Str ; a : Agr} ;
|
||||
[AP] = {s1,s2 : AForm => Str ; isPre : Bool} ;
|
||||
[RS] = {s1,s2 : Gender => Number => Str} ;
|
||||
|
||||
}
|
||||
30
lib/src/afrikaans/ExtraAfr.gf
Normal file
30
lib/src/afrikaans/ExtraAfr.gf
Normal file
@@ -0,0 +1,30 @@
|
||||
concrete ExtraAfr of ExtraAfrAbs = CatAfr **
|
||||
open ResAfr, Coordination, Prelude, IrregAfr in
|
||||
{
|
||||
--{
|
||||
--
|
||||
-- lincat
|
||||
-- VPI = {s : Bool => Str} ;
|
||||
-- [VPI] = {s1,s2 : Bool => Str} ;
|
||||
-- lin
|
||||
-- BaseVPI = twoTable Bool ;
|
||||
-- ConsVPI = consrTable Bool comma ;
|
||||
--
|
||||
-- MkVPI vp = {s = \\b => useInfVP b vp} ;
|
||||
-- ConjVPI = conjunctDistrTable Bool ;
|
||||
--
|
||||
-- ComplVPIVV v vpi =
|
||||
-- insertInf (vpi.s ! v.isAux) (
|
||||
-- predVGen v.isAux v) ; ----
|
||||
--{-
|
||||
-- insertExtrapos vpi.p3 (
|
||||
-- insertInf vpi.p2 (
|
||||
-- insertObj vpi.p1 (
|
||||
-- predVGen v.isAux v))) ;
|
||||
---}
|
||||
--
|
||||
-- PPzuAdv cn = {s = case cn.g of {
|
||||
-- Masc | Neutr => "zum" ;
|
||||
-- Fem => "zur"
|
||||
-- } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat
|
||||
-- } ;
|
||||
17
lib/src/afrikaans/GrammarAfr.gf
Normal file
17
lib/src/afrikaans/GrammarAfr.gf
Normal file
@@ -0,0 +1,17 @@
|
||||
--# -path=.:../abstract:../common:prelude
|
||||
|
||||
concrete GrammarAfr of Grammar =
|
||||
NounAfr,
|
||||
VerbAfr,
|
||||
AdjectiveAfr,
|
||||
AdverbAfr,
|
||||
NumeralAfr,
|
||||
SentenceAfr,
|
||||
QuestionAfr,
|
||||
RelativeAfr,
|
||||
ConjunctionAfr,
|
||||
PhraseAfr,
|
||||
TextX,
|
||||
IdiomAfr,
|
||||
StructuralAfr,
|
||||
TenseX ;
|
||||
50
lib/src/afrikaans/IdiomAfr.gf
Normal file
50
lib/src/afrikaans/IdiomAfr.gf
Normal file
@@ -0,0 +1,50 @@
|
||||
concrete IdiomAfr of Idiom = CatAfr **
|
||||
open MorphoAfr, (P = ParadigmsAfr), IrregAfr, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
ImpersCl vp = mkClause "'t" (agrP3 Sg) vp ;
|
||||
GenericCl vp = mkClause "men" (agrP3 Sg) vp ;
|
||||
|
||||
CleftNP np rs = mkClause "'t" (agrP3 Sg)
|
||||
(insertExtrapos (rs.s ! np.a.g ! np.a.n) ----
|
||||
(insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ;
|
||||
|
||||
CleftAdv ad s = mkClause "'t" (agrP3 Sg)
|
||||
(insertExtrapos (conjThat ++ s.s ! Sub)
|
||||
(insertObj (\\_ => ad.s) (predV zijn_V))) ;
|
||||
|
||||
ExistNP np =
|
||||
mkClause "er" (agrP3 np.a.n)
|
||||
(insertObj (\\_ => np.s ! NPNom)
|
||||
(predV zijn_V)) ;
|
||||
|
||||
ExistIP ip = {
|
||||
s = \\t,a,p =>
|
||||
let
|
||||
cls =
|
||||
(mkClause "er" (agrP3 ip.n) (predV zijn_V)).s ! t ! a ! p ;
|
||||
who = ip.s ! NPNom
|
||||
in table {
|
||||
QDir => who ++ cls ! Inv ;
|
||||
QIndir => who ++ cls ! Sub
|
||||
}
|
||||
} ;
|
||||
|
||||
ProgrVP vp = insertAdv ("aan" ++ "het" ++ useInfVP True vp) (predV zijn_V) ;
|
||||
|
||||
ImpPl1 vp =
|
||||
let
|
||||
v = v2vv (regVerb "laat") ;
|
||||
vpi = infVP True vp ;
|
||||
vvp = insertExtrapos vpi.p3 (
|
||||
insertInf vpi.p2 (
|
||||
insertObj vpi.p1 (
|
||||
predVGen True v))) ;
|
||||
in
|
||||
{s = (mkClause "we" {g = Utr ; n = Pl ; p = P1} vvp).s !
|
||||
Pres ! Simul ! Pos ! Inv
|
||||
} ;
|
||||
|
||||
}
|
||||
199
lib/src/afrikaans/IrregAfr.gf
Normal file
199
lib/src/afrikaans/IrregAfr.gf
Normal file
@@ -0,0 +1,199 @@
|
||||
--# -path=.:../common:../abstract
|
||||
|
||||
concrete IrregAfr of IrregAfrAbs = CatAfr ** open ParadigmsAfr in {
|
||||
{-
|
||||
lin bakken_V = mkV "bakken" "bakte" "bakten" "gebakken" ;
|
||||
lin bannen_V = mkV "bannen" "bande" "banden" "gebannen" ;
|
||||
lin barsten_V = mkV "barsten" "barstte" "barstten" "gebarsten" ;
|
||||
lin bederven_V = mkZijnHebbenV "bederven" "bedierf" "bedierven" "bedorven" ;
|
||||
lin bedriegen_V = mkV "bedriegen" "bedroog" "bedrogen" "bedrogen" ;
|
||||
lin beginnen_V = mkZijnV "beginnen" "begon" "begonnen" "begonnen" ;
|
||||
lin behangen_V = mkV "behangen" "behangde" "behangden" "behangen" ;
|
||||
lin bergen_V = mkV "bergen" "borg" "borgen" "geborgen" ;
|
||||
lin bevelen_V = mkV "bevelen" "beval" "bevalen" "bevolen" ;
|
||||
lin bezwijken_V = mkZijnV "bezwijken" "bezweek" "bezweken" "bezweken" ;
|
||||
lin bidden_V = mkV "bidden" "bad" "baden" "gebeden" ;
|
||||
lin bieden_V = mkV "bieden" "bood" "boden" "geboden" ;
|
||||
lin bijten_V = mkV "bijten" "beet" "beten" "gebeten" ;
|
||||
lin binden_V = mkV "binden" "bond" "bonden" "gebonden" ;
|
||||
lin blazen_V = mkV "blazen" "blies" "bliezen" "geblazen" ;
|
||||
lin blijken_V = mkZijnV "blijken" "bleek" "bleken" "gebleken" ;
|
||||
lin blijven_V = mkZijnV "blijven" "bleef" "bleven" "gebleven" ;
|
||||
lin blinken_V = mkV "blinken" "blonk" "blonken" "geblonken" ;
|
||||
lin braden_V = mkV "braden" "braadde" "braadden" "gebraden" ;
|
||||
lin breken_V = mkZijnHebbenV "breken" "brak" "braken" "gebroken" ;
|
||||
lin brengen_V = mkV "brengen" "bracht" "brachten" "gebracht" ;
|
||||
lin brouwen_V = mkV "brouwen" "brouwde" "brouwden" "gebrouwen" ;
|
||||
lin buigen_V = mkV "buigen" "boog" "bogen" "gebogen" ;
|
||||
lin denken_V = mkV "denken" "dacht" "dachten" "gedacht" ;
|
||||
lin dingen_V = mkV "dingen" "naar" "dong" "naar" ;
|
||||
lin doen_V = mkV "doen" "deed" "deden" "gedaan" ;
|
||||
lin dragen_V = mkV "dragen" "droeg" "droegen" "gedragen" ;
|
||||
lin drijven_V = mkV "drijven" "dreef" "dreven" "gedreven" ;
|
||||
lin dringen_V = mkV "dringen" "drong" "drongen" "gedrongen" ;
|
||||
lin drinken_V = mkV "drinken" "dronk" "dronken" "gedronken" ;
|
||||
lin druipen_V = mkZijnHebbenV "druipen" "droop" "dropen" "gedropen" ;
|
||||
lin duiken_V = mkZijnHebbenV "duiken" "dook" "doken" "gedoken" ;
|
||||
lin dwingen_V = mkV "dwingen" "dwong" "dwongen" "gedwongen" ;
|
||||
lin eten_V = mkV "eten" "at" "aten" "gegeten" ;
|
||||
lin fluiten_V = mkV "fluiten" "floot" "floten" "gefloten" ;
|
||||
lin gelden_V = mkV "gelden" "gold" "golden" "gegolden" ;
|
||||
lin gaan_V = mkZijnV "gaan" "ging" "gingen" "gegaan" ;
|
||||
lin genezen_V = mkZijnHebbenV "genezen" "genas" "genazen" "genezen" ;
|
||||
lin genieten_V = mkV "genieten" "genoot" "genoten" "genoten" ;
|
||||
lin geven_V = mkV "geven" "gaf" "gaven" "gegeven" ;
|
||||
lin gieten_V = mkV "gieten" "goot" "goten" "gegoten" ;
|
||||
lin glijden_V = mkZijnHebbenV "glijden" "gleed" "gleden" "gegleden" ;
|
||||
lin glimmen_V = mkV "glimmen" "glom" "glommen" "geglommen" ;
|
||||
lin graven_V = mkV "graven" "groef" "groeven" "gegraven" ;
|
||||
lin grijpen_V = mkV "grijpen" "greep" "grepen" "gegrepen" ;
|
||||
lin hangen_V = mkV "hangen" "hing" "hingen" "gehangen" ;
|
||||
lin heffen_V = mkV "heffen" "hief" "hieven" "geheven" ;
|
||||
lin helpen_V = mkV "helpen" "hielp" "hielpen" "geholpen" ;
|
||||
lin heten_V = mkV "heten" "heette" "heetten" "geheten" ;
|
||||
lin hijsen_V = mkV "hijsen" "hees" "hesen" "gehesen" ;
|
||||
lin hoeven_V = mkV "hoeven" "hoefde" "hoefden" "gehoeven" ;
|
||||
lin houden_V = mkV "houden" "hield" "hielden" "gehouden" ;
|
||||
lin houwen_V = mkV "houwen" "houwde" "houwden" "gehouwen" ;
|
||||
lin jagen_V = mkV "jagen" "joeg" "joegen" "gejaagd" ;
|
||||
lin kiezen_V = mkV "kiezen" "koos" "kozen" "gekozen" ;
|
||||
lin kijken_V = mkV "kijken" "naar" "keek" "naar" ;
|
||||
lin klimmen_V = mkZijnHebbenV "klimmen" "klom" "klommen" "geklommen" ;
|
||||
lin klinken_V = mkV "klinken" "klonk" "klonken" "geklonken" ;
|
||||
lin kluiven_V = mkV "kluiven" "kloof" "kloven" "gekloven" ;
|
||||
lin knijpen_V = mkV "knijpen" "kneep" "knepen" "geknepen" ;
|
||||
lin kopen_V = mkV "kopen" "kocht" "kochten" "gekocht" ;
|
||||
lin krijgen_V = mkV "krijgen" "kreeg" "kregen" "gekregen" ;
|
||||
lin krimpen_V = mkZijnV "krimpen" "kromp" "krompen" "gekrompen" ;
|
||||
lin kruipen_V = mkZijnHebbenV "kruipen" "kroop" "kropen" "gekropen" ;
|
||||
lin zich_V = mkV "zich" "kwijten" "van" "kweet" ;
|
||||
lin lachen_V = mkV "lachen" "lachte" "lachten" "gelachen" ;
|
||||
lin laden_V = mkV "laden" "laadde" "laadden" "geladen" ;
|
||||
lin laten_V = mkV "laten" "liet" "lieten" "gelaten" ;
|
||||
lin lezen_V = mkV "lezen" "las" "lazen" "gelezen" ;
|
||||
lin liegen_V = mkV "liegen" "loog" "logen" "gelogen" ;
|
||||
lin liggen_V = mkV "liggen" "lag" "lagen" "gelegen" ;
|
||||
lin lijden_V = mkV "lijden" "leed" "leden" "geleden" ;
|
||||
lin lijken_V = mkV "lijken" "op" "leek" "op" ;
|
||||
lin lopen_V = mkZijnHebbenV "lopen" "liep" "liepen" "gelopen" ;
|
||||
lin malen_V = mkV "malen" "maalde" "maalden" "gemalen" ;
|
||||
lin melken_V = mkV "melken" "molk" "molken" "gemolken" ;
|
||||
lin meten_V = mkV "meten" "mat" "maten" "gemeten" ;
|
||||
lin mijden_V = mkV "mijden" "meed" "meden" "gemeden" ;
|
||||
lin moeten_V = mkV "moeten" "moest" "moesten" "gemoeten" ;
|
||||
lin nemen_V = mkV "nemen" "nam" "namen" "genomen" ;
|
||||
lin nijgen_V = mkV "nijgen" "neeg" "negen" "genegen" ;
|
||||
lin ontginnen_V = mkV "ontginnen" "ontgon" "ontgonnen" "ontgonnen" ;
|
||||
lin ontluiken_V = mkZijnV "ontluiken" "ontlook" "ontloken" "ontloken" ;
|
||||
lin pluizen_V = mkV "pluizen" "ploos" "plozen" "geplozen" ;
|
||||
lin prijzen_V = mkV "prijzen" "prees" "prezen" "geprezen" ;
|
||||
lin raden_V = mkV "raden" "raadde" "raadden" "geraden" ;
|
||||
lin rijden_V = mkZijnHebbenV "rijden" "reed" "reden" "gereden" ;
|
||||
lin rijgen_V = mkV "rijgen" "reeg" "regen" "geregen" ;
|
||||
lin rijten_V = mkV "rijten" "reet" "reten" "gereten" ;
|
||||
lin rijzen_V = mkZijnV "rijzen" "rees" "rezen" "gerezen" ;
|
||||
lin roepen_V = mkV "roepen" "riep" "riepen" "geroepen" ;
|
||||
lin ruiken_V = mkV "ruiken" "rook" "roken" "geroken" ;
|
||||
lin scheiden_V = mkZijnHebbenV "scheiden" "scheidde" "scheidden" "gescheiden" ;
|
||||
lin schelden_V = mkV "schelden" "schold" "scholden" "gescholden" ;
|
||||
lin schenden_V = mkV "schenden" "schond" "schonden" "geschonden" ;
|
||||
lin schenken_V = mkV "schenken" "schonk" "schonken" "geschonken" ;
|
||||
lin scheppen_V = mkV "scheppen" "shiep" "schiepen" "geschapen" ;
|
||||
lin scheren_V = mkV "scheren" "scheerde" "scheerden" "geschoren" ;
|
||||
lin schieten_V = mkV "schieten" "schoot" "schoten" "geschoten" ;
|
||||
lin schijnen_V = mkV "schijnen" "scheen" "schenen" "1." ;
|
||||
lin verschijnen_V = mkZijnV "verschijnen" "verscheen" "verschenen" "verschenen" ;
|
||||
lin schijten_V = mkV "schijten" "scheet" "scheten" "gescheten" ;
|
||||
lin schrijven_V = mkV "schrijven" "schreef" "schreven" "geschreven" ;
|
||||
lin schrikken_V = mkZijnV "schrikken" "schrok" "schrokken" "geschrokken" ;
|
||||
lin schuilen_V = mkV "schuilen" "school" "scholen" "gescholen" ;
|
||||
lin schuiven_V = mkZijnHebbenV "schuiven" "schoof" "schoven" "geschoven" ;
|
||||
lin slaan_V = mkV "slaan" "sloeg" "sloegen" "geslagen" ;
|
||||
lin slapen_V = mkV "slapen" "sliep" "sliepen" "geslapen" ;
|
||||
lin slijpen_V = mkV "slijpen" "sleep" "slepen" "geslepen" ;
|
||||
lin slijten_V = mkZijnHebbenV "slijten" "sleet" "sleten" "gesleten" ;
|
||||
lin slinken_V = mkZijnV "slinken" "slonk" "slonken" "geslonken" ;
|
||||
lin sluipen_V = mkZijnHebbenV "sluipen" "sloop" "slopen" "geslopen" ;
|
||||
lin sluiten_V = mkZijnHebbenV "sluiten" "sloot" "sloten" "gesloten" ;
|
||||
lin smelten_V = mkZijnHebbenV "smelten" "smolt" "smolten" "gesmolten" ;
|
||||
lin smijten_V = mkV "smijten" "smeet" "smeten" "gesmeten" ;
|
||||
lin snijden_V = mkV "snijden" "sneed" "sneden" "gesneden" ;
|
||||
lin snuiten_V = mkV "snuiten" "snoot" "snoten" "gesnoten" ;
|
||||
lin snuiven_V = mkV "snuiven" "snoof" "snoven" "gesnoven" ;
|
||||
lin spannen_V = mkV "spannen" "spande" "spanden" "gespannen" ;
|
||||
lin spijten_V = mkV "spijten" "speet" "speten" "gespeten" ;
|
||||
lin spinnen_V = mkV "spinnen" "spon" "sponnen" "gesponnen" ;
|
||||
lin splijten_V = mkZijnHebbenV "splijten" "spleet" "spleten" "gespleten" ;
|
||||
lin spreken_V = mkV "spreken" "sprak" "spraken" "gesproken" ;
|
||||
lin springen_V = mkZijnHebbenV "springen" "sprong" "sprongen" "gesprongen" ;
|
||||
lin spruiten_V = mkZijnV "spruiten" "sproot" "sproten" "gesproten" ;
|
||||
lin spuiten_V = mkV "spuiten" "spoot" "spoten" "gespoten" ;
|
||||
lin staan_V = mkV "staan" "stond" "stonden" "gestaan" ;
|
||||
lin steken_V = mkV "steken" "stak" "staken" "gestoken" ;
|
||||
lin stelen_V = mkV "stelen" "stal" "stalen" "gestolen" ;
|
||||
lin sterven_V = mkZijnV "sterven" "stierf" "stierven" "gestorven" ;
|
||||
lin stijgen_V = mkZijnV "stijgen" "steeg" "stegen" "gestegen" ;
|
||||
lin stijven_V = mkV "stijven" "steef" "steven" "gesteven" ;
|
||||
lin stinken_V = mkV "stinken" "stonk" "stonken" "gestonken" ;
|
||||
lin stoten_V = mkV "stoten" "stootte" "stootten" "gestoten" ;
|
||||
lin strijden_V = mkV "strijden" "streed" "streden" "gestreden" ;
|
||||
lin strijken_V = mkV "strijken" "streek" "streken" "gestreken" ;
|
||||
lin neerstrijken_V = mkV "neerstrijken" "streek" "neer" "streken" ;
|
||||
lin stuiven_V = mkV "stuiven" "stoof" "stoven" "gestoven" ;
|
||||
lin treden_V = mkZijnHebbenV "treden" "trad" "traden" "getreden" ;
|
||||
lin treffen_V = mkV "treffen" "trof" "troffen" "getroffen" ;
|
||||
lin trekken_V = mkZijnHebbenV "trekken" "trok" "trokken" "getrokken" ;
|
||||
lin vallen_V = mkZijnV "vallen" "viel" "vielen" "gevallen" ;
|
||||
lin vangen_V = mkV "vangen" "ving" "vingen" "gevangen" ;
|
||||
lin varen_V = mkZijnHebbenV "varen" "voer" "voeren" "gevaren" ;
|
||||
lin vechten_V = mkV "vechten" "vocht" "vochten" "gevochten" ;
|
||||
lin verdrieten_V = mkV "verdrieten" "verdroot" "verdroten" "verdroten" ;
|
||||
lin verdwijnen_V = mkZijnV "verdwijnen" "verdween" "verdwenen" "verdwenen" ;
|
||||
lin vergeten_V = mkV "vergeten" "+" "vergat" "vergaten" ;
|
||||
lin verliezen_V = mkV "verliezen" "verloor" "verloren" "verloren" ;
|
||||
lin vinden_V = mkV "vinden" "vond" "vonden" "gevonden" ;
|
||||
lin vlechten_V = mkV "vlechten" "vlocht" "vlochten" "gevlochten" ;
|
||||
lin vliegen_V = mkZijnHebbenV "vliegen" "vloog" "vlogen" "gevlogen" ;
|
||||
lin vouwen_V = mkV "vouwen" "vouwde" "vouwden" "gevouwen" ;
|
||||
lin vragen_V = mkV "vragen" "vroeg" "vroegen" "gevraagd" ;
|
||||
lin vreten_V = mkV "vreten" "vrat" "vraten" "gevreten" ;
|
||||
lin vriezen_V = mkV "vriezen" "vroor" "vroren" "gevroren" ;
|
||||
lin vrijen_V = mkV "vrijen" "vree" "/" "vrijde" ;
|
||||
lin wassen_V = mkV "wassen" "waste" "wasten" "gewassen" ;
|
||||
lin wegen_V = mkV "wegen" "woog" "wogen" "gewogen" ;
|
||||
lin werpen_V = mkV "werpen" "wierp" "wierpen" "geworpen" ;
|
||||
lin werven_V = mkV "werven" "wierf" "wierven" "geworven" ;
|
||||
lin weten_V = mkV "weten" "wist" "wisten" "geweten" ;
|
||||
lin weven_V = mkV "weven" "weefde" "weefden" "geweven" ;
|
||||
lin wijken_V = mkZijnV "wijken" "week" "weken" "geweken" ;
|
||||
lin wijten_V = mkV "wijten" "weet" "weten" "geweten" ;
|
||||
lin wijzen_V = mkV "wijzen" "wees" "wezen" "gewezen" ;
|
||||
lin winden_V = mkV "winden" "wond" "wonden" "gewonden" ;
|
||||
lin winnen_V = mkV "winnen" "won" "wonnen" "gewonnen" ;
|
||||
lin worden_V = mkV "worden" "werd" "werden" "geworden" ;
|
||||
lin wrijven_V = mkV "wrijven" "wreef" "wreven" "gewreven" ;
|
||||
lin wringen_V = mkV "wringen" "wrong" "wrongen" "gewrongen" ;
|
||||
lin zeggen_V = mkV "zeggen" "zei" "zeiden" "gezegd" ;
|
||||
lin zenden_V = mkV "zenden" "zond" "zonden" "gezonden" ;
|
||||
lin zien_V = mkV "zien" "zag" "zagen" "gezien" ;
|
||||
lin zijgen_V = mkZijnV "zijgen" "zeeg" "zegen" "gezegen" ;
|
||||
lin zingen_V = mkV "zingen" "zong" "zongen" "gezongen" ;
|
||||
lin zinken_V = mkZijnV "zinken" "zonk" "zonken" "gezonken" ;
|
||||
lin zinnen_V = mkV "zinnen" "zon" "zonnen" "gezonnen" ;
|
||||
lin zitten_V = mkV "zitten" "zat" "zaten" "gezeten" ;
|
||||
lin zoeken_V = mkV "zoeken" "zocht" "zochten" "gezocht" ;
|
||||
lin zuigen_V = mkV "zuigen" "zoog" "zogen" "gezogen" ;
|
||||
lin zuipen_V = mkV "zuipen" "zoop" "zopen" "gezopen" ;
|
||||
lin zwelgen_V = mkV "zwelgen" "zwolg" "zwolgen" "gezwolgen" ;
|
||||
lin zwellen_V = mkZijnV "zwellen" "zwol" "zwollen" "gezwollen" ;
|
||||
lin zwemmen_V = mkZijnHebbenV "zwemmen" "zwom" "zwommen" "gezwommen" ;
|
||||
lin zweren_V = mkV "zweren" "zwoer" "zwoeren" "gezworen" ;
|
||||
lin zwerven_V = mkV "zwerven" "zwierf" "zwierven" "gezworven" ;
|
||||
lin zwijgen_V = mkV "zwijgen" "zweeg" "zwegen" "gezwegen" ;
|
||||
|
||||
oper
|
||||
mkZijnV, mkZijnHebbenV : (_,_,_,_ : Str) -> V ;
|
||||
mkZijnV a b c d = zijnV (mkV a b c d) ;
|
||||
mkZijnHebbenV a b c d = zijnV (mkV a b c d) ; ---- both could be
|
||||
-}
|
||||
}
|
||||
192
lib/src/afrikaans/IrregAfrAbs.gf
Normal file
192
lib/src/afrikaans/IrregAfrAbs.gf
Normal file
@@ -0,0 +1,192 @@
|
||||
abstract IrregAfrAbs = Cat ** {
|
||||
{-
|
||||
fun bakken_V : V ; -- to fry
|
||||
fun bannen_V : V ; -- to ban
|
||||
fun barsten_V : V ; -- to burst
|
||||
fun bederven_V : V ; -- to rot, to decay
|
||||
fun bedriegen_V : V ; -- to deceive, to cheat, to trick
|
||||
fun beginnen_V : V ; -- to begin
|
||||
fun behangen_V : V ; -- to wall-paper
|
||||
fun bergen_V : V ; -- to store, to recover
|
||||
fun bevelen_V : V ; -- to order, to command
|
||||
fun bezwijken_V : V ; -- to succumb, to collapse
|
||||
fun bidden_V : V ; -- to pray
|
||||
fun bieden_V : V ; -- to offer
|
||||
fun bijten_V : V ; -- to bite
|
||||
fun binden_V : V ; -- to bind, to tie
|
||||
fun blazen_V : V ; -- to blow, to spit (cat)
|
||||
fun blijken_V : V ; -- to appear, to be evident
|
||||
fun blijven_V : V ; -- to stay, to remain, to keep
|
||||
fun blinken_V : V ; -- to shine, to gleam
|
||||
fun braden_V : V ; -- to roast, to grill
|
||||
fun breken_V : V ; -- to break
|
||||
fun brengen_V : V ; -- to bring
|
||||
fun brouwen_V : V ; -- to brew
|
||||
fun buigen_V : V ; -- to bend
|
||||
fun denken_V : V ; -- to think
|
||||
fun dingen_V : V ; -- dongen naar gedongen naar to bid for, to compete for
|
||||
fun doen_V : V ; -- to do
|
||||
fun dragen_V : V ; -- to carry, to bear
|
||||
fun drijven_V : V ; -- to drive, to float , to manage
|
||||
fun dringen_V : V ; -- to push (a crowd)
|
||||
fun drinken_V : V ; -- to drink
|
||||
fun druipen_V : V ; -- to drip
|
||||
fun duiken_V : V ; -- to dive
|
||||
fun dwingen_V : V ; -- to force
|
||||
fun eten_V : V ; -- to eat
|
||||
fun fluiten_V : V ; -- to whistle, to play the flute
|
||||
fun gelden_V : V ; -- to be valid, to be in effect
|
||||
fun gaan_V : V ; -- to go
|
||||
fun genezen_V : V ; -- to heal, to cure
|
||||
fun genieten_V : V ; -- to enjoy
|
||||
fun geven_V : V ; -- to give
|
||||
fun gieten_V : V ; -- to pour
|
||||
fun glijden_V : V ; -- to glide
|
||||
fun glimmen_V : V ; -- to glimmer, to shine, to gleam
|
||||
fun graven_V : V ; -- to dig
|
||||
fun grijpen_V : V ; -- to grab, to snatch
|
||||
fun hangen_V : V ; -- to hang
|
||||
fun heffen_V : V ; -- to raise, to lift, to levy
|
||||
fun helpen_V : V ; -- to help
|
||||
fun heten_V : V ; -- to be called, to be named
|
||||
fun hijsen_V : V ; -- to hoist (sails, flag), to pull up
|
||||
fun hoeven_V : V ; -- to be necessary
|
||||
fun houden_V : V ; -- to hold
|
||||
fun houwen_V : V ; -- to hew, hack
|
||||
fun jagen_V : V ; -- to hunt
|
||||
fun kiezen_V : V ; -- to choose, to elect
|
||||
fun kijken_V : V ; -- keken naar gekeken naar to look at
|
||||
fun klimmen_V : V ; -- to climb
|
||||
fun klinken_V : V ; -- to sound, to ring, to clink
|
||||
fun kluiven_V : V ; -- to pick (a bone), to nibble
|
||||
fun knijpen_V : V ; -- to pinch, to squeeze
|
||||
fun kopen_V : V ; -- to buy
|
||||
fun krijgen_V : V ; -- to get
|
||||
fun krimpen_V : V ; -- to shrink
|
||||
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 lachen_V : V ; -- to laugh, to smile
|
||||
fun laden_V : V ; -- to load, to charge
|
||||
fun laten_V : V ; -- to let, to allow
|
||||
fun lezen_V : V ; -- to read
|
||||
fun liegen_V : V ; -- to (tell a) lie
|
||||
fun liggen_V : V ; -- to lie (on a bed)
|
||||
fun lijden_V : V ; -- to suffer
|
||||
fun lijken_V : V ; -- leken op geleken op to resemble, to seem
|
||||
fun lopen_V : V ; -- to walk
|
||||
fun malen_V : V ; -- to grind
|
||||
fun melken_V : V ; -- to milk (a cow)
|
||||
fun meten_V : V ; -- to measure
|
||||
fun mijden_V : V ; -- to avoid
|
||||
fun moeten_V : V ; -- to must, have to
|
||||
fun nemen_V : V ; -- to take
|
||||
fun nijgen_V : V ; -- to (make a bow
|
||||
fun ontginnen_V : V ; -- to reclaim (land), to clear (forest), to exploit (mine)
|
||||
fun ontluiken_V : V ; -- to open (flower, beauty)
|
||||
fun pluizen_V : V ; -- to fluff, to give off fluff
|
||||
fun prijzen_V : V ; -- to praise
|
||||
fun raden_V : V ; -- go guess
|
||||
fun rijden_V : V ; -- to drive, to ride
|
||||
fun rijgen_V : V ; -- to tack, to lace, to thread
|
||||
fun rijten_V : V ; -- to tear, to rip
|
||||
fun rijzen_V : V ; -- to rise
|
||||
fun roepen_V : V ; -- to call, to shout
|
||||
fun ruiken_V : V ; -- to smell, to scent
|
||||
fun scheiden_V : V ; -- to divorce, to separate
|
||||
fun schelden_V : V ; -- to curse, to swear
|
||||
fun schenden_V : V ; -- to violate, to damage
|
||||
fun schenken_V : V ; -- 1. to donate 2. to pour
|
||||
fun scheppen_V : V ; -- to create
|
||||
fun scheren_V : V ; -- to shave
|
||||
fun schieten_V : V ; -- to shoot
|
||||
fun schijnen_V : V ; -- geschenen
|
||||
fun verschijnen_V : V ; -- to appear, to turn up
|
||||
fun schijten_V : V ; -- to shit (flat)
|
||||
fun schrijven_V : V ; -- to write
|
||||
fun schrikken_V : V ; -- to be startled
|
||||
fun schuilen_V : V ; -- to shelter
|
||||
fun schuiven_V : V ; -- to shove
|
||||
fun slaan_V : V ; -- to hit
|
||||
fun slapen_V : V ; -- to sleep
|
||||
fun slijpen_V : V ; -- to sharpen, to polish
|
||||
fun slijten_V : V ; -- to wear out, to sell
|
||||
fun slinken_V : V ; -- to shrink, to decrease in number
|
||||
fun sluipen_V : V ; -- to sneak, to slink
|
||||
fun sluiten_V : V ; -- to close, to shut
|
||||
fun smelten_V : V ; -- to melt
|
||||
fun smijten_V : V ; -- to throw, to fling
|
||||
fun snijden_V : V ; -- to cut
|
||||
fun snuiten_V : V ; -- to snout, to blow (nose)
|
||||
fun snuiven_V : V ; -- to sniff, to snort
|
||||
fun spannen_V : V ; -- to strain, to bend (a bow)
|
||||
fun spijten_V : V ; -- to regret
|
||||
fun spinnen_V : V ; -- to twist
|
||||
fun splijten_V : V ; -- to split, to cleave
|
||||
fun spreken_V : V ; -- to speak
|
||||
fun springen_V : V ; -- to jump, to spring
|
||||
fun spruiten_V : V ; -- to sprout, to grow out
|
||||
fun spuiten_V : V ; -- to spout, to squirt
|
||||
fun staan_V : V ; -- to stand
|
||||
fun steken_V : V ; -- to stab, to prick, to sting
|
||||
fun stelen_V : V ; -- to steal
|
||||
fun sterven_V : V ; -- to die
|
||||
fun stijgen_V : V ; -- to rise
|
||||
fun stijven_V : V ; -- to starch
|
||||
fun stinken_V : V ; -- to stink
|
||||
fun stoten_V : V ; -- to push, to bump
|
||||
fun strijden_V : V ; -- to battle, to fight
|
||||
fun strijken_V : V ; -- to iron (clothes), strike (flag), smooth (hair)
|
||||
fun neerstrijken_V : V ; -- neer neergestreken * to settle in a place
|
||||
fun stuiven_V : V ; -- to cause dust to whirl, to dash forward
|
||||
fun treden_V : V ; -- to tread
|
||||
fun treffen_V : V ; -- to hit (goal) to strike
|
||||
fun trekken_V : V ; -- to pull, to draw, to travel
|
||||
fun vallen_V : V ; -- to fall
|
||||
fun vangen_V : V ; -- to catch
|
||||
fun varen_V : V ; -- to fare, to sail
|
||||
fun vechten_V : V ; -- to fight
|
||||
fun verdrieten_V : V ; -- to grieve
|
||||
fun verdwijnen_V : V ; -- to disappear
|
||||
fun vergeten_V : V ; -- vergeten to forget
|
||||
fun verliezen_V : V ; -- to lose
|
||||
fun vinden_V : V ; -- to find
|
||||
fun vlechten_V : V ; -- to plait, to braid
|
||||
fun vliegen_V : V ; -- to fly
|
||||
fun vouwen_V : V ; -- to fold
|
||||
fun vragen_V : V ; -- to ask
|
||||
fun vreten_V : V ; -- to eat, to devour
|
||||
fun vriezen_V : V ; -- to freeze ("it's freezing")
|
||||
fun vrijen_V : V ; -- vreeën / vrijden gevreeën / gevrijd to make love
|
||||
fun wassen_V : V ; -- to wash
|
||||
fun wegen_V : V ; -- to weigh
|
||||
fun werpen_V : V ; -- to throw
|
||||
fun werven_V : V ; -- to recruit
|
||||
fun weten_V : V ; -- to know
|
||||
fun weven_V : V ; -- to weave
|
||||
fun wijken_V : V ; -- to give way, to disappear
|
||||
fun wijten_V : V ; -- to blame (something) on
|
||||
fun wijzen_V : V ; -- to point
|
||||
fun winden_V : V ; -- to wind
|
||||
fun winnen_V : V ; -- to win
|
||||
fun worden_V : V ; -- to become
|
||||
fun wrijven_V : V ; -- to rub
|
||||
fun wringen_V : V ; -- to wring
|
||||
fun zeggen_V : V ; -- to say
|
||||
fun zenden_V : V ; -- to send
|
||||
fun zien_V : V ; -- to see
|
||||
fun zijgen_V : V ; -- to sink down (neerzijgen)
|
||||
fun zingen_V : V ; -- to sing
|
||||
fun zinken_V : V ; -- to sink
|
||||
fun zinnen_V : V ; -- to ponder (zinnen op)
|
||||
fun zitten_V : V ; -- to sit
|
||||
fun zoeken_V : V ; -- to seek, to search
|
||||
fun zuigen_V : V ; -- to suck
|
||||
fun zuipen_V : V ; -- to booze
|
||||
fun zwelgen_V : V ; -- to revel, to dwell (in self-pity)
|
||||
fun zwellen_V : V ; -- to swell
|
||||
fun zwemmen_V : V ; -- to swim
|
||||
fun zweren_V : V ; -- to swear (oath)
|
||||
fun zwerven_V : V ; -- to wander, to ramble
|
||||
fun zwijgen_V : V ; -- to be silent
|
||||
-}
|
||||
}
|
||||
5
lib/src/afrikaans/LangAfr.gf
Normal file
5
lib/src/afrikaans/LangAfr.gf
Normal file
@@ -0,0 +1,5 @@
|
||||
--# -path=.:../abstract:../common:../prelude
|
||||
|
||||
concrete LangAfr of Lang =
|
||||
GrammarAfr,
|
||||
LexiconAfr ;
|
||||
362
lib/src/afrikaans/LexiconAfr.gf
Normal file
362
lib/src/afrikaans/LexiconAfr.gf
Normal file
@@ -0,0 +1,362 @@
|
||||
--# -path=.:../common:../abstract:../../prelude
|
||||
|
||||
-- work by Aarne Ranta
|
||||
|
||||
concrete LexiconAfr of Lexicon = CatAfr **
|
||||
open Prelude, ParadigmsAfr, IrregAfr in {
|
||||
|
||||
flags
|
||||
optimize=all_subs ;
|
||||
|
||||
lin
|
||||
add_V3 = mkV3 (mkV "toe" (mkV "voeg")) (mkPrep "aan") ;
|
||||
already_Adv = mkAdv "al" ;
|
||||
answer_V2S = mkV2S (mkV "antwoord") noPrep ;
|
||||
ask_V2Q = mkV2Q (mkV "vra") noPrep ;
|
||||
bad_A = mkA "boos" ;
|
||||
beautiful_A = mkA "mooi" ;
|
||||
become_VA = mkVA (mkV "word") ;
|
||||
beer_N = mkN "bier" "bieren" neuter ;
|
||||
beg_V2V = mkV2V (mkV "smek") noPrep ; ---- om te
|
||||
big_A = mkA "groot" ;
|
||||
bike_N = mkN "fiets" ;
|
||||
black_A = mkA "swart" ;
|
||||
blue_A = mkA "blauw";
|
||||
book_N = mkN "boek" ;
|
||||
brother_N2 = mkN2 (mkN "broer" "broers" masculine) van_Prep ;
|
||||
brown_A = mkA "bruin" ;
|
||||
buy_V2 = mkV2 (mkV "kop" "kocht" "gekocht") ;
|
||||
child_N = mkN "kind" "kinderen" neuter ;
|
||||
come_V = zijnV (mkV "kom") ;
|
||||
die_V = zijnV (mkV "sterv" "stierf" "gestorv") ;
|
||||
distance_N3 = mkN3 (mkN "afstand") van_Prep (mkPrep "naar") ;
|
||||
drink_V2 = mkV2 (mkV "drink") ;
|
||||
easy_A2V = mkA2 (mkA "gemakkelik") noPrep ;
|
||||
eat_V2 = mkV2 (mkV "eet") ;
|
||||
father_N2 = mkN2 (mkN "vader") van_Prep ;
|
||||
fear_VS = mkVS (mkV "vres") ;
|
||||
fish_N = mkN "vis" ;
|
||||
go_V = mkV "gaan" ;
|
||||
hope_VS = mkVS (mkV "hop") ;
|
||||
house_N = mkN "huis" neuter ;
|
||||
know_VQ = mkVQ (mkV "weet") ;
|
||||
know_VS = mkVS (mkV "weet") ;
|
||||
married_A2 = mkA2 (mkA "getrouwd") (mkPrep "met") ;
|
||||
mother_N2 = mkN2 (mkN "moeder") ;
|
||||
now_Adv = mkAdv "nu" ;
|
||||
paint_V2A = mkV2A (mkV "schilder") noPrep ;
|
||||
paris_PN = mkPN "Parys" ;
|
||||
red_A = mkA "rood" ;
|
||||
say_VS = mkVS (mkV "sê") ;
|
||||
see_V2 = mkV2 (mkV "sien") ;
|
||||
sell_V3 = mkV3 (mkV "verkop" "verkocht" "verkocht") ;
|
||||
send_V3 = mkV3 (mkV "stur") (mkPrep "naar") ;
|
||||
sleep_V = mkV "slaap" ;
|
||||
small_A = mkA "klein" ;
|
||||
talk_V3 = mkV3 (mkV "prat") (mkPrep "met") (mkPrep "over") ;
|
||||
warm_A = mkA "warm" ;
|
||||
wine_N = mkN "wyn" ;
|
||||
john_PN = mkPN "Jan" ;
|
||||
left_Ord = mkOrd (invarA "linker") ; ----
|
||||
right_Ord = mkOrd (invarA "rechter") ; ----
|
||||
today_Adv = mkAdv "vandaag" ;
|
||||
far_Adv = mkAdv "ver" ;
|
||||
give_V3 = mkV3 (mkV "gee") ;
|
||||
wonder_VQ = mkVQ (reflV (mkV "af" (mkV "vra"))) ;
|
||||
airplane_N = mkN "vliegtuig" neuter ;
|
||||
animal_N = mkN "dier" neuter ;
|
||||
apartment_N = mkN "appartement" neuter ;
|
||||
apple_N = mkN "appel" utrum ;
|
||||
art_N = mkN "kunst" utrum ;
|
||||
ashes_N = mkN "as" utrum ;
|
||||
baby_N = mkN "baby" utrum ;
|
||||
back_N = mkN "achterkant" utrum ;
|
||||
bank_N = mkN "bank" utrum ;
|
||||
bark_N = mkN "schors" utrum ;
|
||||
belly_N = mkN "buik" utrum ;
|
||||
bird_N = mkN "vogel" utrum ;
|
||||
bite_V2 = mkV2 (mkV "byt") ;
|
||||
black_A = mkA "swart" ;
|
||||
blood_N = mkN "bloed" neuter ;
|
||||
blow_V = mkV "blaas" ;
|
||||
boat_N = mkN "boot" utrum ;
|
||||
bone_N = mkN "bot" neuter ;
|
||||
boot_N = mkN "boot" utrum ;
|
||||
boss_N = mkN "baas" utrum ;
|
||||
boy_N = mkN "jongen" utrum ;
|
||||
bread_N = mkN "brood" neuter ;
|
||||
break_V2 = mkV2 (mkV "breek") ;
|
||||
breast_N = mkN "borst" utrum ;
|
||||
breathe_V = mkV "adem" ;
|
||||
broad_A = mkA "breed" ;
|
||||
burn_V = mkV "brand" ;
|
||||
butter_N = mkN "boter" utrum ;
|
||||
camera_N = mkN "camera" utrum ;
|
||||
cap_N = mkN "kap" utrum ;
|
||||
car_N = mkN "auto" utrum ;
|
||||
carpet_N = mkN "tapyt" neuter ;
|
||||
cat_N = mkN "kat" utrum ;
|
||||
ceiling_N = mkN "plafond" neuter ;
|
||||
chair_N = mkN "stoel" utrum ;
|
||||
cheese_N = mkN "kaas" utrum ;
|
||||
church_N = mkN "kerk" utrum ;
|
||||
city_N = mkN "stad" utrum ;
|
||||
clean_A = mkA "schoon" ;
|
||||
clever_A = mkA "slim" ;
|
||||
close_V2 = mkV2 (mkV "sluit") ;
|
||||
cloud_N = mkN "wolk" utrum ;
|
||||
coat_N = mkN "vacht" utrum ;
|
||||
cold_A = mkA "koud" ;
|
||||
computer_N = mkN "computer" utrum ;
|
||||
correct_A = mkA "correct" ;
|
||||
count_V2 = mkV2 "reken" ;
|
||||
country_N = mkN "land" neuter ;
|
||||
cousin_N = mkN "neef" utrum ;
|
||||
cow_N = mkN "koe" utrum ;
|
||||
cut_V2 = mkV2 (mkV "sny") ;
|
||||
day_N = mkN "dag" utrum ;
|
||||
dig_V = mkV "grawe" ;
|
||||
dirty_A = mkA "vuil" ;
|
||||
do_V2 = mkV2 (mkV "doen") ;
|
||||
doctor_N = mkN "arts" utrum ;
|
||||
dog_N = mkN "hond" utrum ;
|
||||
door_N = mkN "deur" utrum ;
|
||||
dry_A = mkA "droog" ;
|
||||
dull_A = mkA "saai" ;
|
||||
dust_N = mkN "stof" neuter ;
|
||||
ear_N = mkN "oor" neuter ;
|
||||
earth_N = mkN "aarde" utrum ;
|
||||
egg_N = mkN "ei" neuter ;
|
||||
empty_A = mkA "leeg" ;
|
||||
enemy_N = mkN "vyand" utrum ;
|
||||
eye_N = mkN "oog" neuter ;
|
||||
factory_N = mkN "fabriek" utrum ;
|
||||
fall_V = mkV "val" ;
|
||||
fat_N = mkN "vet" neuter ;
|
||||
fear_V2 = mkV2 "vrez" ;
|
||||
feather_N = mkN "veer" utrum ;
|
||||
fight_V2 = mkV2 (mkV "veg") ;
|
||||
find_V2 = mkV2 (mkV "vind") ;
|
||||
fingernail_N = mkN "vingernagel" utrum ;
|
||||
fire_N = mkN "brand" utrum ;
|
||||
float_V = mkV "dryf" ;
|
||||
floor_N = mkN "vloer" utrum ;
|
||||
flow_V = mkV "strom" ;
|
||||
flower_N = mkN "bloem" utrum ;
|
||||
fly_V = mkV "vlieg" ;
|
||||
fog_N = mkN "mist" utrum ;
|
||||
foot_N = mkN "voet" utrum ;
|
||||
forest_N = mkN "bos" neuter ;
|
||||
forget_V2 = mkV2 (mkV "vergeet") ;
|
||||
freeze_V = mkV "vries" ;
|
||||
fridge_N = mkN "koelkast" utrum ;
|
||||
friend_N = mkN "vriend" utrum ;
|
||||
fruit_N = mkN "vrucht" utrum ;
|
||||
full_A = mkA "vol" ;
|
||||
fun_AV = mkA "leuk" ;
|
||||
garden_N = mkN "tuin" utrum ;
|
||||
girl_N = mkN "meisje" neuter ;
|
||||
glove_N = mkN "handschoen" utrum ;
|
||||
gold_N = mkN "goud" neuter ;
|
||||
good_A = mkA "goed" "goede" "goeds" "beter" "best" ;
|
||||
grammar_N = mkN "grammatica" utrum ;
|
||||
grass_N = mkN "gras" neuter ;
|
||||
green_A = mkA "groen" ;
|
||||
guts_N = mkN "darm" utrum ;
|
||||
hair_N = mkN "haar" neuter ;
|
||||
hand_N = mkN "hand" utrum ;
|
||||
harbour_N = mkN "haven" utrum ;
|
||||
hat_N = mkN "hoed" utrum ;
|
||||
hate_V2 = mkV2 "hat" ;
|
||||
head_N = mkN "hoofd" neuter ;
|
||||
hear_V2 = mkV2 "hor" ;
|
||||
heart_N = mkN "hart" neuter ;
|
||||
heavy_A = mkA "swaar" ;
|
||||
hill_N = mkN "heuvel" utrum ;
|
||||
hit_V2 = mkV2 "rak" ;
|
||||
hold_V2 = mkV2 (mkV "hou") ;
|
||||
horn_N = mkN "hoorn" utrum ;
|
||||
horse_N = mkN "paard" neuter ;
|
||||
hot_A = mkA "heet" ;
|
||||
hunt_V2 = mkV2 "jag" ;
|
||||
husband_N = mkN "man" utrum ;
|
||||
ice_N = mkN "ys" neuter ;
|
||||
important_A = mkA "belangryk" ;
|
||||
industry_N = mkN "industrie" "industrieën" utrum ;
|
||||
iron_N = mkN "yser" neuter ;
|
||||
jump_V = mkV "spring" ;
|
||||
kill_V2 = mkV2 "dood" ;
|
||||
king_N = mkN "koning" utrum ;
|
||||
knee_N = mkN "knie" utrum ;
|
||||
know_V2 = mkV2 "kenn" ;
|
||||
lake_N = mkN "meer" neuter ;
|
||||
lamp_N = mkN "lamp" utrum ;
|
||||
language_N = mkN "taal" utrum ;
|
||||
laugh_V = mkV "lag" ;
|
||||
leaf_N = mkN "blad" neuter ;
|
||||
learn_V2 = mkV2 "ler" ;
|
||||
leather_N = mkN "leer" neuter ;
|
||||
leave_V2 = mkV2 (mkV "laat") ;
|
||||
leg_N = mkN "been" neuter ;
|
||||
lie_V = mkV "lê" ;
|
||||
like_V2 = mkV2 (mkV "hou") van_Prep ;
|
||||
listen_V2 = mkV2 "luister" ;
|
||||
live_V = mkV "leef" ;
|
||||
liver_N = mkN "lewer" utrum ;
|
||||
long_A = mkA "lang" ;
|
||||
lose_V2 = mkV2 (mkV "verloor") ;
|
||||
louse_N = mkN "luis" utrum ;
|
||||
love_N = mkN "liefde" utrum ;
|
||||
love_V2 = mkV2 (mkV "lief" hebben_V) ;
|
||||
man_N = mkN "man" utrum ;
|
||||
meat_N = mkN "vlees" neuter ;
|
||||
milk_N = mkN "melk" utrum ;
|
||||
moon_N = mkN "maan" utrum ;
|
||||
mountain_N = mkN "berg" utrum ;
|
||||
mouth_N = mkN "mond" utrum ;
|
||||
music_N = mkN "musiek" utrum ;
|
||||
name_N = mkN "naam" utrum ;
|
||||
narrow_A = mkA "smal" ;
|
||||
near_A = mkA "naby" ;
|
||||
neck_N = mkN "nek" utrum ;
|
||||
new_A = mkA "nieuw" ;
|
||||
newspaper_N = mkN "krant" utrum ;
|
||||
night_N = mkN "nacht" utrum ;
|
||||
nose_N = mkN "neus" utrum ;
|
||||
number_N = mkN "nummer" neuter ;
|
||||
oil_N = mkN "olie-schakelaars" utrum ;
|
||||
old_A = mkA "oud" ;
|
||||
open_V2 = mkV2 "open" ;
|
||||
paper_N = mkN "papier" neuter ;
|
||||
peace_N = mkN "vrede" utrum ;
|
||||
pen_N = mkN "pen" utrum ;
|
||||
person_N = mkN "persoon" utrum ;
|
||||
planet_N = mkN "planeet" utrum ;
|
||||
plastic_N = mkN "plastic" utrum ;
|
||||
play_V = mkV "spel" ;
|
||||
play_V2 = mkV2 "spel" ;
|
||||
policeman_N = mkN "politieagent" utrum ;
|
||||
priest_N = mkN "priester" utrum ;
|
||||
probable_AS = mkA "waarschynlik" ;
|
||||
pull_V2 = mkV2 "trekk" ;
|
||||
push_V2 = mkV2 "duw" ;
|
||||
put_V2 = mkV2 "sett" ;
|
||||
queen_N = mkN "koningin" utrum ;
|
||||
question_N = mkN "vraag" utrum ;
|
||||
radio_N = mkN "radio" utrum ;
|
||||
rain_N = mkN "regen" utrum ;
|
||||
rain_V0 = mkV "regen" ;
|
||||
read_V2 = mkV2 (mkV "lees") ;
|
||||
ready_A = mkA "klaar" ;
|
||||
reason_N = mkN "reden" utrum ;
|
||||
-- red_A = mkA "rood" ;
|
||||
religion_N = mkN "religie" utrum ;
|
||||
restaurant_N = mkN "restaurant" neuter ;
|
||||
river_N = mkN "rivier" utrum ;
|
||||
road_N = mkN "weg" utrum ;
|
||||
rock_N = mkN "rots" utrum ;
|
||||
roof_N = mkN "dak" neuter ;
|
||||
root_N = mkN "wortel" utrum ;
|
||||
rope_N = mkN "touw" neuter ;
|
||||
rotten_A = mkA "verrot" ;
|
||||
round_A = mkA "rond" ;
|
||||
rub_V2 = mkV2 (mkV "vryf") ;
|
||||
rubber_N = mkN "rubberen" utrum ;
|
||||
rule_N = mkN "regel" utrum ;
|
||||
run_V = zijnV (mkV "renn") ;
|
||||
salt_N = mkN "sout" neuter ;
|
||||
sand_N = mkN "sand" neuter ;
|
||||
school_N = mkN "school" utrum ;
|
||||
science_N = mkN "wetenschap" utrum ;
|
||||
scratch_V2 = mkV2 "krass" ;
|
||||
sea_N = mkN "see" utrum ;
|
||||
seed_N = mkN "saad" neuter ;
|
||||
seek_V2 = mkV2 (mkV "soek") ;
|
||||
sew_V = mkV "naai" ;
|
||||
sharp_A = mkA "scherp" ;
|
||||
sheep_N = mkN "schaap" neuter ;
|
||||
ship_N = mkN "schip" neuter ;
|
||||
shirt_N = mkN "shirt" neuter ;
|
||||
shoe_N = mkN "schoen" utrum ;
|
||||
shop_N = mkN "winkel" utrum ;
|
||||
short_A = mkA "kort" ;
|
||||
silver_N = mkN "silver" neuter ;
|
||||
sing_V = mkV "sing" ;
|
||||
sister_N = mkN "suster" utrum ;
|
||||
sit_V = mkV "sit" ;
|
||||
skin_N = mkN "huid" utrum ;
|
||||
sky_N = mkN "lucht" utrum ;
|
||||
smell_V = mkV "ruik" ;
|
||||
smoke_N = mkN "rook" utrum ;
|
||||
smooth_A = mkA "glad" ;
|
||||
snake_N = mkN "slang" utrum ;
|
||||
snow_N = mkN "sneeuw" utrum ;
|
||||
sock_N = mkN "sok" utrum ;
|
||||
song_N = mkN "liedje" neuter ;
|
||||
speak_V2 = mkV2 (mkV "spreek") ;
|
||||
spit_V = mkV "spug" ;
|
||||
split_V2 = mkV2 (mkV "splyt") ;
|
||||
squeeze_V2 = mkV2 (mkV "knyp") ;
|
||||
stab_V2 = mkV2 (mkV "steek") ;
|
||||
stand_V = mkV "staan" ;
|
||||
star_N = mkN "ster" utrum ;
|
||||
steel_N = mkN "staal" neuter ;
|
||||
stick_N = mkN "stok" utrum ;
|
||||
stone_N = mkN "steen" utrum ;
|
||||
stop_V = mkV "stoppen" ;
|
||||
stove_N = mkN "kachel" utrum ;
|
||||
straight_A = mkA "recht" ;
|
||||
student_N = mkN "student" utrum ;
|
||||
stupid_A = mkA "dom" ;
|
||||
suck_V2 = mkV2 (mkV "suig") ;
|
||||
sun_N = mkN "son" utrum ;
|
||||
swell_V = mkV "swel" ;
|
||||
swim_V = mkV "swem" ;
|
||||
switch8off_V2 = mkV2 "schakel" ;
|
||||
switch8on_V2 = mkV2 (mkV "op" (mkV "schakel")) ;
|
||||
table_N = mkN "tabel" utrum ;
|
||||
tail_N = mkN "staart" utrum ;
|
||||
teach_V2 = mkV2 "ler" ;
|
||||
teacher_N = mkN "leraar" utrum ;
|
||||
television_N = mkN "televisie" utrum ;
|
||||
thick_A = mkA "dik" ;
|
||||
thin_A = mkA "dun" ;
|
||||
think_V = mkV "dink" ;
|
||||
throw_V2 = mkV2 "gooi" ;
|
||||
tie_V2 = mkV2 "band" ;
|
||||
tongue_N = mkN "tong" utrum ;
|
||||
tooth_N = mkN "tand" utrum ;
|
||||
train_N = mkN "trein" utrum ;
|
||||
travel_V = mkV "reis" ;
|
||||
tree_N = mkN "boom" utrum ;
|
||||
turn_V = mkV "draai" ;
|
||||
ugly_A = mkA "lelik" ;
|
||||
uncertain_A = mkA "onseker" ;
|
||||
understand_V2 = mkV2 (mkV "begryp") ;
|
||||
university_N = mkN "universiteit" utrum ;
|
||||
village_N = mkN "dorp" neuter ;
|
||||
vomit_V = mkV "brak" ;
|
||||
wait_V2 = mkV2 "wach" ;
|
||||
walk_V = mkV "lop" ;
|
||||
war_N = mkN "oorlog" utrum ;
|
||||
wash_V2 = mkV2 (mkV "was") ;
|
||||
watch_V2 = mkV2 (mkV "kyk") (mkPrep "naar") ;
|
||||
water_N = mkN "water" neuter ;
|
||||
wet_A = mkA "nat" ;
|
||||
white_A = mkA "wit" ;
|
||||
wide_A = mkA "breed" ;
|
||||
wife_N = mkN "vrouw" utrum ;
|
||||
win_V2 = mkV2 (mkV "wen") ;
|
||||
wind_N = mkN "wind" utrum ;
|
||||
window_N = mkN "raam" neuter ;
|
||||
wing_N = mkN "vleugel" utrum ;
|
||||
wipe_V2 = mkV2 "veg" ;
|
||||
woman_N = mkN "vrouw" utrum ;
|
||||
wood_N = mkN "hout" neuter ;
|
||||
worm_N = mkN "worm" utrum ;
|
||||
write_V2 = mkV2 (mkV "skryf") ;
|
||||
year_N = mkN "jaar" neuter ;
|
||||
yellow_A = mkA "geel" ;
|
||||
young_A = mkA "jong" ;
|
||||
|
||||
}
|
||||
100
lib/src/afrikaans/MorphoAfr.gf
Normal file
100
lib/src/afrikaans/MorphoAfr.gf
Normal file
@@ -0,0 +1,100 @@
|
||||
--# -path=.:../common:../../prelude
|
||||
--
|
||||
----1 A Simple Afrman Resource Morphology
|
||||
----
|
||||
---- Aarne Ranta & Harald Hammarström 2002 -- 2006
|
||||
----
|
||||
---- This resource morphology contains definitions needed in the resource
|
||||
---- syntax. To build a lexicon, it is better to use $ParadigmsAfr$, which
|
||||
---- gives a higher-level access to this module.
|
||||
--
|
||||
resource MorphoAfr = ResAfr ** open Prelude, (Predef=Predef) in
|
||||
{
|
||||
--{
|
||||
--
|
||||
-- flags optimize=all ;
|
||||
--
|
||||
--oper
|
||||
--
|
||||
---- For $StructuralAfr$.
|
||||
--
|
||||
-- mkPrep : Str -> Case -> Preposition = \s,c ->
|
||||
-- {s = s ; c = c} ;
|
||||
--
|
||||
-- nameNounPhrase : {s : Case => Str} -> {s : Case => Str ; a : Agr} = \name ->
|
||||
-- name ** {a = agrP3 Sg} ;
|
||||
--
|
||||
-- detLikeAdj : Number -> Str ->
|
||||
-- {s,sp : Gender => Case => Str ; n : Number ; a : Adjf} = \n,dies ->
|
||||
-- {s,sp = appAdj (regA dies) ! n ; n = n ; a = Weak} ;
|
||||
--
|
||||
-- mkOrd : {s : Degree => AForm => Str} -> {s : AForm => Str} = \a ->
|
||||
-- {s = a.s ! Posit} ;
|
||||
--
|
||||
---- For $ParadigmsAfr$.
|
||||
--
|
||||
-- genitS : Str -> Str = \hund -> case hund of {
|
||||
-- _ + ("el" | "en" | "er") => hund + "s" ;
|
||||
-- _ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
|
||||
-- _ => hund + variants {"s" ; "es"}
|
||||
-- } ;
|
||||
-- pluralN : Str -> Str = \hund -> case hund of {
|
||||
-- _ + ("el" | "er" | "e") => hund + "n" ;
|
||||
-- _ + "en" => hund ;
|
||||
-- _ => hund + "en"
|
||||
-- } ;
|
||||
-- dativE : Str -> Str = \hund -> case hund of {
|
||||
-- _ + ("el" | "en" | "er" | "e") => hund ;
|
||||
-- _ => variants {hund ; hund + "e"}
|
||||
-- } ;
|
||||
--
|
||||
---- Duden, p. 119
|
||||
--
|
||||
-- verbT : Str -> Str = \v -> case v of {
|
||||
-- _ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
|
||||
-- _ + ("ch" | "k" | "p" | "t" | "g" | "b" | "d" | "f" | "s") +
|
||||
-- ("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
|
||||
-- _ => v + "t" -- lernen, lärmen, qualmen etc
|
||||
-- } ;
|
||||
--
|
||||
-- verbST : Str -> Str = \v -> case v of {
|
||||
-- _ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
|
||||
-- _ => v + "st"
|
||||
-- } ;
|
||||
--
|
||||
-- stemVerb : Str -> Str = \v -> case v of {
|
||||
-- _ + ("rn" | "ln") => init v ;
|
||||
-- _ => Predef.tk 2 v
|
||||
-- } ;
|
||||
--
|
||||
---- For $Numeral$.
|
||||
--
|
||||
-- LinDigit = {s : DForm => CardOrd => Str} ;
|
||||
--
|
||||
-- cardOrd : Str -> Str -> CardOrd => Str = \drei,dritte ->
|
||||
-- table {
|
||||
-- NCard _ _ => drei ;
|
||||
-- NOrd a => (regA (init dritte)).s ! Posit ! a
|
||||
-- } ;
|
||||
--
|
||||
-- cardReg : Str -> CardOrd => Str = \zehn ->
|
||||
-- cardOrd zehn (zehn + "te") ;
|
||||
--
|
||||
-- mkDigit : (x1,_,_,x4 : Str) -> LinDigit =
|
||||
-- \drei,dreizehn,dreissig,dritte ->
|
||||
-- {s = table {
|
||||
-- DUnit => cardOrd drei dritte ;
|
||||
-- DTeen => cardReg dreizehn ;
|
||||
-- DTen => cardOrd dreissig (dreissig + "ste")
|
||||
-- }
|
||||
-- } ;
|
||||
--
|
||||
-- regDigit : Str -> LinDigit = \vier ->
|
||||
-- mkDigit vier (vier + "zehn") (vier + "zig") (vier + "te") ;
|
||||
--
|
||||
-- invNum : CardOrd = NCard Masc Nom ;
|
||||
--
|
||||
--} ;
|
||||
--
|
||||
|
||||
}
|
||||
180
lib/src/afrikaans/NounAfr.gf
Normal file
180
lib/src/afrikaans/NounAfr.gf
Normal file
@@ -0,0 +1,180 @@
|
||||
concrete NounAfr of Noun = CatAfr ** open ResAfr, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
DetCN det cn = {
|
||||
s = \\c => det.s ! cn.g ++ cn.s ! det.a ! NF det.n Nom ;
|
||||
a = agrP3 det.n ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
DetNP det = {
|
||||
s = \\_ => det.sp ! Neutr ;
|
||||
a = agrP3 det.n ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
UsePN pn = {s = pn.s ; a = agrP3 Sg ; isPron = False} ;
|
||||
|
||||
UsePron pron = {
|
||||
s = table {NPNom => pron.unstressed.nom ; NPAcc => pron.unstressed.acc} ;
|
||||
a = pron.a ;
|
||||
isPron = True
|
||||
} ;
|
||||
|
||||
PredetNP pred np = heavyNP {
|
||||
s = \\c =>
|
||||
pred.s ! np.a.n ! np.a.g ++ np.s ! c ; ---- g
|
||||
a = np.a
|
||||
} ;
|
||||
|
||||
PPartNP np v2 = heavyNP {
|
||||
s = \\c => np.s ! c ++ v2.s ! VPerf ; -- invar part
|
||||
a = np.a
|
||||
} ;
|
||||
|
||||
AdvNP np adv = heavyNP {
|
||||
s = \\c => np.s ! c ++ adv.s ;
|
||||
a = np.a
|
||||
} ;
|
||||
|
||||
DetQuantOrd quant num ord =
|
||||
let
|
||||
n = num.n ;
|
||||
a = quant.a
|
||||
in {
|
||||
s = \\g => quant.s ! num.isNum ! n ! g ++
|
||||
num.s ++ ord.s ! agrAdj g quant.a (NF n Nom) ;
|
||||
sp = \\g => quant.sp ! n ! g ++
|
||||
num.s ++ ord.s ! agrAdj g quant.a (NF n Nom) ;
|
||||
n = n ;
|
||||
a = a
|
||||
} ;
|
||||
|
||||
DetQuant quant num =
|
||||
let
|
||||
n = num.n ;
|
||||
a = quant.a
|
||||
in {
|
||||
s = \\g => quant.s ! num.isNum ! n ! g ++ num.s ;
|
||||
sp = \\g => quant.sp ! n ! g ++ num.s ;
|
||||
n = n ;
|
||||
a = a
|
||||
} ;
|
||||
|
||||
PossPron p = {
|
||||
s = \\_,n,g => p.unstressed.poss ;
|
||||
sp = \\n,g => p.substposs ;
|
||||
a = Strong
|
||||
} ;
|
||||
|
||||
NumCard n = {s = n.s ! Utr ! Nom ; n = n.n ; isNum = True} ;
|
||||
|
||||
NumPl = {s = []; n = Pl ; isNum = False} ;
|
||||
NumSg = {s = []; n = Sg ; isNum = False} ;
|
||||
|
||||
NumDigits numeral = {s = \\g,c => numeral.s ! NCard g c; n = numeral.n } ;
|
||||
OrdDigits numeral = {s = \\af => numeral.s ! NOrd af} ;
|
||||
|
||||
NumNumeral numeral = {s = \\g,c => numeral.s ! NCard g c; n = numeral.n } ;
|
||||
OrdNumeral numeral = {s = \\af => numeral.s ! NOrd af} ;
|
||||
|
||||
AdNum adn num = {s = \\g,c => adn.s ++ num.s!g!c; n = num.n } ;
|
||||
|
||||
OrdSuperl a = {s = a.s ! Superl} ;
|
||||
|
||||
DefArt = {
|
||||
s = \\_,n,g => case <n,g> of {<Sg,Neutr> => "het" ; _ => "de"} ;
|
||||
sp = \\n,g => "die" ;
|
||||
a = Weak
|
||||
} ;
|
||||
|
||||
IndefArt = {
|
||||
s = table {
|
||||
True => \\_,_ => [] ;
|
||||
False => table {
|
||||
Sg => \\g => "een" ;
|
||||
Pl => \\_ => []
|
||||
}
|
||||
} ;
|
||||
sp = table {
|
||||
Sg => \\g => "een" ;
|
||||
Pl => \\_ => "een" ----
|
||||
} ;
|
||||
a = Strong
|
||||
} ;
|
||||
|
||||
MassNP cn = {
|
||||
s = \\c => cn.s ! Strong ! NF Sg Nom ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
UseN, UseN2 = \n -> {
|
||||
s = \\_ => n.s ;
|
||||
g = n.g
|
||||
} ;
|
||||
|
||||
ComplN2 f x = {
|
||||
s = \\_,nc => f.s ! nc ++ appPrep f.c2 x.s ;
|
||||
g = f.g
|
||||
} ;
|
||||
|
||||
ComplN3 f x = {
|
||||
s = \\nc => f.s ! nc ++ appPrep f.c2 x.s ;
|
||||
g = f.g ;
|
||||
c2 = f.c3
|
||||
} ;
|
||||
|
||||
Use2N3 f = {
|
||||
s = f.s ;
|
||||
g = f.g ;
|
||||
c2 = f.c2
|
||||
} ;
|
||||
|
||||
Use3N3 f = {
|
||||
s = f.s ;
|
||||
g = f.g ;
|
||||
c2 = f.c3
|
||||
} ;
|
||||
|
||||
AdjCN ap cn =
|
||||
let
|
||||
g = cn.g
|
||||
in {
|
||||
s = \\a,n =>
|
||||
preOrPost ap.isPre
|
||||
(ap.s ! agrAdj g a n)
|
||||
(cn.s ! a ! n) ;
|
||||
g = g
|
||||
} ;
|
||||
|
||||
RelCN cn rs = {
|
||||
s = \\a,nc => cn.s ! a ! nc ++ rs.s ! cn.g ! (case nc of {NF n c => n}) ;
|
||||
g = cn.g
|
||||
} ;
|
||||
|
||||
RelNP np rs = {
|
||||
s = \\c => np.s ! c ++ "," ++ rs.s ! np.a.g ! np.a.n ;
|
||||
a = np.a ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
SentCN cn s = {
|
||||
s = \\a,nc => cn.s ! a ! nc ++ s.s ;
|
||||
g = cn.g
|
||||
} ;
|
||||
|
||||
AdvCN cn s = {
|
||||
s = \\a,nc => cn.s ! a ! nc ++ s.s ;
|
||||
g = cn.g
|
||||
} ;
|
||||
|
||||
ApposCN cn np = let g = cn.g in {
|
||||
s = \\a,nc => cn.s ! a ! nc ++ np.s ! NPNom ;
|
||||
g = g ;
|
||||
isMod = cn.isMod
|
||||
} ;
|
||||
|
||||
}
|
||||
111
lib/src/afrikaans/NumeralAfr.gf
Normal file
111
lib/src/afrikaans/NumeralAfr.gf
Normal file
@@ -0,0 +1,111 @@
|
||||
concrete NumeralAfr of Numeral = CatAfr ** open ResAfr, Prelude in {
|
||||
|
||||
flags optimize = all_subs ;
|
||||
|
||||
lincat
|
||||
Digit = {s : DForm => CardOrd => Str ; en : Str} ;
|
||||
Sub10 = {s : DForm => CardOrd => Str ; n : Number ; en : Str ; attr : Str} ;
|
||||
Sub100, Sub1000, Sub1000000 =
|
||||
{s : CardOrd => Str ; n : Number ; attr : Str} ;
|
||||
|
||||
lin
|
||||
num x = x ;
|
||||
|
||||
n2 = mkDigit "twee" "twaalf" "twintig" "tweede" ;
|
||||
n3 = mkDigit "drie" "dertien" "dertig" "derde" ;
|
||||
n4 = mkDigit "vier" "veertien" "veertig" "vierde" ;
|
||||
n5 = mkDigit "vijf" "vijftien" "vijftig" "vijfde" ;
|
||||
n6 = mkDigit "zes" "zestien" "zestig" "zesde" ;
|
||||
n7 = mkDigit "zeven" "zeventien" "zeventig" "zevende" ;
|
||||
n8 = mkDigit "acht" "achttien" "tachtig" "achtste" ;
|
||||
n9 = mkDigit "negen" "negentien" "negentig" "negende" ;
|
||||
|
||||
pot01 = {
|
||||
s = \\f => table {
|
||||
NCard g _ => "een" ; ---- "één" ;
|
||||
NOrd af => (regAdjective "eerst").s ! Posit ! af
|
||||
} ;
|
||||
n = Sg ;
|
||||
attr = [] ;
|
||||
en = "en"
|
||||
} ;
|
||||
pot0 d = {s = \\f,g => d.s ! f ! g ; n = Pl ; en = d.en ; attr = d.s ! DUnit ! invNum ++ BIND} ;
|
||||
pot110 = {s = cardOrd "tien" "tiende" ; n = Pl ; attr = "tien" ++ BIND} ;
|
||||
pot111 = {s = cardOrd "elf" "elfde" ; n = Pl ; attr = "elf" ++ BIND} ;
|
||||
pot1to19 d = addAttr {s = d.s ! DTeen ; n = Pl} ;
|
||||
pot0as1 n = {s = n.s ! DUnit; n = n.n ; attr = n.attr} ;
|
||||
pot1 d = addAttr {s = d.s ! DTen ; n = Pl} ;
|
||||
pot1plus d e = addAttr {s = \\g =>
|
||||
e.s ! DUnit ! invNum ++ BIND ++ e.en ++ BIND ++ d.s ! DTen ! g ; n = Pl} ;
|
||||
pot1as2 n = n ;
|
||||
pot2 d =
|
||||
addAttr {s = \\g => d.attr ++ cardOrd "honderd" "honderdste" ! g ; n = Pl} ;
|
||||
pot2plus d e =
|
||||
addAttr {s = \\g => d.attr ++ "honderd" ++ BIND ++ e.s ! g ; n = Pl} ;
|
||||
pot2as3 n = n ;
|
||||
pot3 n =
|
||||
addAttr {s = \\g => n.attr ++ cardOrd "duizend" "duizendste" ! g ; n = Pl} ;
|
||||
pot3plus n m =
|
||||
addAttr {s = \\g => n.attr ++ "duizend" ++ m.s ! g ; n = Pl} ;
|
||||
|
||||
|
||||
lincat
|
||||
Dig = TDigit ;
|
||||
|
||||
lin
|
||||
IDig d = d ;
|
||||
|
||||
IIDig d i = {
|
||||
s = \\o => d.s ! invNum ++ i.s ! o ;
|
||||
n = Pl
|
||||
} ;
|
||||
|
||||
D_0 = mkDig "0" ;
|
||||
D_1 = mk3Dig "1" "1e" Sg ;
|
||||
D_2 = mk2Dig "2" "2e" ;
|
||||
D_3 = mkDig "3" ;
|
||||
D_4 = mkDig "4" ;
|
||||
D_5 = mkDig "5" ;
|
||||
D_6 = mkDig "6" ;
|
||||
D_7 = mkDig "7" ;
|
||||
D_8 = mkDig "8" ;
|
||||
D_9 = mkDig "9" ;
|
||||
|
||||
oper
|
||||
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
|
||||
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "e") ;
|
||||
|
||||
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
|
||||
s = table {NCard _ _ => c ; NOrd _ => o} ;
|
||||
n = n
|
||||
} ;
|
||||
|
||||
TDigit = {
|
||||
n : Number ;
|
||||
s : CardOrd => Str
|
||||
} ;
|
||||
|
||||
LinDigit = {s : DForm => CardOrd => Str ; en : Str} ;
|
||||
|
||||
cardOrd : Str -> Str -> CardOrd => Str = \drei,dritte ->
|
||||
let dritt = init dritte in
|
||||
table {
|
||||
NCard _ _ => drei ;
|
||||
NOrd a => (regAdjective dritt).s ! Posit ! a
|
||||
} ;
|
||||
|
||||
mkDigit : (x1,_,_,x4 : Str) -> LinDigit =
|
||||
\drei,dreizehn,dreissig,dritte ->
|
||||
{s = table {
|
||||
DUnit => cardOrd drei dritte ;
|
||||
DTeen => cardOrd dreizehn (dreizehn + "de") ;
|
||||
DTen => cardOrd dreissig (dreissig + "ste")
|
||||
} ;
|
||||
en = case drei of {_ + "e" => "ën" ; _ => "en"}
|
||||
} ;
|
||||
invNum : CardOrd = NCard Utr Nom ;
|
||||
|
||||
addAttr : {s : CardOrd => Str ; n : Number} ->
|
||||
{s : CardOrd => Str ; n : Number ; attr : Str} = \n -> n ** {attr = n.s ! invNum ++ BIND} ;
|
||||
|
||||
}
|
||||
494
lib/src/afrikaans/ParadigmsAfr.gf
Normal file
494
lib/src/afrikaans/ParadigmsAfr.gf
Normal file
@@ -0,0 +1,494 @@
|
||||
--# -path=.:../common:../abstract:../../prelude
|
||||
|
||||
--1 Afrch Lexical Paradigms
|
||||
--
|
||||
-- Aarne Ranta 2009
|
||||
--
|
||||
-- This is an API for the user of the resource grammar
|
||||
-- for adding lexical items. It gives functions for forming
|
||||
-- expressions of open categories: nouns, adjectives, verbs.
|
||||
--
|
||||
-- Closed categories (determiners, pronouns, conjunctions) are
|
||||
-- accessed through the resource syntax API, $Structural.gf$.
|
||||
--
|
||||
-- The structure of functions for each word class $C$ is the following:
|
||||
-- first we give a handful of patterns that aim to cover all
|
||||
-- cases, from the most regular (with just one argument) to the worst.
|
||||
-- The name of this function is $mkC$.
|
||||
--
|
||||
-- There is also a module [``IrregAfr`` IrregAfr.gf]
|
||||
-- which covers irregular verbs.
|
||||
|
||||
|
||||
resource ParadigmsAfr = open
|
||||
(Predef=Predef),
|
||||
Prelude,
|
||||
ResAfr,
|
||||
CatAfr
|
||||
in
|
||||
{
|
||||
--2 Parameters
|
||||
|
||||
-- To abstract over gender names, we define the following identifiers.
|
||||
|
||||
oper
|
||||
masculine : Gender ; --%
|
||||
feminine : Gender ; --%
|
||||
neuter : Gender ; --%
|
||||
utrum : Gender ; --%
|
||||
|
||||
de : Gender ; -- non-neutrum
|
||||
het : Gender ; -- neutrum
|
||||
|
||||
|
||||
|
||||
--2 Nouns
|
||||
|
||||
mkN : overload {
|
||||
mkN : (muis : Str) -> N ; -- de muis-muisen, with some predictable exceptions
|
||||
mkN : (bit : Str) -> Gender -> N ; -- if gender is not predictable
|
||||
mkN : (gat,gaten : Str) -> Gender -> N ; -- worst-case for nouns
|
||||
} ;
|
||||
|
||||
-- Relational nouns need a preposition. The most common is "van".
|
||||
|
||||
mkN2 : overload {
|
||||
mkN2 : N -> N2 ; -- relational noun with preposition van
|
||||
mkN2 : N -> Prep -> N2 -- other preposition than van
|
||||
} ;
|
||||
|
||||
|
||||
---- Use the function $mkPrep$ or see the section on prepositions below to
|
||||
---- form other prepositions.
|
||||
---- Some prepositions are moreover constructed in [StructuralAfr StructuralAfr.html].
|
||||
----
|
||||
---- Three-place relational nouns ("die Verbindung von x nach y") need two prepositions.
|
||||
--
|
||||
mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. afstand + van + naar
|
||||
|
||||
--3 Proper names and noun phrases
|
||||
|
||||
mkPN : overload {
|
||||
mkPN : Str -> PN ; -- proper name
|
||||
} ;
|
||||
|
||||
|
||||
--2 Adjectives
|
||||
|
||||
mkA : overload {
|
||||
mkA : (vers : Str) -> A ; -- regular adjective
|
||||
mkA : (goed,goede,goeds,beter,best : Str) -> A ; -- irregular adjective
|
||||
} ;
|
||||
|
||||
|
||||
-- Invariable adjective are a special case.
|
||||
|
||||
invarA : Str -> A ; -- adjective with just one form
|
||||
|
||||
|
||||
---- Two-place adjectives are formed by adding a preposition to an adjective.
|
||||
|
||||
mkA2 : A -> Prep -> A2 ; -- e.g. getrouwd + met
|
||||
|
||||
--2 Adverbs
|
||||
|
||||
-- Adverbs are formed from strings.
|
||||
|
||||
mkAdv : Str -> Adv ;
|
||||
|
||||
|
||||
|
||||
--2 Prepositions
|
||||
|
||||
-- A preposition is formed from a string.
|
||||
|
||||
mkPrep : Str -> Prep ;
|
||||
|
||||
|
||||
---- A couple of common prepositions (always with the dative).
|
||||
--
|
||||
van_Prep : Prep ;
|
||||
te_Prep : Prep ;
|
||||
|
||||
|
||||
--
|
||||
--2 Verbs
|
||||
|
||||
mkV : overload {
|
||||
mkV : (aaien : Str) -> V ; -- regular verb
|
||||
mkV : (breken,brak,gebroken : Str) -> V ; -- theme of irregular verb
|
||||
mkV : (breken,brak,braken,gebroken : Str) -> V ; -- also past plural irregular
|
||||
mkV : (aai,aait,aaien,aaide,aaide,aaiden,geaaid : Str) -> V ; -- worst-case verb
|
||||
|
||||
-- To add a movable suffix e.g. "auf(fassen)".
|
||||
|
||||
mkV : Str -> V -> V -- add movable suffix, e.g. af + stappen
|
||||
} ;
|
||||
|
||||
zijnV : V -> V ; -- force zijn as auxiliary (default hebben)
|
||||
|
||||
reflV : V -> V ; -- reflexive verb e.g. zich afvragen
|
||||
|
||||
|
||||
--
|
||||
--
|
||||
--3 Three-place verbs
|
||||
|
||||
-- Three-place (ditransitive) verbs need two prepositions, of which
|
||||
-- the first one or both can be absent.
|
||||
|
||||
mkV3 : overload {
|
||||
mkV3 : V -> V3 ; -- geven,(accusative),(dative)
|
||||
mkV3 : V -> Prep -> V3 ; -- sturen,(accusative),naar
|
||||
mkV3 : V -> Prep -> Prep -> V3 ; -- praten, met, over
|
||||
} ;
|
||||
|
||||
|
||||
----3 Other complement patterns
|
||||
----
|
||||
---- Verbs and adjectives can take complements such as sentences,
|
||||
---- questions, verb phrases, and adjectives.
|
||||
|
||||
mkV0 : V -> V0 ; --%
|
||||
mkVS : V -> VS ;
|
||||
mkV2S : V -> Prep -> V2S ;
|
||||
mkVV : V -> VV ;
|
||||
mkV2V : V -> Prep -> V2V ;
|
||||
mkVA : V -> VA ;
|
||||
mkV2A : V -> Prep -> V2A ;
|
||||
mkVQ : V -> VQ ;
|
||||
mkV2Q : V -> Prep -> V2Q ;
|
||||
--
|
||||
-- mkAS : A -> AS ;
|
||||
-- mkA2S : A -> Prep -> A2S ;
|
||||
-- mkAV : A -> AV ;
|
||||
-- mkA2V : A -> Prep -> A2V ;
|
||||
--
|
||||
---- Notice: categories $AS, A2S, AV, A2V$ are just $A$,
|
||||
---- and the second argument is given as an adverb. Likewise
|
||||
---- $V0$ is just $V$.
|
||||
--
|
||||
-- V0 : Type ;
|
||||
-- AS, A2S, AV, A2V : Type ;
|
||||
--
|
||||
--
|
||||
|
||||
|
||||
--.
|
||||
|
||||
mkOrd : A -> Ord = \a -> lin Ord {s = a.s ! Posit} ;
|
||||
|
||||
mkN = overload {
|
||||
mkN : (muis : Str) -> N
|
||||
= \a -> lin N (regNoun a) ;
|
||||
mkN : (bit : Str) -> Gender -> N
|
||||
= \a,b -> lin N (regNounG a b) ;
|
||||
mkN : (gat,gaten : Str) -> Gender -> N
|
||||
= \a,b,c -> lin N (mkNoun a b c) ;
|
||||
} ;
|
||||
|
||||
mkN2 = overload {
|
||||
mkN2 : N -> N2
|
||||
= \n -> lin N2 (n ** {c2 = "van"}) ;
|
||||
mkN2 : N -> Prep -> N2
|
||||
= \n,p -> lin N2 (n ** {c2 = p.s}) ;
|
||||
} ;
|
||||
mkN3 n p q = lin N3 (n ** {c2 = p.s ; c3 = q.s}) ;
|
||||
|
||||
mkPN = overload {
|
||||
mkPN : Str -> PN = \s -> lin PN {s = \\_ => s} ;
|
||||
} ;
|
||||
|
||||
masculine = Utr ;
|
||||
feminine = Utr ;
|
||||
het,neuter = Neutr ;
|
||||
de,utrum = Utr ;
|
||||
|
||||
mkA = overload {
|
||||
mkA : (vers : Str) -> A = \a -> lin A (regAdjective a) ;
|
||||
mkA : (goed,goede,goeds,beter,best : Str) -> A = \a,b,c,d,e -> lin A (mkAdjective a b c d e) ;
|
||||
} ;
|
||||
|
||||
mkPrep s = lin Prep (ss s) ;
|
||||
van_Prep = mkPrep "van" ;
|
||||
te_Prep = mkPrep "te" ;
|
||||
|
||||
mkV = overload {
|
||||
mkV : (aaien : Str) -> V =
|
||||
\s -> lin V (v2vv (regVerb s)) ;
|
||||
mkV : (breek,gebreek : Str) -> V =
|
||||
\a,b -> lin V (v2vv (irregVerb a b)) ;
|
||||
mkV : (wil,wou,gewil : Str) -> V =
|
||||
\a,b,c -> lin V (v2vv (mkVerb a a b c)) ;
|
||||
mkV : Str -> V -> V = \v,s ->lin V (prefixV v s) ;
|
||||
} ;
|
||||
zijnV v = v ; -- lin V (v2vvAux v VZijn) ;
|
||||
reflV v = lin V {s = v.s ; aux = v.aux ; prefix = v.prefix ; vtype = VRefl} ;
|
||||
|
||||
zijn_V : V = lin V ResAfr.zijn_V ;
|
||||
hebben_V : V = lin V ResAfr.hebben_V ;
|
||||
|
||||
mkV2 = overload {
|
||||
mkV2 : Str -> V2 = \s -> lin V2 (v2vv (regVerb s) ** {c2 = []}) ;
|
||||
mkV2 : V -> V2 = \s -> lin V2 (s ** {c2 = []}) ;
|
||||
mkV2 : V -> Prep -> V2 = \s,p -> lin V2 (s ** {c2 = p.s}) ;
|
||||
} ;
|
||||
|
||||
|
||||
--3 Two-place verbs
|
||||
|
||||
mkV2 : overload {
|
||||
mkV2 : Str -> V2 ;
|
||||
mkV2 : V -> V2 ;
|
||||
mkV2 : V -> Prep -> V2 ;
|
||||
} ;
|
||||
mkV3 = overload {
|
||||
mkV3 : V -> Prep -> Prep -> V3 = mkmaxV3 ;
|
||||
mkV3 : V -> Prep -> V3 = \v,p -> mkmaxV3 v (mkPrep []) p ;
|
||||
mkV3 : V -> V3 = \v -> mkmaxV3 v (mkPrep []) (mkPrep []) ;
|
||||
} ;
|
||||
mkmaxV3 : V -> Prep -> Prep -> V3 = \v,c,d -> lin V3 (v ** {c2 = c.s ; c3 = d.s}) ;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
----2 Definitions of paradigms
|
||||
----
|
||||
---- The definitions should not bother the user of the API. So they are
|
||||
---- hidden from the document.
|
||||
--
|
||||
--
|
||||
--
|
||||
-- Gender = MorphoAfr.Gender ;
|
||||
-- Case = MorphoAfr.Case ;
|
||||
-- Number = MorphoAfr.Number ;
|
||||
-- masculine = Masc ;
|
||||
-- feminine = Fem ;
|
||||
-- neuter = Neutr ;
|
||||
-- nominative = Nom ;
|
||||
-- accusative = Acc ;
|
||||
-- dative = Dat ;
|
||||
-- genitive = Gen ;
|
||||
-- singular = Sg ;
|
||||
-- plural = Pl ;
|
||||
--
|
||||
-- mk6N a b c d e f g = MorphoAfr.mkN a b c d e f g ** {lock_N = <>} ;
|
||||
--
|
||||
-- regN : Str -> N = \hund -> case hund of {
|
||||
-- _ + "e" => mk6N hund hund hund hund (hund + "n") (hund + "n") Fem ;
|
||||
-- _ + ("ion" | "ung") => mk6N hund hund hund hund (hund + "en") (hund + "en") Fem ;
|
||||
-- _ + ("er" | "en" | "el") => mk6N hund hund hund (genitS hund) hund (pluralN hund) Masc ;
|
||||
-- _ => mk6N hund hund hund (genitS hund) (hund + "e") (pluralN hund) Masc
|
||||
-- } ;
|
||||
--
|
||||
-- reg2N : (x1,x2 : Str) -> Gender -> N = \hund,hunde,g ->
|
||||
-- let
|
||||
-- hunds = genitS hund ;
|
||||
-- hundE = dativE hund ;
|
||||
-- hunden = pluralN hunde
|
||||
-- in
|
||||
-- case <hund,hunde,g> of { -- Duden p. 223
|
||||
-- <_,_ + ("e" | "er"), Masc | Neutr> => -- I,IV
|
||||
-- mk6N hund hund hundE hunds hunde hunden g ;
|
||||
-- <_ + ("el"|"er"|"en"),_ + ("el"|"er"|"en"), Masc | Neutr> => -- II
|
||||
-- mk6N hund hund hund hunds hunde hunden g ;
|
||||
-- <_,_ + "s", Masc | Neutr> => -- V
|
||||
-- mk6N hund hund hund (hund + "s") hunde hunde g ;
|
||||
-- <_,_ + "en", Masc> => -- VI
|
||||
-- mk6N hund hunde hunde hunde hunde hunde g ;
|
||||
-- <_,_ + ("e" | "er"), Fem> => -- VII,VIII
|
||||
-- mk6N hund hund hund hund hunde hunden g ;
|
||||
-- <_,_ + ("n" | "s"), Fem> => -- IX,X
|
||||
-- mk6N hund hund hund hund hunde hunde g ;
|
||||
-- _ => {s = (regN hund).s ; g = g ; lock_N = <>}
|
||||
-- } ;
|
||||
--
|
||||
-- mkN2 = overload {
|
||||
-- mkN2 : Str -> N2 = \s -> vonN2 (regN s) ;
|
||||
-- mkN2 : N -> N2 = vonN2 ;
|
||||
-- mkN2 : N -> Prep -> N2 = mmkN2
|
||||
-- } ;
|
||||
--
|
||||
--
|
||||
-- mmkN2 : N -> Prep -> N2 = \n,p -> n ** {c2 = p ; lock_N2 = <>} ;
|
||||
-- vonN2 : N -> N2 = \n -> n ** {c2 = {s = "von" ; c = dative} ; lock_N2 = <>} ;
|
||||
--
|
||||
-- mkN3 = \n,p,q -> n ** {c2 = p ; c3 = q ; lock_N3 = <>} ;
|
||||
--
|
||||
-- mk2PN = \karolus, karoli ->
|
||||
-- {s = table {Gen => karoli ; _ => karolus} ; lock_PN = <>} ;
|
||||
-- regPN = \horst ->
|
||||
-- mk2PN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) ;
|
||||
--
|
||||
-- mkPN = overload {
|
||||
-- mkPN : Str -> PN = regPN ;
|
||||
-- mkPN : (nom,gen : Str) -> PN = mk2PN ;
|
||||
-- mkPN : (nom,acc,dat,gen : Str) -> PN = \nom,acc,dat,gen ->
|
||||
-- {s = table {Nom => nom ; Acc => acc ; Dat => dat ; Gen => gen} ; lock_PN = <>}
|
||||
-- } ;
|
||||
--
|
||||
-- mk2PN : (karolus, karoli : Str) -> PN ; -- karolus, karoli
|
||||
-- regPN : (Johann : Str) -> PN ;
|
||||
-- -- Johann, Johanns ; Johannes, Johannes
|
||||
--
|
||||
--
|
||||
-- mk3A : (gut,besser,beste : Str) -> A = \a,b,c ->
|
||||
-- let aa : Str = case a of {
|
||||
-- teu + "er" => teu + "r" ;
|
||||
-- mud + "e" => mud ;
|
||||
-- _ => a
|
||||
-- } in
|
||||
-- MorphoAfr.mkA a aa b (init c) ** {lock_A = <>} ;
|
||||
-- mk4A : (gut,gute,besser,beste : Str) -> A = \a,aa,b,c ->
|
||||
-- MorphoAfr.mkA a aa b (init c) ** {lock_A = <>} ;
|
||||
--
|
||||
-- regA : Str -> A = \a -> case a of {
|
||||
-- teu + "er" => mk3A a (teu + "rer") (teu + "reste") ;
|
||||
-- _ + "e" => mk3A a (a + "r") (a + "ste") ;
|
||||
-- _ => mk3A a (a + "er") (a + "este")
|
||||
-- } ;
|
||||
|
||||
invarA = \s -> lin A {s = \\_,_ => s} ; ---- comparison
|
||||
|
||||
mkA2 = \a,p -> lin A2 (a ** {c2 = p.s}) ;
|
||||
|
||||
mkAdv s = {s = s ; lock_Adv = <>} ;
|
||||
--
|
||||
-- mkPrep s c = {s = s ; c = c ; lock_Prep = <>} ;
|
||||
noPrep = mkPrep [] ;
|
||||
-- datPrep = mkPrep [] dative ;
|
||||
-- genPrep = mkPrep [] genitive ;
|
||||
-- von_Prep = mkPrep "von" dative ;
|
||||
-- zu_Prep = mkPrep "zu" dative ;
|
||||
--
|
||||
-- mk6V geben gibt gib gab gaebe gegeben =
|
||||
-- let
|
||||
-- geb = stemVerb geben ;
|
||||
-- gebe = geb + "e" ;
|
||||
-- gibst = verbST (init gibt) ;
|
||||
-- gebt = verbT geb ;
|
||||
-- gabst = verbST gab ;
|
||||
-- gaben = pluralN gab ;
|
||||
-- gabt = verbT gab
|
||||
-- in
|
||||
-- MorphoAfr.mkV
|
||||
-- geben gebe gibst gibt gebt gib gab gabst gaben gabt gaebe gegeben
|
||||
-- [] VHaben ** {lock_V = <>} ;
|
||||
--
|
||||
-- regV fragen =
|
||||
-- let
|
||||
-- frag = stemVerb fragen ;
|
||||
-- fragt = verbT frag ;
|
||||
-- fragte = fragt + "e" ;
|
||||
-- gefragt = "ge" + fragt ;
|
||||
-- in
|
||||
-- mk6V fragen fragt (frag + "e") fragte fragte gefragt ;
|
||||
--
|
||||
-- irregV singen singt sang saenge gesungen =
|
||||
-- let
|
||||
-- sing = stemVerb singen ;
|
||||
-- in
|
||||
-- mk6V singen singt sing sang saenge gesungen ;
|
||||
--
|
||||
-- prefixV p v = MorphoAfr.prefixV p v ** {lock_V = v.lock_V} ;
|
||||
--
|
||||
-- habenV v =
|
||||
-- {s = v.s ; prefix = v.prefix ; lock_V = v.lock_V ; aux = VHaben ; vtype = v.vtype} ;
|
||||
-- seinV v =
|
||||
-- {s = v.s ; prefix = v.prefix ; lock_V = v.lock_V ; aux = VSein ; vtype = v.vtype} ;
|
||||
-- reflV v c =
|
||||
-- {s = v.s ; prefix = v.prefix ; lock_V = v.lock_V ; aux = VHaben ; vtype = VRefl c} ;
|
||||
--
|
||||
-- no_geV v = let vs = v.s in {
|
||||
-- s = table {
|
||||
-- p@(VPastPart _) => Predef.drop 2 (vs ! p) ;
|
||||
-- p => vs ! p
|
||||
-- } ;
|
||||
-- prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
|
||||
-- } ;
|
||||
--
|
||||
-- haben_V = MorphoAfr.haben_V ** {lock_V = <>} ;
|
||||
-- sein_V = MorphoAfr.sein_V ** {lock_V = <>} ;
|
||||
-- werden_V = MorphoAfr.werden_V ** {lock_V = <>} ;
|
||||
--
|
||||
prepV2 : V -> Prep -> V2 ;
|
||||
prepV2 v c = lin V2 (v ** {c2 = c.s}) ;
|
||||
-- dirV2 v = prepV2 v (mkPrep [] accusative) ;
|
||||
-- datV2 v = prepV2 v (mkPrep [] dative) ;
|
||||
--
|
||||
--
|
||||
mkVS v = lin VS v ;
|
||||
mkVQ v = lin VQ v ;
|
||||
mkVV v = lin VV (v ** {isAux = False}) ;
|
||||
|
||||
V0 : Type = V ;
|
||||
-- AS, A2S, AV : Type = A ;
|
||||
-- A2V : Type = A2 ;
|
||||
|
||||
mkV0 v = v ;
|
||||
mkV2S v p = lin V2S (prepV2 v p) ;
|
||||
mkV2V v p = lin V2V (prepV2 v p ** {isAux = False}) ;
|
||||
mkVA v = lin VA v ;
|
||||
mkV2A v p = lin V2A (prepV2 v p) ;
|
||||
mkV2Q v p = lin V2Q (prepV2 v p) ;
|
||||
--
|
||||
-- mkAS v = v ** {lock_A = <>} ;
|
||||
-- mkA2S v p = mkA2 v p ** {lock_A = <>} ;
|
||||
-- mkAV v = v ** {lock_A = <>} ;
|
||||
-- mkA2V v p = mkA2 v p ** {lock_A2 = <>} ;
|
||||
--
|
||||
---- pre-overload API and overload definitions
|
||||
--
|
||||
-- regN : Str -> N ;
|
||||
-- reg2N : (x1,x2 : Str) -> Gender -> N ;
|
||||
-- mk6N : (x1,_,_,_,_,x6 : Str) -> Gender -> N ;
|
||||
--
|
||||
-- mkN = overload {
|
||||
-- mkN : Str -> N = regN ;
|
||||
-- mkN : (x1,x2 : Str) -> Gender -> N = reg2N ;
|
||||
-- mkN : (x1,_,_,_,_,x6 : Str) -> Gender -> N = mk6N
|
||||
-- };
|
||||
--
|
||||
--
|
||||
--
|
||||
-- regA : Str -> A ;
|
||||
-- mk3A : (gut,besser,beste : Str) -> A ;
|
||||
--
|
||||
-- mkA = overload {
|
||||
-- mkA : Str -> A = regA ;
|
||||
-- mkA : (gut,besser,beste : Str) -> A = mk3A ;
|
||||
-- mkA : (gut,gute,besser,beste : Str) -> A = mk4A
|
||||
-- };
|
||||
--
|
||||
--
|
||||
--
|
||||
-- regV : Str -> V ;
|
||||
-- irregV : (x1,_,_,_,x5 : Str) -> V ;
|
||||
-- mk6V : (x1,_,_,_,_,x6 : Str) -> V ;
|
||||
--
|
||||
-- prefixV : Str -> V -> V ;
|
||||
--
|
||||
-- mkV = overload {
|
||||
-- mkV : Str -> V = regV ;
|
||||
-- mkV : (x1,_,_,_,x5 : Str) -> V = irregV ;
|
||||
-- mkV : (x1,_,_,_,_,x6 : Str) -> V = mk6V ;
|
||||
-- mkV : Str -> V -> V = prefixV
|
||||
-- };
|
||||
--
|
||||
|
||||
|
||||
-- dirV2 : V -> V2 ;
|
||||
--
|
||||
-- datV2 : V -> V2 ;
|
||||
--
|
||||
-- mkV2 = overload {
|
||||
-- mkV2 : Str -> V2 = \s -> dirV2 (regV s) ;
|
||||
-- mkV2 : V -> V2 = dirV2 ;
|
||||
-- mkV2 : V -> Prep -> V2 = prepV2;
|
||||
-- mkV2 : V -> Case -> V2 = \v,c -> prepV2 v (mkPrep [] c)
|
||||
-- } ;
|
||||
--
|
||||
--}
|
||||
|
||||
}
|
||||
31
lib/src/afrikaans/PhraseAfr.gf
Normal file
31
lib/src/afrikaans/PhraseAfr.gf
Normal file
@@ -0,0 +1,31 @@
|
||||
concrete PhraseAfr of Phrase = CatAfr ** open Prelude, ResAfr in
|
||||
{
|
||||
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
|
||||
|
||||
UttS s = {s = s.s ! Main} ;
|
||||
UttQS qs = {s = qs.s ! QDir} ;
|
||||
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False} ;
|
||||
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
|
||||
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True} ;
|
||||
|
||||
UttIP ip = {s = ip.s ! NPNom} ; --- Acc also
|
||||
UttIAdv iadv = iadv ;
|
||||
UttNP np = {s = np.s ! NPNom} ;
|
||||
UttVP vp = {s = useInfVP True vp} ; -- without zu
|
||||
UttAdv adv = adv ;
|
||||
UttCN n = {s = n.s ! Strong ! NF Sg Nom} ;
|
||||
UttCard n = {s = n.s ! Utr ! Nom} ;
|
||||
UttAP ap = {s = ap.s ! APred} ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = ss (conj.s2) ;
|
||||
|
||||
NoVoc = {s = []} ;
|
||||
VocNP np = {s = "," ++ np.s ! NPNom} ;
|
||||
|
||||
}
|
||||
103
lib/src/afrikaans/QuestionAfr.gf
Normal file
103
lib/src/afrikaans/QuestionAfr.gf
Normal file
@@ -0,0 +1,103 @@
|
||||
concrete QuestionAfr of Question = CatAfr ** open ResAfr in {
|
||||
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
|
||||
QuestCl cl = {
|
||||
s = \\t,a,p =>
|
||||
let cls = cl.s ! t ! a ! p
|
||||
in table {
|
||||
QDir => cls ! Inv ;
|
||||
QIndir => "of" ++ cls ! Sub
|
||||
}
|
||||
} ;
|
||||
|
||||
QuestVP qp vp = {
|
||||
s = \\t,a,b,q =>
|
||||
let
|
||||
cl = (mkClause (qp.s ! NPNom) (agrP3 qp.n) vp).s ! t ! a ! b
|
||||
in
|
||||
case q of {
|
||||
QIndir => cl ! Sub ;
|
||||
_ => cl ! Main
|
||||
}
|
||||
} ;
|
||||
|
||||
QuestSlash ip slash = {
|
||||
s = \\t,a,p =>
|
||||
let
|
||||
cls = slash.s ! t ! a ! p ;
|
||||
who = appPrep slash.c2 ip.s
|
||||
in table {
|
||||
QDir => who ++ cls ! Inv ;
|
||||
QIndir => who ++ cls ! Sub
|
||||
}
|
||||
} ;
|
||||
|
||||
QuestIAdv iadv cl = {
|
||||
s = \\t,a,p =>
|
||||
let
|
||||
cls = cl.s ! t ! a ! p ;
|
||||
why = iadv.s
|
||||
in table {
|
||||
QDir => why ++ cls ! Inv ;
|
||||
QIndir => why ++ cls ! Sub
|
||||
}
|
||||
} ;
|
||||
|
||||
QuestIComp icomp np = {
|
||||
s = \\t,a,p =>
|
||||
let
|
||||
vp = predV zijn_V ;
|
||||
cls = (mkClause (np.s ! NPNom) np.a vp).s ! t ! a ! p ;
|
||||
why = icomp.s ! np.a
|
||||
in table {
|
||||
QDir => why ++ cls ! Inv ;
|
||||
QIndir => why ++ cls ! Sub
|
||||
}
|
||||
} ;
|
||||
|
||||
PrepIP p ip = {
|
||||
s = appPrep p.s ip.s
|
||||
} ;
|
||||
|
||||
AdvIP ip adv = {
|
||||
s = \\c => ip.s ! c ++ adv.s ;
|
||||
n = ip.n
|
||||
} ;
|
||||
|
||||
IdetCN idet cn =
|
||||
let
|
||||
g = cn.g ;
|
||||
n = idet.n
|
||||
in {
|
||||
s = \\c => idet.s ! g ++ cn.s ! Weak ! NF n Nom ;
|
||||
n = n
|
||||
} ;
|
||||
|
||||
IdetIP idet =
|
||||
let
|
||||
g = Neutr ; ----
|
||||
n = idet.n
|
||||
in {
|
||||
s = \\_ => idet.s ! g ;
|
||||
n = n
|
||||
} ;
|
||||
|
||||
IdetQuant idet num =
|
||||
let
|
||||
n = num.n
|
||||
in {
|
||||
s = \\g => idet.s ! n ! g ++ num.s ;
|
||||
n = n
|
||||
} ;
|
||||
|
||||
AdvIAdv i a = {s = i.s ++ a.s} ;
|
||||
|
||||
CompIAdv a = {s = \\_ => a.s} ;
|
||||
|
||||
CompIP ip = {s = \\_ => ip.s ! NPNom} ;
|
||||
|
||||
}
|
||||
44
lib/src/afrikaans/RelativeAfr.gf
Normal file
44
lib/src/afrikaans/RelativeAfr.gf
Normal file
@@ -0,0 +1,44 @@
|
||||
concrete RelativeAfr of Relative = CatAfr ** open ResAfr in {
|
||||
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
|
||||
RelCl cl = {
|
||||
s = \\t,a,b,_,_ => "zodat" ++ cl.s ! t ! a ! b ! Sub
|
||||
} ;
|
||||
|
||||
RelVP rp vp = {
|
||||
s = \\t,ant,b,g,n =>
|
||||
let
|
||||
agr = case rp.a of {
|
||||
RNoAg => agrgP3 g n ;
|
||||
RAg rn p => {g = Utr ; n = rn ; p = p} ---- g
|
||||
} ;
|
||||
cl = mkClause (rp.s ! g ! n) agr vp
|
||||
in
|
||||
cl.s ! t ! ant ! b ! Sub
|
||||
} ;
|
||||
|
||||
RelSlash rp slash = {
|
||||
s = \\t,a,p,g,n =>
|
||||
appPrep slash.c2 (\\_ => rp.s ! g ! n) ++ slash.s ! t ! a ! p ! Sub ;
|
||||
c = slash.c2.c
|
||||
} ;
|
||||
|
||||
FunRP p np rp = {
|
||||
s = \\g,n => np.s ! NPNom ++ appPrep p.s (\\_ => rp.s ! g ! n) ;
|
||||
a = RAg np.a.n np.a.p
|
||||
} ;
|
||||
|
||||
IdRP = {s = relPron ; a = RNoAg} ;
|
||||
|
||||
oper
|
||||
relPron : Gender => Number => Str = \\g,n =>
|
||||
case <g,n> of {
|
||||
<Neutr,Sg> => "dat" ;
|
||||
_ => "die"
|
||||
} ;
|
||||
|
||||
}
|
||||
495
lib/src/afrikaans/ResAfr.gf
Normal file
495
lib/src/afrikaans/ResAfr.gf
Normal file
@@ -0,0 +1,495 @@
|
||||
--# -path=.:../abstract:../common
|
||||
|
||||
--1 Afrch auxiliary operations.
|
||||
--
|
||||
-- (c) 2009 Femke Johansson and Aarne Ranta
|
||||
|
||||
resource ResAfr = ParamX ** open Prelude in {
|
||||
|
||||
flags optimize=all ;
|
||||
|
||||
--2 For $Noun$
|
||||
|
||||
param
|
||||
Case = Nom | Gen ;
|
||||
Gender = Utr | Neutr ; --!
|
||||
-- Gender = Utr | Neutr ; --!
|
||||
|
||||
NForm = NF Number Case ;
|
||||
|
||||
NPCase = NPNom | NPAcc ;
|
||||
|
||||
oper
|
||||
Noun = {s : NForm => Str ; g : Gender} ;
|
||||
|
||||
mkNoun : (_,_ : Str) -> Gender -> Noun = \sg,pl,g -> {
|
||||
s = table {
|
||||
NF Sg Nom => sg ;
|
||||
NF Sg Gen => add_s sg ;
|
||||
NF Pl Nom => pl ;
|
||||
NF Pl Gen => add_s pl
|
||||
} ;
|
||||
g = g
|
||||
} ;
|
||||
|
||||
regNoun : Str -> Noun = \s -> case s of {
|
||||
_ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ;
|
||||
_ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ;
|
||||
? + ? + ? + _ +
|
||||
("el" | "em" | "en" | "er" | "erd" | "aar" | "aard" | "ie") => -- unstressed
|
||||
mkNoun s (s + "s") Utr ;
|
||||
_ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ;
|
||||
b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "en") Utr ;
|
||||
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 ;
|
||||
_ => mkNoun s (endCons s + "en") Utr
|
||||
} ;
|
||||
|
||||
regNounG : Str -> Gender -> Noun = \s,g -> {
|
||||
s = (regNoun s).s ;
|
||||
g = g
|
||||
} ;
|
||||
|
||||
shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ;
|
||||
|
||||
endCons : Str -> Str = \s -> case s of {
|
||||
_ + ("ts" |"rs" | "ls" | "ds" | "ns" | "ms") => s ;
|
||||
b + "s" => b + "z" ;
|
||||
b + "f" => b + "v" ;
|
||||
_ => s
|
||||
} ;
|
||||
|
||||
dupCons : pattern Str = #("b"|"d"|"f"|"g"|"k"|"l"|"m"|"n"|"p"|"r"|"s"|"t") ;
|
||||
|
||||
add_s : Str -> Str = \s -> case s of {
|
||||
_ + "s" => s ;
|
||||
_ => s + "s"
|
||||
} ;
|
||||
|
||||
param
|
||||
AForm = APred | AAttr | AGen ;
|
||||
|
||||
oper
|
||||
Adjective = {s : Degree => AForm => Str} ;
|
||||
|
||||
mkAdjective : (_,_,_,_,_ : Str) -> Adjective = \ap,aa,ag,ac,as -> {
|
||||
s = table {
|
||||
Posit => table {APred => ap ; AAttr => aa ; AGen => ag} ;
|
||||
Compar => table {APred => ac ; AAttr => ac + "e" ; AGen => ac + "es"} ; ----
|
||||
Superl => table {APred => as ; AAttr => as + "e" ; AGen => as + "es"} ----
|
||||
}
|
||||
} ;
|
||||
regAdjective : Str -> Adjective = \s -> ----
|
||||
let
|
||||
se : Str = case s of {
|
||||
_ + "er" => s + "e" ; ----
|
||||
_ + ("i"|"u") => endCons s + "e" ;
|
||||
b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ;
|
||||
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => endCons s + "e" ;
|
||||
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => b + v + c + c + "e" ;
|
||||
_ => endCons s + "e"
|
||||
} ;
|
||||
ser : Str = case s of {
|
||||
_ + "r" => s + "der" ;
|
||||
_ => se + "r"
|
||||
} ;
|
||||
sst : Str = case s of {
|
||||
_ + "s" => s + "t" ;
|
||||
_ => s + "st"
|
||||
} ;
|
||||
in
|
||||
mkAdjective s se (s + "s") ser sst ;
|
||||
|
||||
param
|
||||
VForm = --!
|
||||
VInf -- wees
|
||||
| VPres -- is
|
||||
| VPast -- was --# notpresent
|
||||
| VPerf -- gewees
|
||||
;
|
||||
|
||||
VPart = VPart_aan | VPart_af | VPart_be ;
|
||||
|
||||
oper
|
||||
Verb : Type = {s: VForm => Str};
|
||||
|
||||
mkVerb : (_,_,_,_ : Str) ->
|
||||
Verb = \aai, aaien, aaide, geaaid -> {
|
||||
s = table {
|
||||
VInf => aaien; -- hij/zij/het/wij aaien
|
||||
VPres => aai; -- ik aai
|
||||
VPast => aaide; -- ik aaide --# notpresent
|
||||
VPerf => geaaid -- ik heb geaaid
|
||||
}
|
||||
};
|
||||
|
||||
regVerb : Str -> Verb = \s -> irregVerb s ("ge" + s) ;
|
||||
|
||||
irregVerb : (breek, gebreek : Str) -> Verb = \breek,gebreek ->
|
||||
mkVerb breek breek breek gebreek ;
|
||||
|
||||
|
||||
-- To add a prefix (like "ein") to an already existing verb.
|
||||
|
||||
prefixV : Str -> VVerb -> VVerb = \ein,verb ->
|
||||
let
|
||||
vs = verb.s ;
|
||||
einb : Bool -> Str -> Str = \b,geb ->
|
||||
if_then_Str b (ein + geb) geb ;
|
||||
in
|
||||
{s = table {
|
||||
f@(VInf | VPerf) => ein + vs ! f ; ---- TODO: eingegeven
|
||||
f => vs ! f
|
||||
} ;
|
||||
prefix = ein ;
|
||||
aux = verb.aux ;
|
||||
vtype = verb.vtype
|
||||
} ;
|
||||
zijn_V : VVerb = {
|
||||
s = table {
|
||||
VInf => "wees" ;
|
||||
VPres => "is" ;
|
||||
VPast => "was" ; --# notpresent
|
||||
VPerf => "gewees"
|
||||
} ;
|
||||
aux = VZijn ;
|
||||
prefix = [] ;
|
||||
vtype = VAct ;
|
||||
} ;
|
||||
|
||||
hebben_V : VVerb = {
|
||||
s = table {
|
||||
VInf => "hê" ;
|
||||
VPres => "het" ;
|
||||
VPast => "hat" ; --# notpresent
|
||||
VPerf => "gehad"
|
||||
} ;
|
||||
aux = VHebben ;
|
||||
prefix = [] ;
|
||||
vtype = VAct ;
|
||||
} ;
|
||||
|
||||
Pronoun : Type = {
|
||||
unstressed,stressed : {nom, acc, poss : Str} ;
|
||||
substposs : Str ;
|
||||
a : Agr
|
||||
} ;
|
||||
|
||||
sal_V : VVerb = {
|
||||
s = table {
|
||||
VInf => "sal" ;
|
||||
VPres => "sal" ;
|
||||
VPast => "sou" ; --# notpresent
|
||||
VPerf => "gesou"
|
||||
} ;
|
||||
aux = VHebben ;
|
||||
prefix = [] ;
|
||||
vtype = VAct ;
|
||||
} ;
|
||||
|
||||
word_V : VVerb = {
|
||||
s = table {
|
||||
VInf => "word" ;
|
||||
VPres => "word" ;
|
||||
VPast => "word" ; --# notpresent
|
||||
VPerf => "geword"
|
||||
} ;
|
||||
aux = VHebben ;
|
||||
prefix = [] ;
|
||||
vtype = VAct ;
|
||||
} ;
|
||||
|
||||
mkPronoun : (x1,_,_,_,_,x6,x7 : Str) -> Gender -> Number -> Person -> Pronoun =
|
||||
\ik,me,mn,Ik,mij,mijn,mijne,g,n,p -> {
|
||||
unstressed = {nom = ik ; acc = me ; poss = mn} ;
|
||||
stressed = {nom = Ik ; acc = mij ; poss = mijn} ;
|
||||
substposs = mijne ;
|
||||
a = {g = g ; n = n ; p = p}
|
||||
} ;
|
||||
|
||||
het_Pron : Pronoun = mkPronoun "'t" "'t" "ze" "hij" "hem" "zijn" "zijne" Neutr Sg P3 ;
|
||||
|
||||
|
||||
-- Complex $CN$s, like adjectives, have strong and weak forms.
|
||||
|
||||
param
|
||||
Adjf = Strong | Weak ;
|
||||
|
||||
|
||||
oper VVerb = Verb ** {prefix : Str ; aux : VAux ; vtype : VType} ;
|
||||
param VAux = VHebben | VZijn ;
|
||||
|
||||
param VType = VAct | VRefl ;
|
||||
|
||||
oper
|
||||
v2vvAux : Verb -> VAux -> VVerb = \v,a ->
|
||||
{s = v.s ; aux = a ; prefix = [] ; vtype = VAct} ;
|
||||
v2vv : Verb -> VVerb = \v -> v2vvAux v VHebben ;
|
||||
|
||||
|
||||
|
||||
---- The order of sentence is depends on whether it is used as a main
|
||||
---- clause, inverted, or subordinate.
|
||||
|
||||
oper
|
||||
Preposition = Str ;
|
||||
appPrep : Preposition -> (NPCase => Str) -> Str = \p,np -> p ++ np ! NPAcc ; ----
|
||||
|
||||
param
|
||||
Order = Main | Inv | Sub ;
|
||||
|
||||
oper
|
||||
vForm : Tense -> VForm = \t -> case t of {
|
||||
Pres => VPres ;
|
||||
Fut => VPres --# notpresent
|
||||
; Past | Cond => VPast -- Fut and Cond affect zullen --# notpresent
|
||||
} ;
|
||||
|
||||
--2 For $Relative$
|
||||
|
||||
param
|
||||
RAgr = RNoAg | RAg Number Person ;
|
||||
|
||||
--2 For $Numeral$
|
||||
|
||||
param
|
||||
CardOrd = NCard Gender Case | NOrd AForm ;
|
||||
DForm = DUnit | DTeen | DTen ;
|
||||
|
||||
--2 Transformations between parameter types
|
||||
|
||||
oper Agr : Type = {g : Gender ; n : Number ; p : Person} ;
|
||||
|
||||
oper
|
||||
agrP3 : Number -> Agr = agrgP3 Neutr ;
|
||||
|
||||
agrgP3 : Gender -> Number -> Agr = \g,n ->
|
||||
{g = g ; n = n ; p = P3} ;
|
||||
|
||||
-- Used in $NounAfr$.
|
||||
|
||||
agrAdj : Gender -> Adjf -> NForm -> AForm = \g,a,n ->
|
||||
case <a,g,n> of {
|
||||
<Strong,Neutr,NF Sg _> => APred ;
|
||||
_ => AAttr
|
||||
} ;
|
||||
|
||||
oper VP : Type = {
|
||||
s : VVerb ;
|
||||
a1 : Polarity => Str ; -- niet
|
||||
n0 : Agr => Str ; -- je
|
||||
n2 : Agr => Str ; -- je vrouw
|
||||
a2 : Str ; -- vandaag
|
||||
isAux : Bool ; -- is a double infinitive
|
||||
inf : Str * Bool ; -- sagen (True = non-empty)
|
||||
ext : Str -- dass sie kommt
|
||||
} ;
|
||||
|
||||
predV : VVerb -> VP = predVGen False ;
|
||||
|
||||
|
||||
predVGen : Bool -> VVerb -> VP = \isAux, verb -> {
|
||||
s = verb ;
|
||||
a1 : Polarity => Str = negation ;
|
||||
n0 : Agr => Str = \\a => case verb.vtype of {
|
||||
VAct => [] ;
|
||||
VRefl => reflPron ! a
|
||||
} ;
|
||||
n2 : Agr => Str = \\a => [] ;
|
||||
a2 : Str = [] ;
|
||||
isAux = isAux ; ----
|
||||
inf : Str * Bool = <[],False> ;
|
||||
ext : Str = []
|
||||
} ;
|
||||
|
||||
negation : Polarity => Str = table {
|
||||
Pos => [] ;
|
||||
Neg => "niet"
|
||||
} ;
|
||||
|
||||
-- Extending a verb phrase with new constituents.
|
||||
|
||||
insertObj : (Agr => Str) -> VP -> VP = insertObjNP False ;
|
||||
|
||||
insertObjNP : Bool -> (Agr => Str) -> VP -> VP = \isPron, obj,vp -> {
|
||||
s = vp.s ;
|
||||
a1 = vp.a1 ;
|
||||
n0 = \\a => case isPron of {True => obj ! a ; _ => []} ++ vp.n0 ! a ;
|
||||
n2 = \\a => case isPron of {False => obj ! a ; _ => []} ++ vp.n2 ! a ;
|
||||
a2 = vp.a2 ;
|
||||
isAux = vp.isAux ;
|
||||
inf = vp.inf ;
|
||||
ext = vp.ext
|
||||
} ;
|
||||
|
||||
insertAdV : Str -> VP -> VP = \adv,vp -> {
|
||||
s = vp.s ;
|
||||
a1 = \\a => adv ++ vp.a1 ! a ; -- immer nicht
|
||||
n0 = vp.n0 ;
|
||||
n2 = vp.n2 ;
|
||||
a2 = vp.a2 ;
|
||||
isAux = vp.isAux ;
|
||||
inf = vp.inf ;
|
||||
ext = vp.ext
|
||||
} ;
|
||||
|
||||
insertAdv : Str -> VP -> VP = \adv,vp -> {
|
||||
s = vp.s ;
|
||||
a1 = vp.a1 ;
|
||||
n0 = vp.n0 ;
|
||||
n2 = vp.n2 ;
|
||||
a2 = vp.a2 ++ adv ;
|
||||
isAux = vp.isAux ;
|
||||
inf = vp.inf ;
|
||||
ext = vp.ext
|
||||
} ;
|
||||
|
||||
insertExtrapos : Str -> VP -> VP = \ext,vp -> {
|
||||
s = vp.s ;
|
||||
a1 = vp.a1 ;
|
||||
n0 = vp.n0 ;
|
||||
n2 = vp.n2 ;
|
||||
a2 = vp.a2 ;
|
||||
isAux = vp.isAux ;
|
||||
inf = vp.inf ;
|
||||
ext = vp.ext ++ ext
|
||||
} ;
|
||||
|
||||
insertInf : Str -> VP -> VP = \inf,vp -> {
|
||||
s = vp.s ;
|
||||
a1 = vp.a1 ;
|
||||
n0 = vp.n0 ;
|
||||
n2 = vp.n2 ;
|
||||
a2 = vp.a2 ;
|
||||
isAux = vp.isAux ; ----
|
||||
inf = <inf ++ vp.inf.p1, True> ;
|
||||
ext = vp.ext
|
||||
} ;
|
||||
|
||||
-- For $Sentence$.
|
||||
|
||||
Clause : Type = {
|
||||
s : Tense => Anteriority => Polarity => Order => Str
|
||||
} ;
|
||||
|
||||
mkClause : Str -> Agr -> VP -> Clause = \subj,agr,vp -> {
|
||||
s = \\t,a,b,o =>
|
||||
let
|
||||
ord = case o of {
|
||||
Sub => True ; -- glue prefix to verb
|
||||
_ => False
|
||||
} ;
|
||||
vform = vForm t ;
|
||||
auxv = (auxVerb vp.s.aux).s ;
|
||||
vperf = vp.s.s ! VPerf ;
|
||||
verb : Str * Str = case <t,a> of {
|
||||
<Fut|Cond,Simul> => <sal_V.s ! vform, vperf ++ auxv ! VInf> ; --# notpresent
|
||||
<Fut|Cond,Anter> => <sal_V.s ! vform, vperf ++ auxv ! VInf> ; --# notpresent
|
||||
<_, Anter> => <auxv ! vform, vperf> ; --# notpresent
|
||||
<_, Simul> => <vp.s.s ! vform, []>
|
||||
} ;
|
||||
fin = verb.p1 ;
|
||||
neg = vp.a1 ! b ;
|
||||
obj0 = vp.n0 ! agr ;
|
||||
obj = vp.n2 ! agr ;
|
||||
compl = obj0 ++ neg ++ obj ++ vp.a2 ++ vp.s.prefix ;
|
||||
inf =
|
||||
case <vp.isAux, vp.inf.p2, a> of { --# notpresent
|
||||
<True,True,Anter> => vp.s.s ! VInf ++ vp.inf.p1 ; --# notpresent
|
||||
_ => --# notpresent
|
||||
vp.inf.p1 ++ verb.p2
|
||||
} --# notpresent
|
||||
;
|
||||
extra = vp.ext ;
|
||||
inffin =
|
||||
case <a,vp.isAux> of { --# notpresent
|
||||
<Anter,True> => fin ++ inf ; -- double inf --# notpresent
|
||||
_ => --# notpresent
|
||||
inf ++ fin --- or just auxiliary vp
|
||||
} --# notpresent
|
||||
in
|
||||
case o of {
|
||||
Main => subj ++ fin ++ compl ++ inf ++ extra ;
|
||||
Inv => fin ++ subj ++ compl ++ inf ++ extra ;
|
||||
Sub => subj ++ compl ++ inffin ++ extra
|
||||
}
|
||||
} ;
|
||||
|
||||
auxVerb : VAux -> VVerb = \a -> case a of {
|
||||
VHebben => hebben_V ;
|
||||
VZijn => zijn_V
|
||||
} ;
|
||||
|
||||
infVP : Bool -> VP -> ((Agr => Str) * Str * Str) = \isAux, vp ->
|
||||
<
|
||||
\\agr => vp.n2 ! agr ++ vp.a2,
|
||||
vp.a1 ! Pos ++
|
||||
if_then_Str isAux [] "te" ++ vp.s.s ! VInf,
|
||||
vp.inf.p1 ++ vp.ext
|
||||
> ;
|
||||
|
||||
useInfVP : Bool -> VP -> Str = \isAux,vp ->
|
||||
let vpi = infVP isAux vp in
|
||||
vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ;
|
||||
|
||||
reflPron : Agr => Str = table {
|
||||
{n = Sg ; p = P1} => "me" ;
|
||||
{n = Sg ; p = P2} => "je" ;
|
||||
{n = Sg ; p = P3} => "zich" ;
|
||||
{n = Pl ; p = P1} => "ons" ;
|
||||
{n = Pl ; p = P2} => "je" ;
|
||||
{n = Pl ; p = P3} => "zich"
|
||||
} ;
|
||||
|
||||
conjThat : Str = "dat" ;
|
||||
|
||||
conjThan : Str = "dan" ;
|
||||
|
||||
conjAgr : Agr -> Agr -> Agr = \a,b -> {
|
||||
g = Utr ; ----
|
||||
n = conjNumber a.n b.n ;
|
||||
p = conjPerson a.p b.p
|
||||
} ;
|
||||
|
||||
-- The infinitive particle "zu" is used if and only if $vv.isAux = False$.
|
||||
|
||||
infPart : Bool -> Str = \b -> if_then_Str b [] "te" ;
|
||||
|
||||
mkDet : Str -> Str -> Number -> {s,sp : Gender => Str ; n : Number ; a : Adjf} =
|
||||
\deze,dit,n -> {
|
||||
s = \\g => case <n,g> of {<Sg,Neutr> => dit ; _ => deze} ;
|
||||
sp = \\g => case <n,g> of {<Sg,Neutr> => dit ; _ => deze} ;
|
||||
n = n ;
|
||||
a = Weak
|
||||
} ;
|
||||
|
||||
mkQuant : Str -> Str -> {
|
||||
s : Bool => Number => Gender => Str ;
|
||||
sp : Number => Gender => Str ;
|
||||
a : Adjf
|
||||
} =
|
||||
\deze,dit -> {
|
||||
s = \\_ ,n,g => case <n,g> of {<Sg,Neutr> => dit ; _ => deze} ;
|
||||
sp = \\ n,g => case <n,g> of {<Sg,Neutr> => dit ; _ => deze} ;
|
||||
a = Weak
|
||||
} ;
|
||||
|
||||
mkPredet : Str -> Str -> {s : Number => Gender => Str} =
|
||||
\deze,dit -> {
|
||||
s = \\n,g => case <n,g> of {<Sg,Neutr> => dit ; _ => deze}
|
||||
} ;
|
||||
|
||||
mkNP : Str -> Gender -> Number -> {s : NPCase => Str ; a : Agr ; isPron : Bool} =
|
||||
\s,g,n -> heavyNP {
|
||||
s = \\_ => s ;
|
||||
a = agrgP3 g n ;
|
||||
} ;
|
||||
|
||||
auxVV : VVerb -> VVerb ** {isAux : Bool} = \v -> v ** {isAux = True} ;
|
||||
|
||||
heavyNP :
|
||||
{s : NPCase => Str ; a : Agr} -> {s : NPCase => Str ; a : Agr ; isPron : Bool} = \np ->
|
||||
np ** {isPron = False} ;
|
||||
|
||||
}
|
||||
67
lib/src/afrikaans/SentenceAfr.gf
Normal file
67
lib/src/afrikaans/SentenceAfr.gf
Normal file
@@ -0,0 +1,67 @@
|
||||
concrete SentenceAfr of Sentence = CatAfr ** open ResAfr, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
|
||||
PredVP np vp = mkClause (np.s ! NPNom) np.a vp ;
|
||||
|
||||
PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp ;
|
||||
|
||||
ImpVP vp = {
|
||||
s = \\pol,im =>
|
||||
let
|
||||
ps = case im of {
|
||||
ImpF Pl _ => <VInf,[],Pl> ;
|
||||
ImpF Sg True => <VInf,[],Sg> ;
|
||||
ImpF Sg False => <VInf,[],Sg>
|
||||
} ;
|
||||
agr = {g = Utr ; n = ps.p3 ; p = P2} ; ---- P2? -- g does not matter
|
||||
verb = vp.s.s ! ps.p1 ;
|
||||
inf = vp.inf.p1 ;
|
||||
in
|
||||
verb ++ ps.p2 ++
|
||||
vp.n2 ! agr ++ vp.a1 ! pol ++ vp.a2 ++ inf ++ vp.ext
|
||||
} ;
|
||||
|
||||
SlashVP np vp =
|
||||
mkClause
|
||||
(np.s ! NPNom) np.a
|
||||
vp **
|
||||
{c2 = vp.c2} ;
|
||||
|
||||
AdvSlash slash adv = {
|
||||
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
|
||||
c2 = slash.c2
|
||||
} ;
|
||||
|
||||
SlashPrep cl prep = cl ** {c2 = prep.s} ;
|
||||
|
||||
SlashVS np vs slash =
|
||||
mkClause (np.s ! NPNom) np.a
|
||||
(insertExtrapos (conjThat ++ slash.s ! Sub) (predV vs)) **
|
||||
{c2 = slash.c2} ;
|
||||
|
||||
EmbedS s = {s = conjThat ++ s.s ! Sub} ;
|
||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||
EmbedVP vp = {s = useInfVP False vp} ;
|
||||
|
||||
UseCl t p cl = {
|
||||
s = \\o => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! o
|
||||
} ;
|
||||
UseQCl t p cl = {
|
||||
s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! q
|
||||
} ;
|
||||
UseRCl t p cl = {
|
||||
s = \\g,n => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! g ! n
|
||||
} ;
|
||||
UseSlash t p cl = {
|
||||
s = \\o => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! o ;
|
||||
c2 = cl.c2
|
||||
} ;
|
||||
|
||||
AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
|
||||
|
||||
RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;
|
||||
|
||||
}
|
||||
125
lib/src/afrikaans/StructuralAfr.gf
Normal file
125
lib/src/afrikaans/StructuralAfr.gf
Normal file
@@ -0,0 +1,125 @@
|
||||
concrete StructuralAfr of Structural = CatAfr, Prelude **
|
||||
|
||||
open ParadigmsAfr, ResAfr, (X = ConstructX) in
|
||||
{
|
||||
|
||||
|
||||
flags optimize=all ;
|
||||
|
||||
lin
|
||||
|
||||
above_Prep = mkPrep "boven" ;
|
||||
after_Prep = mkPrep "na" ;
|
||||
all_Predet = mkPredet "alle" "alle" ; ----
|
||||
almost_AdA, almost_AdN = ss "byna" ;
|
||||
although_Subj = ss "hoewel" ;
|
||||
always_AdV = ss "altyd" ;
|
||||
and_Conj = {s1 = [] ; s2 = "en" ; n = Pl} ;
|
||||
because_Subj = ss "omdat" ; ---- doordat
|
||||
before_Prep = mkPrep "voor" ;
|
||||
behind_Prep = mkPrep "achter" ;
|
||||
between_Prep = mkPrep "tussen" ;
|
||||
both7and_DConj = {s1 = "sowel" ; s2 = "als" ; n = Pl} ;
|
||||
but_PConj = ss "maar" ;
|
||||
by8agent_Prep = mkPrep "door" ;
|
||||
by8means_Prep = mkPrep "met" ;
|
||||
can8know_VV, can_VV = auxVV (mkV "kan" "kon") ;
|
||||
during_Prep = mkPrep "tydens" ;
|
||||
either7or_DConj = {s1 = "ofwel" ; s2 = "of" ; n = Pl} ;
|
||||
everybody_NP = mkNP "alle" Utr Pl ; ----
|
||||
every_Det = mkDet "elke" "elk" Sg ; ----
|
||||
everything_NP = mkNP "alles" Neutr Sg ; ----
|
||||
everywhere_Adv = ss "overal" ;
|
||||
few_Det = mkDet "weinig" "weinig" Pl ;
|
||||
for_Prep = mkPrep "voor" ;
|
||||
from_Prep = mkPrep "uit" ;
|
||||
he_Pron = mkPronoun "hy" "hem" "syn" "hy" "hem" "syn" "syne" Utr Sg P3 ;
|
||||
here7to_Adv = ss ["hier"] ;
|
||||
here7from_Adv = ss ["van hier"] ; ----
|
||||
here_Adv = ss "hier" ;
|
||||
how_IAdv = ss "hoe" ;
|
||||
how8much_IAdv = ss "hoeveel" ;
|
||||
how8many_IDet = mkDet "hoeveel" "hoeveel" Pl ;
|
||||
if_Subj = ss "als" ;
|
||||
in8front_Prep = mkPrep "voor" ;
|
||||
i_Pron = mkPronoun "ek" "me" "myn" "ik" "my" "myn" "myne" Utr Sg P1 ;
|
||||
in_Prep = ss "in" ;
|
||||
it_Pron = mkPronoun "het" "het" "syn" "het" "het" "syn" "syne" Neutr Sg P3 ;
|
||||
|
||||
less_CAdv = X.mkCAdv "minder" "dan" ;
|
||||
many_Det = mkDet "veel" "veel" Pl ;
|
||||
more_CAdv = X.mkCAdv "meer" "dan" ;
|
||||
most_Predet = mkPredet "meeste" "meeste" ;
|
||||
much_Det = mkDet "veel" "veel" Sg ;
|
||||
|
||||
must_VV = auxVV (mkV "moeten" "moest" "gemoeten") ;
|
||||
|
||||
only_Predet = {s = \\_,_ => "slechts"} ;
|
||||
no_Utt = ss "neen" ;
|
||||
on_Prep = mkPrep "op" ;
|
||||
or_Conj = {s1 = [] ; s2 = "of" ; n = Sg} ;
|
||||
otherwise_PConj = ss "anders" ;
|
||||
part_Prep = mkPrep "van" ;
|
||||
please_Voc = ss "alsjeblieft" ;
|
||||
possess_Prep = mkPrep "van" ;
|
||||
quite_Adv = ss "heel" ;
|
||||
she_Pron = mkPronoun "se" "haar" "haar" "sy" "haar" "haar" "hare" Utr Sg P3 ;
|
||||
|
||||
so_AdA = ss "so" ;
|
||||
somebody_NP = mkNP "iemand" Utr Sg ;
|
||||
somePl_Det = mkDet "sommige" "sommige" Pl ;
|
||||
someSg_Det = mkDet "sommige" "sommige" Sg ;
|
||||
something_NP = mkNP "iets" Utr Sg ;
|
||||
somewhere_Adv = ss "ergens" ;
|
||||
that_Quant = mkQuant "die" "dat" ;
|
||||
that_Subj = ss "dat" ;
|
||||
there_Adv = ss "daar" ;
|
||||
there7to_Adv = ss "daar" ;
|
||||
there7from_Adv = ss "van daar" ;
|
||||
therefore_PConj = ss "daarom" ;
|
||||
|
||||
they_Pron = mkPronoun "se" "se" "hun" "sy" "hen" "hun" "hunne" Utr Pl P3 ; ----
|
||||
|
||||
this_Quant = mkQuant "dese" "dit" ;
|
||||
through_Prep = mkPrep "door" ;
|
||||
too_AdA = ss "te" ;
|
||||
to_Prep = mkPrep "naar" ;
|
||||
under_Prep = mkPrep "onder" ;
|
||||
very_AdA = ss "erg" ;
|
||||
want_VV = auxVV (mkV "wil" "wou" "gewil") ;
|
||||
|
||||
we_Pron = mkPronoun "we" "ons" "ons" "wy" "ons" "onse" "onse" Utr Pl P3 ; ----
|
||||
|
||||
whatSg_IP = {s = \\_ => "wat" ; n = Sg} ;
|
||||
whatPl_IP = {s = \\_ => "wat" ; n = Pl} ;
|
||||
|
||||
when_IAdv = ss "wanneer" ;
|
||||
when_Subj = ss "als" ;
|
||||
where_IAdv = ss "waar" ;
|
||||
which_IQuant = mkPredet "welke" "welk" ;
|
||||
|
||||
whoSg_IP = {s = \\_ => "wie" ; n = Sg} ;
|
||||
whoPl_IP = {s = \\_ => "wie" ; n = Pl} ;
|
||||
why_IAdv = ss "waarom" ;
|
||||
without_Prep = mkPrep "sonder" ;
|
||||
with_Prep = mkPrep "met" ;
|
||||
youSg_Pron = mkPronoun "je" "je" "je" "jy" "jou" "je" "jouwe" Neutr Sg P2 ; --- Neutr as hack for familiarity
|
||||
youPl_Pron = mkPronoun "jullie" "jullie" "je" "jullie" "jullie" "jullie" "uwe" Utr Pl P2 ;
|
||||
youPol_Pron = mkPronoun "u" "u" "uw" "u" "u" "uw" "uwe" Utr Sg P2 ;
|
||||
yes_Utt = ss "ja" ;
|
||||
|
||||
not_Predet = mkPredet "niet" "niet" ;
|
||||
no_Quant = mkQuant "geen" "geen" ;
|
||||
if_then_Conj = {s1 = "als" ; s2 = "dan" ; n = Sg ; lock_Conj = <>} ;
|
||||
nobody_NP = mkNP "niemand" Utr Sg ;
|
||||
nothing_NP = mkNP "niets" Neutr Sg ;
|
||||
at_least_AdN = ss "ten minste" ;
|
||||
at_most_AdN = ss "hooguit" ;
|
||||
except_Prep = mkPrep "met uitsondering van" ;
|
||||
|
||||
as_CAdv = X.mkCAdv "so" "als" ;
|
||||
have_V2 = mkV2 ParadigmsAfr.hebben_V ;
|
||||
|
||||
lin language_title_Utt = ss "nederlands" ;
|
||||
|
||||
}
|
||||
49
lib/src/afrikaans/SymbolAfr.gf
Normal file
49
lib/src/afrikaans/SymbolAfr.gf
Normal file
@@ -0,0 +1,49 @@
|
||||
--# -path=.:../abstract:../common
|
||||
|
||||
concrete SymbolAfr of Symbol = CatAfr ** open Prelude, ResAfr in
|
||||
{
|
||||
|
||||
|
||||
lin
|
||||
SymbPN i = {s = \\c => i.s ; g = Neutr} ; --- c
|
||||
IntPN i = {s = \\c => i.s ; g = Neutr} ; --- c
|
||||
FloatPN i = {s = \\c => i.s ; g = Neutr} ; --- c
|
||||
NumPN i = {s = \\_ => i.s ! Neutr ! Nom ; g = Neutr} ; --- c
|
||||
|
||||
CNIntNP cn i = {
|
||||
s = \\c => cn.s ! Weak ! NF Sg Nom ++ i.s ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
CNSymbNP det cn xs = let g = cn.g in {
|
||||
s = \\c => det.s ! g ++ cn.s ! det.a ! NF det.n Nom ++ xs.s ;
|
||||
a = agrP3 det.n ;
|
||||
isPron = False
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => artDef Sg cn.g ++ cn.s ! Weak ! NF Sg Nom ++ i.s ! Neutr ! Nom ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
SymbS sy = {s = \\_ => sy.s} ;
|
||||
|
||||
SymbNum n = {s = \\_,_ => n.s ; n = Pl ; isNum = True} ;
|
||||
SymbOrd n = {s = \\_ => n.s ++ "."} ;
|
||||
|
||||
|
||||
lincat
|
||||
|
||||
Symb, [Symb] = SS ;
|
||||
|
||||
lin
|
||||
|
||||
MkSymb s = s ;
|
||||
|
||||
BaseSymb = infixSS "en" ;
|
||||
ConsSymb = infixSS "," ;
|
||||
|
||||
oper
|
||||
artDef : Number -> Gender -> Str = \n,g -> case <n,g> of {<Sg,Neutr> => "het" ; _ => "de"} ;
|
||||
|
||||
}
|
||||
84
lib/src/afrikaans/VerbAfr.gf
Normal file
84
lib/src/afrikaans/VerbAfr.gf
Normal file
@@ -0,0 +1,84 @@
|
||||
concrete VerbAfr of Verb = CatAfr ** open Prelude, ResAfr in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
UseV = predV ;
|
||||
|
||||
ComplVV v vp =
|
||||
let
|
||||
vpi = infVP v.isAux vp
|
||||
in
|
||||
insertExtrapos vpi.p3 (
|
||||
insertInf vpi.p2 (
|
||||
insertObj vpi.p1 (
|
||||
predVGen v.isAux (v2v v)))) ; ---- subtyp
|
||||
|
||||
ComplVS v s =
|
||||
insertExtrapos (conjThat ++ s.s ! Sub) (predV v) ;
|
||||
ComplVQ v q =
|
||||
insertExtrapos (q.s ! QIndir) (predV v) ;
|
||||
ComplVA v ap = insertObj (\\ _ => ap.s ! APred) (predV v) ;
|
||||
|
||||
SlashV2a v = predV (v2v v) ** {c2 = v.c2} ;
|
||||
|
||||
Slash2V3 v np =
|
||||
insertObj (\\_ => appPrep v.c2 np.s) (predVv v) ** {c2 = v.c3} ;
|
||||
Slash3V3 v np =
|
||||
insertObj (\\_ => appPrep v.c3 np.s) (predVv v) ** {c2 = v.c2} ;
|
||||
|
||||
SlashV2S v s =
|
||||
insertExtrapos (conjThat ++ s.s ! Sub) (predVv v) ** {c2 = v.c2} ;
|
||||
SlashV2Q v q =
|
||||
insertExtrapos (q.s ! QIndir) (predVv v) ** {c2 = v.c2} ;
|
||||
SlashV2V v vp =
|
||||
let
|
||||
vpi = infVP False vp
|
||||
in
|
||||
insertExtrapos vpi.p3 (
|
||||
insertInf vpi.p2 (
|
||||
insertObj vpi.p1 ((predVv v)))) ** {c2 = v.c2} ;
|
||||
|
||||
SlashV2A v ap =
|
||||
insertObj (\\_ => ap.s ! APred) (predVv v) ** {c2 = v.c2} ;
|
||||
|
||||
ComplSlash vp np = insertObjNP np.isPron (\\_ => appPrep vp.c2 np.s) vp ;
|
||||
|
||||
SlashVV v vp =
|
||||
let
|
||||
vpi = infVP v.isAux vp
|
||||
in
|
||||
insertExtrapos vpi.p3 (
|
||||
insertInf vpi.p2 (
|
||||
insertObj vpi.p1 (
|
||||
predVGen v.isAux (v2v v)))) ** {c2 = vp.c2} ;
|
||||
|
||||
SlashV2VNP v np vp =
|
||||
let
|
||||
vpi = infVP False vp
|
||||
in
|
||||
insertExtrapos vpi.p3 (
|
||||
insertInf vpi.p2 (
|
||||
insertObj vpi.p1 (
|
||||
insertObj (\\_ => appPrep v.c2 np.s) (
|
||||
predVv v)))) ** {c2 = v.c2} ;
|
||||
|
||||
UseComp comp = insertObj comp.s (predV zijn_V) ; -- agr not used
|
||||
CompCN cn = {s = \\a => cn.s ! Strong ! NF a.n Nom} ;
|
||||
CompAP ap = {s = \\_ => ap.s ! APred} ;
|
||||
CompNP np = {s = \\_ => np.s ! NPNom} ;
|
||||
CompAdv a = {s = \\_ => a.s} ;
|
||||
|
||||
AdvVP vp adv = insertAdv adv.s vp ;
|
||||
AdVVP adv vp = insertAdV adv.s vp ;
|
||||
|
||||
ReflVP vp = insertObj (\\a => appPrep vp.c2 (\\_ => reflPron ! a)) vp ;
|
||||
|
||||
PassV2 v = insertInf (v.s ! VPerf) (predV word_V) ;
|
||||
|
||||
---- workaround for a subtyping bug
|
||||
oper
|
||||
v2v : VVerb -> VVerb = \v ->
|
||||
{s = v.s ; aux = v.aux ; prefix = v.prefix ; vtype = v.vtype} ;
|
||||
predVv : VVerb -> ResAfr.VP = \v -> predV (v2v v) ;
|
||||
}
|
||||
Reference in New Issue
Block a user