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

Go to download

Show more of this group Show more artifacts with this name
Show all versions of solve-jvm Show documentation

Resolution-agnostic API for logic solvers

There is a newer version: 1.0.4

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

import it.unibo.tuprolog.core.Clause
import it.unibo.tuprolog.core.Rule
import it.unibo.tuprolog.core.Struct
import it.unibo.tuprolog.core.Substitution
import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.core.Var
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.exception.error.PermissionError
import it.unibo.tuprolog.solve.primitive.Solve
import it.unibo.tuprolog.solve.primitive.UnaryPredicate
import it.unibo.tuprolog.utils.buffered

object Retract : UnaryPredicate("retract") {
    override fun Solve.Request.computeAll(first: Term): Sequence {
        ensuringArgumentIsWellFormedClause(0)
        val clause: Clause =
            when (first) {
                is Clause -> first
                is Struct -> Rule.of(first, Var.anonymous())
                else -> return sequenceOf(ensuringArgumentIsCallable(0).replyFail())
            }
        ensuringClauseProcedureHasPermission(clause, PermissionError.Operation.MODIFY)
        return context.dynamicKb[clause].buffered().map {
            val substitution =
                when (first) {
                    is Clause -> mgu(first, it) as Substitution.Unifier
                    else -> mgu(first, it.head!!) as Substitution.Unifier
                }
            replySuccess(substitution) {
                removeDynamicClauses(it)
            }
        }
    }
}