while ($file =~/<render([^>]*)>/gi)
	  {
	  		 my $atri=$1;
		     $pre = $`;  $ln= $pre =~s/\n/\n/g; ++$ln;
				 ($pre=~/\n$/)?( $col=0):($col = length((split(/\n/,$pre))[-1]));
				 %attributes=('fo:font-style'=>["\"normal\"", "\"italic\"", "\"oblique\"", "\"backslant\"", "\"inherit\""],
				 'fo:fontvariant'=>["\"normal\"", "\"small-caps\"", "\"inherit\""],
				 'fo:fontweight'=>["\"normal\"", "\"bold\"", "\"bolder\"", "\"lighter\"", "\"inherit\"", "\"100\"", "\"200\"", "\"300\"", "\"400\"", "\"500\"", "\"600\"", "\"700\"", "\"800\"", "\"900\""],
				 'fo:visibility'=>["\"visible\"", "\"hidden\"", "\"collapse\"", "\"inherit\""]);
				 @a= split(/ /,$atri);
				 %are=map{split(/=/,$_)}@a;
				 
		     for (keys (%are))
		     {
		     	$k=$_;
		     	if ($k=~/(fo:font\-style|fo:fontvariant|fo:fontweight|fo:visibility)/)
		     	{
		     	while($i != 14){
		     	push(@app,$attributes{$_}->[$i]);
		     	$i++;
		      }
		      @abc=grep(/$are{$k}/, @app);
		     	print FOUT "\n\n(".++$Errno.") ERR :Line ".($ln)." Col ".(++$col)."\n\tCheck the render attribute $k=$are{$k}.\n" if ($abc[0] eq '');	
		      }
		     }
    }