Example #1
0
input_test_val type_test(const octave_value&  to_be_test, data_type reference_type )
{   
    input_test_val A = input_test_val();
    A.value = true;
    switch( reference_type )
    {
        case real_scalar:
             A.value = !to_be_test.is_real_scalar(); 
             if(A.value)      
                 A.error_code="Argument isn't real scalar";
        break;
        case complex_scalar:
             A.value = !(to_be_test.is_complex_scalar() );
             if(A.value) 
                 A.error_code="Argument isn't complex scalar";
        break;
        case complex_array:
	     A.value = !(to_be_test.is_complex_type() && (to_be_test.rows() > 1 || to_be_test.columns() > 1) );
             if(A.value)
                 A.error_code="Argument isn't complex array";
        break;
        case real_array:  
             A.value = !(to_be_test.is_real_type() && (to_be_test.rows() > 1 || to_be_test.columns() > 1) );
             if(A.value)
                 A.error_code="Argument isn't real array";
        break;
    }

    return A;
}
Example #2
0
float64_t COctaveInterface::get_real()
{
	const octave_value f=get_arg_increment();
	if (!f.is_real_scalar())
		SG_ERROR("Expected Scalar Float as argument %d\n", m_rhs_counter);

	return f.double_value();
}
Example #3
0
bool COctaveInterface::get_bool()
{
	const octave_value b=get_arg_increment();
	if (b.is_bool_scalar())
		return b.bool_value();
	else if (b.is_real_scalar())
		return (b.double_value()!=0);
	else
		SG_ERROR("Expected Scalar Boolean as argument %d\n", m_rhs_counter);

	return false;
}
Example #4
0
int32_t COctaveInterface::get_int()
{
	const octave_value i=get_arg_increment();
	if (!i.is_real_scalar())
		SG_ERROR("Expected Scalar Integer as argument %d\n", m_rhs_counter);

	double s=i.double_value();
	if (s-CMath::floor(s)!=0)
		SG_ERROR("Expected Integer as argument %d\n", m_rhs_counter);

	return int32_t(s);
}