uiua 0.18.1

/*!
The Uiua programming language

This is the crate so you can use Uiua as a Rust library. If you just want to write programs in Uiua, you can check out [uiua.org](https://uiua.org) or the [GitHub repo](https://github.com/uiua-lang/uiua).

# Usage

The `uiua` crate is set up primarily to be installed as a binary. For this reason, when using it as a library, you'll likely want to disable default features.

This disables some of the features that many users are used to having, so to re-enable things like regex and media encoding, you can enable the `batteries` feature.
```toml
# Cargo.toml
[dependencies]
uiua = { version = "*", default-features = false, features = ["batteries"] }
```

The main entry point is the [`Uiua`] struct, which is the Uiua runtime. It must be created with a [`SysBackend`]. [`Uiua::with_native_sys`] is a convenient way to create a Uiua runtime that uses the same backend as the Uiua CLI, though keep in mind it gives full access to the filesystem and TCP sockets and so probably shouldn't be used in a sandboxed environment.

[`Value`] is the generic value type. It wraps one of five [`Array`] types.

You can run Uiua code with [`Uiua::run_str`] or [`Uiua::run_file`].
```rust
use uiua::*;

let mut uiua = Uiua::with_native_sys();
uiua.run_str("&p + 1 2").unwrap();
```
You can push values onto the stack with [`Uiua::push`]. When you're done, you can get the results with [`Uiua::pop`], [`Uiua::take_stack`], or one of numerous pop+conversion convenience functions.
```rust
use uiua::*;

let mut uiua = Uiua::with_native_sys();
uiua.push(1);
uiua.push(2);
uiua.run_str("+").unwrap();
let res = uiua.pop_int().unwrap();
assert_eq!(res, 3);
```

Sometimes, you need to configure the compiler before running.

You can create a new compiler with [`Compiler::new`]. Strings or files can be compiled with [`Compiler::load_str`] or [`Compiler::load_file`] respectively.
You can get the compiled assembly with [`Compiler::finish`] and run it with [`Uiua::run_asm`].
```rust
use uiua::*;

let mut comp = Compiler::new();
comp.print_diagnostics(true);
let asm = comp.load_str("+ 3 5").unwrap().finish();

let mut uiua = Uiua::with_native_sys();
uiua.run_asm(asm).unwrap();
let res = uiua.pop_int().unwrap();
assert_eq!(res, 8);
```

This can be shortened a bit with [`Uiua::compile_run`].
```rust
use uiua::*;

let mut uiua = Uiua::with_native_sys();
uiua.compile_run(|comp| {
    comp.print_diagnostics(true).load_str("+ 3 5")
});
```

You can create and bind Rust functions with [`Compiler::create_function`], [`Compiler::bind_function`], and [`Compiler::create_bind_function`]
```rust
use uiua::*;

let mut comp = Compiler::new();
comp.create_bind_function("MyAdd", (2, 1), |uiua| {
    let a = uiua.pop_num()?;
    let b = uiua.pop_num()?;
    uiua.push(a + b);
    Ok(())
}).unwrap();
comp.load_str("MyAdd 2 3").unwrap();
let asm = comp.finish();

let mut uiua = Uiua::with_native_sys();
uiua.run_asm(asm).unwrap();
let res = uiua.pop_num().unwrap();
assert_eq!(res, 5.0);
```

Bindings can be retrieved with [`Uiua::bound_values`] or [`Uiua::bound_functions`].
```rust
use uiua::*;

let mut uiua = Uiua::with_native_sys();
uiua.run_str("
    X ← 5
    F ← +1
").unwrap();

let x = uiua.bound_values().remove("X").unwrap();
assert_eq!(x.as_int(&uiua, None).unwrap(), 5);

let f = uiua.bound_functions().remove("F").unwrap();
let mut comp = Compiler::new().with_assembly(uiua.take_asm());
comp.create_bind_function("AddTwo", (1, 1), move |uiua| {
    uiua.call(&f)?;
    uiua.call(&f)
}).unwrap();
comp.load_str("AddTwo 3").unwrap();
uiua.run_asm(comp.finish()).unwrap();
let res = uiua.pop_int().unwrap();
assert_eq!(res, 5);
```

You can format Uiua code with the [`mod@format`] module.
```rust
use uiua::format::*;

let input = "resh3_4rang12";
let config = FormatConfig::default().with_trailing_newline(false);
let formatted = format_str(input, &config).unwrap().output;
assert_eq!(formatted, "↯3_4⇡12");
```

# Features

The `uiua` crate has the following noteable feature flags:
- `batteries`: Enables the following features:
    - `regex`: Enables the `regex` function
    - `image`: Enables image encoding and decoding
    - `gif`: Enables GIF encoding and decoding
    - `audio_encode`: Enables audio encoding and decoding
- `native_sys`: Enables the [`NativeSys`] backend. This is the default backend used by the interpreter.
- `audio`: Enables audio features in the [`NativeSys`] backend.
- `https`: Enables the `&httpsw` system function
- `invoke`: Enables the `&invk` system function
- `trash`: Enables the `&ftr` system function
- `raw_mode`: Enables the `&raw` system function
*/

#![allow(
    unknown_lints,
    clippy::single_match,
    clippy::needless_range_loop,
    clippy::mutable_key_type,
    clippy::match_like_matches_macro,
    mismatched_lifetime_syntaxes
)]
#![warn(missing_docs)]

mod algorithm;
mod array;
mod assembly;
mod boxed;
mod check;
mod compile;
mod constant;
mod cowslice;
mod error;
mod ffi;
mod fill;
pub mod format;
mod function;
mod grid_fmt;
mod impl_prim;
pub mod lsp;
#[doc(hidden)]
pub mod profile;
mod run;
mod run_prim;
mod shape;
#[cfg(feature = "stand")]
#[doc(hidden)]
pub mod stand;
mod sys;
mod tree;
mod types;
mod value;
#[cfg(feature = "window")]
#[doc(hidden)]
pub mod window;

#[allow(unused_imports)]
pub use self::{
    algorithm::{IgnoreError, media},
    array::*,
    assembly::*,
    boxed::*,
    compile::*,
    constant::*,
    error::*,
    ffi::*,
    function::*,
    impl_prim::*,
    lsp::{SpanKind, Spans},
    run::*,
    run_prim::*,
    shape::*,
    sys::*,
    tree::*,
    value::*,
};
#[doc(inline)]
pub use uiua_parser::*;

use self::algorithm::get_ops;

/// The Uiua version
pub const VERSION: &str = env!("CARGO_PKG_VERSION");

/// A Uiua identifier
pub type Ident = ecow::EcoString;

fn is_default<T: Default + PartialEq>(v: &T) -> bool {
    v == &T::default()
}

const _: () = {
    assert!(
        size_of::<usize>() >= size_of::<u32>(),
        "Code requires that word size be at least four bytes"
    );
};

#[cfg(test)]
mod tests {
    use std::{path::*, process::exit};

    use uiua_parser::PrimClass;

    use crate::{Compiler, Primitive, Uiua};

    fn test_files(filter: impl Fn(&Path) -> bool) -> impl Iterator<Item = PathBuf> {
        std::fs::read_dir("tests")
            .unwrap()
            .map(|entry| entry.unwrap().path())
            .filter(move |path| {
                path.is_file() && path.extension().is_some_and(|s| s == "ua") && filter(path)
            })
    }

    #[test]
    #[cfg(feature = "native_sys")]
    fn suite() {
        use super::*;
        use std::thread;

        let threads: Vec<_> = test_files(|path| {
            !(path.file_stem().unwrap())
                .to_string_lossy()
                .contains("error")
        })
        .map(|path| {
            thread::spawn(move || {
                let code = std::fs::read_to_string(&path).unwrap();
                // Test running
                let mut env = Uiua::with_native_sys();
                let mut comp = Compiler::with_backend(NativeSys);
                if let Err(e) = comp
                    .load_str_src(&code, &path)
                    .and_then(|comp| env.run_asm(comp.asm.clone()))
                {
                    panic!("Test failed in {}:\n{}", path.display(), e.report());
                }
                if let Some(diag) = comp
                    .take_diagnostics()
                    .into_iter()
                    .find(|d| d.kind > DiagnosticKind::Advice)
                {
                    panic!("Test failed in {}:\n{}", path.display(), diag.report());
                }
                let (stack, under_stack) = env.take_stacks();
                if !stack.is_empty() {
                    panic!("{} had a non-empty stack", path.display());
                }
                if !under_stack.is_empty() {
                    panic!("{} had a non-empty under stack", path.display());
                }

                // Make sure lsp spans doesn't panic
                _ = Spans::from_input(&code);
            })
        })
        .collect();
        for thread in threads {
            if let Err(e) = thread.join() {
                if let Some(s) = e.downcast_ref::<String>() {
                    panic!("{s}");
                } else {
                    panic!("{e:?}");
                }
            }
        }
        _ = std::fs::remove_file("example.ua");
    }

    #[test]
    #[cfg(feature = "native_sys")]
    fn error_dont_crash() {
        use super::*;
        let path = Path::new("tests_special/error.ua");
        let mut code = std::fs::read_to_string(path).unwrap();
        if code.contains('\r') {
            code = code.replace('\r', "");
        }
        for section in code.split("\n\n") {
            let mut env = Uiua::with_native_sys();
            let mut comp = Compiler::new();
            let res = comp
                .load_str_src(section, path)
                .and_then(|comp| env.run_asm(comp.finish()));
            match res {
                Ok(_) => {
                    if (comp.take_diagnostics().into_iter())
                        .filter(|diag| diag.kind > DiagnosticKind::Advice)
                        .count()
                        == 0
                    {
                        panic!(
                            "Test succeeded when it should have failed in {}:\n{}",
                            path.display(),
                            section
                        );
                    }
                }
                Err(e) => {
                    let message = e.to_string();
                    if message.contains("interpreter") {
                        panic!(
                            "Test resulted in an interpreter bug in {}:\n{}\n{}",
                            path.display(),
                            e.report(),
                            section
                        );
                    }
                }
            }
        }
    }

    #[test]
    #[cfg(feature = "native_sys")]
    fn assembly_round_trip() {
        use super::*;
        let path = Path::new("tests_special/uasm.ua");
        let mut comp = Compiler::with_backend(NativeSys);
        comp.load_file(path).unwrap();
        let asm = comp.finish();
        let root = asm.root.clone();
        let uasm = asm.to_uasm();
        let asm = Assembly::from_uasm(&uasm).unwrap();
        assert_eq!(asm.root, root);
        let mut env = Uiua::with_native_sys();
        env.run_asm(asm.clone()).unwrap();
        // Run twice to make sure module caching works
        env = Uiua::with_native_sys();
        env.run_asm(asm).unwrap();
    }

    #[test]
    fn lsp_spans() {
        use super::*;
        for path in test_files(|_| true) {
            let code = std::fs::read_to_string(&path).unwrap();
            Spans::from_input(&code);
        }
    }

    #[test]
    fn no_dbgs() {
        if crate::compile::invert::DEBUG {
            panic!("compile::invert::DEBUG is true");
        }
        if crate::compile::optimize::DEBUG {
            panic!("compile::optimize::DEBUG is true");
        }
        if crate::compile::algebra::DEBUG {
            panic!("compile::algebra::DEBUG is true");
        }
    }

    #[test]
    fn external_bind_before() {
        let mut comp = Compiler::new();
        comp.create_bind_function("F", (2, 1), |env| {
            let a = env.pop_num().unwrap();
            let b = env.pop_num().unwrap();
            env.push(a + b);
            Ok(())
        })
        .unwrap();
        comp.load_str(
            "F = |2 # External!\n\
             F 1 2",
        )
        .unwrap();

        let mut env = Uiua::with_native_sys();
        env.run_compiler(&mut comp)
            .unwrap_or_else(|e| panic!("{e}"));
        let res = env.pop_int().unwrap();
        assert_eq!(res, 3);
    }

    #[test]
    fn external_bind_after() {
        let mut comp = Compiler::new();
        comp.load_str(
            "F = |2 # External!\n\
             F 1 2",
        )
        .unwrap();
        comp.create_bind_function("F", (2, 1), |env| {
            let a = env.pop_num().unwrap();
            let b = env.pop_num().unwrap();
            env.push(a + b);
            Ok(())
        })
        .unwrap();

        let mut env = Uiua::with_native_sys();
        env.run_compiler(&mut comp)
            .unwrap_or_else(|e| panic!("{e}"));
        let res = env.pop_int().unwrap();
        assert_eq!(res, 3);
    }

    #[test]
    #[ignore] // Too expensive.
    /// Run with:
    /// ```
    /// cargo t fuzz -- --nocapture --ignored
    /// ```
    fn fuzz() {
        let iter = Primitive::non_deprecated().filter(|p| !matches!(p, Primitive::Sys(_)));
        let arg_strs: Vec<_> = ((0..3).map(|n| {
            ((0..=6).map(|i| {
                let mut s = String::new();
                for j in 0..i {
                    if j > 0 {
                        s.push(' ');
                    }
                    s.push('[');
                    for k in 0..n {
                        if k > 0 {
                            s.push(' ');
                        }
                        s.push_str(&(j * n + k).to_string());
                    }
                    s.push(']');
                }
                s
            }))
            .collect::<Vec<_>>()
        }))
        .collect();
        for needs_name in [false, true] {
            for a in
                (iter.clone()).filter(|p| p.class() != PrimClass::Arguments || p.sig().is_none())
            {
                for b in iter.clone() {
                    for c in iter.clone() {
                        if a.glyph().is_none()
                            || b.glyph().is_none()
                            || c.glyph().is_none() != needs_name
                        {
                            continue;
                        }
                        if [a, c] == [Primitive::Repeat, Primitive::Infinity]
                            || [a, b] == [Primitive::Un, Primitive::Repeat]
                            || a == Primitive::Do
                        {
                            continue;
                        }
                        let arg_count = (a.sig().zip(b.sig()).zip(c.sig()))
                            .map(|((a, b), c)| c.compose(b.compose(a)).args())
                            .unwrap_or(4);
                        for args in &arg_strs {
                            let args = &args[arg_count];
                            let code = format!("{a}{b}{c} {args}");
                            eprintln!("{code}");
                            if let Err(e) = Uiua::with_safe_sys().run_str(&code)
                                && e.to_string().contains("The interpreter has crashed!")
                            {
                                exit(1);
                            }
                        }
                    }
                }
            }
        }
    }
}