summaryrefslogtreecommitdiff
path: root/examples/attempto/LexAttemptoFin.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/attempto/LexAttemptoFin.gf')
-rw-r--r--examples/attempto/LexAttemptoFin.gf40
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))) ;
-}