Function parse_bound_args

std/src/arrays.rs:33–67

Extracts array dimensions and the dimension number from args passed to `LBOUND` or `UBOUND`.

(scope: &Scope<'_>)

/// Extracts array dimensions and the dimension number from args passed to `LBOUND` or `UBOUND`.
fn parse_bound_args(scope: &Scope<'_>) -> CallResult<(Vec<usize>, usize)> {
    let array = scope.get_ref(0);
    let dimensions = array.array_dimensions();

    if scope.nargs() == 2 {
        let i = scope.get_integer(1);

        if i < 0 {
            return Err(CallError::Syntax(
                scope.get_pos(1),
                format!("Dimension {} must be positive", i),
            ));
        }
        let i = i as usize;

        if i > dimensions.len() {
            return Err(CallError::Syntax(
                scope.get_pos(1),
                format!("Array has only {} dimensions but asked for {}", dimensions.len(), i,),
            ));
        }
        Ok((dimensions.to_vec(), i))
    } else {
        debug_assert_eq!(1, scope.nargs());

        if dimensions.len() > 1 {
            return Err(CallError::Syntax(
                scope.get_pos(0),
                "Requires a dimension for multidimensional arrays".to_owned(),
            ));
        }

        Ok((dimensions.to_vec(), 1))
    }
}

/// The `LBOUND` function.
pub struct LboundFunction {