# # Motore di disambiguazione - Versione 2.0 # # Modulo 1: # Disambiguazione di: # # - verbi ambigui con nomi, aggettivi, ecc. # function assegna(campo, pos, end, cpn, cp, csp, sp, spl, cl) { cpn = 1 cp = split (campo, sp, /\);\(/) csp = split (sp[1], spl, /\(/) pos = pos "," while (cpn <= cp) { if (cpn > cp) break if (sp[cpn] ~ pos) { if (sp[cpn] ~ /\)$/ || sp[cpn] ~ /\)¾$/) { cl = sp[cpn] sub (/\)/, "", cl) print spl[1] cl } else if (cpn == 1) print spl[1] spl[2] end else print spl[1] sp[cpn] end } cpn++ } } BEGIN { RS = "" # gestisce l'input come se fosse formato da una riga unica ORS = " " # inserisce uno spazio alla fine di ogni 'print' nf = 1 # # Feature Declaration # E' possibile creare regole basate su features numeriche o sigle. # pers_1 = ",1," pers_2 = ",2," pers_3 = ",3," gend_masc = ",4," gend_fem = ",5," gend_c = ",4;5," numb_sg = ",6," numb_pl = ",7," numb_n = ",6;7," degr_pos = ",8," degr_comp = ",9," degr_sup = ",10," loc_const = ",11," loc_two = ",12," loc_three = ",13," loc_four = ",14," loc_five = ",15," loc_six = ",16," loc_seven = ",17," loc_eight = ",18," loc_nine = ",19," # ---------------- n_c = ",20," n_p = ",21," adj = ",26," PD_dem_s = ",30," PD_dem_w = ",31," PD_ind = ",32," PD_pos_s = ",33," PD_pos_w = ",34," PD_int = ",35," PD_rel = ",36," PD_per_s_n = ",37," PD_per_s_o = ",38," PD_per_w_o = ",39," PD_exc = ",40," adv_g = ",45," adv_p = ",46," con_c = ",50," con_s = ",51," adp_pre = ",56," adp_post = ",57," art_d = ",60," art_i = ",61," num_c = ",64," num_o = ",65," intj = ",68," pun_f = ",70," pun_n = ",71," r_frg = ",75," r_abb_ = ",76," r_for = ",77," r_epe = ",78," v_m_f_ind_pr = ",111," v_m_f_ind_im = ",112," v_m_f_ind_pa = ",113," v_m_f_ind_fu = ",114," v_m_f_sub_pr = ",115," v_m_f_sub_im = ",116," v_m_f_cnd_pr = ",117," v_m_f_imp_pr = ",118," v_m_n_i_pr = ",121," v_m_n_p_pr = ",122," v_m_n_p_pa = ",123," v_m_n_g_pr = ",124," v_a_f_ind_pr = ",211," v_a_f_ind_im = ",212," v_a_f_ind_pa = ",213," v_a_f_ind_fu = ",214," v_a_f_sub_pr = ",215," v_a_f_sub_im = ",216," v_a_f_cnd_pr = ",217," v_a_f_imp_pr = ",218," v_a_n_i_pr = ",221," v_a_n_p_pr = ",222," v_a_n_p_pa = ",223," v_a_n_g_pr = ",224," v_d_f_ind_pr = ",311," v_d_f_ind_im = ",312," v_d_f_ind_pa = ",313," v_d_f_ind_fu = ",314," v_d_f_sub_pr = ",315," v_d_f_sub_im = ",316," v_d_f_cnd_pr = ",317," v_d_f_imp_pr = ",318," v_d_n_i_pr = ",321," v_d_n_p_pr = ",322," v_d_n_p_pa = ",323," v_d_n_g_pr = ",324," } # { while (nf <= NF) { # !*!* Inizio regole di disambiguazione *!*! # # Creazione di 3 puntatori: # 'nf' -> punta al campo corrente # 'bw' -> punta al campo che precede 'nf' di N posizioni # 'fw' -> punta al campo che segue 'nf' di N posizioni # campo = $nf fw = nf fw++ if ($fw ~ /\@/ || $fw ~ /\%/ || $fw ~ /\$/ || $fw ~ /\œ/ || $fw ~ /\#/) fw++ if ($fw ~ /\@/ || $fw ~ /\%/ || $fw ~ /\$/ || $fw ~ /\œ/ || $fw ~ /\#/) fw++ if ($fw ~ /\@/ || $fw ~ /\%/ || $fw ~ /\$/ || $fw ~ /\œ/ || $fw ~ /\#/) fw++ # omette le stringhe contenenti: # '@' # '%' # '$' # 'œ' # '#' bw = nf if (nf >=2) bw-- if (($bw ~ /\@/ || $bw ~ /\%/ || $bw ~ /\$/ || $bw ~ /\œ/ || $bw ~ /\#/) && bw > 2) bw-- if (($bw ~ /\@/ || $bw ~ /\%/ || $bw ~ /\$/ || $bw ~ /\œ/ || $bw ~ /\#/) && bw > 2) bw-- if (($bw ~ /\@/ || $bw ~ /\%/ || $bw ~ /\$/ || $bw ~ /\œ/ || $bw ~ /\#/) && bw > 2) bw-- # omette le stringhe contenenti: # '@' # '%' # '$' # 'œ' # '#' if (campo ~ /\@/ || campo ~ /\%/ || campo ~ /\$/ || campo ~ /\œ/ || campo ~ /\#/) { print campo nf++ } # omette le stringhe non ambigue: else if (campo !~ /\);\(/ && campo !~ /[0-9];[0-9]/) { print campo nf++ } # # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma ''nsegna' # else if (campo ~ /^'nsegna_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^la_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'abandono' # else if (campo ~ /^abandono_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^et_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'abia' # else if (campo ~ /^abia_/) { nf++ if ($bw ~ /^li_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'abbi' # else if (campo ~ /^abbi_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^paura_/ || $fw ~ /^öne_/ || $fw ~ /^membranza_/ || $fw ~ /^per_/ || $fw ~ /^sempre_/) { assegna(campo, "218", end) } else { assegna(campo, "215", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'abbiamo' # else if (campo ~ /^abbiamo_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^qui_/ || $fw ~ /^la_/) { assegna(campo, "215", end) } else { assegna(campo, "211", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'abbiano' # else if (campo ~ /^abbiano_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^li_/) { assegna(campo, "218", end) } else { assegna(campo, "215", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'abbiate' # else if (campo ~ /^abbiate_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^m'_/ || $fw ~ /^övi_/) { assegna(campo, "218", end) } else { assegna(campo, "215", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'abbie' # else if (campo ~ /^abbie_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^innorato_/) { assegna(campo, "215", end) } else { assegna(campo, "218", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'acconcia' # else if (campo ~ /^acconcia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^s'_/) { assegna(campo, "111", end) } else if ($bw ~ /^meglio/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'accordi' # else if (campo ~ /^accordi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "111", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'accorta' # else if (campo ~ /^accorta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ancor_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'accorte' # else if (campo ~ /^accorte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^persone_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'accorto' # else if (campo ~ /^accorto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^fosse_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'accusa' # else if (campo ~ /^accusa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'accusato' # else if (campo ~ /^accusato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /^tra_/ || $bw ~ /^appellato_/ || $bw ~ /^libro_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'aconci' # else if (campo ~ /^aconci_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'adomanda' # else if (campo ~ /^adomanda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'adora' # else if (campo ~ /^adora_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^l'_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'adorna' # else if (campo ~ /^adorna_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^et_/ || $bw ~ /^s'_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'aita' # else if (campo ~ /^aita_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^che_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'aiuta' # else if (campo ~ /^aiuta_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ci_/ || $fw ~ /^lo_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'aiuti' # else if (campo ~ /^aiuti_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^molti_/) { assegna(campo, "20", end) } else if ($bw ~ /^non_/ || $fw ~ /^l'_/) { assegna(campo, "115", end) } else if ($bw ~ /^t'_/) { assegna(campo, "111", end) } else print campo } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'aiuto' # else if (campo ~ /^aiuto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öllo_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'ama' # else if (campo ~ /^ama_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^,_/ && $fw ~ /^ölo_/) || $bw ~ /^solo_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'amare' # else if (campo ~ /^amare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^cose_/) { assegna(campo, "26", end) } else if ($bw ~ /^dire_/ || ($bbw ~ /^spirito_/ && $bw ~ /^d'_/)) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regole per la disambiguazione esterna di 'ami' # else if (campo ~ /^ami_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^l'_/ && ($fw ~ /^,_/ || $fw ~ /^ed?_/)) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'apare' # else if (campo ~ /^apare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ed_/) { assegna(campo, "apparare", end) } else { assegna(campo, "apparire", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'aperta' # else if (campo ~ /^aperta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sar…_/ || $fw ~ /^da_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'aperte' # else if (campo ~ /^aperte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ebbe_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'aperto' # else if (campo ~ /^aperto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sar…_/ || $bw ~ /^sia_/ || $bw ~ /^öe_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'apparecchiato' # else if (campo ~ /^apparecchiato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^me_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'aprendi' # else if (campo ~ /^aprendi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^dico_/) { assegna(campo, "118", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'apri' # else if (campo ~ /^apri_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ösi_/) { assegna(campo, "113", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'ardire' # else if (campo ~ /^ardire_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^da_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'argomento' # else if (campo ~ /^argomento_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^össi_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'armata' # else if (campo ~ /^armata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^grande_/ || $bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'armati' # else if (campo ~ /^armati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cavalieri_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'armi' # else if (campo ~ /^armi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^s'_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'arso' # else if (campo ~ /^arso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tutt'_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'atare' # else if (campo ~ /^atare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'avanti' # else if (campo ~ /^avanti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /111/ || $fw ~ /112/ || $fw ~ /113/ || $fw ~ /114/ || $fw ~ /115/ || $fw ~ /116/ || $fw ~ /117/ || $fw ~ /118/ || $fw ~ /211/ || $fw ~ /212/ || $fw ~ /213/ || $fw ~ /214/ || $fw ~ /215/ || $fw ~ /216/ || $fw ~ /217/ || $fw ~ /218/ || $fw ~ /311/ || $fw ~ /312/ || $fw ~ /313/ || $fw ~ /314/ || $fw ~ /315/ || $fw ~ /316/ || $fw ~ /317/ || $fw ~ /318/) { assegna(campo, "51", end) } else if ($fw ~ /,38,/) { assegna(campo, "56", end) } else { assegna(campo, "45", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "avanza" # else if (campo ~ /^avanza_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^l'_/) { assegna(campo, "avanza", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna e esterna della forma 'ave' # else if (campo ~ /^ave_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölle_/) { assegna(campo, "221", end) } else if ($fw ~ /^mari[ae]_/) { assegna(campo, "68", end) } else if ($fw ~ /^ögli_/) { sub (/;3/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else { sub (/2;/, "", campo) sub (/;7/, "", campo) assegna(campo, "211", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "aven" # else if (campo ~ /^aven_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^m'_/ || $bw ~ /^S'_/ || $fw ~ /^dibassamento_/) { assegna(campo, "111", end) } else { assegna(campo, "211", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "aver" # else if (campo ~ /^aver_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "221", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "avere" # else if (campo ~ /^avere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /,60,/ || $bw ~ /^ragunare_/ || $bw ~ /^ed_/ || $bw ~ /^altrui_/ || $bw ~ /^propio_/ || $bw ~ /^amassare_/ || $bw ~ /^quello_/ || $bw ~ /^…_/ || $bw ~ /^od_/ || (($bbw ~ /^Attavian_/ || $bbw ~ /^o_/ || $bbw ~ /^scampassero_/) && $bw ~ /^per_/) || (($bbw ~ /^uomo_/ || $bbw ~ /^poderoso_/ || $bbw ~ /^carico_/ || $bbw ~ /^richissimo_/ || $bbw ~ /^potente_/ || $bbw ~ /^ricco_/ || $bbw ~ /^multiplicare_/ || $bbw ~ /^o_/ || $bbw ~ /^guadagno_/ || $bbw ~ /^consumato_/ || $bbw ~ /^terre_/) && $bw ~ /^d'_/)) { assegna(campo, "20", end) } else { assegna(campo, "221", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "avisa" # else if (campo ~ /^avisa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^questo_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "avuta" # else if (campo ~ /^avuta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "223", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "bassa" # else if (campo ~ /^bassa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^amor_/ || $bw ~ /^viso_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'benedetta' # else if (campo ~ /^benedetta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^sie_/) { assegna(campo, "123", end) } else if ($fw ~ /^questa_/) { assegna(campo, "20", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Benedetto' # else if (campo ~ /^Benedetto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^sia_/) { assegna(campo, "123", end) } else { assegna(campo, "21", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'benedetto' # else if (campo ~ /^benedetto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^suo_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'biasimo' # else if (campo ~ /^biasimo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'bisogna' # else if (campo ~ /^bisogna_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'bisogni' # else if (campo ~ /^bisogni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ || $bw ~ /^ti_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'briga' # else if (campo ~ /^briga_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/ || $bw ~ /^chi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'caccia' # else if (campo ~ /^caccia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^altro_/ || $bw ~ /^ti_/ || $bw ~ /^domon'_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'caduta' # else if (campo ~ /^caduta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=essere,/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'camino' # else if (campo ~ /^camino_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/) { assegna(campo, "camino", end) } else { assegna(campo, "cammino", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'campi' # else if (campo ~ /^campi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'canpo' # else if (campo ~ /^canpo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^,_/ && $fw ~ /^._/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'canti' # else if (campo ~ /^canti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ha_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'canto' # else if (campo ~ /^canto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^dolze_/ || $bw ~ /^loro_/ || $bw ~ /^di_/ || $bw ~ /^il_/) { assegna(campo, "canto1", end) } else { assegna(campo, "canto2", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'cavalca' # else if (campo ~ /^cavalca_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^bellamente_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'celato' # else if (campo ~ /^celato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^s‚_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'cerchi' # else if (campo ~ /^cerchi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ne_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chesta' # else if (campo ~ /^chesta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cotale_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'cheto' # else if (campo ~ /^cheto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^a_/) { assegna(campo, "26", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chiama' # else if (campo ~ /^chiama_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^testimonio_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chiamata' # else if (campo ~ /^chiamata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /,33,/ || $bw ~ /^e_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chiami' # else if (campo ~ /^chiami_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chiese' # else if (campo ~ /^chiese_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cci•_/ || $bw ~ /^li_/ || $bw ~ /^Seneca_/ || $fw ~ /^öl[ie]_/ || $fw ~ /^commiato_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chiuse' # else if (campo ~ /^chiuse_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mani_/) { assegna(campo, "26", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "cieco" # else if (campo ~ /^cieco_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^era_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'comandi' # else if (campo ~ /^comandi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'comando' # else if (campo ~ /^comando_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^breve_/) { assegna(campo, "20", end) } else if ($fw ~ /^ölli_/ || $fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'comincia' # else if (campo ~ /^comincia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^este_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'cominci' # else if (campo ~ /^cominci_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ && $fw ~ /^,_/) { sub (/;3/, "", campo) print campo } else { sub (/2;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'comincio' # else if (campo ~ /^comincio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^E_/ || $fw ~ /^a_/) { assegna(campo, "111", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'commette' # else if (campo ~ /^commette_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'compera' # else if (campo ~ /^compera_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'compiuto' # else if (campo ~ /^compiuto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Š_/ && $fw ~ /^e_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'compreso' # else if (campo ~ /^compreso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^era_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'condanato' # else if (campo ~ /^condanato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^de_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'condotto' # else if (campo ~ /^condotto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^suo_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'conferma' # else if (campo ~ /^conferma_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öllo_/) { assegna(campo, "121", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'confesso' # else if (campo ~ /^confesso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,37,/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'conforto' # else if (campo ~ /^conforto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/ || $fw ~ /^öla_/) { assegna(campo, "111", end) } else if ($fw ~ /^öllo_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'congiunta' # else if (campo ~ /^congiunta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^n‚_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'congiunti' # else if (campo ~ /^congiunti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sono_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'conosci' # else if (campo ~ /^conosci_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^bene_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'considera' # else if (campo ~ /^considera_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^bene_/ && bw !~ /^non_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Consiglia' # else if (campo ~ /^Consiglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öllo_/) { assegna(campo, "121", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'consigliate' # else if (campo ~ /^consigliate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^furon_/) { assegna(campo, "123", end) } else if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'consigli' # else if (campo ~ /^consigli_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/ || $fw ~ /^,_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'consiglio' # else if (campo ~ /^consiglio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/ || $bw ~ /^io_/ || $bw ~ /^la_/ || $fw ~ /^öti_/ || ($fw ~ /^che_/ && ($bw ~ /^:_/ || $bw ~ /^primamente_/ || $bw ~ /^lato_/))) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'consolar' # else if (campo ~ /^consolar_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^a_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'consolato' # else if (campo ~ /^consolato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^hai_/ || $bw ~ /^önne_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'consolo' # else if (campo ~ /^consolo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'conti' # else if (campo ~ /^conti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ö'_/ && $fw ~ /^e_/) { assegna(campo, "conto", end) } else { assegna(campo, "conte", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'conto' # else if (campo ~ /^conto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else if ($bw ~ /^sia_/) { assegna(campo, "123", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'convento' # else if (campo ~ /^convento_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^piacevol_/ || $bw ~ /^per_/) { assegna(campo, "convento1", end) } else { assegna(campo, "convento2", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'coperta' # else if (campo ~ /^coperta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^persona_/ || $bw ~ /^la_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'coronato' # else if (campo ~ /^coronato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^termine_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'corrotta' # else if (campo ~ /^corrotta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=avere,/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'costa' # else if (campo ~ /^costa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'costo' # else if (campo ~ /^costo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'costumati' # else if (campo ~ /^costumati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'costumato' # else if (campo ~ /^costumato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/ || $bw ~ /^sono_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'coverte' # else if (campo ~ /^coverte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tavole_/ || $bw ~ /^arme_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'credi' # else if (campo ~ /^credi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Dio_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'crucciato' # else if (campo ~ /^crucciato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^stato_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'cruccio' # else if (campo ~ /^cruccio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'cura' # else if (campo ~ /^cura_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/ || $bw ~ /^si_/ || $bw ~ /^poco_/ || $bw ~ /^pi—_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'danni' # else if (campo ~ /^danni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'danno' # else if (campo ~ /^danno_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/ || $bw ~ /^che_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'data' # else if (campo ~ /^data_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tutta_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'date' # else if (campo ~ /^date_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cui_/) { assegna(campo, "111", end) } else if ($fw ~ /^loro_/) { assegna(campo, "118", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'de'' # else if (campo ~ /^de'_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ne_/ && $fw ~ /^pecato_/) { sub (/6;/, "", campo) print campo } else { sub (/;7/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dea' # else if (campo ~ /^dea_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,61,/ || $bw ~ /^donne_/ || $bw ~ /^sua_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'degna' # else if (campo ~ /^degna_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'degni' # else if (campo ~ /^degni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'dee' # else if (campo ~ /^dee_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^le_/ && $fw ~ /^de_/) { assegna(campo, "20", end) } else { assegna(campo, "311", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dei' # else if (campo ~ /^dei_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ && $bw !~ /^lo_/) { assegna(campo, "20", end) } else { assegna(campo, "311", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'demora' # else if (campo ~ /^demora_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Qui_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Deo' # else if (campo ~ /^Deo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^excelsis_/) { assegna(campo, "75", end) } else if ($fw ~ /^öne_/) { assegna(campo, "311", end) } else { assegna(campo, "21", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'deo' # else if (campo ~ /^deo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öne_/) { assegna(campo, "311", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'desiderare' # else if (campo ~ /^desiderare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /,61,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'desiderate' # else if (campo ~ /^desiderate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^voi_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'desinare' # else if (campo ~ /^desinare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dett'' # else if (campo ~ /^dett'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dette' # else if (campo ~ /^dette_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^vecchie_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'detti' # else if (campo ~ /^detti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^'n_/ || $bw ~ /^[Ii]n_/ || $bw ~ /^loro_/ || ($bw ~ /^i_/ && $fw ~ /^de_/) || ($bw ~ /^li_/ && $fw ~ /^d'_/)) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'detto' # else if (campo ~ /^detto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ ffw = fw ffw++ if ($fw ~ /,61,/ || $bw ~ /^poco_/ || $bw ~ /^di_/ || $bw ~ /^primo_/ || $bw ~ /^secondo_/ || $bw ~ /^breve_/ || $bw ~ /^quel_/ || $bw ~ /^questo_/ || $bw ~ /^propio_/ || $bw ~ /^riceve_/ || $fw ~ /^piano_/ || $fw ~ /^ferire_/ || ($bw ~ /^in_/ && $fw !~ /^caso_/) || ($fw ~ /,33,/ && $ffw !~ /^oratorio_/) || ($bw ~ /^'l_/ && $fw ~ /^sia_/ || $fw ~ /^de_/) || ($bw ~ /^öl_/ && ($fw ~ /^._/ || $fw ~ /^d[ie]_/)) || ($bw ~ /^il_/ && ($fw ~ /^de_/ || $fw ~ /^o_/ || $fw ~ /^e_/ || $fw ~ /^._/))) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'd' # else if (campo ~ /^d_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^ttu_/ || ($bbw ~ /^dicessi_/ && $bw ~ /^,_/)) { assegna(campo, "111", end) } else if ($fw ~ /^ö/ || ($bw !~ /^lo_/ && $fw ~ /^che_/) || ($bw ~ /^E_/ && $fw ~ /^a_/)) { assegna(campo, "118", end) } else if ($bw ~ /,7,/ || $bw ~ /^quattro_/ || $bw ~ /^cinque_/ || $bw ~ /^otto_/ || $bw ~ /^nove_/ || $bw ~ /^quind[ei]ci_/ || $bw ~ /^venti_/ || $bw ~ /^XXV_/ || $bw ~ /^trentaquattro_/ || $fw ~ /^siano_/ || $fw ~ /^solenni_/ || $fw ~ /^anzi_/ || ($bw ~ /^due_/ && ($fw ~ /^d'_/ || $fw ~ /^in_/)) || ($bw ~ /^XX_/ && $fw ~ /^,_/) || ($bw ~ /^octo_/ && $fw !~ /^intrante_/)) { gsub (/6;/, "", campo) assegna(campo, "20", end) } else { gsub (/;7/, "", campo) assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'd¡' # else if (campo ~ /^d¡_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/ || ($bw ~ /^e_/ && $fw ~ /^che_/)) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "di'" # else if (campo ~ /^di'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ || $fw ~ /^cos_/ || $fw ~ /^:_/ || $fw ~ /^tu_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dia' # else if (campo ~ /^dia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^seconda_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # # Regola per 'die': # else if (campo ~ /die_\(lem=d,/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ ffw = fw ffw++ if (($fw !~ /^ö/ || ($fw ~ /i_\(lem=il,60,0,4,7,0,0\);/ && $ffw ~ /signori_lem=signore/)) && $bw !~ /,32,0,4,7,0,0/ && $bw !~ /,30,0,4,7,0,0/) { sub (/,20,0,4,6;7,0,0/, ",20,0,4,6,0,0", campo) assegna(campo, "20,0,4,6", end) } else if (($fw !~ /^ö/ || ($fw ~ /i_\(lem=il,60,0,4,7,0,0\);/ && $ffw ~ /signori_lem=signore/)) && ($bw ~ /,32,0,4,7,0,0/ || $bw ~ /,30,0,4,7,0,0/)) { sub (/,20,0,4,6;7,0,0/, ",20,0,4,7,0,0", campo) assegna(campo, "20,0,4,7", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else print campo } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'difende' # else if (campo ~ /^difende_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tucta_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'difesa' # else if (campo ~ /^difesa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^avea_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dimanda' # else if (campo ~ /^dimanda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dimora' # else if (campo ~ /^dimora_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sanza_/ || $bw ~ /^poca_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dimoro' # else if (campo ~ /^dimoro_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^pover_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dimostra' # else if (campo ~ /^dimostra_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^quello_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'disio' # else if (campo ~ /^disio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dispensa' # else if (campo ~ /^dispensa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tempi_/) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dispiacere' # else if (campo ~ /^dispiacere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mai_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dispregia' # else if (campo ~ /^dispregia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^le_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'distesa' # else if (campo ~ /^distesa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^a_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'distese' # else if (campo ~ /^distese_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^pi—_/) { assegna(campo, "26", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'distretta' # else if (campo ~ /^distretta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cos_/) { assegna(campo, "26", end) } else if ($bw ~ /^hanno_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'distretto' # else if (campo ~ /^distretto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'distrutti' # else if (campo ~ /^distrutti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^occhi_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'distrutto' # else if (campo ~ /^distrutto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^paresse_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'divisa' # else if (campo ~ /^divisa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sanza_/ || $bw ~ /^questa_/ || $bw ~ /^in_/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else if ($bw ~ /^arte_/) { assegna(campo, "26", end) } else if ($bw ~ /^s[i]_/ || $fw ~ /^Tulio_/) { assegna(campo, "111", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'divisate' # else if (campo ~ /^divisate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öe_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'divisati' # else if (campo ~ /^divisati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^e_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'divisato' # else if (campo ~ /^divisato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || ($bw ~ /^Š_/ && $fw ~ /^,_/)) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'divise' # else if (campo ~ /^divise_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^parean_/ || $bw ~ /^non_/) { assegna(campo, "26", end) } else if ($bw ~ /^si_/ || $bw ~ /^terra_/) { assegna(campo, "113", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'diviso' # else if (campo ~ /^diviso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'doglia' # else if (campo ~ /^doglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^li_/ || ($bw ~ /^e_/ && $fw ~ /^fortemente_/)) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'domanda' # else if (campo ~ /^domanda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^questa_/ || $bw ~ /^che_/ || $bw ~ /^nuova_/ || ($bw ~ /,60,/ && $bw !~ /^li_/)) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'domandar' # else if (campo ~ /^domandar_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölo_/) { assegna(campo, "113", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Dona' # else if (campo ~ /^Dona_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^decta_/) { assegna(campo, "20", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dona' # else if (campo ~ /^dona_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^robe_/ || $fw ~ /^öti_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna e esterna di 'doni' # else if (campo ~ /^doni_/ && campo ~ /\);\(/) { ffw = fw ffw++ if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ || ($bw ~ /^mi_/ && $fw ~ /^,_/) || $fw ~ /^gratia_/) { sub (/1;2;/, "", campo) assegna(campo, "115", end) } else if ($fw ~ /^oro_/) { sub (/1;/, "", campo) sub (/;3/, "", campo) assegna(campo, "115", end) } else if ($bw ~ /^ti_/) { sub (/;2;3/, "", campo) assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dono' # else if (campo ~ /^dono_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^lli_/ || $bw ~ /^ti_/) { assegna(campo, "111", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'dovesse' # else if (campo ~ /^dovesse_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^li_/ && ($fw ~ /^dire_/ || $fw ~ /^perdere_/)) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'dovessi' # else if (campo ~ /^dovessi_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^se_/) { sub (/1;/, "", campo) print campo } else { sub (/;2/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'duol' # else if (campo ~ /^duol_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dura' # else if (campo ~ /^dura_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/ || $bw ~ /^non_/ || $bw ~ /^tanto_/ || $bw ~ /^quanto_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'duri' # else if (campo ~ /^duri_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^quali_/ || $bw ~ /^Dardanide_/ || $bw ~ /^vita_/ || $bw ~ /^oficiali_/ || $bw ~ /^richedimento_/) { assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'duro' # else if (campo ~ /^duro_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'edificare' # else if (campo ~ /^edificare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öll'_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna e interna di "ei" # else if (campo ~ /^ei_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^pensato_/ || $bw ~ /^detto_/) { assegna(campo, "213", end) } else { assegna(campo, "37", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'entrare' # else if (campo ~ /^entrare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öll'_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'entro' # else if (campo ~ /^entro_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ö/) { assegna(campo, "113", end) } else if ($fw ~ /^[i']l_/) { assegna(campo, "56", end) } else { assegna(campo, "45", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Era' # else if (campo ~ /^Era_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ad_/) { assegna(campo, "21", end) } else { assegna(campo, "212", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'era' # else if (campo ~ /^era_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { sub (/;3/, "", campo) sub (/;7/, "", campo) print campo } else if ($fw ~ /^raunate_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) print campo } else { sub (/1;/, "", campo) sub (/;7/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'erranti' # else if (campo ~ /^erranti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cercavano_/) { assegna(campo, "122", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'essere' # else if (campo ~ /^essere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "221", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fa'' # else if ((campo ~ /^fa'_/ || campo ~ /^fate_/) && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ö/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Fa' # else if (campo ~ /^Fa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ömmi_/ || $fw ~ /^ötti_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fa' # else if (campo ~ /^fa_/ && campo ~ /\);\(/) { ffw = fw ffw++ if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ((($bw ~ /^ma_/ || $bw ~ /^fine_/) && $fw ~ /^ölle_/) || ($fw ~ /^ö/ && $ffw ~ /^ö/) || $fw ~ /^ögli/ || $fw ~ /^ömmi/ || $fw ~ /^ötti/) { assegna(campo, "118", end) } else if ($bw ~ /^n‚/ && $fw ~ /^ölli/) { assegna(campo, "121", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna e esterna di 'faccia' # else if (campo ~ /^faccia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,33,/ || $bw ~ /^mostrato_/ || $bw ~ /^allegra_/ || $bw ~ /^peritosa_/ || ($bw ~ /,60,/ && $bw !~ /^li_/ && $bw !~ /^['iö]l_/)) { assegna(campo, "20", end) } else if ($bw ~ /^i'_/) { sub (/;2;3/, "", campo) assegna(campo, "115", end) } else { sub (/1;2;/, "", campo) assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'facia' # else if (campo ~ /^facia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "115", end) } else if ($bw ~ /^eo_/) { assegna(campo, "112", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'facto' # else if (campo ~ /^facto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /^questo_/ || $bw ~ /^decto_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fai' # else if (campo ~ /^fai_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^senno_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'falli' # else if (campo ~ /^falli_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^tuoi_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fallo' # else if (campo ~ /^fallo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fatt'' # else if (campo ~ /^fatt'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fatti' # else if (campo ~ /^fatti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=avere[\/,]/ || $bw ~ /lem=essere[\/,]/ || $bw ~ /^che_/ || $bw ~ /^son_/ || $bw ~ /^gi…_/ || $fw ~ /^bene_/ || $bw ~ /^ben_/ || $bw ~ /^E_/ || ($bw ~ /^e_/ && $fw !~ /^._/)) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fatto' # else if (campo ~ /^fatto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^de_/ || $bw ~ /^detto_/ || $bw ~ /^Ke_/ || $bw ~ /^®_/ || $bw ~ /,30,/ || $bw ~ /,33,/ || ($bw ~ /,6[01],/ && $bw !~ /^ölli_/) || ($bw ~ /,32,/ && $bw !~ /^che_/) || ($bw ~ /,26,/ && $bw !~ /^uso_/ && $bw !~ /^pro'_/ && $bw !~ /^ordinati_/)) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'favella' # else if (campo ~ /^favella_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,26,/) { assegna(campo, "20", end) } else if ($fw ~ /öci/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna e interna di 'fe'' # else if (campo ~ /^fe'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^in_/ && $fw ~ /^di_/) || $bw ~ /^tua_/) { assegna(campo, "20", end) } else if ($fw ~ /^proponimento_/) { sub (/;3/, "", campo) assegna(campo, "113", end) } else { sub (/1;/, "", campo) assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fediti' # else if (campo ~ /^fediti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /^scanpati_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ferita' # else if (campo ~ /^ferita_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^a_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ferma' # else if (campo ~ /^ferma_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mmi_/ || $bw ~ /^si_/ || $bw ~ /^accusato_/ || $bw ~ /^esso_/ || $fw ~ /^in_/ || $fw ~ /^ne_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fina' # else if (campo ~ /^fina_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/ || $bw ~ /^orratamente_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fino' # else if (campo ~ /^fino_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^giorno_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fo' # else if (campo ~ /^fo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^consigliato_/) { assegna(campo, "213", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'forniti' # else if (campo ~ /^forniti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=essere/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fornito' # else if (campo ~ /^fornito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^talgliere_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fosse' # else if (campo ~ /^fosse_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^rappianare_/) { assegna(campo, "20", end) } else { assegna(campo, "216", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fossi' # else if (campo ~ /^fossi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^i_/) { assegna(campo, "20", end) } else { assegna(campo, "216", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fummo' # else if (campo ~ /^fummo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /^fiatoso_/ || $bw ~ /^uscire_/ || $bw ~ /^venduto_/ || $fw ~ /^¯_/) { assegna(campo, "20", end) } else { assegna(campo, "213", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fumo' # else if (campo ~ /^fumo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^noi_/) { assegna(campo, "213", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fuor' # else if (campo ~ /^fuor_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ ffw = fw ffw++ if ($fw ~ /,123,/ || $ffw ~ /,123,/ || $fw ~ /^dinanzi_/ || $fw ~ /^certi_/ || $fw ~ /^s¡_/) { assegna(campo, "213", end) } else if ($fw ~ /^de_/ || $fw ~ /^di_/ || $fw ~ /^le_/) { assegna(campo, "56", end) } else { assegna(campo, "45", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'furo' # else if (campo ~ /^furo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^un_/ || $bw ~ /^il_/ || $bw ~ /^lo_/ || $bw ~ /^fosse_/) { assegna(campo, "20", end) } else { assegna(campo, "213", end) } } # # Regola per la disambiguazione esterna di 'girai' # else if (campo ~ /^girai_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "113", end) } else { assegna(campo, "114", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'gitto' # else if (campo ~ /^gitto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^eo_/) { assegna(campo, "111", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'giunta' # else if (campo ~ /^giunta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^n[ei]una_/ || $bw ~ /^questa_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'giura' # else if (campo ~ /^giura_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^che_/ || $bw ~ /^chi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'gravi' # else if (campo ~ /^gravi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'grida' # else if (campo ~ /^grida_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ne_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'guarda' # else if (campo ~ /^guarda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^s¡_/ || $bw ~ /^ci•_/ || $bw ~ /^non_/ || $bw ~ /^uno_/ || $bw ~ /^pur_/ || $fw ~ /^guado_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'guardate' # else if (campo ~ /^guardate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^:_/) { assegna(campo, "111", end) } else if ($bw ~ /^avete_/) { assegna(campo, "123", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'guardi' # else if (campo ~ /^guardi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/ || $fw ~ /^tu_/) { assegna(campo, "111", end) } else if ($fw ~ /^che_/) { sub (/;3/, "", campo) assegna(campo, "115", end) } else { sub (/2;/, "", campo) assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'guida' # else if (campo ~ /^guida_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'incontra' # else if (campo ~ /^incontra_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öle_/) { assegna(campo, "45", end) } else if ($bw ~ /^m'_/) { assegna(campo, "111", end) } else { assegna(campo, "56", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'infermi' # else if (campo ~ /^infermi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ingannati' # else if (campo ~ /^ingannati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'inganni' # else if (campo ~ /^inganni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'inper•' # else if (campo ~ /^inper•_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /lem=che,/) { assegna(campo, "45", end) } else if ($fw ~ /^ki_/) { assegna(campo, "47", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'insegna' # else if (campo ~ /^insegna_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,33,/ || $bw ~ /,60,/ || $bw ~ /^per_/ || $bw ~ /^alcuna_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'insegnato' # else if (campo ~ /^insegnato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^bene_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'intrata' # else if (campo ~ /^intrata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ne_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'invitata' # else if (campo ~ /^invitata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^fece_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'iscritta' # else if (campo ~ /^iscritta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^inn?_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'iscritto' # else if (campo ~ /^iscritto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^inn_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'istato' # else if (campo ~ /^istato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sono_/ && $fw ~ /^omo_/) { assegna(campo, "223", end) } else if ($bw ~ /^sono_/ && $fw ~ /^,_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lamento' # else if (campo ~ /^lamento_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ömi_/) { assegna(campo, "111", end) } else if ($fw ~ /^össi_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'lancia' # else if (campo ~ /^lancia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "111", end) } else if ($bw ~ /^milglore_/) { sub (/;5/, "", campo) assegna(campo, "20", end) } else { sub (/4;/, "", campo) assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lassa' # else if (campo ~ /^lassa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^or_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lavorate' # else if (campo ~ /^lavorate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lega' # else if (campo ~ /^lega_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,61,/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'legato' # else if (campo ~ /^legato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^era_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lagrimar' # else if (campo ~ /^lagrimar_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^duro_/ || $bw ~ /^amaro_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lagrimare' # else if (campo ~ /^lagrimare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^questo_/ || $bw ~ /^sollenato_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'legge' # else if (campo ~ /^legge_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ci_/ || $bw ~ /^si_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'leggi' # else if (campo ~ /^leggi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^spesso_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'leggiere' # else if (campo ~ /^leggiere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^._/) { assegna(campo, "26", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'letta' # else if (campo ~ /^letta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^volte_/ || $bw ~ /^avesse_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'letto' # else if (campo ~ /^letto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Ovidio_/ || $bw ~ /^gi…_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'levante' # else if (campo ~ /^levante_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^il_/) { assegna(campo, "122", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'levate' # else if (campo ~ /^levate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^vi_/) { assegna(campo, "111", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lievi' # else if (campo ~ /^lievi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "115", end) } else if ($fw ~ /^ti_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'loda' # else if (campo ~ /^loda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^sua_/ || $bw ~ /,60,/ || $fw ~ /^di_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lodare' # else if (campo ~ /^lodare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^troppo_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lodo' # else if (campo ~ /^lodo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^iú_/) { assegna(campo, "20", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'luce' # else if (campo ~ /^luce_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^amanti_/ || $bw ~ /^che_/ || $fw ~ /^s_/ || $fw ~ /^men_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'lusinga' # else if (campo ~ /^lusinga_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölo_/) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'manca' # else if (campo ~ /^manca_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'manda' # else if (campo ~ /^manda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölla_/) { assegna(campo, "113", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mandate' # else if (campo ~ /^mandate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ || $bw ~ /^non_/) { assegna(campo, "111", end) } else if ($bw ~ /^nnoi_/) { assegna(campo, "118", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mandato' # else if (campo ~ /^mandato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^pieno_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'mandi' # else if (campo ~ /^mandi_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^,_/) { sub (/;3/, "", campo) print campo } else { sub (/2;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'manicare' # else if (campo ~ /^manicare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /^detto_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'manichare' # else if (campo ~ /^manichare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'manifesta' # else if (campo ~ /^manifesta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/ || $bw ~ /^come_/ || $bw ~ /^lo_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'manifesto' # else if (campo ~ /^manifesto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^seconda_/) { assegna(campo, "111", end) } else if ($fw ~ /^ölli_/) { assegna(campo, "113", end) } else if ($bw ~ /^facendo_/) { assegna(campo, "20", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'maraviglia' # else if (campo ~ /^maraviglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ci_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'marito' # else if (campo ~ /^marito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'membra' # else if (campo ~ /^membra_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^[st]i_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'membri' # else if (campo ~ /^membri_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ö'_/) { assegna(campo, "20", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mena' # else if (campo ~ /^mena_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^questa_/ || $bw ~ /^la_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'menate' # else if (campo ~ /^menate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^voi_/) { assegna(campo, "111", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'meno' # else if (campo ~ /^meno_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ö/) { assegna(campo, "113", end) } else if (($bw ~ /,60,0,4,6,/ && $bw !~ /^ölo_/) || $fw ~ /^brigha_/ || $fw ~ /^secondo_/) { assegna(campo, "32", end) } else { assegna(campo, "45", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mente' # else if (campo ~ /^mente_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'messa' # else if (campo ~ /^messa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/ || $bw ~ /^öe/ || ($bw ~ /^öla/ && $fw ~ /^ne/) || $bw ~ /^Š_/ || $bw ~ /^avea_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'messe' # else if (campo ~ /^messe_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=essere/ || $bw ~ /^parti_/ || $bw ~ /^tavole_/) { assegna(campo, "123", end) } else if ($bw ~ /^llo_/) { assegna(campo, "mese", end) } else { assegna(campo, "messa", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'messi' # else if (campo ~ /^messi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=essere/ || $bw ~ /^exempli_/) { assegna(campo, "123", end) } else if ($bw ~ /^due_/) { assegna(campo, "mese", end) } else { assegna(campo, "messo", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'messo' # else if (campo ~ /^messo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^per_/ || $bw ~ /^quale_/ || $bw ~ /^questo_/ || $bw ~ /^Berto_/ || $bw ~ /^uno_/ || $bw ~ /^'l_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'metta' # else if (campo ~ /^metta_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ne_/) { sub (/;3/, "", campo) assegna(campo, "115", end) } else { sub (/1;/, "", campo) assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'metti' # else if (campo ~ /^metti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'minaccia' # else if (campo ~ /^minaccia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^per_/) { assegna(campo, "20", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'miri' # else if (campo ~ /^miri_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^coste'_/) { assegna(campo, "111", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mise' # else if (campo ~ /^mise_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^parti_/) { assegna(campo, "123", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'misero' # else if (campo ~ /^misero_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/) { assegna(campo, "20", end) } else if ($bw ~ /^poi_/ || $bw ~ /^dietro_/ || $bw ~ /^la_/ || $bw ~ /^Roma_/ || $bw ~ /^si_/ || $bw ~ /^e_/ || $bw ~ /^sicch‚_/) { assegna(campo, "113", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'misfatto' # else if (campo ~ /^misfatto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=avere/ || $bw ~ /^tu_/ || $bw ~ /^öe_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'misurata' # else if (campo ~ /^misurata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^fu_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'monti' # else if (campo ~ /^monti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'morta' # else if (campo ~ /^morta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^vista_/ || $bw ~ /^figura_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'morte' # else if (campo ~ /^morte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tutte_/ || $bw ~ /^anche_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'morti' # else if (campo ~ /^morti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^spiriti_/ || $bw ~ /^tratti_/) { assegna(campo, "26", end) } else if (($bw ~ /,60,0,4,/ && $fw !~ /^spiriti_/) || $bw ~ /^que'_/ || $bw ~ /^di_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'morto' # else if (campo ~ /^morto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^corpo_/ || $bw ~ /^omo_/ || $bw ~ /^piccinacho_/ || $bw ~ /^giogante_/ || $bw ~ /^cos_/ || $bw ~ /^tenne_/ || $bw ~ /^tu_/ || $fw ~ /^colore_/) { assegna(campo, "26", end) } else if ($bw ~ /,60,0,4,6,/ || $bw ~ /^questo_/ || $bw ~ /lem=ciascuno,/ || $bw ~ /lem=alcuno,/ || $bw ~ /^detto_/ || $bw ~ /lem=cotale,/ || $bw ~ /^qual_/ || $bw ~ /^di_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mossi' # else if (campo ~ /^mossi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/ || $bw ~ /^io_/) { assegna(campo, "113", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Mostra', 'mostra' # else if (campo ~ /^[Mm]ostra_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ömi_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mostrar' # else if (campo ~ /^mostrar_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^;_/) { assegna(campo, "113", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mostri' # else if (campo ~ /^mostri_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Ben_/ || $bw ~ /^ci_/ || $bw ~ /^tu_/ || $fw ~ /^bene_/ || $fw ~ /^semplice_/) { assegna(campo, "111", end) } else if ($bw ~ /^mi_/) { sub (/;3/, "", campo) assegna(campo, "115", end) } else { sub (/2;/, "", campo) assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'muta' # else if (campo ~ /^muta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tremando_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'muti' # else if (campo ~ /^muti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tu_/) { assegna(campo, "111", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'muto' # else if (campo ~ /^muto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'nascose' # else if (campo ~ /^nascose_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "26", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'nascoso' # else if (campo ~ /^nascoso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sarei_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'negare' # else if (campo ~ /^negare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^suo_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'nodrito' # else if (campo ~ /^nodrito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^era_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'nota' # else if (campo ~ /^nota_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "111", end) } else if ($bw ~ /^mia_/) { assegna(campo, "20", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'o' # else if (campo ~ /^o_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^regina_/) { assegna(campo, "75", end) } else if ($fw ~ /^ö/) { assegna(campo, "211", end) } else if ($bw ~ /^?_/) { assegna(campo, "68", end) } else { assegna(campo, "50", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'O' # else if (campo ~ /^O_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^vos_/) { assegna(campo, "75", end) } else if ($fw ~ /^ö/) { assegna(campo, "211", end) } else { assegna(campo, "68", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'odi' # else if (campo ~ /^odi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Or_/ || ($bw ~ /^,_/ && $fw ~ /^,_/)) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'oferta' # else if (campo ~ /^oferta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^od_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'offesa' # else if (campo ~ /^offesa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^pur_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Onora' # else if (campo ~ /^Onora_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^e_/) { assegna(campo, "118", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'onori' # else if (campo ~ /^onori_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^e_/ && $fw ~ /^._/) || $bw ~ /^piccolo_/ || $fw ~ /^ölo_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ordina' # else if (campo ~ /^ordina_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^presenti_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ordino' # else if (campo ~ /^ordino_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^di_/) { assegna(campo, "111", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ornato' # else if (campo ~ /^ornato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^trattamento_/) { assegna(campo, "26", end) } else if ($bw ~ /^questo_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'oscura' # else if (campo ~ /^oscura_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^l'_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'oscuro' # else if (campo ~ /^oscuro_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'oso' # else if (campo ~ /^oso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^pi—_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'paga' # else if (campo ~ /^paga_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^la_/) { assegna(campo, "20", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pagano' # else if (campo ~ /^pagano_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^stato_/ || $bw ~ /^gran_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'paia' # else if (campo ~ /^paia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tre_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'par' # else if (campo ~ /^par_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^con_/ || $fw ~ /^fossor_/ || $fw ~ /^di_/ || ($bw ~ /^ch‚_/ && $fw ~ /^de_/)) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pare' # else if (campo ~ /^pare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/ || $bw ~ /^sia_/ || $bw ~ /^esser_/ || $bw ~ /^divenire_/ || $bw ~ /^fosse_/ || $bw ~ /^cioŠ_/ || ($bw ~ /^altro_/ && $fw ~ /^,_/)) { assegna(campo, "26", end) } else if ($bw ~ /^avete_/ || $bw ~ /^su[o']_/ || ($bw ~ /^tuo_/ && $fw ~ /^,_/)) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parere' # else if (campo ~ /^parere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parete' # else if (campo ~ /^parete_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^adorna_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parlamentare' # else if (campo ~ /^parlamentare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ciascuno_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parlante' # else if (campo ~ /^parlante_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^omo_/ || $bw ~ /^troppo_/) { assegna(campo, "26", end) } else { assegna(campo, "122", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parlare' # else if (campo ~ /^parlare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^villan_/ || $bw ~ /^bello_/ || $bw ~ /^brieve_/ || $bw ~ /^bel_/ || $bw ~ /^leggiadro_/ || $bw ~ /^dilicato_/ || $bw ~ /^dolcissimo_/ || $bw ~ /^maraviglioso_/ || $fw ~ /^fabuloso_/ || $bw ~ /^in_/ || $bw ~ /,6[01],/ || $bw ~ /,33,/ || ($bbw ~ /^copia_/ && $bw ~ /^di_/ && $fw ~ /^,_/) || ($bbw ~ /^e_/ && $bw ~ /^di_/ && $fw ~ /^e_/) || ($bbw ~ /^trattano_/ && $bw ~ /^di_/ && $fw ~ /^in_/) || ($bw ~ /^altro_/ && $fw ~ /^Š_/) || ($bbw ~ /^fiori_/ && $bw ~ /^di_/)) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parlato' # else if (campo ~ /^parlato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^o_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parli' # else if (campo ~ /^parli_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else if ($bw ~ /^non_/) { sub (/;3/, "", campo) assegna(campo, "115", end) } else { sub (/2;/, "", campo) assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parte' # else if (campo ~ /^parte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/ || $bw ~ /^ssi_/ || $bw ~ /^mi_/ || $bw ~ /^non_/ || $fw ~ /^ösi_/ || ($bw ~ /^,_/ && $fw ~ /^come_/)) { assegna(campo, "111", end) } else if ($bw ~ /^quali_/) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parti' # else if (campo ~ /^parti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^össi_/ || $fw ~ /^ösi_/) { assegna(campo, "113", end) } else if ($bw ~ /^ti_/) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'partio' # else if (campo ~ /^partio_/) { nf++ if ($bw ~ /^mi_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'partita' # else if (campo ~ /^partita_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^,_/ && $fw ~ /^da_/) { assegna(campo, "26", end) } else if ($bw ~ /,33,/ || $bw ~ /^la_/ || $bw ~ /^altra_/ || $bw ~ /^atra_/) { assegna(campo, "partita,20", end) } else if ($bw ~ /^pi—_/) { assegna(campo, "partito,20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'partite' # else if (campo ~ /^partite_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^vi_/ || $bw ~ /^altri_/ || $fw ~ /^ögli_/) { assegna(campo, "118", end) } else if ($bw ~ /^fossero_/ || $bw ~ /^vert—_/ || $bw ~ /^si…n_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'partiti' # else if (campo ~ /^partiti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^due_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'partito' # else if (campo ~ /^partito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^niuno_/ || $bw ~ /^qual_/ || $bw ~ /^finissimo_/ || $bw ~ /^il_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'passata' # else if (campo ~ /^passata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cosa_/ || $bw ~ /^la_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'passate' # else if (campo ~ /^passate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cose_/ || $bw ~ /^le_/) { assegna(campo, "26", end) } else if ($bw ~ /^Amor_/ || $bw ~ /^voi_/) { assegna(campo, "111", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'passati' # else if (campo ~ /^passati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^tempi_/ || $bw ~ /^fatti_/ || ($bbw ~ /^li_/ && $bw ~ /^anni_/)) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'passato' # else if (campo ~ /^passato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^fatto_/ || $bw ~ /^tempo_/ || $bw ~ /^luccio_/ || $fw ~ /^tempo_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna e esterna di 'passi' # else if (campo ~ /^passi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ricchezze_/ || $bw ~ /^che_/) { sub (/1;/, "", campo) assegna(campo, "115", end) } else if ($bw ~ /^io_/) { sub (/;3/, "", campo) assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pecca' # else if (campo ~ /^pecca_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mia_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'peccato' # else if (campo ~ /^peccato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /lem=avere/ && $bw !~ /^a_/) || $fw ~ /^hai_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pena' # else if (campo ~ /^pena_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pensi' # else if (campo ~ /^pensi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^innanzi_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'perde' # else if (campo ~ /^perde_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^in_/) { assegna(campo, "115", end) } else if ($fw ~ /^öli_/) { assegna(campo, "113", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'perdono' # else if (campo ~ /^perdono_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ö/) { assegna(campo, "113", end) } else if ($bw ~ /^si_/ || $bw ~ /^ssi_/ || $fw ~ /^lode_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pia' # else if (campo ~ /^pia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^augel_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pianto' # else if (campo ~ /^pianto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^hanno_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'piova' # else if (campo ~ /^piova_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/ || $bw ~ /^mente_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pon' # else if (campo ~ /^pon_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ben_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'poria' # else if (campo ~ /^poria_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^nascosa_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'porta' # else if (campo ~ /^porta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^,_/ && $fw ~ /^öl_/) || ($bw ~ /^,_/ && $fw ~ /^questa_/)) { assegna(campo, "118", end) } else if ($bw ~ /^piccola_/ || $bw ~ /^gran_/ || $bw ~ /^grande_/ || $bw ~ /^ampia_/ || $bw ~ /^detta_/ || $bw ~ /^Š_/ || ($bw ~ /^®_/ && $fw ~ /^¯_/) || $bw ~ /^…_/ || $bw ~ /^ad_/ || $bw ~ /^mastra_/ || $bw ~ /^fermate_/ || $bw ~ /lem=la,60,0,5,6,0,0/ || $bw ~ /,6[15],/ || $bw ~ /,3[03],/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'portare' # else if (campo ~ /^portare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^grave_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'porte' # else if (campo ~ /^porte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'porti' # else if (campo ~ /^porti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ö'_/) { assegna(campo, "porto", end) } else if (($bw ~ /^le_/ && $fw !~ /^in_/) || $bw ~ /^nostre_/ || $bw ~ /^di_/ || $bw ~ /^mastri_/) { assegna(campo, "porta", end) } else if ($bw ~ /^che_/ && $fw ~ /^ne_/) { assegna(campo, "111", end) } else if ($bw ~ /^i'_/) { sub (/;3/, "", campo) assegna(campo, "115", end) } else { sub (/1;/, "", campo) assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'porto' # else if (campo ~ /^porto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölo_/ || $bw ~ /^io_/ || $bw ~ /^vi_/) { assegna(campo, "111", end) } else if ($fw ~ /^ögli_/ || $fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'posa' # else if (campo ~ /^posa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^abbia_/ || $bw ~ /^loro_/ || $bw ~ /^tanta_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'possa' # else if (campo ~ /^possa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($fw ~ /^mia_/ || $bw ~ /^tanta_/) { assegna(campo, "20", end) } else if ($bw ~ /^mi_/ || $bw ~ /^i['o]_/ || $bw ~ /^tuo_/ || $bw ~ /^valore_/ || $bbw ~ /^io_/) { sub (/;3/, "", campo) assegna(campo, "315", end) } else { sub (/1;/, "", campo) assegna(campo, "315", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'posse' # else if (campo ~ /^posse_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^non_/ && $fw ~ /^fare_/) { sub (/2;/, "", campo) assegna(campo, "315", end) } else { sub (/;3/, "", campo) assegna(campo, "315", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'possiamo' # else if (campo ~ /^possiamo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sempre_/ || $fw ~ /^mitigare_/) { assegna(campo, "315", end) } else { assegna(campo, "311", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'posta' # else if (campo ~ /^posta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^a_/ || $bw ~ /^tua_/ || $bw ~ /^perdi_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'poteo' # else if (campo ~ /^poteo_/ && campo ~ /\);\(/) { ffw = fw ffw++ nf++ if ($bw ~ /^non_/ && $fw ~ /^sostenere_/ && $ffw ~ /^alquante_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'potesse' # else if (campo ~ /^potesse_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^mi_/ && $fw ~ /^fare_/) || $bw ~ /^io_/ || $bw ~ /^li_/ || $fw ~ /^._/ || $fw ~ /^esser_/) { sub (/;3/, "", campo) sub (/;7/, "", campo) print campo } else if ($bw ~ /^loro_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) print campo } else { sub (/1;/, "", campo) sub (/;7/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'prego' # else if (campo ~ /^prego_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,61,/ || $bw ~ /,33,/ || $bw ~ /^El_/ || $bw ~ /^n‚_/ || $bw ~ /^lo_/ || $bw ~ /^sanza_/) { assegna(campo, "20", end) } else if ($fw ~ /^öll[oi]_/ || $fw ~ /^öe_/) { assegna(campo, "113", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'presi' # else if (campo ~ /^presi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^i['lo]_/ || $bw ~ /^ti_/ || $bw ~ /^Allora_/ || $fw ~ /^tant[ao]_/ || $fw ~ /^li_/) { assegna(campo, "113", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'presta' # else if (campo ~ /^presta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ben_/ || $bw ~ /^si_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'presti' # else if (campo ~ /^presti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'presto' # else if (campo ~ /^presto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^arcier_/ || $fw ~ /^e_/) { assegna(campo, "26", end) } else if ($bw ~ /^in_/) { assegna(campo, "20", end) } else if ($fw ~ /^t'_/) { assegna(campo, "45", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'prieghi' # else if (campo ~ /^prieghi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ne_/ || $bw ~ /^tu_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'priego' # else if (campo ~ /^priego_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^faccio_/ || $bw ~ /^il_/ || $bw ~ /^fatto_/ || $bw ~ /^ad_/ || $bw ~ /^a_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'privati' # else if (campo ~ /^privati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'privato' # else if (campo ~ /^privato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^luogo_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'proposta' # else if (campo ~ /^proposta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^questa_/ || $bw ~ /^simigliante_/ || $bw ~ /^fatta_/ || $bw ~ /,60,0,5,6,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'proposto' # else if (campo ~ /^proposto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'prova' # else if (campo ~ /^prova_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^usata_/ || $bw ~ /^grande_/ || $bw ~ /^a_/ || $fw ~ /^che_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pruova' # else if (campo ~ /^pruova_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^neuna_/ || $bw ~ /^ölla_/ || $bw ~ /^in_/ || $bw ~ /^fece_/) { assegna(campo, "20", end) } else if ($bw ~ /^e_/ && $fw !~ /^per_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pruove' # else if (campo ~ /^pruove_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/ || $fw ~ /^di_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pruovi' # else if (campo ~ /^pruovi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^gli_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pugna' # else if (campo ~ /^pugna_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sempre_/) { assegna(campo, "111", end) } else if ($fw ~ /^per_/) { assegna(campo, "118", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pui' # else if (campo ~ /^pui_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/ && $fw ~ /^punto_/) { assegna(campo, "311", end) } else if ($bw ~ /^uscireste_/ || $fw ~ /^che_/) { assegna(campo, "45", end) } else { assegna(campo, "47", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'punto' # else if (campo ~ /^punto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^pui_/ && $fw ~ /^celar_/) || ($bw ~ /^non_/ && $fw ~ /^calterito_/) || $bw ~ /^adir•_/) { assegna(campo, "45", end) } else if ($bw ~ /^Š_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'puoi' # else if (campo ~ /^puoi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^Ma_/ && $fw ~ /^ch'_/) || ($bw ~ /^da_/ && $fw ~ /^,_/) || ($bw ~ /^che_/ && $fw ~ /^ruppe_/)) { assegna(campo, "45", end) } else if (($bw ~ /^e_/ && $fw ~ /^a_/) || ($bw ~ /^,_/ && $fw ~ /^da_/)) { assegna(campo, "47", end) } else { assegna(campo, "311", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pulito' # else if (campo ~ /^pulito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^son_/ && $fw ~ /^,_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dire' # else if (campo ~ /^dire_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^mal_/ && $fw ~ /^ode_/) || ($bw ~ /^sopra_/ && $fw ~ /^tencionando_/) || ($bw ~ /^in_/ && $fw ~ /^n‚_/) || ($bw ~ /^in_/ && $fw ~ /^che_/) || ($bw ~ /^in_/ && $fw ~ /^et_/) || ($bw ~ /^bene_/ && $fw ~ /^mettea_/) || $bw ~ /,6[01],/ || ($bw ~ /,33,/ && $bw !~ /^altrui_/) || $bw ~ /^me'_/ || $bw ~ /^bel_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dittare' # else if (campo ~ /^dittare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /,60,/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dicere' # else if (campo ~ /^dicere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /,6[01],/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dir' # else if (campo ~ /^dir_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'donare' # else if (campo ~ /^donare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^'n_/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rade' # else if (campo ~ /^rade_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^luce_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ricevere' # else if (campo ~ /^ricevere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'dare' # else if (campo ~ /^dare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^in_/ && $fw ~ /^mangiare_/) || ($bw ~ /^per_/ && $fw ~ /^;_/)) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'udio' # else if (campo ~ /^udio_/) { nf++ if ($bw ~ /^Beatrice_/ || $bw ~ /^l'_/ || $fw ~ /^la_/) { sub (/1;/, "", campo) print campo } else { sub (/;3/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'udire' # else if (campo ~ /^udire_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pensare' # else if (campo ~ /^pensare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^cotale_/ || $bw ~ /,6[01],/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'pesate' # else if (campo ~ /^pesate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^oro_/) { assegna(campo, "111", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'vedere' # else if (campo ~ /^vedere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /,6[01],/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'parlanti' # else if (campo ~ /^parlanti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^molti_/) { assegna(campo, "20", end) } else { assegna(campo, "122", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "se'" # else if (campo ~ /^se'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^VIIJ_/ && $fw ~ /^d_/) || ($bw ~ /^XXXIIIJ_/ && $fw ~ /^d_/) || ($bw ~ /^XXX_/ && $fw ~ /^d_/) || ($bw ~ /^X_/ && $fw ~ /^d_/)) { assegna(campo, "64", end) } else { assegna(campo, "211", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'servente' # else if (campo ~ /^servente_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^,_/ && $fw ~ /^a_/) { assegna(campo, "122", end) } else { if ($bw ~ /^le_/) { sub (/4;/, "", campo) sub (/6;/, "", campo) } else if ($bw ~ /^vostra_/) { sub (/4;/, "", campo) sub (/;7/, "", campo) } else { sub (/;5/, "", campo) sub (/;7/, "", campo) } assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'piacere' # else if (campo ~ /^piacere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^lor_/ || $bw ~ /^a_/ || $bw ~ /^da_/ || $bw ~ /^dovesse_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'piacer' # else if (campo ~ /^piacer_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Dio_/ || $fw ~ /^öne_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'mangiare' # else if (campo ~ /^mangiare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^in_/ || $bw ~ /^troppo_/ || $bw ~ /^dato_/ || $bw ~ /,6[01],/ || $bw ~ /,33,/ || ($bw ~ /^dare_/ && $fw ~ /,e,/)) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'bere' # else if (campo ~ /^bere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^di_/ || $bw ~ /^o_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'andar' # else if (campo ~ /^andar_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/) { assegna(campo, "20", end) } else if ($fw ~ /^öne_/ || $fw ~ /^ösi_/) { assegna(campo, "113", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'andare' # else if (campo ~ /^andare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /,60,/ && $bw !~ /^öllo_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'andassi' # else if (campo ~ /^andassi_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^o_/) { sub (/;3/, "", campo) print campo } else { sub (/2;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'andate' # else if (campo ~ /^andate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^pensosi_/ || $bw ~ /^Voi_/ || $fw ~ /^caendo_/) { assegna(campo, "111", end) } else if ($bw ~ /^Or_/ || $bw ~ /^gire_/) { assegna(campo, "118", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'chiedere' # else if (campo ~ /^chiedere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'imaginare' # else if (campo ~ /^imaginare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /,60,/ || $bw ~ /^fallace_/ || $bw ~ /^vano_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'immagina' # else if (campo ~ /^immagina_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^uomo_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'imper•' # else if (campo ~ /^imper•_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^anni_/) { assegna(campo, "113", end) } else if ($bw ~ /^et_/) { assegna(campo, "47", end) } else { assegna(campo, "45", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'intendi' # else if (campo ~ /^intendi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^t'_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'leva' # else if (campo ~ /^leva_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^da_/ || $fw ~ /^un_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'morire' # else if (campo ~ /^morire_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'move' # else if (campo ~ /^move_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^com'_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ragionar' # else if (campo ~ /^ragionar_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^d'_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sapere' # else if (campo ~ /^sapere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ && $bw !~ /^ölo_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'sapesse' # else if (campo ~ /^sapesse_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'spendere' # else if (campo ~ /^spendere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw ~ /^poco_/ || $bw ~ /^troppo_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'toccare' # else if (campo ~ /^toccare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,/ || $bw !~ /^öla_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'venia' # else if (campo ~ /^venia_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^dicendo_/ || $fw ~ /^lontano_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'venire' # else if (campo ~ /^venire_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,33,/ || $bw ~ /^öl_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di verbi all'infinito ambigui con nome # else if ((campo ~ /^chiedere_/ || campo ~ /^donneare_/ || campo ~ /^dormire_/ || campo ~ /^durare_/ || campo ~ /^errare_/ || campo ~ /^gridare_/ || campo ~ /^guadagnare_/ || campo ~ /^imaginar_/ || campo ~ /^lamentare_/ || campo ~ /^lavorare_/ || campo ~ /^levare_/ || campo ~ /^medicare_/ || campo ~ /^mirare_/ || campo ~ /^morir_/ || campo ~ /^nascondere_/ || campo ~ /^'ngenerare_/ || campo ~ /^odorare_/ || campo ~ /^ordinare_/ || campo ~ /^partire_/ || campo ~ /^partir_/ || campo ~ /^passare_/ || campo ~ /^perdonare_/ || campo ~ /^piangere_/ || campo ~ /^ragionare_/ || campo ~ /^salutare_/ || campo ~ /^saporare_/ || campo ~ /^servire_/ || campo ~ /^soffrire_/ || campo ~ /^salutare_/ || campo ~ /^sonare_/ || campo ~ /^spender_/ || campo ~ /^tacere_/ || campo ~ /^tremare_/ || campo ~ /^uscire_/ || campo ~ /^vantare_/ || campo ~ /^vestire_/) && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /,6[01],/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'fare' # else if (campo ~ /^fare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if (($bw ~ /^'n_/ && $fw ~ /^e_/) || ($bbw ~ /^de_/ && $bw ~ /^öl_/ && $fw ~ /^,_/)) { assegna(campo, "20", end) } else if ($fw ~ /^ö/) { assegna(campo, "114", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'disfare' # else if (campo ~ /^disfare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bw ~ /^in_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'questioni' # else if (campo ~ /^questioni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ssi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rinchiuse' # else if (campo ~ /^rinchiuse_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^donne_/ || $bw ~ /^o_/) { assegna(campo, "26", end) } else if ($bw ~ /^cum_/) { assegna(campo, "20", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ragioni' # else if (campo ~ /^ragioni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^poi_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'raccomanda' # else if (campo ~ /^raccomanda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ö/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'racomandati' # else if (campo ~ /^racomandati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw !~ /,212,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rasembra' # else if (campo ~ /^rasembra_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ && $fw ~ /^vile_/) { assegna(campo, "rasembrare", end) } else { assegna(campo, "rassembrare", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'raunata' # else if (campo ~ /^raunata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^la_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'rechi' # else if (campo ~ /^rechi_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { sub (/;3/, "", campo) print campo } else { sub (/2;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'regno' # else if (campo ~ /^regno_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'renduta' # else if (campo ~ /^renduta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^a_/ && $fw ~ /^di_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Richiamo' # else if (campo ~ /^Richiamo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^össi_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ricordi' # else if (campo ~ /^ricordi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti/ || $fw ~ /^öti/) { assegna(campo, "118", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'riguardo' # else if (campo ~ /^riguardo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^maú_/) { assegna(campo, "20", end) } else if ($fw ~ /^quando_/) { assegna(campo, "111", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rimandate' # else if (campo ~ /^rimandate_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^avrete_/) { assegna(campo, "123", end) } else if ($bw ~ /^cci_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'riso' # else if (campo ~ /^riso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^av‰a_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rispondea' # else if (campo ~ /^rispondea_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti/ || $fw ~ /^loro/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rispondi' # else if (campo ~ /^rispondi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^volentieri/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ristoro' # else if (campo ~ /^ristoro_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^per_/) { assegna(campo, "20", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'ritorno' # else if (campo ~ /^ritorno_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^fa_/ || $bw ~ /^crudel_/ || $bw ~ /,33,/) { assegna(campo, "20", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rivinta' # else if (campo ~ /^rivinta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rivolta' # else if (campo ~ /^rivolta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^altra_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rotto' # else if (campo ~ /^rotto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^vetro_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'rubello' # else if (campo ~ /^rubello_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^suo_/ || $bw ~ /^ogne_/) { assegna(campo, "20", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sa'' # else if (campo ~ /^sa'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^Iacopo_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sale' # else if (campo ~ /^sale_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^via_/ || $bw ~ /^pensero_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'saluto' # else if (campo ~ /^saluto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cima_/) { assegna(campo, "123", end) } else if ($fw ~ /^ö/) { assegna(campo, "113", end) } else if ($bw ~ /^ti_/ || $bw ~ /^parte_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'salva' # else if (campo ~ /^salva_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "111", end) } else { assegna(campo, "56", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sana' # else if (campo ~ /^sana_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^'nfermi_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sanato' # else if (campo ~ /^sanato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^di_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sappia' # else if (campo ~ /^sappia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ti_/) { assegna(campo, "118", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sappi' # else if (campo ~ /^sappi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ch[e']_/ && $bw !~ /^che_/) { assegna(campo, "118", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sappie' # else if (campo ~ /^sappie_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Et_/ || $bw ~ /^e_/ || $bw ~ /^tu_/) { assegna(campo, "118", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'saputa' # else if (campo ~ /^saputa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'saputo' # else if (campo ~ /^saputo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^molto_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sarai' # else if (campo ~ /^sarai_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($aw ~ /^a_/) { assegna(campo, "114", end) } else { assegna(campo, "214", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'satollo' # else if (campo ~ /^satollo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^össi_/) { assegna(campo, "113", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'saver' # else if (campo ~ /^saver_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^gran_/ || $bw ~ /^di_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'savere' # else if (campo ~ /^savere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^certanza_/ || $bw ~ /^d‚i_/ || $bw ~ /^övi_/) { assegna(campo, "121", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'scampa' # else if (campo ~ /^scampa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tua_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sconfitta' # else if (campo ~ /^sconfitta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sconfitti' # else if (campo ~ /^sconfitti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Firenze_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'scritta' # else if (campo ~ /^scritta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^in_/ || $bw ~ /^di_/ || $bw ~ /^senza_/ || $bw ~ /^ora_/ || $bw ~ /,6[01],/ || $fw ~ /^niuna_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'scritte' # else if (campo ~ /^scritte_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^di_/ || $bw ~ /^antiche_/ || $bw ~ /^quelle_/ || $bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'scritti' # else if (campo ~ /^scritti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^altri_/ || $bw ~ /,60,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'scritto' # else if (campo ~ /^scritto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^me_/ || $bw ~ /^di_/ || $bw ~ /,60,0,4,6,/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'segnare' # else if (campo ~ /^segnare_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^suo_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'seguente' # else if (campo ~ /^seguente_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^il_/) { assegna(campo, "20", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'seguito' # else if (campo ~ /^seguito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^avrete_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'semente' # else if (campo ~ /^semente_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^altro_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sentenze' # else if (campo ~ /^sentenze_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ben_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'sento' # else if (campo ~ /^sento_/) { nf++ if ($bw ~ /^Non_/ || $fw ~ /^gioia_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'serrata' # else if (campo ~ /^serrata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^o_/) { assegna(campo, "26", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'serva' # else if (campo ~ /^serva_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^cos_/) { assegna(campo, "111", end) } else if ($fw ~ /^de_/) { assegna(campo, "20", end) } else { assegna(campo, "115", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'servi' # else if (campo ~ /^servi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ma_/ || $bw ~ /^\&\[s\&\]i_/) { assegna(campo, "115", end) } else if ($fw ~ /^ölo_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'servo' # else if (campo ~ /^servo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölli_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sete' # else if (campo ~ /^sete_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^voi_/) { assegna(campo, "211", end) } else if ($bw ~ /^d~_/) { assegna(campo, "64", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sforzo' # else if (campo ~ /^sforzo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sguardo' # else if (campo ~ /^sguardo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^la_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "si'" # else if (campo ~ /^si'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/) { assegna(campo, "218", end) } else { assegna(campo, "215", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'so' # else if (campo ~ /^so_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölle_/) { assegna(campo, "211", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "so'" # else if (campo ~ /^so'_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^adornata_/) { sub (/;3/, "", campo) sub (/;7/, "", campo) print campo } else { sub (/1;/, "", campo) sub (/6;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sollicito' # else if (campo ~ /^sollicito_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^diviene_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'son' # else if (campo ~ /^son_/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ ffw = fw ffw++ bbw = bw bbw-- if ($fw ~ /^certa_/ || $fw ~ /^s¡_/ || $fw ~ /^quelli_/ || ($bw ~ /^mi_/ && $fw ~ /^sanza_/)) { sub (/;3/, "", campo) sub (/;7/, "", campo) print campo } else if ($bw ~ /^bielt…_/ || $bw ~ /^[Cc]he_/ || $bw ~ /^ch‚_/ || $bw ~ /^ci•_/ || $bw ~ /^li_/ || $bw ~ /^ma_/ || $bw ~ /^manti_/ || $bw ~ /^modo_/ || $bw ~ /^pochi_/ || $bw ~ /^Primeramente_/ || $bw ~ /^spezie_/ || $bw ~ /^sue_/ || $bw ~ /^tutti_/ || $bw ~ /^,_/ || $fw ~ /^buoni_/ || $fw ~ /^coloro_/ || $fw ~ /^cosi_/ || $fw ~ /^cotesti_/ || $fw ~ /^degni_/ || $fw ~ /^diverse_/ || $fw ~ /^dogli'_/ || $fw ~ /^gli_/ || $fw ~ /^larghi_/ || $fw ~ /^l[ei]_/ || $fw ~ /^öne_/ || $fw ~ /^pochi_/ || $fw ~ /^quelle_/ || $fw ~ /^quest[ei]_/ || $fw ~ /^sotto_/ || $fw ~ /^tutt[ei]_/ || $fw ~ /^talor_/ || $fw ~ /^,_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) print campo } else if (($fw ~ /,123,/ && $fw ~ /,6,/) || ($ffw ~ /,123,/ && $ffw ~ /,6,/) || ($bw ~ /,123,/ && $bw ~ /,6,/) || ($bbw ~ /,123,/ && $bbw ~ /,6,/)) { sub (/;3/, "", campo) sub (/;7/, "", campo) print campo } else if (($fw ~ /,123,/ && $fw ~ /,7,/) || ($ffw ~ /,[12]23,/ && $ffw ~ /,7,/) || ($bw ~ /,123,/ && $bw ~ /,7,/) || ($bbw ~ /,123,/ && $bbw ~ /,7,/)) { sub (/1;/, "", campo) sub (/6;/, "", campo) print campo } else if (($bw ~ /,6,/ && $bw !~ /\);\(/ && ($bw ~ /,37,/ || $bw ~ /,26,/)) || ($bbw ~ /,6,/ && $bbw !~ /\);\(/ && $bbw ~ /,37,/) || ($fw ~ /,6,/ && $fw !~ /\);\(/ && ($fw ~ /,37,/ || $fw ~ /,26,/ || $fw ~ /,60,/))) { sub (/;3/, "", campo) sub (/;7/, "", campo) print campo } else if (($bw ~ /,7,/ && $bw !~ /\);\(/ && ($bw ~ /,20,/ || $bw ~ /,26,/)) || ($fw ~ /,7,/ && $fw !~ /\);\(/ && ($fw ~ /,20,/ || $fw ~ /,26,/ || $fw ~ /,60,/)) || $fw ~ /,64,/) { sub (/1;/, "", campo) sub (/6;/, "", campo) print campo } else print campo } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'sono' # else if (campo ~ /^sono_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^un_/ && $fw ~ /^di_/) || $bw ~ /^dolze_/) { assegna(campo, "20", end) } else if (($bw ~ /,1,4;5,6,/ && $bw !~ /,7,/ && $bw !~ /,64,/ && ($bw ~ /,37,/ || $bw ~ /,38,/)) || ($fw ~ /,[01],.,6,/ && $fw !~ /,7,/ && ($fw ~ /,37,/ || $fw ~ /,38,/ || $fw ~ /,123,/ || $fw ~ /lem=uno,64,/)) && $bw !~ /^fiumi_/) { sub (/;3/, "", campo) sub (/;7/, "", campo) assegna(campo, "211", end) } else if (($bw ~ /,7,/ && ($bw ~ /,37,/ || $bw ~ /,38,/ || $bw ~ /,123,/ || ($bw ~ /,64,/ && $bw !~ /lem=uno,/))) || ($fw ~ /,7,/ && $fw !~ /,6,/ && ($fw ~ /,37,/ || $fw ~ /,38,/ || $fw ~ /,123,/ || ($fw ~ /,64,/ && $fw !~ /lem=uno,/)))) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if ($bw ~ /lem=che,/ && $fw !~ /,6,/ && $fw !~ /,37,/ && $fw !~ /,38,/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if (($fw ~ /,64,/ && $fw !~ /lem=uno,/) || (($bw ~ /,39,/ || $bw ~ /lem=che,/ || $bw ~ /lem=pi—,/) && ($fw ~ /,7,/ && $fw !~ /,6,/ && $fw !~ /,39,/ && $fw !~ /lem=che,/ && $fw !~ /lem=pi—,/))) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if ($bw ~ /,7,/ && $bw !~ /,6,/ && $bw !~ /,39,/ && $bw !~ /lem=che,/ && $bw !~ /lem=pi—,/ && ($fw ~ /,39,/ || $fw ~ /lem=che,/ || $fw ~ /lem=pi—,/)) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if ($bw ~ /,6,/ && $fw ~ /,7,/ && $fw ~ /^i_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if (($bw ~ /,7,/ && $bw !~ /,6,/ && $bw !~ /,39,/ && $bw !~ /lem=che,/ && $bw !~ /lem=pi—/ && $fw !~ /,6,/) || $bw ~ /,64,/ || ($fw ~ /,7,/ && $fw !~ /,6,/ && $fw !~ /,39,/ && $fw !~ /lem=che,/ && $fw !~ /lem=pi—/ && $bw !~ /,6,/) || $fw ~ /,64,/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else { bbw = bw bbw-- bbww = bbw bbww-- ffw = fw ffw++ if ($bw ~ /lem=io,/ || $fw ~ /lem=io,/ || ($fw ~ /lem=pi—/ && $ffw ~ /^beffato_/) || (($bw ~ /lem=non,/ || $bw ~ /,7,/) && $bbw ~ /lem=io,/) || $bbww ~ /lem=io,/ || ($bw ~ /^ci_/ && $fw ~ /^se_/ && $ffw ~ /^non_/)) { sub (/;3/, "", campo) sub (/;7/, "", campo) assegna(campo, "211", end) } else if (($bw ~ /,7,/ && $bbw ~ /,7,/) || ($fw ~ /,7,/ && $ffw ~ /,7,/) || ($bw ~ /,7,/ && $bw !~ /,6,/) || ($fw ~ /,7,/ && $fw !~ /,6,/) || ($ffw ~ /,7,/ && $fw !~ /,6,/) && $bw !~ /lem=pi—/ && $fw !~ /lem=pi—/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if (($fw ~ /,7,/ || $ffw ~ /,7,/) && $fw !~ /^certa_/ && $ffw !~ /^certa_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if (($bw ~ /,7,/ || $bbw ~ /,7,/ || $bbw ~ /^e_/) && $fw !~ /^presso_/ && $fw !~ /^matto_/ && $bw !~ /^mercatante_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if (($fw ~ /^a_/ && $ffw ~ /^petto_/) || ($bbw ~ /^sa'_/ && $bw ~ /^che_/ && $fw ~ /^di_/) || ($fw ~ /^di_/ && $ffw ~ /^cotesta_/) || ($bbw ~ /^che_/ && $bw ~ /^non_/ && $fw ~ /^,_/) || ($fw ~ /^in_/ && $ffw ~ /^lei_/) || ($bbw ~ /^dicere_/ && $bw ~ /^ose_/) || ($bw ~ /^e_/ && $fw ~ /^in_/ && $ffw ~ /^quello_/) || ($bw ~ /^non_/ && $fw ~ /^da_/) || $bw ~ /^ci•_/ || $fw ~ /^dogli'_/) { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } else if (($bw ~ /^,_/ && $fw ~ /^s¡_/ && $ffw ~ /^malamente_/) || ($bw ~ /^tanto_/ && $fw ~ /^forfatto_/) || ($bw ~ /^mercatante_/ && $fw ~ /^molto_/) || ($bw ~ /^s_/ && $fw ~ /^;_/) || ($bw ~ /^che_/ && $fw ~ /^astioso_/ && $ffw ~ /^di_/) || ($bw ~ /^vostro_/ && $fw ~ /^¯_/) || ($bw ~ /^ne_/ && $fw ~ /^potuta_/ && $ffw ~ /^avedere_/) || ($bw ~ /^anzi_/ && $fw ~ /^molgle_/) || ($bw ~ /^le_/ && $fw ~ /^presso_/ && $ffw ~ /^;_/) || ($bw ~ /^quando_/ && $fw ~ /^di_/ && $ffw ~ /^te_/) || ($bw ~ /^e_/ && $fw ~ /^quasi_/ && $ffw ~ /^com'_/) || ($bw ~ /^non_/ && $fw ~ /^simigliante_/ && $ffw ~ /^._/) || ($bw ~ /^ne_/ && $fw ~ /^in_/ && $ffw ~ /^periglio_/) || ($bw ~ /^non_/ && $fw ~ /^utile_/ && $ffw ~ /^a_/) || ($bw ~ /^ne_/ && $fw ~ /^pulito_/ && $ffw ~ /^,_/) || ($bw ~ /^e_/ && $fw ~ /^certa_/ && $ffw ~ /^che_/) || ($bw ~ /^mi_/ && $fw ~ /^sanza_/ && $ffw ~ /^divisa_/) || ($bw ~ /^non_/ && $fw ~ /^n‚_/ && $ffw ~ /^giudeo_/) || ($bw ~ /^ne_/ && $fw ~ /^ben_/ && $ffw ~ /^dengno_/) || ($bw ~ /^non_/ && $fw ~ /^s¡_/ && $ffw ~ /^savio_/) || ($bw ~ /^non_/ && $fw ~ /^matto_/ && $ffw ~ /^¯_/) || ($bw ~ /^e_/ && $fw ~ /^öne_/ && $ffw ~ /^ben_/) || ($bw ~ /^non_/ && $fw ~ /^simigliante_/ && $ffw ~ /^._/) || ($bw ~ /^e_/ && $fw ~ /^re_/ && $ffw ~ /^;_/)) { sub (/;3/, "", campo) sub (/;7/, "", campo) assegna(campo, "211", end) } else { sub (/1;/, "", campo) sub (/6;/, "", campo) assegna(campo, "211", end) } } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'soperchio' # else if (campo ~ /^soperchio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölli_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sospir'' # else if (campo ~ /^sospir'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^ne_/ && $fw ~ /^Amore_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sospiri' # else if (campo ~ /^sospiri_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/ || $bw ~ /^volta_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sozza' # else if (campo ~ /^sozza_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'sozzi' # else if (campo ~ /^sozzi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'spavento' # else if (campo ~ /^spavento_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^lo_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'spera' # else if (campo ~ /^spera_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^sua_/ || $bw ~ /^la_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'spese' # else if (campo ~ /^spese_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'spoglia' # else if (campo ~ /^spoglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^anima_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'stata' # else if (campo ~ /^stata_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öe_/ && $fw ~ /^una_/) { assegna(campo, "123", end) } else { assegna(campo, "223", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'state' # else if (campo ~ /^state_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^di_/ && $fw ~ /^._/) || ($bw ~ /^la_/ && $fw ~ /^dond'_/)) { assegna(campo, "20", end) } else { assegna(campo, "223", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'stati' # else if (campo ~ /^stati_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^quattro_/ && $fw ~ /^son_/) || ($bw ~ /^due_/ && $fw ~ /^o_/)) { assegna(campo, "20", end) } else { assegna(campo, "223", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'stato' # else if (campo ~ /^stato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^era_/ && $fw ~ /^alquanto_/) || ($bw ~ /^fu_/ && $fw ~ /^quanto_/) || ($bw ~ /^,_/ && $fw ~ /^con_/)) { assegna(campo, "123", end) } else if ($bw ~ /lem=essere/ || ($bw ~ /^alquanto_/ && $fw ~ /^me_/) || ($bw ~ /^,_/ && $fw ~ /^gran_/)) { assegna(campo, "223", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'stesse' # else if (campo ~ /^stesse_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^elle_/ || $bw ~ /^s‚_/) { assegna(campo, "30", end) } else { assegna(campo, "116", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'stessi' # else if (campo ~ /^stessi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^tu_/) { assegna(campo, "116", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'strana' # else if (campo ~ /^strana_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^taglia_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'studio' # else if (campo ~ /^studio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^io_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'taglia' # else if (campo ~ /^taglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^strana_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tarda' # else if (campo ~ /^tarda_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^Š_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tardo' # else if (campo ~ /^tardo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^non_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tema' # else if (campo ~ /^tema_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^figliuolo_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tene' # else if (campo ~ /^tene_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ölle_/) { assegna(campo, "121", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tieni' # else if (campo ~ /^tieni_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ bbw = bw bbw-- if ($bbw ~ /^se_/ || $bw ~ /^'l_/ || $fw ~ /^la_/) { assegna(campo, "111", end) } else { assegna(campo, "118", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tiro' # else if (campo ~ /^tiro_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/ && $fw ~ /^e_/) { assegna(campo, "20", end) } else { assegna(campo, "113", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'togli' # else if (campo ~ /^togli_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^un_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tolta' # else if (campo ~ /^tolta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^palese_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'torno' # else if (campo ~ /^torno_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öe_/) { assegna(campo, "113", end) } else if ($bw ~ /^volsi_/) { assegna(campo, "45", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'torre' # else if (campo ~ /^torre_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/ || $bw ~ /^bella_/ || $bw ~ /,60,0,5,6,/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'torto' # else if (campo ~ /^torto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^'l_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tratta' # else if (campo ~ /^tratta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^costa_/ || $bw ~ /^cosa_/) { assegna(campo, "123", end) } else if ($bw ~ /^questa_/) { assegna(campo, "20", end) } else if ($bw ~ /^tu_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'trattato' # else if (campo ~ /^trattato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^indietro_/ || $fw ~ /^inn_/ || $bw ~ /^e_/ || $bw ~ /^intento_/ || $bw ~ /^hai_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tratti' # else if (campo ~ /^tratti_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^libro_/) { assegna(campo, "115", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'tratto' # else if (campo ~ /^tratto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/ || $bw ~ /^primo_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'travaglia' # else if (campo ~ /^travaglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/ || $bw ~ /^öne_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'travaglio' # else if (campo ~ /^travaglio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'turba' # else if (campo ~ /^turba_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^vidi_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'usa' # else if (campo ~ /^usa_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^coloro_/ || $fw ~ /^ölo_/) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'usato' # else if (campo ~ /^usato_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^fosse_/ || $bw ~ /^stato_/ || $bw ~ /^avesse_/) { assegna(campo, "123", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna della forma 'uscia' # else if (campo ~ /^uscia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^l'_/) { assegna(campo, "20", end) } else { assegna(campo, "112", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna di 'usco' # else if (campo ~ /^usco_/) { nf++ if ($bw ~ /^io_/ || $fw ~ /^deú_/) { sub (/;3/, "", campo) print campo } else { sub (/1;/, "", campo) print campo } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'uscio' # else if (campo ~ /^uscio_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^fuori_/) { assegna(campo, "113", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'va' # else if (campo ~ /^va_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^or_/ || $bw ~ /^onde_/ || $bw ~ /^:_/ || $bw ~ /^tu_/ || $fw ~ /^ött[ei]_/ || ($bw ~ /^e_/ && $fw ~ /^a_/)) { assegna(campo, "118", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'valere' # else if (campo ~ /^valere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^un_/ || $bw ~ /^poco_/) { assegna(campo, "20", end) } else { assegna(campo, "121", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'veduta' # else if (campo ~ /^veduta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /lem=avere,/ || $bw ~ /^donna_/ || $fw ~ /^forma_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'vene' # else if (campo ~ /^vene_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^le_/) { assegna(campo, "20", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'venuta' # else if (campo ~ /^venuta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^la_/ || $bw ~ /^mala_/ || $bw ~ /^sua_/ || $bw ~ /^questa_/) { assegna(campo, "20", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'vergogna' # else if (campo ~ /^vergogna_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öti_/) { assegna(campo, "118", end) } else if ($bw ~ /^si_/ || $bw ~ /^ssi_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'verso' # else if (campo ~ /^verso_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^solo_/ || $fw ~ /^intese_/ || $bw ~ /^suo_/) { assegna(campo, "20", end) } else if ($bw ~ /^cor_/) { assegna(campo, "111", end) } else if ($fw ~ /^ölli_/) { assegna(campo, "113", end) } else { assegna(campo, "56", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'vesta' # else if (campo ~ /^vesta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^e_/) { assegna(campo, "115", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'veste' # else if (campo ~ /^veste_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^contrari_/) { assegna(campo, "111", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'Vinta' # else if (campo ~ /^Vinta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^öl_/) { assegna(campo, "21", end) } else { assegna(campo, "123", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'viva' # else if (campo ~ /^viva_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^che_/ || $bw ~ /^e_/) { sub (/1;2;/, "", campo) assegna(campo, "115", end) } else if ($bw ~ /^non_/ || $bw ~ /^io_/) { sub (/;2;3/, "", campo) assegna(campo, "115", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'vive' # else if (campo ~ /^vive_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^ragioni_/) { assegna(campo, "26", end) } else if ($bw ~ /^tu_/) { assegna(campo, "115", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna ed esterna di 'vivi' # else if (campo ~ /^vivi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^i_/ || $bw ~ /^ö'_/) { assegna(campo, "20", end) } else if ($bw ~ /^sono_/) { assegna(campo, "26", end) } else { assegna(campo, "111", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'vivo' # else if (campo ~ /^vivo_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^com'_/) { assegna(campo, "111", end) } else { assegna(campo, "26", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione interna e esterna di 'voglia' # else if (campo ~ /^voglia_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^öti_/ || $fw ~ /^gran_/ || $fw ~ /^ricorrere_/ || $fw ~ /^udire_/ || $bw ~ /^ella_/ || $bw ~ /^mondo_/ || $fw ~ /^intendere_/ || $bw ~ /^öl_/ || $bw ~ /^Non_/) { sub (/1;2;/, "", campo) assegna(campo, "315", end) } else if ($bw ~ /^io_/ || $bw ~ /^i'_/) { sub (/;2;3/, "", campo) assegna(campo, "315", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'voglie' # else if (campo ~ /^voglie_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^nove_/) { assegna(campo, "20", end) } else { assegna(campo, "315", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di "Vo'" # else if (campo ~ /^Vo'_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($fw ~ /^tu_/) { assegna(campo, "311", end) } else { assegna(campo, "37", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'voi' # else if (campo ~ /^voi_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if (($bw ~ /^or_/ && $fw ~ /^di_/) || ($bw ~ /^ti_/ && $fw ~ /^far_/) || ($bw ~ /^tutti_/ && $fw ~ /^fare_/) || ($bw ~ /^non_/ && $fw ~ /^parlare_/) || ($bw ~ /^non_/ && $fw ~ /^discovrir_/) || $bw ~ /^i'_/) { assegna(campo, "311", end) } else if ($bw ~ /^[Dd][aei]_/ || $bw ~ /^['i]n_/ || $bw ~ /^a_/ || $bw ~ /^con_/ || $bw ~ /^per_/ || $bw ~ /^apresso_/ || $bw ~ /^veder_/ || $bw ~ /^mira_/ || $bw ~ /^sar•_/ || $bw ~ /^fug¡ano_/ || $bw ~ /^prego_/ || $bw ~ /^reguardin_/ || $bw ~ /^formasse_/ || $fw ~ /^Virt£_/ || ($bw ~ /^[Ee]_/ && $fw ~ /^,_/)) { assegna(campo, "38", end) } else { assegna(campo, "37", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'voler' # else if (campo ~ /^voler_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,60,0,4,6,/ || $bw ~ /^tal_/) { assegna(campo, "20", end) } else { assegna(campo, "321", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'volere' # else if (campo ~ /^volere_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /,6[01],/ || $bw ~ /,33,/ || $bw ~ /^lor_/ || $bw ~ /^laido_/ || $bw ~ /^cui_/ || $bw ~ /^tal_/ || $bw ~ /^'n_/) { assegna(campo, "20", end) } else { assegna(campo, "321", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'volse' # else if (campo ~ /^volse_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^si_/ || $fw ~ /^li_/) { assegna(campo, "113", end) } else { assegna(campo, "313", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'volta' # else if (campo ~ /^volta_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^mar_/) { assegna(campo, "111", end) } else if ($bw ~ /^tenea_/ || $bw ~ /^coda_/ || $bw ~ /^ha_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } # (2) Regola vera e propria # # Regola per la disambiguazione esterna di 'volto' # else if (campo ~ /^volto_/ && campo ~ /\);\(/) { if (campo ~ /¾$/) end = "¾" else end = "" nf++ if ($bw ~ /^viso_/ || $fw ~ /^a_/) { assegna(campo, "123", end) } else { assegna(campo, "20", end) } } else { nf++ print campo } } }