Lines Matching refs:val
385 my ( $val ) = @_;
387 my $result = $variables{$val};
390 return $val if ( $val =~ /^[0-9-]+$/ );
392 error( "Unknown variable '$val'." );
395 return $val;
548 my $val = value( $p1 );
549 if ( $val =~ /^[0-9-]+$/ ) {
550 $p1 = sprintf( "%.0f", ( value( 'w' ) * $val / 100000 ) );
555 my $val = value( ( value( $p1 ) eq value( $p3 ) )? $p2: $p1 );
556 if ( $val =~ /^@([0-9]+)$/ ) {
560 insert_formula( $name, "val $val" );
921 my $val = sprintf( "%.0f", ( 21600 * $1 ) / 100000 );
923 $variables{$adj_no} = $val;
926 $adjust = $val;
929 $adjust = "$val,$adjust";