Working example

src/external/conv/parse_uint.rs

@@ -0,0 +1,46 @@
+
+use chumsky::Parser;
+
+use std::fmt::Debug;
+use std::hash::Hash;
+
+use super::super::assertion_error::AssertionError;
+use crate::parse::int_parser;
+use crate::{atomic_impl, atomic_redirect, externfn_impl};
+use crate::foreign::ExternError;
+use crate::representations::{Primitive, Literal};
+use crate::representations::interpreted::Clause;
+
+/// Parse a number
+/// 
+/// Next state: [ParseUint0]
+
+#[derive(Clone)]
+pub struct ParseUint1;
+externfn_impl!(ParseUint1, |_: &Self, c: Clause| {Ok(ParseUint0{c})});
+
+/// Applied ParseUint function
+/// 
+/// Prev state: [ParseUint1]
+
+#[derive(Debug, Clone, PartialEq, Hash)]
+pub struct ParseUint0{ c: Clause }
+atomic_redirect!(ParseUint0, c);
+atomic_impl!(ParseUint0, |Self{ c }: &Self| {
+  let literal: &Literal = c.try_into()
+    .map_err(|_| AssertionError::ext(c.clone(), "a literal value"))?;
+  let uint = match literal {
+    Literal::Str(s) => {
+      let parser = int_parser();
+      parser.parse(s.as_str()).map_err(|_| AssertionError{
+        value: c.clone(), assertion: "cannot be parsed into an unsigned int"
+      }.into_extern())?
+    }
+    Literal::Num(n) => n.floor() as u64,
+    Literal::Uint(i) => *i,
+    Literal::Char(char) => char.to_digit(10).ok_or(AssertionError{
+      value: c.clone(), assertion: "is not a decimal digit"
+    }.into_extern())? as u64
+  };
+  Ok(Clause::P(Primitive::Literal(Literal::Uint(uint))))
+});