part of Attempto controlled language in English and Swedish

1 files changed, 85 insertions, 0 deletions

diff --git a/examples/attempto/TestAttemptoSwe.gf b/examples/attempto/TestAttemptoSwe.gf
new file mode 100644
index 000000000..831e8232f
--- /dev/null
+++ b/examples/attempto/TestAttemptoSwe.gf
@@ -0,0 +1,85 @@
+--# -path=.:/Users/aarne/GF/next-lib/present
+
+concrete TestAttemptoSwe of TestAttempto = AttemptoSwe ** 
+  open SyntaxSwe, ParadigmsSwe, IrregSwe, (C = ConstructX) in {
+
+lin card_N = mkkN "kort" neutrum ;
+lin water_MCN = mkkN "vatten" neutrum ;
+lin john_PN = mkPN "john" ;
+lin apple_PN = mkPN "apple" ;
+lin sleep_V = IrregSwe.sova_V ;
+lin young_A = mkA "ung" ;
+lin dog_N = mkkN "hund" utrum ;
+lin animal_N = mkkN "djur" neutrum ;
+lin wait_V = mkV "vänta" ;
+lin man_N = mkCN (mkN "man" "män") ;
+lin woman_N = mkkN "kvinna" utrum ;
+lin give_V3 = mkV3 giva_V (mkPrep []) (mkPrep "till") ;
+lin tired_A = mkA "trött" ;
+lin rich_A = mkA "rik" ;
+lin customer_N = mkCN (mkN "kund" "kunder") ;
+lin enter_V2 = mkV2 "beträda" ;
+lin bank_N = mkCN (mkN "bank" "banker") ;
+lin satisfied_A = mkA "nöjd" ;
+lin lucky_A = mkA "lycklig" ;
+lin well_known_A = mkA "välkänd" ;
+lin important_A = mkA "viktig" ;
+lin expensive_A = mkA "dyr" ;
+lin fill_in_V2 = mkV2 "fyller" ;
+lin form_N = mkkN "formulär" neutrum ;
+lin age_N = mkkN "ålder" utrum ;
+lin teacher_N = mkkN "lärare" utrum ;
+lin successful_A = mkA "framgångsrik" ;
+lin fond_A2 = mkA2 (mkA "kär") (mkPrep "i") ;
+lin garden_N = mkkN "trädgård" utrum ;
+lin morning_N = mkCN (mkN "morgon" "morgnar") ;
+lin code_N = mkCN (mkN "kod" "koder") ;
+lin drinkable_A = mkA "drickbar" ;
+lin work_V = mkV "arbeta" ;
+lin admitted_A = mkA "godkänd" ;
+lin eat_V2 = mkV2 äta_V ;
+lin burger_N = mkkN "burgare" utrum ;
+lin earn_V2 = mkV2 "tjäna" ;
+lin income_N = mkCN (mkN "inkomst" "inkomster") ;
+lin england_PN = mkPN "England" ;
+lin beginning_N = mkCN (mkN "början" "början") ;
+lin office_N = mkkN "kontor" neutrum ;
+lin interested_A2 = mkA2 (mkA "intresserad") (mkPrep "i") ;
+lin classroom_N = mkkN "klassrum" neutrum ;
+lin manually_Adv = mkAdv "manuellt" ;
+lin slot_N = mkkN "hål" neutrum ;
+lin patiently_Adv = mkAdv "tålamodigt" ;
+lin course_N = mkCN (mkN "kurs" "kurser") ;
+lin carefully_Adv = mkAdv "försiktigt" ;
+lin time_N = mkCN (mkN "tid" "tider") ;
+lin believe_V = mkV "tro" ;
+lin seriously_Adv = mkAdv "seriöst" ;
+lin clerk_N = mkkN "bokhållare" utrum ;
+lin screen_N = mkkN "skärm" neutrum ;
+lin blink_V = mkV "blinka" ;
+lin bed_N = mkkN "säng" utrum ;
+lin container_N = mkkN "behållare" utrum ;
+lin automated_teller_N = mkCN (mkN "automat" "automater") ;
+lin reject_V2 = mkV2 "förkasta" ;
+lin accept_V2 = mkV2 "acceptera" ;
+lin type_V2 = mkV2 "inmata" ; ----
+lin know_V = veta_V ;
+lin manager_N = mkCN (mkN "chef" "chefer") ;
+lin oversleep_V = mkV "försova" "försov" "försovit" ;
+lin valid_A = mkA "giltig" ;
+lin see_V2 = mkV2 se_V ;
+lin bark_V = mkV "skäller" ;
+lin go_V2 = mkV2 gå_V to_Prep ;
+lin brother_N = mkCN (mkN "bror" "bröder") ;
+lin mary_PN = mkPN "Mary" ;
+lin machine_N = mkCN (mkN "maskin" "maskiner") ;
+lin correct_A = mkA "korrekt" ;
+
+oper mkkN : Str -> Gender -> CN = \n,g -> mkCN (ParadigmsSwe.mkN n g) ;
+
+lin
+  in_Prep = SyntaxSwe.in_Prep ;
+  at_Prep = mkPrep "på" ;
+  into_Prep = mkPrep "in i" ;
+
+}