commonMain.it.unibo.tuprolog.solve.stdlib.primitive.SetFlag.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.Atom
import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.exception.error.DomainError
import it.unibo.tuprolog.solve.exception.error.PermissionError
import it.unibo.tuprolog.solve.exception.error.PermissionError.Operation.MODIFY
import it.unibo.tuprolog.solve.exception.error.PermissionError.Permission.FLAG
import it.unibo.tuprolog.solve.flags.NotableFlag
import it.unibo.tuprolog.solve.primitive.BinaryRelation
import it.unibo.tuprolog.solve.primitive.Solve

object SetFlag : BinaryRelation.NonBacktrackable("set_flag") {
    override fun Solve.Request.computeOne(
        first: Term,
        second: Term,
    ): Solve.Response {
        ensuringArgumentIsInstantiated(0)
        ensuringArgumentIsAtom(0)
        ensuringArgumentIsInstantiated(1)
        ensuringArgumentIsGround(1)
        val name = (first as Atom).value
        NotableFlag.fromName(name)?.let {
            if (!it.isEditable) {
                throw PermissionError.of(context, signature, MODIFY, FLAG, first)
            }
            if (second !in it.admissibleValues) {
                throw DomainError.forFlagValues(context, signature, it.admissibleValues.asIterable(), second, 1)
            }
        }
        return replySuccess {
            setFlag(name, second)
        }
    }
}