summaryrefslogtreecommitdiff
path: root/examples/attempto/LexAttemptoFre.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/attempto/LexAttemptoFre.gf')
-rw-r--r--examples/attempto/LexAttemptoFre.gf33
1 files changed, 0 insertions, 33 deletions
diff --git a/examples/attempto/LexAttemptoFre.gf b/examples/attempto/LexAttemptoFre.gf
deleted file mode 100644
index e7ce15ba3..000000000
--- a/examples/attempto/LexAttemptoFre.gf
+++ /dev/null
@@ -1,33 +0,0 @@
-instance LexAttemptoFre of LexAttempto =
- open ExtraFre, SyntaxFre, ParadigmsFre, ConstructX,
- MakeStructuralFre,
- IrregFre, (P = Prelude) in {
-
-oper
- possible_A = mkA "possible" ;
- necessary_A = mkA "nécessaire" ;
- own_A = mkA "propre" ;
- have_VV = SyntaxFre.must_VV ;
- provably_Adv = mkAdv "démontrablement" ;
- provable_A = mkA "démontrable" ;
- false_A = mkA "faux" ;
- such_A = mkA "tel" "telle" ;
-
- genitiveNP np cn = mkNP (mkNP the_Art cn) (SyntaxFre.mkAdv possess_Prep np) ;
-
- each_Det = every_Det ; ----
-
- that_Subj = mkSubj "que" ; ---- qu'
-
- comma_and_Conj = mkConj [] ", et" plural ;
- comma_or_Conj = mkConj [] ", ou" singular ;
- slash_Conj = mkConj [] "/" singular ;
-
- whose_IDet = mkIDet (mkIQuant "de qui") ; ----
-
- eachOf np = mkNP (mkPredet "chacun" "chacune" genitive P.True) np ;
-
- adj_thatCl : A -> S -> Cl = \a,s ->
- mkCl (mkVP (mkVP (mkAP a)) (SyntaxFre.mkAdv that_Subj s)) ;
-
-}