forked from Orchid/orchid
46 lines
1.3 KiB
Rust
46 lines
1.3 KiB
Rust
|
|
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))))
|
|
}); |