diff options
Diffstat (limited to 'examples/attempto/LexAttemptoSwe.gf')
| -rw-r--r-- | examples/attempto/LexAttemptoSwe.gf | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/examples/attempto/LexAttemptoSwe.gf b/examples/attempto/LexAttemptoSwe.gf deleted file mode 100644 index bb205a041..000000000 --- a/examples/attempto/LexAttemptoSwe.gf +++ /dev/null @@ -1,30 +0,0 @@ -instance LexAttemptoSwe of LexAttempto = - open ExtraSwe, SyntaxSwe, ParadigmsSwe, ConstructX, - MakeStructuralSwe, IrregSwe in { - -oper - possible_A = mkA "möjlig" ; - necessary_A = mkA "nödvändig" ; - own_A = mkA "egen" "eget" "egna" "egnare" "egnast" ; - have_VV = must_VV ; - provably_Adv = mkAdv "bevisbart" ; - provable_A = mkA "bevisbar" ; - false_A = mkA "falsk" ; - such_A = mkA "sådan" ; - - genitiveNP np = mkNP (GenNP np) ; - - each_Det = every_Det ; ---- - - that_Subj = mkSubj "att" ; - - comma_and_Conj = mkConj [] ", och" plural ; - comma_or_Conj = mkConj [] ", eller" singular ; - slash_Conj = mkConj [] "/" singular ; - whose_IDet = mkIDet (mkIQuant "vems" "vems" "vems" dDefIndef) ; - - eachOf np = mkNP (mkPredet "var och en" "vart och ett" "av" singular) np ; - - adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ; - -} |
