amaru-uplc 0.1.0

A UPLC Evaluator as a CEK machine
Documentation
use crate::arena::Arena;

use super::{Binder, Eval};

#[derive(Debug)]
pub struct NamedDeBruijn<'a> {
    text: &'a str,
    index: usize,
}

impl<'a> NamedDeBruijn<'a> {
    pub fn new(arena: &'a Arena, text: &'a str, index: usize) -> &'a Self {
        arena.alloc(NamedDeBruijn { text, index })
    }
}

impl<'a> Binder<'a> for NamedDeBruijn<'a> {
    fn var_encode(&self, e: &mut crate::flat::Encoder) -> Result<(), crate::flat::FlatEncodeError> {
        e.utf8(self.text)?;
        e.word(self.index);

        Ok(())
    }

    fn var_decode(
        arena: &'a Arena,
        d: &mut crate::flat::Decoder,
    ) -> Result<&'a Self, crate::flat::FlatDecodeError> {
        let text = d.utf8(arena)?;
        let index = d.word()?;

        let nd = NamedDeBruijn::new(arena, text, index);

        Ok(nd)
    }

    fn parameter_encode(
        &self,
        e: &mut crate::flat::Encoder,
    ) -> Result<(), crate::flat::FlatEncodeError> {
        self.var_encode(e)
    }

    fn parameter_decode(
        arena: &'a Arena,
        d: &mut crate::flat::Decoder,
    ) -> Result<&'a Self, crate::flat::FlatDecodeError> {
        Self::var_decode(arena, d)
    }
}

impl<'a> Eval<'a> for NamedDeBruijn<'a> {
    fn index(&self) -> usize {
        self.index
    }
}