commonMain.it.unibo.tuprolog.solve.stdlib.primitive.Abolish.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.Indicator
import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.Signature
import it.unibo.tuprolog.solve.exception.error.PermissionError.Operation.MODIFY
import it.unibo.tuprolog.solve.primitive.Solve
import it.unibo.tuprolog.solve.primitive.UnaryPredicate

object Abolish : UnaryPredicate.NonBacktrackable("abolish") {
    override fun Solve.Request.computeOne(first: Term): Solve.Response {
        ensuringArgumentIsWellFormedIndicator(0)
        val indicator = first as Indicator
        val clausesToBeRemoved = context.dynamicKb[indicator]
        ensuringProcedureHasPermission(Signature.fromIndicator(indicator), MODIFY)
        return replySuccess {
            removeDynamicClauses(clausesToBeRemoved)
        }
    }
}