simfony 0.1.0

use std::sync::Arc;

use simplicity::dag::{InternalSharing, PostOrderIterItem};
use simplicity::jet::{Elements, Jet};
use simplicity::node::{
    self, CommitData, ConstructData as WitnessData, Constructible, Converter, CoreConstructible,
    Inner, JetConstructible, NoDisconnect, NoWitness, Node, WitnessConstructible,
};
use simplicity::types::arrow::Arrow;
use simplicity::{types, CommitNode, FailEntropy};
use simplicity::{Cmr, ConstructNode as WitnessNode};

use crate::str::WitnessName;
use crate::value::StructuralValue;
use crate::witness::WitnessValues;

/// Marker for [`ConstructNode`].
#[derive(Copy, Clone, PartialEq, Eq, PartialOrd, Ord, Debug, Hash)]
pub struct Construct<N> {
    /// Makes the type non-constructible.
    never: std::convert::Infallible,
    /// Required by Rust.
    phantom: std::marker::PhantomData<N>,
}

/// Sharing ID of [`ConstructNode`].
/// Cannot be constructed because there is no sharing.
#[derive(Copy, Clone, PartialEq, Eq, PartialOrd, Ord, Debug, Hash)]
pub enum ConstructId {}

impl<J: Jet> node::Marker for Construct<J> {
    type CachedData = ConstructData<J>;
    type Witness = WitnessName;
    type Disconnect = NoDisconnect;
    type SharingId = ConstructId;
    type Jet = J;

    fn compute_sharing_id(_: Cmr, _cached_data: &Self::CachedData) -> Option<Self::SharingId> {
        None
    }
}

/// [`simplicity::ConstructNode`] with named witness nodes.
///
/// Nodes other than witness don't have names.
pub type ConstructNode = Node<Construct<Elements>>;

// FIXME: The following methods cannot be implemented for simplicity::node::Node because that is a foreign type

/// Convert [`ConstructNode`] into [`CommitNode`] by dropping the name of witness nodes.
pub fn to_commit_node(node: &ConstructNode) -> Result<Arc<CommitNode<Elements>>, types::Error> {
    struct Forgetter;

    impl<J: Jet> Converter<Construct<J>, node::Commit<J>> for Forgetter {
        type Error = types::Error;

        fn convert_witness(
            &mut self,
            _: &PostOrderIterItem<&Node<Construct<J>>>,
            _: &WitnessName,
        ) -> Result<NoWitness, Self::Error> {
            Ok(NoWitness)
        }

        fn convert_disconnect(
            &mut self,
            _: &PostOrderIterItem<&Node<Construct<J>>>,
            _: Option<&Arc<CommitNode<J>>>,
            _: &NoDisconnect,
        ) -> Result<NoDisconnect, Self::Error> {
            Ok(NoDisconnect)
        }

        fn convert_data(
            &mut self,
            data: &PostOrderIterItem<&Node<Construct<J>>>,
            inner: Inner<&Arc<CommitNode<J>>, J, &NoDisconnect, &NoWitness>,
        ) -> Result<Arc<CommitData<J>>, Self::Error> {
            let arrow = data.node.cached_data().arrow();
            let inner = inner.map(Arc::as_ref).map(CommitNode::<J>::cached_data);
            CommitData::new(arrow, inner).map(Arc::new)
        }
    }

    node.convert::<InternalSharing, _, _>(&mut Forgetter)
}

/// Convert [`ConstructNode`] into [`WitnessNode`] by populating witness nodes with their assigned values.
///
/// Each witness node has a name. If there is no value assigned to this name,
/// then the node is left empty.
///
/// When [`WitnessNode`] is finalized to [`node::RedeemNode`], there will be an error if any witness
/// node on a used (unpruned) branch is empty. It is the responsibility of the caller to ensure that
/// all used witness nodes have an assigned value.
///
/// ## Soundness
///
/// It is the responsibility of the caller to ensure that the given witness `values` match the
/// types in the construct `node`. This can be done by calling [`WitnessValues::is_consistent`]
/// on the original Simfony program before it is compiled to Simplicity.
pub fn to_witness_node(node: &ConstructNode, values: WitnessValues) -> Arc<WitnessNode<Elements>> {
    struct Populator {
        values: WitnessValues,
        inference_context: types::Context,
    }

    impl<J: Jet> Converter<Construct<J>, node::Construct<J>> for Populator {
        type Error = ();

        fn convert_witness(
            &mut self,
            _: &PostOrderIterItem<&Node<Construct<J>>>,
            witness: &WitnessName,
        ) -> Result<Option<simplicity::Value>, Self::Error> {
            let maybe_value = self
                .values
                .get(witness)
                .map(StructuralValue::from)
                .map(simplicity::Value::from);
            Ok(maybe_value)
        }

        fn convert_disconnect(
            &mut self,
            _: &PostOrderIterItem<&Node<Construct<J>>>,
            _: Option<&Arc<WitnessNode<J>>>,
            _: &NoDisconnect,
        ) -> Result<Option<Arc<WitnessNode<J>>>, Self::Error> {
            Ok(None)
        }

        fn convert_data(
            &mut self,
            _: &PostOrderIterItem<&Node<Construct<J>>>,
            inner: Inner<
                &Arc<WitnessNode<J>>,
                J,
                &Option<Arc<WitnessNode<J>>>,
                &Option<simplicity::Value>,
            >,
        ) -> Result<WitnessData<J>, Self::Error> {
            let inner = inner
                .map(Arc::as_ref)
                .map(WitnessNode::<J>::cached_data)
                .map_witness(Option::<simplicity::Value>::clone);
            Ok(WitnessData::from_inner(&self.inference_context, inner).unwrap())
        }
    }

    let mut populator = Populator {
        inference_context: types::Context::new(),
        values,
    };
    node.convert::<InternalSharing, _, _>(&mut populator)
        .unwrap()
}

/// Copy of [`node::ConstructData`] with an implementation of [`WitnessConstructible<WitnessName>`].
#[derive(Clone, Debug)]
pub struct ConstructData<J> {
    arrow: Arrow,
    phantom: std::marker::PhantomData<J>,
}

impl<J> ConstructData<J> {
    /// Access the arrow of the node.
    pub fn arrow(&self) -> &Arrow {
        &self.arrow
    }
}

impl<J> From<Arrow> for ConstructData<J> {
    fn from(arrow: Arrow) -> Self {
        Self {
            arrow,
            phantom: std::marker::PhantomData,
        }
    }
}

impl<J> CoreConstructible for ConstructData<J> {
    fn iden(inference_context: &types::Context) -> Self {
        Arrow::iden(inference_context).into()
    }

    fn unit(inference_context: &types::Context) -> Self {
        Arrow::unit(inference_context).into()
    }

    fn injl(child: &Self) -> Self {
        Arrow::injl(&child.arrow).into()
    }

    fn injr(child: &Self) -> Self {
        Arrow::injr(&child.arrow).into()
    }

    fn take(child: &Self) -> Self {
        Arrow::take(&child.arrow).into()
    }

    fn drop_(child: &Self) -> Self {
        Arrow::drop_(&child.arrow).into()
    }

    fn comp(left: &Self, right: &Self) -> Result<Self, types::Error> {
        Arrow::comp(&left.arrow, &right.arrow).map(Self::from)
    }

    fn case(left: &Self, right: &Self) -> Result<Self, types::Error> {
        Arrow::case(&left.arrow, &right.arrow).map(Self::from)
    }

    fn assertl(left: &Self, right: Cmr) -> Result<Self, types::Error> {
        Arrow::assertl(&left.arrow, right).map(Self::from)
    }

    fn assertr(left: Cmr, right: &Self) -> Result<Self, types::Error> {
        Arrow::assertr(left, &right.arrow).map(Self::from)
    }

    fn pair(left: &Self, right: &Self) -> Result<Self, types::Error> {
        Arrow::pair(&left.arrow, &right.arrow).map(Self::from)
    }

    fn fail(inference_context: &types::Context, entropy: FailEntropy) -> Self {
        Arrow::fail(inference_context, entropy).into()
    }

    fn const_word(inference_context: &types::Context, word: simplicity::Word) -> Self {
        Arrow::const_word(inference_context, word).into()
    }

    fn inference_context(&self) -> &types::Context {
        self.arrow.inference_context()
    }
}

impl<J: Jet> JetConstructible<J> for ConstructData<J> {
    fn jet(inference_context: &types::Context, jet: J) -> Self {
        Arrow::jet(inference_context, jet).into()
    }
}

impl<J> WitnessConstructible<WitnessName> for ConstructData<J> {
    fn witness(inference_context: &types::Context, _: WitnessName) -> Self {
        Arrow::witness(inference_context, ()).into()
    }
}

/// More constructors for types that implement [`CoreConstructible`].
pub trait CoreExt: CoreConstructible + Sized {
    fn h(inference_context: &types::Context) -> PairBuilder<Self> {
        PairBuilder::iden(inference_context)
    }

    fn o() -> SelectorBuilder<Self> {
        SelectorBuilder::default().o()
    }

    fn i() -> SelectorBuilder<Self> {
        SelectorBuilder::default().i()
    }

    fn bit(inference_context: &types::Context, bit: bool) -> PairBuilder<Self> {
        match bit {
            false => PairBuilder::unit(inference_context).injl(),
            true => PairBuilder::unit(inference_context).injr(),
        }
    }

    /// Compose a unit with a scribed value.
    ///
    /// ## Infallibility
    ///
    /// `unit` produces the unit value, which is the input of `scribe(v)`.
    ///
    /// ```text
    /// unit      : A → 1
    /// scribe(v) : 1 → B
    /// ---------------------------
    /// comp unit scribe(v) : A → B
    /// ```
    fn unit_scribe(inference_context: &types::Context, value: &simplicity::Value) -> Self {
        Self::comp(
            &Self::unit(inference_context),
            &Self::scribe(inference_context, value),
        )
        .unwrap()
    }

    /// `assertl (take s) cmr` always type checks.
    fn assertl_take(&self, cmr: Cmr) -> Self {
        Self::assertl(&Self::take(self), cmr).unwrap()
    }

    /// `assertl (drop s) cmr` always type checks.
    fn assertl_drop(&self, cmr: Cmr) -> Self {
        Self::assertl(&Self::drop_(self), cmr).unwrap()
    }

    /// `assertr cmr (drop s)` always type checks.
    fn assertr_take(cmr: Cmr, right: &Self) -> Self {
        Self::assertr(cmr, &Self::take(right)).unwrap()
    }

    /// `assertr cmr (take s)` always type checks.
    fn assertr_drop(cmr: Cmr, right: &Self) -> Self {
        Self::assertr(cmr, &Self::drop_(right)).unwrap()
    }

    /// `case false true` always type-checks.
    fn case_false_true(inference_context: &types::Context) -> Self {
        Self::case(
            &Self::bit_false(inference_context),
            &Self::bit_true(inference_context),
        )
        .unwrap()
    }

    /// `case true false` always type-checks.
    fn case_true_false(inference_context: &types::Context) -> Self {
        Self::case(
            &Self::bit_true(inference_context),
            &Self::bit_false(inference_context),
        )
        .unwrap()
    }
}

impl<N: CoreConstructible> CoreExt for N {}

/// Builder of expressions that contain
/// `take`, `drop` and `iden` only.
///
/// These expressions always type-check.
#[derive(Debug, Clone, Hash)]
pub struct SelectorBuilder<P> {
    selection: Vec<bool>,
    program: std::marker::PhantomData<P>,
}

impl<P> Default for SelectorBuilder<P> {
    fn default() -> Self {
        Self {
            selection: Vec::default(),
            program: std::marker::PhantomData,
        }
    }
}

impl<P: CoreExt> SelectorBuilder<P> {
    /// Select the first component '0' of the input pair.
    pub fn o(mut self) -> Self {
        self.selection.push(false);
        self
    }

    /// Select the second component '1' of the input pair.
    pub fn i(mut self) -> Self {
        self.selection.push(true);
        self
    }

    /// Pop the last selection.
    ///
    /// ## Panics
    ///
    /// The stack of selections is empty.
    pub fn pop(mut self) -> Self {
        self.selection.pop().expect("Stack is empty");
        self
    }

    /// Select the current input value.
    pub fn h(self, inference_context: &types::Context) -> PairBuilder<P> {
        let mut expr = PairBuilder::iden(inference_context);
        for bit in self.selection.into_iter().rev() {
            match bit {
                false => expr = expr.take(),
                true => expr = expr.drop_(),
            }
        }
        expr
    }
}

/// Builder of expressions that can be composed in pairs without restriction.
///
/// ## Invariant
///
/// These expressions preserve the following invariant:
/// Their source type is a (nested) product of type variables.
/// The source type contains neither sums nor any concrete types.
#[derive(Debug, Clone, Hash)]
pub struct PairBuilder<P>(P);

impl<P: CoreExt> PairBuilder<P> {
    /// Create the unit expression.
    ///
    /// ## Invariant
    ///
    /// `unit` has a type variable as its source type.
    ///
    /// ```text
    /// ------------
    /// unit : A → 1
    /// ```
    pub fn unit(inference_context: &types::Context) -> Self {
        Self(P::unit(inference_context))
    }

    /// Create the identity expression.
    ///
    /// ## Invariant
    ///
    /// `iden` has a type variable as its source type.
    ///
    /// ```text
    /// ------------
    /// iden : A → A
    /// ```
    pub fn iden(inference_context: &types::Context) -> Self {
        Self(P::iden(inference_context))
    }

    /// Create the fail expression.
    ///
    /// ## Invariant
    ///
    /// `fail` has a type variable as its source type.
    ///
    /// ```text
    /// ------------
    /// fail : A → B
    /// ```
    pub fn fail(inference_context: &types::Context, entropy: FailEntropy) -> Self {
        Self(P::fail(inference_context, entropy))
    }

    /// Left-inject the expression.
    ///
    /// ## Invariant
    ///
    /// By induction, `t` has a nested product of type variables as its source type.
    /// `injl t` has the same source type as `t`.
    /// Therefore, `injl t` has a nested product of type variables as its source type.
    ///
    /// ```text
    /// t : A → B
    /// ------------------
    /// injl t : A → B + C
    /// ```
    pub fn injl(self) -> Self {
        Self(P::injl(&self.0))
    }

    /// Left-inject the expression.
    ///
    /// ## Invariant
    ///
    /// By induction, `t` has a nested product of type variables as its source type.
    /// `injr t` has the same source type as `t`.
    /// Therefore, `injr t` has a nested product of type variables as its source type.
    ///
    /// ```text
    /// t : A → C
    /// ------------------
    /// injr t : A → B + C
    /// ```
    pub fn injr(self) -> Self {
        Self(P::injr(&self.0))
    }

    /// Take the expression.
    ///
    /// ## Invariant
    ///
    /// By induction, `t` has a nested product of type variables as its source type `A`.
    /// `take t` has the product of type `A` and of the type variable `B` as its source type.
    /// Therefore, `take t` has a nested product of type variables as its source type.
    ///
    /// ```text
    /// t : A → C
    /// ------------------
    /// take t : A × B → C
    /// ```
    pub fn take(self) -> Self {
        Self(P::take(&self.0))
    }

    /// Drop the expression.
    ///
    /// ## Invariant
    ///
    /// By induction, `t` has a nested product of type variables as its source type `B`.
    /// `drop t` has the product of the type variable `A` and of type `B` as its source type.
    /// Therefore, `drop t` has a nested product of type variables as its source type.
    ///
    /// ```text
    /// t : B → C
    /// ------------------
    /// drop t : A × B → C
    /// ```
    pub fn drop_(self) -> Self {
        Self(P::drop_(&self.0))
    }

    /// Compose two expressions.
    ///
    /// ## Left-associativity
    ///
    /// ```text
    /// a.comp(b).comp(c) = comp (comp a b) c
    /// a.comp(b.comp(c)) = comp a (comp b c)
    /// ```
    ///
    /// ## Fallibility
    ///
    /// The composition will fail if the target type of the left sub-expression
    /// cannot be unified with the source type of the right sub-expression.
    ///
    /// ## Invariant
    ///
    /// By induction, `s` has a nested product of type variables as its source type.
    /// `comp s t` has the same source type as `s`.
    /// Therefore, `comp s t` has a nested product of type variables as its source type.
    ///
    /// Note that `t` can be **any** Simplicity expression since we don't need its invariant.
    ///
    /// ```text
    /// s : A → B
    /// t : B → C
    /// ----------------
    /// comp s t : A → C
    /// ```
    pub fn comp<Q: std::borrow::Borrow<P>>(self, other: &Q) -> Result<Self, types::Error> {
        P::comp(&self.0, other.borrow()).map(Self)
    }

    /// Pair two expressions.
    ///
    /// ## Left-associativity
    ///
    /// ```text
    /// a.pair(b).pair(c) = pair (pair a b) c
    /// a.pair(b.pair(c)) = pair a (pair b c)
    /// ```
    ///
    /// ## Infallibility
    ///
    /// `pair s t` unifies the source types of `s` and `t`.
    /// Unification fails when there is a mismatch between products, sums or concrete types.
    /// By induction, the source types of `s` and `t` are both nested products of type variables,
    /// which contain neither sums nor concrete types.
    /// Therefore, unification always succeeds.
    ///
    /// ```text
    /// s : A → B
    /// t : A → C
    /// --------------------
    /// pair s t : A → B × C
    /// ```
    ///
    /// ## Invariant
    ///
    ///  By induction, `s` has a nested product of type variables as its source type.
    /// `pair s t` has the same source type as `s`.
    /// Therefore, `pair s t` has a nested product of type variables as its source type.
    pub fn pair(self, other: Self) -> Self {
        Self(P::pair(&self.0, &other.0).unwrap())
    }

    /// Compose a unit with a scribed value.
    ///
    /// ## Invariant
    ///
    /// `unit` has a type variable as its source type.
    /// `comp unit scribe(v)` has the same source type as `unit`.
    /// Therefore, `comp unit scribe(v)` has a nested product of type variables as its source type.
    ///
    /// ```text
    /// unit      : A → 1
    /// scribe(v) : 1 → B
    /// ---------------------------
    /// comp unit scribe(v) : A → B
    /// ```
    pub fn unit_scribe(inference_context: &types::Context, value: &simplicity::Value) -> Self {
        Self(P::unit_scribe(inference_context, value))
    }
}

impl<P: WitnessConstructible<WitnessName>> PairBuilder<P> {
    /// Create the witness expression.
    ///
    /// ## Invariant
    ///
    /// `witness` has a type variable as its source type.
    ///
    /// ```text
    /// ---------------
    /// witness : A → B
    /// ```
    pub fn witness(inference_context: &types::Context, witness: WitnessName) -> Self {
        Self(P::witness(inference_context, witness))
    }
}

impl<P> PairBuilder<P> {
    /// Build the expression.
    pub fn build(self) -> P {
        self.0
    }
}

impl<P> AsRef<P> for PairBuilder<P> {
    fn as_ref(&self) -> &P {
        &self.0
    }
}

impl<P> std::borrow::Borrow<P> for PairBuilder<P> {
    fn borrow(&self) -> &P {
        &self.0
    }
}