endbasic-core 0.13.0

// EndBASIC
// Copyright 2026 Julio Merino
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU Affero General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU Affero General Public License for more details.
//
// You should have received a copy of the GNU Affero General Public License
// along with this program.  If not, see <https://www.gnu.org/licenses/>.

//! A callable exposed to integration tests.

use endbasic_core::*;
use std::borrow::Cow;
use std::rc::Rc;

/// A function that returns the maximum of all its double arguments.
///
/// Uses `RepeatedTypeSyntax::TypedValue(Double)` with `ArgSepSyntax::Exactly(ArgSep::Long)` and
/// `allow_missing = false`, which exercises the plain values calling convention (no VarArgTags).
pub(super) struct MaxDoublesFunction {
    metadata: Rc<CallableMetadata>,
}

impl MaxDoublesFunction {
    pub(super) fn new() -> Rc<Self> {
        Rc::from(Self {
            metadata: CallableMetadataBuilder::new("MAX_DOUBLES")
                .with_return_type(ExprType::Double)
                .with_syntax(&[(
                    &[],
                    Some(&RepeatedSyntax {
                        name: Cow::Borrowed("expr"),
                        type_syn: RepeatedTypeSyntax::TypedValue(ExprType::Double),
                        sep: ArgSepSyntax::Exactly(ArgSep::Long),
                        require_one: true,
                        allow_missing: false,
                    }),
                )])
                .test_build(),
        })
    }
}

impl Callable for MaxDoublesFunction {
    fn metadata(&self) -> Rc<CallableMetadata> {
        self.metadata.clone()
    }

    fn exec(&self, scope: Scope<'_>) -> CallResult<()> {
        let mut max = f64::MIN;
        let num_singular: usize = 0;
        let mut reg = num_singular;
        while reg < scope.nargs() {
            let n = scope.get_double(reg as u8);
            if n > max {
                max = n;
            }
            reg += 1;
        }
        scope.return_double(max)
    }
}