corrections in Attempto grammars

1 files changed, 10 insertions, 8 deletions

diff --git a/examples/attempto/TestAttemptoGer.gf b/examples/attempto/TestAttemptoGer.gf
index 722d6ae05..ef774ff84 100644
--- a/examples/attempto/TestAttemptoGer.gf
+++ b/examples/attempto/TestAttemptoGer.gf
@@ -26,14 +26,14 @@ lin well_known_A = mkA "bekannt" ;
 lin important_A = mkA "wichtig" ;
 lin expensive_A = mkA "teuer" ;
 lin fill_in_V2 = mkV2 (mkV "ab" (mkV "füllen")) ;
-lin form_N = mkgN "Formulär" "Formuläre" neuter ;
+lin form_N = mkgN "Formular" "Formulare" neuter ;
 lin age_N = mkgN "Alter" "Älter" masculine ;
 lin teacher_N = mkgN "Lehrer" "Lehrer" masculine ;
 lin successful_A = mkA "erfolgreich" ;
 lin fond_A2 = mkA2 (mkA "verliebt") (mkPrep "in" dative) ;
 lin garden_N = mkgN "Garten" "Gärten" masculine ;
 lin morning_N = mkgN "Morgen" "Morgen" masculine ;
-lin code_N = mkkN "Code" ;
+lin code_N = mkgN "Code" "Codes" masculine ;
 lin drinkable_A = mkA "trinkbar" ;
 lin work_V = mkV "arbeiten" ;
 lin admitted_A = mkA "zugelassen" ;
@@ -44,7 +44,7 @@ lin income_N = mkgN "Einkommen" "Einkommen" neuter ;
 lin england_PN = mkPN "England" ;
 lin beginning_N = mkgN "Anfang" "Anfänge" masculine ;
 lin office_N = mkgN "Büro" "Büros" neuter ;
-lin interested_A2 = mkA2 (mkA "interessiert") (mkPrep "an" accusative) ; ----
+lin interested_A2 = mkA2 (mkA "interessiert") (mkPrep "an" dative) ; ----
 lin classroom_N = mkkN "Klasse" ;
 lin manually_Adv = mkAdv "manuell" ;
 lin slot_N = mkgN "Hohl" "Höhle" masculine ; ----
@@ -55,16 +55,16 @@ lin time_N = mkgN "Zeit" "Zeiten" feminine ;
 lin believe_V = mkV "glauben" ;
 lin seriously_Adv = mkAdv "seriös" ; ----
 lin clerk_N = mkgN "Angestellt" "Angestellten" masculine ; ----
-lin screen_N = mkgN "Schirm" "Schirme" neuter ;
+lin screen_N = mkgN "Schirm" "Schirme" masculine ;
 lin blink_V = mkV "blinken" ; ----
 lin bed_N = mkgN "Bett" "Bette" neuter ;
 lin container_N = mkgN "Gehälter" "Gehälter" masculine ;
 lin automated_teller_N = mkgN "Automat" "Automate" neuter ;
-lin reject_V2 = mkV2 (mkV "verwerfen") ; ----
+lin reject_V2 = mkV2 (mkV "verwerfen" "verwirft" "verwarf" "verwürfe" "verworfen") ;
 lin accept_V2 = mkV2 (mkV "an" nehmen_V) ;
-lin type_V2 = mkV2 "typen" ; ----
+lin type_V2 = mkV2 schreiben_V ;
 lin know_V = wissen_V ;
-lin manager_N = mkgN "Manager" "Managers" masculine ; ----
+lin manager_N = mkgN "Manager" "Manager" masculine ; ----
 lin oversleep_V = schlafen_V ; ----
 lin valid_A = mkA "gültig" ;
 lin see_V2 = mkV2 sehen_V ;
@@ -72,9 +72,11 @@ lin bark_V = mkV "bellen" ;
 lin go_V2 = mkV2 gehen_V to_Prep ;
 lin brother_N = mkgN "Bruder" "Brüder" masculine ;
 lin mary_PN = mkPN "Mary" ;
-lin machine_N = mkkN "maschine" ;
+lin machine_N = mkkN "Maschine" ;
 lin correct_A = mkA "korrekt" ;
 
+lin kilogram_Unit = mkgN "Kilo" "Kilo" neuter ;
+
 oper 
   mkkN : Str -> CN = \n -> mkCN (ParadigmsGer.mkN n) ;
   mkgN : Str -> Str -> Gender -> CN = \s,n,g -> mkCN (ParadigmsGer.mkN s n g) ;