• Home
• it.unibo.tuprolog
• solve-jvm
• 0.32.5
• source code
• Op.kt

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

commonMain.it.unibo.tuprolog.solve.stdlib.primitive.Op.kt Maven / Gradle / Ivy

package it.unibo.tuprolog.solve.stdlib.primitive

import it.unibo.tuprolog.core.Atom
import it.unibo.tuprolog.core.Integer
import it.unibo.tuprolog.core.Substitution
import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.core.operators.Operator
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.primitive.Solve
import it.unibo.tuprolog.solve.primitive.TernaryRelation
import it.unibo.tuprolog.solve.sideffects.SideEffect

object Op : TernaryRelation.NonBacktrackable("op") {
    override fun Solve.Request.computeOne(
        first: Term,
        second: Term,
        third: Term,
    ): Solve.Response {
        ensuringArgumentIsInteger(0)
        ensuringArgumentIsNonNegativeInteger(0)
        ensuringArgumentIsAtom(1)
        ensuringArgumentIsSpecifier(1)
        ensuringArgumentIsAtom(2)
        val operator = Operator.fromTerms(first as Integer, second as Atom, third as Atom)!!
        return replySuccess(
            Substitution.empty(),
            null,
            SideEffect.SetOperators(operator),
        )
    }
}