mica-std 0.5.0

The standard library of Mica, a simple, user-friendly, embeddable scripting language
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

//! Core functions.

use std::fmt;
use std::fmt::Write;

use mica_hl::{Arguments, Engine, MicaResultExt, Value};

use crate::gc::load_gc;
use crate::iterators::load_iterators;

fn print(arguments: Arguments) {
   for value in arguments.array() {
      print!("{value}");
   }
   println!();
}

fn debug(arguments: Arguments) {
   for (i, value) in arguments.array().iter().enumerate() {
      if i > 0 {
         print!("\t");
      }
      print!("{value:?}");
   }
   println!();
}

#[derive(Debug)]
struct UserError(String);

impl fmt::Display for UserError {
   fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
      write!(f, "{}", self.0)
   }
}

impl std::error::Error for UserError {}

fn error(arguments: Arguments) -> Result<(), UserError> {
   let mut message = String::new();
   for value in arguments.array() {
      write!(message, "{}", value).unwrap();
   }
   Err(UserError(message))
}

fn assert(condition: Value, message: Option<Value>) -> Result<Value, mica_hl::Error> {
   if condition.is_falsy() {
      let message =
         message.map(|value| value.to_string()).unwrap_or_else(|| "assertion failed".to_owned());
      Err(message).mica()
   } else {
      Ok(condition)
   }
}

/// Loads the core library into the engine.
pub fn load_core(engine: &mut Engine) -> Result<(), mica_hl::Error> {
   engine.add_function("print", print)?;
   engine.add_function("debug", debug)?;
   engine.add_function("error", error)?;
   engine.add_function("assert", assert)?;

   load_gc(engine)?;
   load_iterators(engine)?;

   Ok(())
}