\n",$fn);
ITER: while () {
$line = $_;
chomp($line);
$line =~ s/\s+/ /g; # remove multiple blanks in line
$line =~ s/\[\s+/\[/g; # take care of an odd case of parameter subscripting
$line =~ s/^\s+//g; # remove any leading blanks
$line =~ s/,$|\;$|\}$//; # remove any typical trailing chars
next ITER if ($line =~ m/^$/); # skip blank lines
if ( $line =~ m/Contents/) { # a block header line
if( $ready > 0 ) { printf("\n
\n"); }
$ready++;
printf("
\n\t
%s
\n",$line);
printf("\t
\n\t\t
Param name
\n\t\t
Current value
\n\t\t
Recommended value
\n\t
\n");
next ITER;
}
if ( ($line =~ m/place_holder/) || ($line =~ m/key_table/) ) { # ignore these lines
next ITER;
}
if ( $line =~ m/\*/ ) {
$line =~ s/\*//g;
($param, $val, $recom ) = split( / /,$line, 3);
printf("\t
\n\t\t
%s
\n", $param);
printf("\t\t
%s
\n\t\t
%s
\n\t
\n",$val,$recom);
last ITER if ($line =~ m/angle_table_offset/);
} else {
($param, $val) = split( / /,$line, 2);
printf("\t
\n\t\t
%s
\n\t\t
%s
\n\t\t
\n\t
\n",$param,$val);
last ITER if ($line =~ m/angle_table_offset/);
}
}
close INP;
printf("