#
# Script di verifica dei token nel testo
#
{
count ++
nf = 0
tf = 0
campi = NF
while(nf <= campi)
	{
      nf++
      if ($nf ~ /\#/ || $nf ~ /\@/ || $nf ~ /\%/ || $nf ~ /\$/ || $nf ~ /\œ/)
      	continue
      	# omette le stringhe tra # e @
		#
	s = split($nf,fd,"_")
	token = fd[1]
      tab[nf]=token
	}
if ((getline < "text_end") > 0) 
	{
	campi2 = NF
	if (campi == campi2)
		next
	else
		{
		while(tf <= campi2)
			{
		      tf++
		      if ($tf ~ /\#/ || $tf ~ /\@/ || $tf ~ /\%/ || $tf ~ /\$/ || $tf ~ /\œ/)
     			 	continue
		     	 	# omette le stringhe tra # e @
				#
 			sp = split($tf,cp,"_")
			part = cp[1]
			if (part == tab[tf])
				continue
			else
				{
				print "token *" tab[tf] "* mancante alla riga " count " in posizione " tf
				rl = tf
				while (rl <= campi)
					{
					fw = rl
					fw++
					tab[rl] = tab[fw]
					rl++
					}
				tf--
				continue
				}
			}
		}
	}
}