checked beginnings of DictionaryIta (350) and DictionarySpa (around 100, not an expert)

This commit is contained in:
aarne
2014-04-11 18:35:02 +00:00
parent 43319eb0b7
commit 8159966dc5
6 changed files with 18156 additions and 7810 deletions

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -11,11 +11,11 @@ oper mkConj : Str -> Conj
lin of_Prep = ParadigmsSpa.genitive ;
lin and_Conj = S.and_Conj ;
lin in_Prep = S.in_Prep ;
lin have_VV = mkVV (mkV (mkV "tener") "que arreglar las cuentas con alguien") ; -- status=guess, src=wikt
lin have_VS = mkVS (mkV (mkV "tener") "que arreglar las cuentas con alguien") ; -- status=guess, src=wikt
lin have_V2V = mkV2V (mkV (mkV "tener") "que arreglar las cuentas con alguien") ; -- status=guess, src=wikt
lin have_VV = mkVV tener_V ;
lin have_VS = mkVS tener_V ;
lin have_V2V = mkV2V tener_V ;
lin have_V2 = S.have_V2 ;
lin have_V = mkV (mkV "tener") "que arreglar las cuentas con alguien" ; -- status=guess, src=wikt
lin have_V = tener_V ;
lin it_Pron = S.it_Pron ;
lin to_Prep = S.to_Prep ;
lin for_Prep = S.for_Prep ;
@@ -24,8 +24,8 @@ lin that_Subj = S.that_Subj ;
lin he_Pron = S.he_Pron ;
lin on_Prep = S.on_Prep ;
lin with_Prep = S.with_Prep ;
lin do_V2 = mkV2 (mkV "largarse") ;
lin do_V = mkV "largarse" ;
lin do_V2 = mkV2 hacer_V ;
lin do_V = hacer_V ;
lin at_Prep = ParadigmsSpa.dative ;
lin by_Prep = mkPrep "por" ;
lin but_Conj = variants{} ;
@@ -35,31 +35,31 @@ lin she_Pron = S.she_Pron ;
lin or_Conj = S.or_Conj ;
lin as_Subj = variants{} ;
lin we_Pron = S.we_Pron ;
lin say_VV = mkVV (mkV (mkV "di") "patata") ;
lin say_VV = mkVV decir_V ;
lin say_VS = L.say_VS ;
lin say_VA = mkVA (mkV (mkV "di") "patata") ;
lin say_V2 = mkV2 (mkV (mkV "di") "patata") ;
lin say_V = mkV (mkV "di") "patata" ;
lin say_VA = mkVA decir_V ;
lin say_V2 = mkV2 decir_V ;
lin say_V = decir_V ;
lin if_Subj = S.if_Subj ;
lin go_VV = mkVV (mkV (mkV "ir") "a escote") | mkVV (mkV (mkV "pagar") "a escote") ;
lin go_VS = mkVS (mkV (mkV "ir") "a escote") | mkVS (mkV (mkV "pagar") "a escote") ;
lin go_VA = mkVA (mkV (mkV "ir") "a escote") | mkVA (mkV (mkV "pagar") "a escote") ;
lin go_V2 = mkV2 (mkV (mkV "ir") "a escote") | mkV2 (mkV (mkV "pagar") "a escote") ;
lin go_VV = mkVV L.go_V ;
lin go_VS = mkVS L.go_V ;
lin go_VA = mkVA L.go_V ;
lin go_V2 = mkV2 L.go_V ;
lin go_V = L.go_V ;
lin get_VV = mkVV (mkV (mkV "obtener") "una palabra en canto") ;
lin get_VS = mkVS (mkV (mkV "obtener") "una palabra en canto") ;
lin get_VA = mkVA (mkV (mkV "obtener") "una palabra en canto") ;
lin get_V2V = mkV2V (mkV (mkV "obtener") "una palabra en canto") ;
lin get_V2 = mkV2 (mkV (mkV "obtener") "una palabra en canto") ;
lin get_V = mkV (mkV "obtener") "una palabra en canto" ;
lin make_VV = mkVV (mkV (mkV "hacer") "su agosto") | mkVV (mkV (mkV "hacerse") "la América") ;
lin make_VS = mkVS (mkV (mkV "hacer") "su agosto") | mkVS (mkV (mkV "hacerse") "la América") ;
lin make_VA = mkVA (mkV (mkV "hacer") "su agosto") | mkVA (mkV (mkV "hacerse") "la América") ;
lin make_V3 = mkV3 (mkV (mkV "hacer") "su agosto") | mkV3 (mkV (mkV "hacerse") "la América") ;
lin make_V2V = mkV2V (mkV (mkV "hacer") "su agosto") | mkV2V (mkV (mkV "hacerse") "la América") ;
lin make_V2A = mkV2A (mkV (mkV "hacer") "su agosto") | mkV2A (mkV (mkV "hacerse") "la América") ;
lin make_V2 = mkV2 (mkV (mkV "hacer") "su agosto") | mkV2 (mkV (mkV "hacerse") "la América") ;
lin make_V = mkV (mkV "hacer") "su agosto" | mkV (mkV "hacerse") "la América" ;
lin get_VV = mkVV obtener_V ;
lin get_VS = mkVS obtener_V ;
lin get_VA = mkVA obtener_V ;
lin get_V2V = mkV2V obtener_V ;
lin get_V2 = mkV2 obtener_V ;
lin get_V = obtener_V ;
lin make_VV = mkVV hacer_V ;
lin make_VS = mkVS hacer_V ;
lin make_VA = mkVA hacer_V ;
lin make_V3 = mkV3 hacer_V ;
lin make_V2V = mkV2V hacer_V ;
lin make_V2A = mkV2A hacer_V ;
lin make_V2 = mkV2 hacer_V ;
lin make_V = hacer_V ;
lin as_Prep = mkPrep "como" ;
lin out_Adv = mkAdv "lejos" ;
lin up_Adv = mkAdv "arriba" ;
@@ -77,32 +77,32 @@ lin know_V = conocer_V ;
lin time_N = mkN "tiempo" feminine ;
lin time_2_N = mkN "vez" "veces" feminine ;
lin time_1_N = mkN "tiempo" feminine ;
lin take_VA = mkVA (mkV (mkV "darse") "por aludido") ;
lin take_V2V = mkV2V (mkV (mkV "darse") "por aludido") ;
lin take_V2A = mkV2A (mkV (mkV "darse") "por aludido") ;
lin take_V2 = mkV2 (mkV (mkV "darse") "por aludido") ;
lin take_V = mkV (mkV "darse") "por aludido" ;
lin so_Adv = mkAdv "hasta ahora" | mkAdv "hasta aquí" | mkAdv "hasta este momento" ;
lin take_VA = mkVA prender_V ;
lin take_V2V = mkV2V prender_V ;
lin take_V2A = mkV2A prender_V ;
lin take_V2 = mkV2 prender_V ;
lin take_V = prender_V ;
lin so_Adv = mkAdv "" ;
lin year_N = L.year_N ;
lin into_Prep = variants{} ;
lin into_Prep = mkPrep "en" ;
lin then_Adv = mkAdv "entonces" ;
lin think_VS = mkVS (mkV (mkV "pensar") "en alguien") | mkVS (mkV "ponderar") ;
lin think_V2A = mkV2A (mkV (mkV "pensar") "en alguien") | mkV2A (mkV "ponderar") ;
lin think_V2 = mkV2 (mkV (mkV "pensar") "en alguien") | mkV2 (mkV "ponderar") ;
lin think_VS = mkVS (mkV "pensar") ;
lin think_V2A = mkV2A (mkV "pensar") ;
lin think_V2 = mkV2 (mkV "pensar") ;
lin think_V = L.think_V ;
lin come_VV = mkVV (mkV "¿perdón?") ;
lin come_VS = mkVS (mkV "¿perdón?") ;
lin come_VA = mkVA (mkV "¿perdón?") ;
lin come_V2 = mkV2 (mkV "¿perdón?") ;
lin come_VV = mkVV venir_V ;
lin come_VS = mkVS venir_V ;
lin come_VA = mkVA venir_V ;
lin come_V2 = mkV2 venir_V ;
lin come_V = L.come_V ;
lin than_Subj = variants{} ;
lin more_Adv = mkAdv "cada vez más" ;
lin about_Prep = variants{} ;
lin more_Adv = mkAdv "más" ;
lin about_Prep = ParadigmsSpa.genitive ;
lin now_Adv = L.now_Adv ;
lin last_A = mkA "último" ;
lin last_1_A = variants{} ;
lin last_2_A = variants{} ;
lin other_A = mkA "otro" | mkA "otra" | mkA "otros" | mkA "otras" ;
lin other_A = mkA "otro" ;
lin give_V3 = L.give_V3 ;
lin give_V2 = mkV2 (dar_V) | mkV2 (mkV "entregar") ;
lin give_V = dar_V | mkV "entregar" ;
@@ -1136,7 +1136,6 @@ lin prepare_V2V = mkV2V (mkV "preparar") ;
lin prepare_V2 = mkV2 (mkV "preparar") ;
lin prepare_V = mkV "preparar" ;
lin factor_N = mkN "factor" ;
lin other_A = mkA "otro" | mkA "otra" | mkA "otros" | mkA "otras" ;
lin anyone_NP = variants{} ;
lin pattern_N = mkN "diseño" | mkN "estampado" ;
lin manage_VV = mkVV (mkV "manejar") ;