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

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

import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.primitive.PredicateWithoutArguments
import it.unibo.tuprolog.solve.primitive.Solve

object NewLine : PredicateWithoutArguments.NonBacktrackable("nl") {
    override fun Solve.Request.computeOne(): Solve.Response {
        return context.outputChannels.current.let {
            if (it == null) {
                replyFail()
            } else {
                it.write("\n")
                replySuccess()
            }
        }
    }
}