Files
gf-core/examples/attempto/LexAttemptoFin.gf
2009-03-11 16:08:55 +00:00

35 lines
761 B
Plaintext

instance LexAttemptoFin of LexAttempto =
open
ExtraFin,
SyntaxFin,
ParadigmsFin,
ConstructX,
(M = MakeStructuralFin)
in {
oper
possible_A = mkA "mahdollinen" ;
necessary_A = mkA "välttämätön" ;
own_A = mkA "oma" ;
have_VV = mkVV (mkV "pitää") ;
provably_Adv = mkAdv "todistettavasti" ;
provable_A = mkA "todistettava" ;
false_A = mkA (mkN "epätosi" "epätosia") ;
such_A = mkA "sellainen" ;
genitiveNP np = mkNP (GenNP np) ;
kilogram_CN = mkCN (mkN "kilo") ;
each_Det = every_Det ; ----
that_Subj = M.mkSubj "että" ;
comma_and_Conj = M.mkConj [] ", ja" plural ;
comma_or_Conj = M.mkConj [] ", tai" singular ;
slash_Conj = M.mkConj [] "/" singular ;
whose_IDet = mkIDet (M.mkIQuant "kenen") ;
}