summaryrefslogtreecommitdiff
path: root/examples/attempto/TestAttemptoFin.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/attempto/TestAttemptoFin.gf')
-rw-r--r--examples/attempto/TestAttemptoFin.gf87
1 files changed, 0 insertions, 87 deletions
diff --git a/examples/attempto/TestAttemptoFin.gf b/examples/attempto/TestAttemptoFin.gf
deleted file mode 100644
index ba6caf86b..000000000
--- a/examples/attempto/TestAttemptoFin.gf
+++ /dev/null
@@ -1,87 +0,0 @@
---# -path=.:present
-
-concrete TestAttemptoFin of TestAttempto = AttemptoFin **
- open SyntaxFin, ParadigmsFin, (C = ConstructX) in {
-
-lin card_N = mkkN "kortti" ;
-lin water_MCN = mkCN (mkN "vesi" "veden" "vesiä") ;
-lin john_PN = mkPN "John" ;
-lin apple_N = mkkN "omena" ;
-lin sleep_V = mkV "nukkua" ;
-lin young_A = mkA (mkN "nuori" "nuoria") ;
-lin dog_N = mkkN "koira" ;
-lin animal_N = mkkN "eläin" ;
-lin wait_V = mkV "odottaa" ;
-lin man_N = mkCN (mkN "mies" "miehiä") ;
-lin woman_N = mkCN (mkN "nainen") ;
-lin give_V3 = dirV3 (mkV "antaa") allative ;
-lin tired_A = mkA "väsynyt" ;
-lin rich_A = mkA "rikas" ;
-lin customer_N = mkkN "asiakas" ;
-lin enter_V2 = mkV2 (mkV "astua") illative ; ---- astua sisään
-lin bank_N = mkkN "pankki" ;
-lin satisfied_A = mkA "tyytyväinen" ;
-lin lucky_A = mkA "onnekas" ;
-lin well_known_A = mkA "tunnettu" ;
-lin important_A = mkA "tärkeä" ;
-lin expensive_A = mkA "kallis" ;
-lin fill_in_V2 = mkV2 (mkV "täyttää") ;
-lin form_N = mkkN "kaavake" ;
-lin age_N = mkkN "ikä" ;
-lin teacher_N = mkkN "opettaja" ;
-lin successful_A = mkA "menestyksekäs" ;
-lin fond_A2 = mkA2 (mkA "kiintynyt") (casePrep illative) ;
-lin garden_N = mkCN (mkN "puu" (mkN "tarha")) ;
-lin morning_N = mkkN "aamu" ;
-lin code_N = mkkN "koodi" ;
-lin drinkable_A = mkA "juotava" ;
-lin work_V = mkV "työskennellä" ;
-lin admitted_A = mkA "hyväksytty" ;
-lin eat_V2 = mkV2 (mkV "syödä") partitive ;
-lin burger_N = mkkN "hampurilainen" ;
-lin earn_V2 = mkV2 "ansaita" ;
-lin income_N = mkkN "tulo" ; ---- tulot
-lin england_PN = mkPN "Englanti" ;
-lin beginning_N = mkkN "alku" ;
-lin office_N = mkkN "toimisto" ;
-lin interested_A2 = mkA2 (mkA "kiinnostunut") (casePrep elative) ;
-lin classroom_N = mkkN "luokkahuone" ;
-lin manually_Adv = mkAdv "käsin" ;
-lin slot_N = mkkN "aukko" ;
-lin patiently_Adv = mkAdv "kärsivällisesti" ;
-lin course_N = mkkN "kurssi" ;
-lin carefully_Adv = mkAdv "huolellisesti" ;
-lin time_N = mkCN (mkN "aika" "ajan" "aikoja") ;
-lin believe_VS = mkVS (mkV "uskoa") ;
-lin seriously_Adv = mkAdv "vakavasti" ;
-lin clerk_N = mkCN (mkN "virkailija" "virkailijoita") ;
-lin screen_N = mkkN "kuvaruutu" ;
-lin blink_V = mkV "vilkkua" ;
-lin bed_N = mkkN "sänky" ;
-lin container_N = mkkN "astia" ;
-lin automated_teller_N = mkkN "pankkiautomaatti" ;
-lin reject_V2 = mkV2 "hylätä" ;
-lin accept_V2 = mkV2 "hyväksyä" ;
-lin type_V2 = mkV2 "konekirjoittaa" ; ---- kirjoittaa koneella
-lin know_VS = mkVS (mkV "tietää") ;
-lin manager_N = mkkN "johtaja" ;
-lin oversleep_V = mkV "nukkua" ; ---- nukkua pommiin
-lin valid_A = mkA "pätevä" ;
-lin see_V2 = mkV2 (mkV "nähdä") ;
-lin bark_V = mkV "haukkua" ;
-lin go_V2 = mkV2 (mkV "mennä") illative ;
-lin brother_N = mkCN (mkN "veli" "veljen" "veljiä") ;
-lin mary_PN = mkPN "Mary" ; ----
-lin machine_N = mkkN "kone" ;
-lin correct_A = mkA "oikea" ;
-
-lin kilogram_Unit = mkkN "kilo" ;
-
-oper mkkN : Str -> CN = \n -> mkCN (ParadigmsFin.mk1N n) ;
-
-lin
- in_Prep = SyntaxFin.in_Prep ;
- at_Prep = casePrep adessive ;
- into_Prep = casePrep illative ;
-
-}