• Home
• it.unibo.tuprolog
• solve-jvm
• 1.0.4
• source code
• Halt1.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.Halt1.kt Maven / Gradle / Ivy

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

import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.exception.HaltException
import it.unibo.tuprolog.solve.primitive.Solve
import it.unibo.tuprolog.solve.primitive.UnaryPredicate

object Halt1 : UnaryPredicate.NonBacktrackable("halt") {
    override fun Solve.Request.computeOne(first: Term): Solve.Response {
        ensuringArgumentIsNonNegativeInteger(0)
        throw HaltException(context = context, exitStatus = (first.castToInteger()).intValue.toInt())
    }
}