diff options
Diffstat (limited to 'examples/attempto/LexAttemptoFin.gf')
| -rw-r--r-- | examples/attempto/LexAttemptoFin.gf | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/examples/attempto/LexAttemptoFin.gf b/examples/attempto/LexAttemptoFin.gf deleted file mode 100644 index e89fec70c..000000000 --- a/examples/attempto/LexAttemptoFin.gf +++ /dev/null @@ -1,40 +0,0 @@ -instance LexAttemptoFin of LexAttempto = - open - ExtraFin, - SyntaxFin, - ParadigmsFin, - ConstructX, - (M = MakeStructuralFin), - (E = ExtraFin), - (L = LangFin) - in { - -oper - possible_A = mkA "mahdollinen" ; - necessary_A = mkA "välttämätön" ; - own_A = mkA "oma" ; - have_VV = mkVV (caseV genitive (mkV "pitää")) ; - provably_Adv = mkAdv "todistettavasti" ; - provable_A = mkA "todistettava" ; - false_A = mkA (mkN "epätosi" "epätoden" "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") ; - - eachOf np = mkNP (mkNP each_Det) (SyntaxFin.mkAdv (casePrep elative) np) ; - - adj_thatCl : A -> S -> Cl = \a,s -> - mkCl (L.UseComp (E.CompPartAP (mkAP (mkAP a) s))) ; -} |
