forked from GitHub/gf-core
90 lines
2.9 KiB
Plaintext
90 lines
2.9 KiB
Plaintext
--# -path=.:present
|
|
|
|
concrete TestAttemptoIta of TestAttempto = AttemptoIta **
|
|
open SyntaxIta, ParadigmsIta, (C = ConstructX) in {
|
|
|
|
lin card_N = mkkN "carta" ;
|
|
lin water_MCN = mkgN "acqua" feminine ;
|
|
lin john_PN = mkPN "John" ;
|
|
lin apple_N = mkkN "mela" ;
|
|
lin sleep_V = mkV "dormire" ;
|
|
lin young_A = mkA "giovane" ;
|
|
lin dog_N = mkkN "cane" ;
|
|
lin animal_N = mkkN "animale" ;
|
|
lin wait_V = mkV "aspettare" ;
|
|
lin man_N = mkCN (mkN "uomo" "uomini" masculine) ;
|
|
lin woman_N = mkkN "donna" ;
|
|
lin give_V3 = mkV3 (mkV "dare") accusative dative ;
|
|
lin tired_A = mkA "stanco" ;
|
|
lin rich_A = mkA "ricco" ;
|
|
lin customer_N = mkkN "cliente" ;
|
|
lin enter_V2 = mkV2 "entrare" ;
|
|
lin bank_N = mkkN "banco" ;
|
|
lin satisfied_A = mkA "contento" ;
|
|
lin lucky_A = mkA "fortunato" ;
|
|
lin well_known_A = mkA "conosciuto" ;
|
|
lin important_A = mkA "importante" ;
|
|
lin expensive_A = mkA "caro" ;
|
|
lin fill_in_V2 = mkV2 "riempire" ; ----
|
|
lin form_N = mkkN "modulo" ;
|
|
lin age_N = mkgN "età" feminine ;
|
|
lin teacher_N = mkkN "professore" ;
|
|
lin successful_A = mkA "riuscito" ;
|
|
lin fond_A2 = mkA2 (mkA "affezionato") dative ;
|
|
lin garden_N = mkkN "giardino" ;
|
|
lin morning_N = mkkN "mattino" ;
|
|
lin code_N = mkgN "codice" masculine ;
|
|
lin drinkable_A = mkA "potabile" ;
|
|
lin work_V = mkV "lavorare" ;
|
|
lin admitted_A = mkA "ammesso" ;
|
|
lin eat_V2 = mkV2 "mangiare" ;
|
|
lin burger_N = mkkN "hamburger" ;
|
|
lin earn_V2 = mkV2 "guadagnare" ;
|
|
lin income_N = mkkN "reddito" ;
|
|
lin england_PN = mkPN "Inghilterra" ;
|
|
lin beginning_N = mkkN "inizio" ;
|
|
lin office_N = mkkN "ufficio" ;
|
|
lin interested_A2 = mkA2 (mkA "interessato") (mkPrep "per") ;
|
|
lin classroom_N = mkgN "classe" feminine ;
|
|
lin manually_Adv = mkAdv "manualmente" ;
|
|
lin slot_N = mkkN "slot" ;
|
|
lin patiently_Adv = mkAdv "pazientemente" ;
|
|
lin course_N = mkkN "corso" ;
|
|
lin carefully_Adv = mkAdv "attentamente" ;
|
|
lin time_N = mkkN "tempo" ;
|
|
lin believe_VS = mkVS (mkV "credere") ; ----
|
|
lin seriously_Adv = mkAdv "seriosamente" ;
|
|
lin clerk_N = mkkN "impiegato" ;
|
|
lin screen_N = mkkN "schermo" ;
|
|
lin blink_V = mkV "lampeggiare" ;
|
|
lin bed_N = mkkN "letto" ;
|
|
lin container_N = mkkN "recipiente" ;
|
|
lin automated_teller_N = mkgN "bancomat" masculine ;
|
|
lin reject_V2 = mkV2 "rifiutare" ;
|
|
lin accept_V2 = mkV2 "accettare" ;
|
|
lin type_V2 = mkV2 "digitare" ;
|
|
lin know_VS = mkVS (mkV "sapere") ; ----
|
|
lin manager_N = mkkN "direttore" ;
|
|
lin oversleep_V = mkV "dormire" ; ----
|
|
lin valid_A = mkA "valido" ;
|
|
lin see_V2 = mkV2 (mkV "vedere") ; ----
|
|
lin bark_V = mkV "abbaiare" ;
|
|
lin go_V2 = mkV2 (mkV "viaggiare") dative ; ----
|
|
lin brother_N = mkgN "fratello" masculine ;
|
|
lin mary_PN = mkPN "Mary" ;
|
|
lin machine_N = mkkN "macchina" ;
|
|
lin correct_A = mkA "corretto" ;
|
|
|
|
lin kilogram_Unit = mkkN "chilo" ;
|
|
|
|
oper
|
|
mkkN : Str -> CN = \n -> mkCN (ParadigmsIta.mkN n) ;
|
|
mkgN : Str -> Gender -> CN = \n,g -> mkCN (ParadigmsIta.mkN n g) ;
|
|
|
|
lin
|
|
in_Prep = SyntaxIta.in_Prep ;
|
|
at_Prep = SyntaxIta.to_Prep ;
|
|
into_Prep = mkPrep "dentro" ;
|
|
|
|
}
|