kcl_lib/execution/

fn_call.rs

use async_recursion::async_recursion;
use indexmap::IndexMap;

use crate::CompilationIssue;
use crate::NodePath;
use crate::SourceRange;
use crate::errors::KclError;
use crate::errors::KclErrorDetails;
use crate::execution::BodyType;
use crate::execution::ExecState;
use crate::execution::ExecutorContext;
use crate::execution::Geometry;
use crate::execution::KclValue;
use crate::execution::KclValueControlFlow;
use crate::execution::Metadata;
use crate::execution::Solid;
use crate::execution::StatementKind;
use crate::execution::TagEngineInfo;
use crate::execution::TagIdentifier;
use crate::execution::annotations;
use crate::execution::cad_op::Group;
use crate::execution::cad_op::OpArg;
use crate::execution::cad_op::OpKclValue;
use crate::execution::cad_op::Operation;
use crate::execution::control_continue;
use crate::execution::kcl_value::FunctionBody;
use crate::execution::kcl_value::FunctionSource;
use crate::execution::kcl_value::NamedParam;
use crate::execution::memory;
use crate::execution::types::RuntimeType;
use crate::parsing::ast::types::CallExpressionKw;
use crate::parsing::ast::types::Node;
use crate::parsing::ast::types::Type;
use crate::std::ConsumedSolidArgCheck;
use crate::std::solid_consumption::validate_value_not_consumed;
use crate::std::solid_consumption::warn_if_value_consumed_for_deprecated_call;

#[derive(Debug, Clone)]
pub struct Args<Status: ArgsStatus = Desugared> {
    /// Name of the function these args are being passed into.
    pub fn_name: Option<String>,
    /// Unlabeled keyword args. Currently only the first formal arg can be unlabeled.
    /// If the argument was a local variable, then the first element of the tuple is its name
    /// which may be used to treat this arg as a labelled arg.
    pub unlabeled: Vec<(Option<String>, Arg)>,
    /// Labeled args.
    pub labeled: IndexMap<String, Arg>,
    pub source_range: SourceRange,
    pub node_path: Option<NodePath>,
    pub ctx: ExecutorContext,
    /// If this call happens inside a pipe (|>) expression, this holds the LHS of that |>.
    /// Otherwise it's None.
    pub pipe_value: Option<Arg>,
    _status: std::marker::PhantomData<Status>,
}

pub trait ArgsStatus: std::fmt::Debug + Clone {}

#[derive(Debug, Clone)]
pub struct Sugary;
impl ArgsStatus for Sugary {}

// Invariants guaranteed by the `Desugared` status:
// - There is either 0 or 1 unlabeled arguments
// - Any lableled args are in the labeled map, and not the unlabeled Vec.
// - The arguments match the type signature of the function exactly
// - pipe_value.is_none()
#[derive(Debug, Clone)]
pub struct Desugared;
impl ArgsStatus for Desugared {}

impl Args<Sugary> {
    /// Collect the given keyword arguments.
    pub fn new(
        labeled: IndexMap<String, Arg>,
        unlabeled: Vec<(Option<String>, Arg)>,
        source_range: SourceRange,
        node_path: Option<NodePath>,
        exec_state: &mut ExecState,
        ctx: ExecutorContext,
        fn_name: Option<String>,
    ) -> Args<Sugary> {
        Args {
            fn_name,
            labeled,
            unlabeled,
            source_range,
            node_path,
            ctx,
            pipe_value: exec_state.pipe_value().map(|v| Arg::new(v.clone(), source_range)),
            _status: std::marker::PhantomData,
        }
    }
}

impl<Status: ArgsStatus> Args<Status> {
    /// How many arguments are there?
    pub fn len(&self) -> usize {
        self.labeled.len() + self.unlabeled.len()
    }

    /// Are there no arguments?
    pub fn is_empty(&self) -> bool {
        self.labeled.is_empty() && self.unlabeled.is_empty()
    }
}

impl Args<Desugared> {
    pub fn new_no_args(
        source_range: SourceRange,
        node_path: Option<NodePath>,
        ctx: ExecutorContext,
        fn_name: Option<String>,
    ) -> Args {
        Args {
            fn_name,
            unlabeled: Default::default(),
            labeled: Default::default(),
            source_range,
            node_path,
            ctx,
            pipe_value: None,
            _status: std::marker::PhantomData,
        }
    }

    /// Get the unlabeled keyword argument. If not set, returns None.
    pub(crate) fn unlabeled_kw_arg_unconverted(&self) -> Option<&Arg> {
        self.unlabeled.first().map(|(_, a)| a)
    }
}

#[derive(Debug, Clone)]
pub struct Arg {
    /// The evaluated argument.
    pub value: KclValue,
    /// The source range of the unevaluated argument.
    pub source_range: SourceRange,
}

impl Arg {
    pub fn new(value: KclValue, source_range: SourceRange) -> Self {
        Self { value, source_range }
    }

    pub fn synthetic(value: KclValue) -> Self {
        Self {
            value,
            source_range: SourceRange::synthetic(),
        }
    }

    pub fn source_ranges(&self) -> Vec<SourceRange> {
        vec![self.source_range]
    }
}

impl Node<CallExpressionKw> {
    #[async_recursion]
    pub(super) async fn execute(
        &self,
        exec_state: &mut ExecState,
        ctx: &ExecutorContext,
    ) -> Result<KclValueControlFlow, KclError> {
        let fn_name = &self.callee;
        let callsite: SourceRange = self.into();

        // Resolve the function before evaluating arguments so calls can mutate
        // exec_state without holding a memory borrow.
        let func: KclValue = fn_name.get_result(exec_state, ctx).await?;

        let Some(fn_src) = func.as_function() else {
            return Err(KclError::new_semantic(KclErrorDetails::new(
                "cannot call this because it isn't a function".to_string(),
                vec![callsite],
            )));
        };

        // Build a hashmap from argument labels to the final evaluated values.
        let mut fn_args = IndexMap::with_capacity(self.arguments.len());
        let mut unlabeled = Vec::new();

        // Evaluate the unlabeled first param, if any exists.
        if let Some(ref arg_expr) = self.unlabeled {
            let source_range = SourceRange::from(arg_expr.clone());
            let metadata = Metadata { source_range };
            let value_cf = ctx
                .execute_expr(arg_expr, exec_state, &metadata, &[], StatementKind::Expression)
                .await?;
            let value = control_continue!(value_cf);

            let label = arg_expr.ident_name().map(str::to_owned);

            unlabeled.push((label, Arg::new(value, source_range)))
        }

        for arg_expr in &self.arguments {
            let source_range = SourceRange::from(arg_expr.arg.clone());
            let metadata = Metadata { source_range };
            let value_cf = ctx
                .execute_expr(&arg_expr.arg, exec_state, &metadata, &[], StatementKind::Expression)
                .await?;
            let value = control_continue!(value_cf);
            let arg = Arg::new(value, source_range);
            match &arg_expr.label {
                Some(l) => {
                    fn_args.insert(l.name.clone(), arg);
                }
                None => {
                    unlabeled.push((arg_expr.arg.ident_name().map(str::to_owned), arg));
                }
            }
        }

        let args = Args::new(
            fn_args,
            unlabeled,
            callsite,
            self.node_path.clone(),
            exec_state,
            ctx.clone(),
            Some(fn_name.name.name.clone()),
        );

        let return_value = fn_src
            .call_kw(Some(fn_name.to_string()), exec_state, ctx, args, callsite)
            .await
            .map_err(|e| {
                // Add the call expression to the source ranges.
                //
                // TODO: Use the name that the function was defined
                // with, not the identifier it was used with.
                e.add_unwind_location(Some(fn_name.name.name.clone()), callsite)
            })?;

        let result = return_value.ok_or_else(move || {
            let mut source_ranges: Vec<SourceRange> = vec![callsite];
            // We want to send the source range of the original function.
            if let KclValue::Function { meta, .. } = func {
                source_ranges = meta.iter().map(|m| m.source_range).collect();
            };
            KclError::new_undefined_value(
                KclErrorDetails::new(
                    format!("Result of user-defined function {fn_name} is undefined"),
                    source_ranges,
                ),
                None,
            )
        })?;

        Ok(result)
    }
}

impl FunctionSource {
    pub(crate) async fn call_kw(
        &self,
        fn_name: Option<String>,
        exec_state: &mut ExecState,
        ctx: &ExecutorContext,
        args: Args<Sugary>,
        callsite: SourceRange,
    ) -> Result<Option<KclValueControlFlow>, KclError> {
        exec_state.inc_call_stack_size(callsite)?;

        let result = self.inner_call_kw(fn_name, exec_state, ctx, args, callsite).await;

        exec_state.dec_call_stack_size(callsite)?;
        result
    }

    async fn inner_call_kw(
        &self,
        fn_name: Option<String>,
        exec_state: &mut ExecState,
        ctx: &ExecutorContext,
        args: Args<Sugary>,
        callsite: SourceRange,
    ) -> Result<Option<KclValueControlFlow>, KclError> {
        if self.deprecated {
            exec_state.warn(
                CompilationIssue::err(
                    callsite,
                    format!(
                        "{} is deprecated, see the docs for a recommended replacement",
                        match &fn_name {
                            Some(n) => format!("`{n}`"),
                            None => "This function".to_owned(),
                        }
                    ),
                ),
                annotations::WARN_DEPRECATED,
            );
        } else if let Some(since) = &self.deprecated_since
            && annotations::version_ge(&exec_state.mod_local.settings.kcl_version, since)
        {
            exec_state.warn(
                CompilationIssue::err(
                    callsite,
                    format!(
                        "{} is deprecated as of KCL {since}. See the docs for a recommended replacement.",
                        match &fn_name {
                            Some(n) => format!("`{n}`"),
                            None => "This function".to_owned(),
                        }
                    ),
                ),
                annotations::WARN_DEPRECATED,
            );
        }
        if self.experimental {
            exec_state.warn_experimental(
                &match &fn_name {
                    Some(n) => format!("`{n}`"),
                    None => "This function".to_owned(),
                },
                callsite,
            );
        }

        let args = type_check_params_kw(fn_name.as_deref(), self, args, exec_state)?;
        let face_tag_names = face_tag_names_for_call(self, &args);

        // Warn if experimental or deprecated arguments are used after desugaring.
        for (label, arg) in &args.labeled {
            let Some(param) = self.named_args.get(label.as_str()) else {
                continue;
            };
            if param.experimental {
                exec_state.warn_experimental(
                    &match &fn_name {
                        Some(f) => format!("`{f}({label})`"),
                        None => label.to_owned(),
                    },
                    arg.source_range,
                );
            }
            // `deprecated` deprecates the parameter for all versions, whereas
            // `deprecated_since` only deprecates it at or after a given version.
            let deprecation_suffix = if param.deprecated {
                Some("is deprecated, see the docs for a recommended replacement".to_owned())
            } else if let Some(since) = &param.deprecated_since
                && annotations::version_ge(&exec_state.mod_local.settings.kcl_version, since)
            {
                Some(format!(
                    "is deprecated as of KCL {since}. See the docs for a recommended replacement."
                ))
            } else {
                None
            };
            if let Some(suffix) = deprecation_suffix {
                let qualified = match &fn_name {
                    Some(f) => format!("`{f}({label})`"),
                    None => format!("`{label}`"),
                };
                exec_state.warn(
                    CompilationIssue::err(arg.source_range, format!("{qualified} {suffix}")),
                    annotations::WARN_DEPRECATED,
                );
            }
        }

        // Don't early return until the stack frame is popped!
        self.body.prep_mem(exec_state)?;

        // Some function calls might get added to the feature tree.
        // We do this by adding an "operation".

        // Don't add operations if the KCL code being executed is
        // just the KCL stdlib calling other KCL stdlib,
        // because the stdlib internals aren't relevant to users,
        // that would just be pointless noise.
        //
        // Do add operations if the KCL being executed is
        // user-defined, or the calling code is user-defined,
        // because that's relevant to the user.
        let would_trace_stdlib_internals = exec_state.mod_local.inside_stdlib && self.is_std();
        // self.include_in_feature_tree is set by the KCL annotation `@(feature_tree = true)`.
        let should_track_operation = !would_trace_stdlib_internals && self.include_in_feature_tree;
        let op = if should_track_operation {
            let op_labeled_args = args
                .labeled
                .iter()
                .map(|(k, arg)| (k.clone(), OpArg::new(OpKclValue::from(&arg.value), arg.source_range)))
                .collect();

            // If you're calling a stdlib function, track that call as an operation.
            if self.is_std() {
                Some(Operation::StdLibCall {
                    name: fn_name.clone().unwrap_or_else(|| "unknown function".to_owned()),
                    unlabeled_arg: args
                        .unlabeled_kw_arg_unconverted()
                        .map(|arg| OpArg::new(OpKclValue::from(&arg.value), arg.source_range)),
                    labeled_args: op_labeled_args,
                    node_path: NodePath::placeholder(),
                    source_range: callsite,
                    stdlib_entry_source_range: exec_state.mod_local.stdlib_entry_source_range,
                    is_error: false,
                })
            } else {
                // Otherwise, you're calling a user-defined function, track that call as an operation.
                exec_state.push_op(Operation::GroupBegin {
                    group: Group::FunctionCall {
                        name: fn_name.clone(),
                        function_source_range: self.ast.as_source_range(),
                        unlabeled_arg: args
                            .unlabeled_kw_arg_unconverted()
                            .map(|arg| OpArg::new(OpKclValue::from(&arg.value), arg.source_range)),
                        labeled_args: op_labeled_args,
                    },
                    node_path: NodePath::placeholder(),
                    source_range: callsite,
                });

                None
            }
        } else {
            None
        };

        let is_calling_into_stdlib = match &self.body {
            FunctionBody::Rust(_) => true,
            FunctionBody::Kcl(_) => self.is_std(),
        };
        let is_crossing_into_stdlib = is_calling_into_stdlib && !exec_state.mod_local.inside_stdlib;
        let is_crossing_out_of_stdlib = !is_calling_into_stdlib && exec_state.mod_local.inside_stdlib;
        let stdlib_entry_source_range = if is_crossing_into_stdlib {
            // When we're calling into the stdlib, for example calling hole(),
            // track the location so that any further stdlib calls like
            // subtract() can point to the hole() call. The frontend needs this.
            Some(callsite)
        } else if is_crossing_out_of_stdlib {
            // When map() calls a user-defined function, and it calls extrude()
            // for example, we want it to point the the extrude() call, not
            // the map() call.
            None
        } else {
            // When we're not crossing the stdlib boundary, keep the previous
            // value.
            exec_state.mod_local.stdlib_entry_source_range
        };

        let prev_inside_stdlib = std::mem::replace(&mut exec_state.mod_local.inside_stdlib, is_calling_into_stdlib);
        let prev_stdlib_entry_source_range = std::mem::replace(
            &mut exec_state.mod_local.stdlib_entry_source_range,
            stdlib_entry_source_range,
        );
        // Do not early return via ? or something until we've
        // - put this `prev_inside_stdlib` value back.
        // - called the pop_env.
        let result = match &self.body {
            FunctionBody::Rust(f) => f(exec_state, args).await.map(Some),
            FunctionBody::Kcl(_) => {
                if let Err(e) = assign_args_to_params_kw(self, args, exec_state) {
                    exec_state.mod_local.inside_stdlib = prev_inside_stdlib;
                    exec_state.mut_stack().pop_env()?;
                    return Err(e);
                }

                ctx.exec_block(&self.ast.body, exec_state, BodyType::Block)
                    .await
                    .map(|cf| {
                        if let Some(cf) = cf
                            && cf.is_some_return()
                        {
                            return Some(cf);
                        }
                        // Ignore the block's value and extract the return value
                        // from memory.
                        exec_state
                            .stack()
                            .get(memory::RETURN_NAME, self.ast.as_source_range())
                            .ok()
                            .map(KclValue::continue_)
                    })
            }
        };
        exec_state.mod_local.inside_stdlib = prev_inside_stdlib;
        exec_state.mod_local.stdlib_entry_source_range = prev_stdlib_entry_source_range;
        exec_state.mut_stack().pop_env()?;

        if should_track_operation {
            if let Some(mut op) = op {
                op.set_std_lib_call_is_error(result.is_err());
                // Track call operation.  We do this after the call
                // since things like patternTransform may call user code
                // before running, and we will likely want to use the
                // return value. The call takes ownership of the args,
                // so we need to build the op before the call.
                exec_state.push_op(op);
            } else if !is_calling_into_stdlib {
                exec_state.push_op(Operation::GroupEnd);
            }
        }

        let mut result = match result {
            Ok(Some(value)) => {
                if value.is_some_return() {
                    return Ok(Some(value));
                } else {
                    Ok(Some(value.into_value()))
                }
            }
            Ok(None) => Ok(None),
            Err(e) => Err(e),
        };

        if self.is_std()
            && let Ok(Some(result)) = &mut result
        {
            update_memory_for_tags_of_geometry(result, exec_state)?;
            if !face_tag_names.is_empty() {
                attach_face_tags_to_geometry(result, exec_state, &face_tag_names);
            }
        }

        coerce_result_type(result, self, exec_state).map(|r| r.map(KclValue::continue_))
    }
}

impl FunctionBody {
    fn prep_mem(&self, exec_state: &mut ExecState) -> Result<(), KclError> {
        match self {
            FunctionBody::Rust(_) => exec_state.mut_stack().push_new_root_env(true),
            FunctionBody::Kcl(memory) => exec_state.mut_stack().push_new_env_for_call(*memory),
        }
    }
}

fn originates_from_sketch_block(value: &KclValue) -> bool {
    match value {
        KclValue::Uuid { .. } => false,
        KclValue::Bool { .. } => false,
        KclValue::Number { .. } => false,
        KclValue::String { .. } => false,
        KclValue::SketchVar { .. } => true,
        KclValue::SketchConstraint { .. } => true,
        KclValue::Tuple { value, .. } => value.iter().all(originates_from_sketch_block),
        KclValue::HomArray { value, .. } => value.iter().all(originates_from_sketch_block),
        // TODO: sketch block result should return true.
        KclValue::Object { value, .. } => value.values().all(originates_from_sketch_block),
        KclValue::TagIdentifier(_) => false,
        KclValue::TagDeclarator(_) => false,
        KclValue::GdtAnnotation { .. } => false,
        KclValue::Plane { .. } => false,
        KclValue::Face { .. } => false,
        KclValue::BoundedEdge { .. } => false,
        KclValue::Segment { .. } => true,
        KclValue::Sketch { value: sketch } => sketch.origin_sketch_id.is_some(),
        KclValue::Solid { value: solid } => solid
            .sketch()
            .map(|sketch| sketch.origin_sketch_id.is_some())
            .unwrap_or(false),
        KclValue::Helix { .. } => false,
        KclValue::ImportedGeometry(_) => false,
        KclValue::Function { .. } => false,
        KclValue::Module { .. } => false,
        KclValue::Type { .. } => false,
        KclValue::KclNone { .. } => false,
    }
}

fn face_tag_names_for_call(fn_def: &FunctionSource, args: &Args<Desugared>) -> Vec<String> {
    let Some(std_props) = &fn_def.std_props else {
        return Vec::new();
    };

    if !std_function_allows_face_tags(&std_props.name) {
        return Vec::new();
    }

    args.labeled
        .iter()
        .filter(|(label, _)| matches!(label.as_str(), "tag" | "tagStart" | "tagEnd"))
        .filter_map(|(_, arg)| match &arg.value {
            KclValue::TagDeclarator(tag) => Some(tag.name.clone()),
            _ => None,
        })
        .collect()
}

fn std_function_allows_face_tags(std_fn_name: &str) -> bool {
    matches!(
        std_fn_name,
        "std::sketch::extrude"
            | "std::solid::chamfer"
            | "std::solid::fillet"
            | "std::sketch::sweep"
            | "std::sketch::loft"
            | "std::sketch::revolve"
    )
}

fn attach_face_tags_to_geometry(result: &mut KclValue, exec_state: &ExecState, tag_names: &[String]) {
    match result {
        KclValue::Solid { value } => attach_face_tags_to_solid(value, exec_state, tag_names),
        KclValue::Tuple { value, .. } | KclValue::HomArray { value, .. } => {
            for v in value {
                attach_face_tags_to_geometry(v, exec_state, tag_names);
            }
        }
        _ => {}
    }
}

fn attach_face_tags_to_solid(solid: &mut Solid, exec_state: &ExecState, tag_names: &[String]) {
    let surfaces = solid.value.clone();
    for surface in surfaces {
        let Some(tag) = surface.get_tag() else {
            continue;
        };
        if !tag_names.iter().any(|tag_name| tag_name == &tag.name) {
            continue;
        }

        let tag_id = solid
            .sketch()
            .and_then(|sketch| sketch.tags.get(&tag.name))
            .cloned()
            .unwrap_or_else(|| {
                let mut solid_copy = solid.clone();
                clear_tags_from_solid_copy(&mut solid_copy);
                TagIdentifier {
                    value: tag.name.clone(),
                    info: vec![(
                        exec_state.stack().current_epoch(),
                        TagEngineInfo {
                            id: surface.get_id(),
                            surface: Some(surface.clone()),
                            path: None,
                            geometry: Geometry::Solid(solid_copy),
                        },
                    )],
                    meta: vec![Metadata {
                        source_range: tag.clone().into(),
                    }],
                }
            });

        match solid.faces.get_mut(&tag.name) {
            Some(existing_tag) => existing_tag.merge_info(&tag_id),
            None => {
                solid.faces.insert(tag.name.clone(), tag_id);
            }
        }
    }
}

fn clear_tags_from_solid_copy(solid: &mut Solid) {
    if let Some(sketch) = solid.sketch_mut() {
        sketch.tags.clear(); // Avoid recursive tags.
    }
    solid.faces.clear();
}

fn update_memory_for_tags_of_geometry(result: &mut KclValue, exec_state: &mut ExecState) -> Result<(), KclError> {
    let is_sketch_block = originates_from_sketch_block(&*result);
    // If the return result is a sketch or solid, we want to update the
    // memory for the tags of the group.
    // TODO: This could probably be done in a better way, but as of now this was my only idea
    // and it works.
    match result {
        KclValue::Sketch { value } if !is_sketch_block => {
            for (name, tag) in value.tags.iter() {
                if exec_state.stack().cur_frame_contains(name)? {
                    exec_state.mut_stack().update(name, |v, _| {
                        if let Some(existing_tag) = v.as_mut_tag() {
                            existing_tag.merge_info(tag);
                        }
                    })?;
                } else {
                    exec_state.mut_stack().add(
                        name.to_owned(),
                        KclValue::TagIdentifier(Box::new(tag.clone())),
                        SourceRange::default(),
                    )?;
                }
            }
        }
        KclValue::Solid { value } => {
            let surfaces = value.value.clone();
            if value.sketch_mut().is_none() {
                // If the solid isn't based on a sketch, then it doesn't have a tag container,
                // so there's nothing to do here.
                return Ok(());
            };
            // Now that we know there's work to do (because there's a tag container),
            // run some clones.
            let solid_copies: Vec<Box<Solid>> = surfaces.iter().map(|_| value.clone()).collect();
            // Get the tag container. We expect it to always succeed because we already checked
            // for a tag container above.
            let Some(sketch) = value.sketch_mut() else {
                return Ok(());
            };
            for (v, mut solid_copy) in surfaces.iter().zip(solid_copies) {
                clear_tags_from_solid_copy(&mut solid_copy);
                if let Some(tag) = v.get_tag() {
                    // Get the past tag and update it.
                    let mut is_part_of_sketch = false;
                    let tag_id = if let Some(t) = sketch.tags.get(&tag.name) {
                        is_part_of_sketch = true;
                        let mut t = t.clone();
                        let Some(info) = t.get_cur_info() else {
                            return Err(KclError::new_internal(KclErrorDetails::new(
                                format!("Tag {} does not have path info", tag.name),
                                vec![tag.into()],
                            )));
                        };

                        let mut info = info.clone();
                        info.id = v.get_id();
                        info.surface = Some(v.clone());
                        info.geometry = Geometry::Solid(*solid_copy);
                        t.info.push((exec_state.stack().current_epoch(), info));
                        t
                    } else {
                        // It's probably a fillet or a chamfer.
                        // Initialize it.
                        TagIdentifier {
                            value: tag.name.clone(),
                            info: vec![(
                                exec_state.stack().current_epoch(),
                                TagEngineInfo {
                                    id: v.get_id(),
                                    surface: Some(v.clone()),
                                    path: None,
                                    geometry: Geometry::Solid(*solid_copy),
                                },
                            )],
                            meta: vec![Metadata {
                                source_range: tag.clone().into(),
                            }],
                        }
                    };

                    // update the sketch tags.
                    sketch.merge_tags(Some(&tag_id).into_iter());

                    if exec_state.stack().cur_frame_contains(&tag.name)? {
                        exec_state.mut_stack().update(&tag.name, |v, _| {
                            if let Some(existing_tag) = v.as_mut_tag() {
                                existing_tag.merge_info(&tag_id);
                            }
                        })?;
                    } else if !is_sketch_block || !is_part_of_sketch {
                        // The above condition is saying that we add a tag to
                        // the stack in either of these cases:
                        //
                        // 1. It originates from a legacy sketch v1.
                        //
                        // 2. It originates from a sketch block and it's not
                        // part of the sketch. Instead, it's part of the solid,
                        // as in tagging a cap face `extrude(tagEnd, tagStart)`
                        // or chamfer face `chamfer(tag)`.
                        exec_state.mut_stack().add(
                            tag.name.clone(),
                            KclValue::TagIdentifier(Box::new(tag_id)),
                            SourceRange::default(),
                        )?;
                    }
                }
            }

            // Find the stale sketch in memory and update it.
            if let Some(sketch) = value.sketch() {
                if sketch.tags.is_empty() {
                    return Ok(());
                }
                let sketch_tags: Vec<_> = sketch.tags.values().cloned().collect();
                let sketches_to_update: Vec<_> = exec_state.stack().find_keys_in_current_env(|v| match v {
                    KclValue::Sketch { value: sk } => sk.original_id == sketch.original_id,
                    _ => false,
                })?;

                for k in sketches_to_update {
                    exec_state.mut_stack().update(&k, |v, _| {
                        if let Some(sketch) = v.as_mut_sketch() {
                            sketch.merge_tags(sketch_tags.iter());
                        }
                    })?;
                }
            }
        }
        KclValue::Tuple { value, .. } | KclValue::HomArray { value, .. } => {
            for v in value {
                update_memory_for_tags_of_geometry(v, exec_state)?;
            }
        }
        _ => {}
    }
    Ok(())
}

fn type_err_str(expected: &Type, found: &KclValue, source_range: &SourceRange, exec_state: &mut ExecState) -> String {
    fn strip_backticks(s: &str) -> &str {
        let mut result = s;
        if s.starts_with('`') {
            result = &result[1..]
        }
        if s.ends_with('`') {
            result = &result[..result.len() - 1]
        }
        result
    }

    let expected_human = expected.human_friendly_type();
    let expected_ty = expected.to_string();
    let expected_str =
        if expected_human == expected_ty || expected_human == format!("a value with type `{expected_ty}`") {
            format!("a value with type `{expected_ty}`")
        } else {
            format!("{expected_human} (`{expected_ty}`)")
        };
    let found_human = found.human_friendly_type();
    let found_ty = found.principal_type_string();
    let found_str = if found_human == found_ty || found_human == format!("a {}", strip_backticks(&found_ty)) {
        format!("a value with type {found_ty}")
    } else {
        format!("{found_human} (with type {found_ty})")
    };

    let mut result = format!("{expected_str}, but found {found_str}.");

    if found.is_unknown_number() {
        exec_state.clear_units_warnings(source_range);
        result.push_str("\nThe found value is a number but has incomplete units information. You can probably fix this error by specifying the units using type ascription, e.g., `len: mm` or `(a * b): deg`.");
    }

    result
}

fn type_check_params_kw(
    fn_name: Option<&str>,
    fn_def: &FunctionSource,
    mut args: Args<Sugary>,
    exec_state: &mut ExecState,
) -> Result<Args<Desugared>, KclError> {
    let fn_name = fn_name.or(args.fn_name.as_deref());
    let mut result = Args::new_no_args(
        args.source_range,
        args.node_path.clone(),
        args.ctx,
        fn_name.map(|f| f.to_string()).or_else(|| args.fn_name.clone()),
    );

    // If it's possible the input arg was meant to be labelled and we probably don't want to use
    // it as the input arg, then treat it as labelled.
    if let Some((Some(label), _)) = args.unlabeled.first()
        && args.unlabeled.len() == 1
        && (fn_def.input_arg.is_none() || args.pipe_value.is_some())
        && fn_def.named_args.iter().any(|p| p.0 == label)
        && !args.labeled.contains_key(label)
    {
        let Some((label, arg)) = args.unlabeled.pop() else {
            let message = "Expected unlabeled arg to be present".to_owned();
            debug_assert!(false, "{}", &message);
            return Err(KclError::new_internal(KclErrorDetails::new(
                message,
                vec![args.source_range],
            )));
        };
        args.labeled.insert(label.unwrap(), arg);
    }

    // Apply the `a == a: a` shorthand by desugaring unlabeled args into labeled ones.
    let (labeled_unlabeled, unlabeled_unlabeled) = args.unlabeled.into_iter().partition(|(l, _)| {
        if let Some(l) = l
            && fn_def.named_args.contains_key(l)
            && !args.labeled.contains_key(l)
        {
            true
        } else {
            false
        }
    });
    args.unlabeled = unlabeled_unlabeled;
    for (l, arg) in labeled_unlabeled {
        let previous = args.labeled.insert(l.unwrap(), arg);
        debug_assert!(previous.is_none());
    }

    if let Some((name, ty)) = &fn_def.input_arg {
        // Expecting an input arg

        if args.unlabeled.is_empty() {
            // No args provided

            if let Some(pipe) = args.pipe_value {
                // But there is a pipeline
                result.unlabeled = vec![(None, pipe)];
            } else if let Some(arg) = args.labeled.swap_remove(name) {
                // Mistakenly labelled
                exec_state.err(CompilationIssue::err(
                    arg.source_range,
                    format!(
                        "{} expects an unlabeled first argument (`@{name}`), but it is labelled in the call. You might try removing the `{name} = `",
                        fn_name
                            .map(|n| format!("The function `{n}`"))
                            .unwrap_or_else(|| "This function".to_owned()),
                    ),
                ));
                result.unlabeled = vec![(Some(name.clone()), arg)];
            } else {
                // Just missing
                return Err(KclError::new_argument(KclErrorDetails::new(
                    "This function expects an unlabeled first parameter, but you haven't passed it one.".to_owned(),
                    fn_def.ast.as_source_ranges(),
                )));
            }
        } else if args.unlabeled.len() == 1
            && let Some(unlabeled_arg) = args.unlabeled.pop()
        {
            let mut arg = unlabeled_arg.1;
            if let Some(ty) = ty {
                // Suppress warnings about types because they should only be
                // warned about once for the function definition.
                let rty = RuntimeType::from_parsed(ty.clone(), exec_state, arg.source_range, false, true)
                    .map_err(|e| KclError::new_semantic(e.into()))?;
                arg.value = arg.value.coerce(&rty, true, exec_state).map_err(|_| {
                    KclError::new_argument(KclErrorDetails::new(
                        format!(
                            "The input argument of {} requires {}",
                            fn_name
                                .map(|n| format!("`{n}`"))
                                .unwrap_or_else(|| "this function".to_owned()),
                            type_err_str(ty, &arg.value, &arg.source_range, exec_state),
                        ),
                        vec![arg.source_range],
                    ))
                })?;
            }
            result.unlabeled = vec![(None, arg)]
        } else {
            // Multiple unlabelled args

            // Try to un-spread args into an array
            if let Some(Type::Array { len, .. }) = ty {
                if len.satisfied(args.unlabeled.len(), false).is_none() {
                    exec_state.err(CompilationIssue::err(
                        args.source_range,
                        format!(
                            "{} expects an array input argument with {} elements",
                            fn_name
                                .map(|n| format!("The function `{n}`"))
                                .unwrap_or_else(|| "This function".to_owned()),
                            len.human_friendly_type(),
                        ),
                    ));
                }

                let source_range = SourceRange::merge(args.unlabeled.iter().map(|(_, a)| a.source_range));
                exec_state.warn_experimental("array input arguments", source_range);
                result.unlabeled = vec![(
                    None,
                    Arg {
                        source_range,
                        value: KclValue::HomArray {
                            value: args.unlabeled.drain(..).map(|(_, a)| a.value).collect(),
                            ty: RuntimeType::any(),
                        },
                    },
                )]
            }
        }
    }

    // Either we didn't move the arg above, or we're not expecting one.
    if !args.unlabeled.is_empty() {
        // Not expecting an input arg, but found one or more
        let actuals = args.labeled.keys();
        let formals: Vec<_> = fn_def
            .named_args
            .keys()
            .filter_map(|name| {
                if actuals.clone().any(|a| a == name) {
                    return None;
                }

                Some(format!("`{name}`"))
            })
            .collect();

        let suggestion = if formals.is_empty() {
            String::new()
        } else {
            format!("; suggested labels: {}", formals.join(", "))
        };

        let mut errors = args.unlabeled.iter().map(|(_, arg)| {
            CompilationIssue::err(
                arg.source_range,
                format!("This argument needs a label, but it doesn't have one{suggestion}"),
            )
        });

        let first = errors.next().unwrap();
        errors.for_each(|e| exec_state.err(e));

        return Err(KclError::new_argument(first.into()));
    }

    for (label, mut arg) in args.labeled {
        match fn_def.named_args.get(&label) {
            Some(NamedParam {
                experimental: _,
                deprecated: _,
                deprecated_since: _,
                default_value: def,
                ty,
            }) => {
                // For optional args, passing None should be the same as not passing an arg.
                if !(def.is_some() && matches!(arg.value, KclValue::KclNone { .. })) {
                    if let Some(ty) = ty {
                        // Suppress warnings about types because they should
                        // only be warned about once for the function
                        // definition.
                        let rty = RuntimeType::from_parsed(ty.clone(), exec_state, arg.source_range, false, true)
                            .map_err(|e| KclError::new_semantic(e.into()))?;
                        arg.value = arg
                                .value
                                .coerce(
                                    &rty,
                                    true,
                                    exec_state,
                                )
                                .map_err(|e| {
                                    let mut message = format!(
                                        "{label} requires {}",
                                        type_err_str(ty, &arg.value, &arg.source_range, exec_state),
                                    );
                                    if let Some(ty) = e.explicit_coercion {
                                        // TODO if we have access to the AST for the argument we could choose which example to suggest.
                                        message = format!("{message}\n\nYou may need to add information about the type of the argument, for example:\n  using a numeric suffix: `42{ty}`\n  or using type ascription: `foo(): {ty}`");
                                    }
                                    KclError::new_argument(KclErrorDetails::new(
                                        message,
                                        vec![arg.source_range],
                                    ))
                                })?;
                    }
                    result.labeled.insert(label, arg);
                }
            }
            None => {
                exec_state.err(CompilationIssue::err(
                    arg.source_range,
                    format!(
                        "`{label}` is not an argument of {}",
                        fn_name
                            .map(|n| format!("`{n}`"))
                            .unwrap_or_else(|| "this function".to_owned()),
                    ),
                ));
            }
        }
    }

    let consumed_solid_arg_check = fn_def
        .std_props
        .as_ref()
        .map_or(ConsumedSolidArgCheck::Error, |props| props.consumed_solid_arg_check);
    match consumed_solid_arg_check {
        ConsumedSolidArgCheck::Error => {
            result
                .unlabeled
                .iter()
                .map(|(_, arg)| arg)
                .chain(result.labeled.values())
                .try_for_each(|arg| validate_value_not_consumed(&arg.value, exec_state, arg.source_range))?;
        }
        ConsumedSolidArgCheck::WarnDeprecated => {
            let std_fn_name = fn_def
                .std_props
                .as_ref()
                .map(|props| props.name.as_str())
                .unwrap_or("function");
            for arg in result
                .unlabeled
                .iter()
                .map(|(_, arg)| arg)
                .chain(result.labeled.values())
            {
                warn_if_value_consumed_for_deprecated_call(&arg.value, exec_state, arg.source_range, std_fn_name)?;
            }
        }
    }

    Ok(result)
}

fn assign_args_to_params_kw(
    fn_def: &FunctionSource,
    args: Args<Desugared>,
    exec_state: &mut ExecState,
) -> Result<(), KclError> {
    // Add the arguments to the memory.  A new call frame should have already
    // been created.
    let source_ranges = fn_def.ast.as_source_ranges();

    for (name, param) in fn_def.named_args.iter() {
        let arg = args.labeled.get(name);
        match arg {
            Some(arg) => {
                exec_state.mut_stack().add(
                    name.clone(),
                    arg.value.clone(),
                    arg.source_ranges().pop().unwrap_or(SourceRange::synthetic()),
                )?;
            }
            None => match &param.default_value {
                Some(default_val) => {
                    let value = KclValue::from_default_param(default_val.clone(), exec_state);
                    exec_state
                        .mut_stack()
                        .add(name.clone(), value, default_val.source_range())?;
                }
                None => {
                    return Err(KclError::new_argument(KclErrorDetails::new(
                        format!("This function requires a parameter {name}, but you haven't passed it one."),
                        source_ranges,
                    )));
                }
            },
        }
    }

    if let Some((param_name, _)) = &fn_def.input_arg {
        let Some(unlabeled) = args.unlabeled_kw_arg_unconverted() else {
            debug_assert!(false, "Bad args");
            return Err(KclError::new_internal(KclErrorDetails::new(
                "Desugared arguments are inconsistent".to_owned(),
                source_ranges,
            )));
        };
        exec_state.mut_stack().add(
            param_name.clone(),
            unlabeled.value.clone(),
            unlabeled.source_ranges().pop().unwrap_or(SourceRange::synthetic()),
        )?;
    }

    Ok(())
}

fn coerce_result_type(
    result: Result<Option<KclValue>, KclError>,
    fn_def: &FunctionSource,
    exec_state: &mut ExecState,
) -> Result<Option<KclValue>, KclError> {
    if let Ok(Some(val)) = result {
        if let Some(ret_ty) = &fn_def.return_type {
            // Suppress warnings about types because they should only be warned
            // about once for the function definition.
            let ty = RuntimeType::from_parsed(ret_ty.inner.clone(), exec_state, ret_ty.as_source_range(), false, true)
                .map_err(|e| KclError::new_semantic(e.into()))?;
            let val = val.coerce(&ty, true, exec_state).map_err(|_| {
                KclError::new_type(KclErrorDetails::new(
                    format!(
                        "This function requires its result to be {}",
                        type_err_str(ret_ty, &val, &(&val).into(), exec_state)
                    ),
                    ret_ty.as_source_ranges(),
                ))
            })?;
            Ok(Some(val))
        } else {
            Ok(Some(val))
        }
    } else {
        result
    }
}

#[cfg(test)]
mod test {
    use std::sync::Arc;

    use super::*;
    use crate::engine::engine_manager::EngineManager;
    use crate::errors::Severity;
    use crate::execution::ContextType;
    use crate::execution::EnvironmentRef;
    use crate::execution::ExecTestResults;
    use crate::execution::memory::Stack;
    use crate::execution::parse_execute;
    use crate::execution::types::NumericType;
    use crate::parsing::ast::types::DefaultParamVal;
    use crate::parsing::ast::types::FunctionExpression;
    use crate::parsing::ast::types::Identifier;
    use crate::parsing::ast::types::Parameter;
    use crate::parsing::ast::types::Program;

    fn get_var(result: &ExecTestResults, name: &str) -> KclValue {
        result
            .exec_state
            .stack()
            .memory
            .get_from_owned(name, result.mem_env, SourceRange::default(), 0)
            .unwrap_or_else(|err| panic!("expected variable `{name}` to exist: {err:?}"))
    }

    fn var_exists(result: &ExecTestResults, name: &str) -> bool {
        result
            .exec_state
            .stack()
            .memory
            .get_from_owned(name, result.mem_env, SourceRange::default(), 0)
            .is_ok()
    }

    fn assert_vars_are_tags(result: &ExecTestResults, names: &[&str]) {
        for name in names {
            assert!(
                matches!(get_var(result, name), KclValue::TagIdentifier(_)),
                "expected variable `{name}` to be a tag identifier"
            );
        }
    }

    fn assert_vars_are_missing(result: &ExecTestResults, names: &[&str]) {
        for name in names {
            assert!(!var_exists(result, name), "expected variable `{name}` to be absent");
        }
    }

    fn assert_body_face_tags(result: &ExecTestResults, expected: &[&str], unexpected: &[&str]) {
        let body = get_var(result, "body");
        let KclValue::Solid { value: body } = body else {
            panic!("expected `body` to be a solid");
        };

        for tag in expected {
            assert!(body.faces.contains_key(*tag), "expected body.faces to contain `{tag}`");
        }

        for tag in unexpected {
            assert!(
                !body.faces.contains_key(*tag),
                "expected body.faces not to contain sketch tag `{tag}`"
            );
        }
    }

    fn deprecated_solid_tag_access_warnings(result: &ExecTestResults) -> Vec<&CompilationIssue> {
        result
            .exec_state
            .issues()
            .iter()
            .filter(|issue| issue.message.contains("Accessing solid-created face"))
            .collect()
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn test_assign_args_to_params() {
        // Set up a little framework for this test.
        fn mem(number: usize) -> KclValue {
            KclValue::Number {
                value: number as f64,
                ty: NumericType::count(),
                meta: Default::default(),
            }
        }
        fn ident(s: &'static str) -> Node<Identifier> {
            Node::no_src(Identifier {
                name: s.to_owned(),
                digest: None,
            })
        }
        fn opt_param(s: &'static str) -> Parameter {
            Parameter {
                experimental: false,
                deprecated: false,
                deprecated_since: None,
                identifier: ident(s),
                param_type: None,
                default_value: Some(DefaultParamVal::none()),
                labeled: true,
                digest: None,
            }
        }
        fn req_param(s: &'static str) -> Parameter {
            Parameter {
                experimental: false,
                deprecated: false,
                deprecated_since: None,
                identifier: ident(s),
                param_type: None,
                default_value: None,
                labeled: true,
                digest: None,
            }
        }
        fn additional_program_memory(items: &[(String, KclValue)]) -> Stack {
            let mut program_memory = Stack::new_for_tests();
            for (name, item) in items {
                program_memory
                    .add(name.clone(), item.clone(), SourceRange::default())
                    .unwrap();
            }
            program_memory
        }
        // Declare the test cases.
        for (test_name, params, args, expected) in [
            ("empty", Vec::new(), Vec::new(), Ok(additional_program_memory(&[]))),
            (
                "all params required, and all given, should be OK",
                vec![req_param("x")],
                vec![("x", mem(1))],
                Ok(additional_program_memory(&[("x".to_owned(), mem(1))])),
            ),
            (
                "all params required, none given, should error",
                vec![req_param("x")],
                vec![],
                Err(KclError::new_argument(KclErrorDetails::new(
                    "This function requires a parameter x, but you haven't passed it one.".to_owned(),
                    vec![SourceRange::default()],
                ))),
            ),
            (
                "all params optional, none given, should be OK",
                vec![opt_param("x")],
                vec![],
                Ok(additional_program_memory(&[("x".to_owned(), KclValue::none())])),
            ),
            (
                "mixed params, too few given",
                vec![req_param("x"), opt_param("y")],
                vec![],
                Err(KclError::new_argument(KclErrorDetails::new(
                    "This function requires a parameter x, but you haven't passed it one.".to_owned(),
                    vec![SourceRange::default()],
                ))),
            ),
            (
                "mixed params, minimum given, should be OK",
                vec![req_param("x"), opt_param("y")],
                vec![("x", mem(1))],
                Ok(additional_program_memory(&[
                    ("x".to_owned(), mem(1)),
                    ("y".to_owned(), KclValue::none()),
                ])),
            ),
            (
                "mixed params, maximum given, should be OK",
                vec![req_param("x"), opt_param("y")],
                vec![("x", mem(1)), ("y", mem(2))],
                Ok(additional_program_memory(&[
                    ("x".to_owned(), mem(1)),
                    ("y".to_owned(), mem(2)),
                ])),
            ),
        ] {
            // Run each test.
            let func_expr = Node::no_src(FunctionExpression {
                name: None,
                params,
                body: Program::empty(),
                return_type: None,
                digest: None,
            });
            let func_src = FunctionSource::kcl(
                Box::new(func_expr),
                EnvironmentRef::dummy(),
                crate::execution::kcl_value::KclFunctionSourceParams {
                    std_props: None,
                    experimental: false,
                    include_in_feature_tree: false,
                },
            );
            let labeled = args
                .iter()
                .map(|(name, value)| {
                    let arg = Arg::new(value.clone(), SourceRange::default());
                    ((*name).to_owned(), arg)
                })
                .collect::<IndexMap<_, _>>();
            let exec_ctxt = ExecutorContext {
                engine: Arc::new(EngineManager::new_mock()),
                engine_batch: crate::engine::EngineBatchContext::default(),
                fs: Arc::new(crate::fs::FileManager::new()),
                settings: Default::default(),
                context_type: ContextType::Mock,
                execution_callbacks: Default::default(),
            };
            let mut exec_state = ExecState::new(&exec_ctxt);
            exec_state.mod_local.stack = Stack::new_for_tests();

            let args = Args {
                fn_name: Some("test".to_owned()),
                labeled,
                unlabeled: Vec::new(),
                source_range: SourceRange::default(),
                node_path: None,
                ctx: exec_ctxt,
                pipe_value: None,
                _status: std::marker::PhantomData,
            };

            let actual = assign_args_to_params_kw(&func_src, args, &mut exec_state).map(|_| exec_state.mod_local.stack);
            assert_eq!(
                actual, expected,
                "failed test '{test_name}':\ngot {actual:?}\nbut expected\n{expected:?}"
            );
        }
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn type_check_user_args() {
        let program = r#"fn makeMessage(prefix: string, suffix: string) {
  return prefix + suffix
}

msg1 = makeMessage(prefix = "world", suffix = " hello")
msg2 = makeMessage(prefix = 1, suffix = 3)"#;
        let err = parse_execute(program).await.unwrap_err();
        assert_eq!(
            err.message(),
            "prefix requires a value with type `string`, but found a value with type `number`.\nThe found value is a number but has incomplete units information. You can probably fix this error by specifying the units using type ascription, e.g., `len: mm` or `(a * b): deg`."
        )
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn map_closure_error_mentions_fn_name() {
        let program = r#"
arr = ["hello"]
map(array = arr, f = fn(@item: number) { return item })
"#;
        let err = parse_execute(program).await.unwrap_err();
        assert!(
            err.message().contains("map closure"),
            "expected map closure errors to include the closure name, got: {}",
            err.message()
        );
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn array_input_arg() {
        let ast = r#"fn f(@input: [mm]) { return 1 }
f([1, 2, 3])
f(1, 2, 3)
"#;
        parse_execute(ast).await.unwrap();
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn extrude_tagged_body_gets_face_tags_and_keeps_legacy_bindings() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XY) {
  line1 = line(start = [var 0mm, var 0mm], end = [var 10mm, var 0mm])
  line2 = line(start = [var 10mm, var 0mm], end = [var 10mm, var 10mm])
  line3 = line(start = [var 10mm, var 10mm], end = [var 0mm, var 10mm])
  line4 = line(start = [var 0mm, var 10mm], end = [var 0mm, var 0mm])
  coincident([line1.end, line2.start])
  coincident([line2.end, line3.start])
  coincident([line3.end, line4.start])
  coincident([line4.end, line1.start])
}
region1 = region(point = [5mm, 5mm], sketch = profile)

body = extrude(region1, length = 5mm, tagStart = $bottom, tagEnd = $top)
bottomFromBody = body.faces.bottom
topFromBody = body.faces.top
lineFromSketch = region1.tags.line1
legacyBottom = bottom
legacyTop = top
"#;

        let result = parse_execute(program).await.unwrap();
        assert_body_face_tags(&result, &["bottom", "top"], &["line1"]);
        assert_vars_are_tags(
            &result,
            &[
                "bottom",
                "top",
                "bottomFromBody",
                "topFromBody",
                "lineFromSketch",
                "legacyBottom",
                "legacyTop",
            ],
        );
        assert_vars_are_missing(&result, &["line1"]);
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn extrude_without_tag_arguments_does_not_get_face_tags() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XY) {
  line1 = line(start = [var 0mm, var 0mm], end = [var 10mm, var 0mm])
  line2 = line(start = [var 10mm, var 0mm], end = [var 10mm, var 10mm])
  line3 = line(start = [var 10mm, var 10mm], end = [var 0mm, var 10mm])
  line4 = line(start = [var 0mm, var 10mm], end = [var 0mm, var 0mm])
  coincident([line1.end, line2.start])
  coincident([line2.end, line3.start])
  coincident([line3.end, line4.start])
  coincident([line4.end, line1.start])
}
region1 = region(point = [5mm, 5mm], sketch = profile)

body = extrude(region1, length = 5mm)
"#;

        let result = parse_execute(program).await.unwrap();
        let body = get_var(&result, "body");
        let KclValue::Solid { value: body } = body else {
            panic!("expected `body` to be a solid");
        };

        assert!(
            body.faces.is_empty(),
            "body faces should only be populated for tagged calls"
        );
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn revolve_tagged_body_gets_face_tags() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XY) {
  side = line(start = [var 5mm, var 0mm], end = [var 5mm, var 10mm])
  line2 = line(start = [var 5mm, var 10mm], end = [var 6mm, var 10mm])
  line3 = line(start = [var 6mm, var 10mm], end = [var 6mm, var 0mm])
  line4 = line(start = [var 6mm, var 0mm], end = [var 5mm, var 0mm])
  coincident([side.end, line2.start])
  coincident([line2.end, line3.start])
  coincident([line3.end, line4.start])
  coincident([line4.end, side.start])
}
region1 = region(point = [5.5mm, 5mm], sketch = profile)

body = revolve(region1, axis = Y, angle = 90deg, tagStart = $startCap, tagEnd = $endCap)
startFromBody = body.faces.startCap
endFromBody = body.faces.endCap
sideFromSketch = region1.tags.side
legacyStart = startCap
legacyEnd = endCap
"#;

        let result = parse_execute(program).await.unwrap();
        assert_body_face_tags(&result, &["startCap", "endCap"], &["side"]);
        assert_vars_are_tags(
            &result,
            &[
                "startCap",
                "endCap",
                "startFromBody",
                "endFromBody",
                "sideFromSketch",
                "legacyStart",
                "legacyEnd",
            ],
        );
        assert_vars_are_missing(&result, &["side"]);
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn sweep_tagged_body_gets_face_tags() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XZ) {
  edge1 = line(start = [var 0mm, var 0mm], end = [var 2mm, var 0mm])
  edge2 = line(start = [var 2mm, var 0mm], end = [var 2mm, var 2mm])
  edge3 = line(start = [var 2mm, var 2mm], end = [var 0mm, var 2mm])
  edge4 = line(start = [var 0mm, var 2mm], end = [var 0mm, var 0mm])
  coincident([edge1.end, edge2.start])
  coincident([edge2.end, edge3.start])
  coincident([edge3.end, edge4.start])
  coincident([edge4.end, edge1.start])
}
profileRegion = region(point = [1mm, 1mm], sketch = profile)

pathSketch = sketch(on = offsetPlane(YZ, offset = -2mm)) {
  pathLine = line(start = [var 0mm, var 0mm], end = [var 0mm, var 5mm])
}

body = sweep(profileRegion, path = pathSketch.pathLine, tagStart = $startCap, tagEnd = $endCap)
startFromBody = body.faces.startCap
endFromBody = body.faces.endCap
edgeFromSketch = profileRegion.tags.edge1
pathFromSketch = pathSketch.pathLine
legacyStart = startCap
legacyEnd = endCap
"#;

        let result = parse_execute(program).await.unwrap();
        assert_body_face_tags(&result, &["startCap", "endCap"], &["edge1", "pathLine"]);
        assert_vars_are_tags(
            &result,
            &[
                "startCap",
                "endCap",
                "startFromBody",
                "endFromBody",
                "edgeFromSketch",
                "legacyStart",
                "legacyEnd",
            ],
        );
        assert_vars_are_missing(&result, &["edge1", "pathLine"]);
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn loft_tagged_body_gets_face_tags() {
        let program = r#"@settings(kclVersion = 2.0)
lowerProfile = sketch(on = XY) {
  edge1 = line(start = [var 0mm, var 0mm], end = [var 6mm, var 0mm])
  edge2 = line(start = [var 6mm, var 0mm], end = [var 6mm, var 4mm])
  edge3 = line(start = [var 6mm, var 4mm], end = [var 0mm, var 4mm])
  edge4 = line(start = [var 0mm, var 4mm], end = [var 0mm, var 0mm])
  coincident([edge1.end, edge2.start])
  coincident([edge2.end, edge3.start])
  coincident([edge3.end, edge4.start])
  coincident([edge4.end, edge1.start])
}
lowerRegion = region(point = [3mm, 2mm], sketch = lowerProfile)

upperProfile = sketch(on = offsetPlane(XY, offset = 8mm)) {
  edge5 = line(start = [var 1mm, var 1mm], end = [var 5mm, var 1mm])
  edge6 = line(start = [var 5mm, var 1mm], end = [var 4mm, var 3mm])
  edge7 = line(start = [var 4mm, var 3mm], end = [var 2mm, var 3mm])
  edge8 = line(start = [var 2mm, var 3mm], end = [var 1mm, var 1mm])
  coincident([edge5.end, edge6.start])
  coincident([edge6.end, edge7.start])
  coincident([edge7.end, edge8.start])
  coincident([edge8.end, edge5.start])
}
upperRegion = region(point = [3mm, 2mm], sketch = upperProfile)

body = loft([lowerRegion, upperRegion], tagStart = $startCap, tagEnd = $endCap)
startFromBody = body.faces.startCap
endFromBody = body.faces.endCap
edgeFromSketch = lowerRegion.tags.edge1
legacyStart = startCap
legacyEnd = endCap
"#;

        let result = parse_execute(program).await.unwrap();
        assert_body_face_tags(&result, &["startCap", "endCap"], &["edge1"]);
        assert_vars_are_tags(
            &result,
            &[
                "startCap",
                "endCap",
                "startFromBody",
                "endFromBody",
                "edgeFromSketch",
                "legacyStart",
                "legacyEnd",
            ],
        );
        assert_vars_are_missing(&result, &["edge1"]);
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn chamfer_tagged_body_gets_face_tags() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XY) {
  edge1 = line(start = [var 0mm, var 0mm], end = [var 10mm, var 0mm])
  edge2 = line(start = [var 10mm, var 0mm], end = [var 10mm, var 10mm])
  edge3 = line(start = [var 10mm, var 10mm], end = [var 0mm, var 10mm])
  edge4 = line(start = [var 0mm, var 10mm], end = [var 0mm, var 0mm])
  coincident([edge1.end, edge2.start])
  coincident([edge2.end, edge3.start])
  coincident([edge3.end, edge4.start])
  coincident([edge4.end, edge1.start])
}
profileRegion = region(point = [5mm, 5mm], sketch = profile)

base = extrude(profileRegion, length = 5mm, tagEnd = $top)
body = chamfer(base, tags = getCommonEdge(faces = [profileRegion.tags.edge1, top]), length = 1mm, tag = $chamferFace)
chamferFromBody = body.faces.chamferFace
topFromBody = body.faces.top
edgeFromSketch = profileRegion.tags.edge1
legacyChamfer = chamferFace
legacyTop = top
"#;

        let result = parse_execute(program).await.unwrap();
        assert_body_face_tags(&result, &["top", "chamferFace"], &["edge1"]);
        assert_vars_are_tags(
            &result,
            &[
                "top",
                "chamferFace",
                "chamferFromBody",
                "topFromBody",
                "edgeFromSketch",
                "legacyChamfer",
                "legacyTop",
            ],
        );
        assert_vars_are_missing(&result, &["edge1"]);
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn fillet_tagged_body_gets_face_tags() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XY) {
  edge1 = line(start = [var 0mm, var 0mm], end = [var 10mm, var 0mm])
  edge2 = line(start = [var 10mm, var 0mm], end = [var 10mm, var 10mm])
  edge3 = line(start = [var 10mm, var 10mm], end = [var 0mm, var 10mm])
  edge4 = line(start = [var 0mm, var 10mm], end = [var 0mm, var 0mm])
  coincident([edge1.end, edge2.start])
  coincident([edge2.end, edge3.start])
  coincident([edge3.end, edge4.start])
  coincident([edge4.end, edge1.start])
}
profileRegion = region(point = [5mm, 5mm], sketch = profile)

base = extrude(profileRegion, length = 5mm, tagEnd = $top)
body = fillet(base, tags = getCommonEdge(faces = [profileRegion.tags.edge1, top]), radius = 1mm, tag = $filletFace)
filletFromBody = body.faces.filletFace
topFromBody = body.faces.top
edgeFromSketch = profileRegion.tags.edge1
legacyFillet = filletFace
legacyTop = top
"#;

        let result = parse_execute(program).await.unwrap();
        assert_body_face_tags(&result, &["top", "filletFace"], &["edge1"]);
        assert_vars_are_tags(
            &result,
            &[
                "top",
                "filletFace",
                "filletFromBody",
                "topFromBody",
                "edgeFromSketch",
                "legacyFillet",
                "legacyTop",
            ],
        );
        assert_vars_are_missing(&result, &["edge1"]);
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn accessing_body_tag_through_body_sketch_tags_warns() {
        let program = r#"@settings(kclVersion = 2.0)
profile = startSketchOn(XY)
  |> startProfile(at = [0, 0])
  |> line(end = [10, 0], tag = $line1)
  |> line(end = [0, 10])
  |> line(end = [-10, 0])
  |> close()

body = extrude(profile, length = 5, tagEnd = $top)
topFromSketch = body.sketch.tags.top
topFromBody = body.faces.top
"#;

        let result = parse_execute(program).await.unwrap();
        assert!(matches!(get_var(&result, "topFromSketch"), KclValue::TagIdentifier(_)));
        assert!(matches!(get_var(&result, "topFromBody"), KclValue::TagIdentifier(_)));

        let warnings = deprecated_solid_tag_access_warnings(&result);
        assert_eq!(warnings.len(), 1, "expected one deprecation warning, got {warnings:#?}");
        assert_eq!(warnings[0].severity, Severity::Warning);
        assert!(warnings[0].message.contains("`top`"), "found {}", warnings[0].message);
        assert!(
            warnings[0].message.contains("Accessing solid-created face `top` through sketch tags is deprecated. Use the body's faces instead, e.g. `body.faces.top`."),
            "found {}",
            warnings[0].message
        );
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn accessing_sketch_path_tag_through_body_sketch_tags_does_not_warn() {
        let program = r#"@settings(kclVersion = 2.0)
profile = startSketchOn(XY)
  |> startProfile(at = [0, 0])
  |> line(end = [10, 0], tag = $line1)
  |> line(end = [0, 10])
  |> line(end = [-10, 0])
  |> close()

body = extrude(profile, length = 5, tagEnd = $top)
lineFromSketch = body.sketch.tags.line1
"#;

        let result = parse_execute(program).await.unwrap();
        assert!(matches!(get_var(&result, "lineFromSketch"), KclValue::TagIdentifier(_)));
        let warnings = deprecated_solid_tag_access_warnings(&result);
        assert!(
            warnings.is_empty(),
            "sketch path tags should not get body-tag deprecation warnings: {warnings:#?}"
        );
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn accessing_body_tag_through_sketch_block_region_tags_warns() {
        let program = r#"@settings(kclVersion = 2.0)
profile = sketch(on = XY) {
  line1 = line(start = [0, 0], end = [10, 0])
  line2 = line(start = [10, 0], end = [10, 10])
  line3 = line(start = [10, 10], end = [0, 10])
  line4 = line(start = [0, 10], end = [0, 0])
}

profileRegion = region(point = [1, 1], sketch = profile)
body = extrude(profileRegion, length = 5, tagEnd = $top)
topFromRegion = profileRegion.tags.top
"#;

        let result = parse_execute(program).await.unwrap();
        assert!(matches!(get_var(&result, "topFromRegion"), KclValue::TagIdentifier(_)));

        let warnings = deprecated_solid_tag_access_warnings(&result);
        assert_eq!(warnings.len(), 1, "expected one deprecation warning, got {warnings:#?}");
        assert_eq!(warnings[0].severity, Severity::Warning);
        assert!(warnings[0].message.contains("`top`"), "found {}", warnings[0].message);
    }

    fn deprecation_warnings(result: &ExecTestResults) -> Vec<&CompilationIssue> {
        result
            .exec_state
            .issues()
            .iter()
            .filter(|issue| issue.message.contains("is deprecated"))
            .collect()
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn passing_param_deprecated_for_all_versions_warns() {
        // `@(deprecated = true)` deprecates the parameter regardless of the KCL
        // version, so even on the latest version the call should warn.
        let program = r#"@settings(kclVersion = 2.0)
fn f(
  @a: number,
  @(deprecated = true)
  oldArg?: number,
) {
  return a
}
x = f(1, oldArg = 2)
"#;

        let result = parse_execute(program).await.unwrap();
        let warnings = deprecation_warnings(&result);
        assert_eq!(warnings.len(), 1, "expected one deprecation warning, got {warnings:#?}");
        assert_eq!(warnings[0].severity, Severity::Warning);
        assert!(
            warnings[0].message.contains("`f(oldArg)` is deprecated"),
            "found {}",
            warnings[0].message
        );
    }

    #[tokio::test(flavor = "multi_thread")]
    async fn not_passing_deprecated_param_does_not_warn() {
        let program = r#"fn f(
  @a: number,
  @(deprecated = true)
  oldArg?: number,
) {
  return a
}
x = f(1)
"#;

        let result = parse_execute(program).await.unwrap();
        let warnings = deprecation_warnings(&result);
        assert!(
            warnings.is_empty(),
            "unused deprecated parameter should not warn: {warnings:#?}"
        );
    }
}