Post by *GB*Entrambe queste innovazioni cessarono sia dal basso che dall'alto. Dal
basso, quando i villici si resero conto che, parlando con forestieri di
altre regioni, nessuno capiva che cavolo volesse dire "enno". Dall'alto,
poiché i dotti (preti, letterati, notai, medici) non gradivano l'uso di
forme volgari così dissimili dal latino ("est, sunt").
provate con questo declinatore assolutamente regolare :-)
awk -f verbo.awk
essere
^D
BEGIN { n["a"]="I" ; n["e"]="II" ; n["i"]="III" ;
k=split("io.. tu.. esso noi. voi. loro",pers) ;
indpres["a"]="o i a iamo ate ano" ;
indpres["e"]="o i e iamo ete ono" ;
indpres["i"]="o i e iamo ite ono" ;
indimpe["a"]="avo avi ava avamo avate avano" ;
indimpe["e"]="evo evi eva evamo evate evano" ;
indimpe["i"]="ivo ivi iva ivamo ivate ivano" ;
indfut["a"]="ero' erai era' eremo erete eranno" ;
indfut["e"]="ero' erai era' eremo erete eranno" ;
indfut["i"]="iro' irai ira' iremo irete iranno" ;
indrem["a"]="ai asti o' ammo aste arono" ;
indrem["e"]="ei esti e' emmo este ettero" ;
indrem["i"]="ii isti i' immo iste irono" ;
cngpre["a"]="i i i iamo iate ino" ;
cngpre["e"]="a a a iamo iate ano" ;
cngpre["i"]="a a a iamo iate ano" ;
cngimp["a"]="assi assi assi assimo aste assero" ;
cngimp["e"]="essi essi essi essimo este essero" ;
cngimp["i"]="issi issi issi issimo iste issero" ;
condiz["a"]="erei eresti erebbe eremmo ereste erebbero" ;
condiz["e"]="erei eresti erebbe eremmo ereste erebbero" ;
condiz["i"]="irei iresti irebbe iremmo ireste irebbero" ;
ppre["a"]="ante" ; ppre["e"]="ente" ; ppre["i"]="ente" ;
geru["a"]="ando" ; geru["e"]="endo" ; geru["i"]="endo" ;
ppas["a"]="ato" ; ppas["e"]="uto" ; ppas["i"]="ito" ;
}
{ l=length($0) ;
stem=substr($0,1,l-3) ;
con=substr($0,l-2,1) ; print n[con]," coniugazione" ;
print "\nindicativo presente" ;
k=split(indpres[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\nindicativo imperfetto" ;
k=split(indimpe[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\nindicativo futuro" ;
k=split(indfut[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\nindicativo remoto" ;
k=split(indrem[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\ncongiuntivo presente" ;
k=split(cngpre[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\ncongiuntivo imperfetto" ;
k=split(cngimp[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\ncondizionale presente" ;
k=split(condiz[con],verb) ;
for (i=1; i<=6 ;i++) print pers[i],stem verb[i] ;
print "\nparticipio presente : " stem ppre[con] ;
print "participio passato : " stem ppas[con] ;
print "gerundio : " stem geru[con] ;
}