#######################################
# T Testi.

T.eliminacommenti = function (x)
T.sost('#.*(\n|$)','',x)

T.eliminarighevuote = function (x)
T.sost('^ *(\n|$)','',x)

T.sost = function (e,q,x)
{ris=''; repeat
{i=regexpr(e,x,perl=T)
if (i<0) return(paste(ris,x)); j=attr(i,'match.length')
ris=paste(ris,substring(x,1,i-1),q,sep='')
x=substring(x,i+j)}}

# Il risultato e' una lista
# di parole.
T.spezza = function (x,esp)
{strsplit(x,esp,perl=T)[[1]]}