version 1.33, 2001/07/27 18:15:04
|
version 1.34, 2001/08/22 21:04:58
|
Line 13 $rad2deg=180.0/$pi;
|
Line 13 $rad2deg=180.0/$pi;
|
$deg2rad=$pi/180.0; |
$deg2rad=$pi/180.0; |
|
|
sub caparesponse_check { |
sub caparesponse_check { |
my $answer=''; #done |
#not properly used yet: calc |
my $type=''; #done |
#not to be used: $ans_fmt |
|
my ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc) = |
|
eval $expr.';return ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc);'; |
|
|
my $tol_type=''; # gets it's value from whether tol has a % or not done |
my $tol_type=''; # gets it's value from whether tol has a % or not done |
my $tol=''; #done |
|
my $sig=''; #done lowerbnd,upperbnd |
|
my $sig_lbound=''; #done |
my $sig_lbound=''; #done |
my $sig_ubound=''; #done |
my $sig_ubound=''; #done |
my $ans_fmt=''; |
|
my $unit=''; #done |
|
my $calc=''; |
|
my ($response,$expr)=@_; |
my ($response,$expr)=@_; |
|
|
|
|
($answer,$type,$tol,$sig,$ans_fmt, |
|
$unit,$calc) = eval $expr.';return ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc);'; |
|
#type's definitons come from capaParser.h |
#type's definitons come from capaParser.h |
my $message=''; |
my $message=''; |
#remove leading and trailing whitespace |
#remove leading and trailing whitespace |
Line 88 sub caparesponse_check {
|
Line 84 sub caparesponse_check {
|
elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
|
|
return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br /> type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br />$message$expr"; |
return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br /> type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|<br />$message$expr"; |
} |
} |
|
|
sub caparesponse_check_list { |
sub caparesponse_check_list { |