diff options
Diffstat (limited to 'examples/attempto/LexAttemptoEng.gf')
| -rw-r--r-- | examples/attempto/LexAttemptoEng.gf | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/examples/attempto/LexAttemptoEng.gf b/examples/attempto/LexAttemptoEng.gf deleted file mode 100644 index a81d58963..000000000 --- a/examples/attempto/LexAttemptoEng.gf +++ /dev/null @@ -1,38 +0,0 @@ -instance LexAttemptoEng of LexAttempto = - open - ExtraEng, - SyntaxEng, - ParadigmsEng, - ConstructX, - (M = MakeStructuralEng), - IrregEng in { - -oper - possible_A = mkA "possible" ; - necessary_A = mkA "necessary" ; - own_A = mkA "own" ; - have_VV = mkVV have_V ; - provably_Adv = ParadigmsEng.mkAdv "provably" ; - provable_A = mkA "provable" ; - false_A = mkA "false" ; - such_A = mkA "such" ; - - genitiveNP np = mkNP (GenNP np) ; - - kilogram_CN = mkCN (mkN "kilogram") ; - - each_Det = ExtraEng.each_Det ; - - that_Subj = M.mkSubj "that" ; - - comma_and_Conj = mkConj [] ", and" plural ; - comma_or_Conj = mkConj [] ", or" singular ; - slash_Conj = mkConj [] "/" singular ; - - whose_IDet = M.mkIDet "whose" singular ; - - eachOf np = mkNP (mkNP each_Det) (SyntaxEng.mkAdv part_Prep np) ; - - adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ; - -} |
