guile-prescheme/ps-compiler/prescheme/primop/io.scm

;;; Ported from Scheme 48 1.9.  See file COPYING for notices and license.
;;;
;;; Port Author: Andrew Whatson
;;;
;;; Original Authors: Richard Kelsey, Marcus Crestani
;;;
;;;   scheme48-1.9.2/ps-compiler/prescheme/primop/io.scm

(define-module (ps-compiler prescheme primop io)
  #:use-module (ps-compiler prescheme primop primop)
  #:use-module (ps-compiler prescheme type))

;;(define-scheme-primop cast-to-long)

(define-scheme-primop stdin  type/input-port)
(define-scheme-primop stdout type/output-port)
(define-scheme-primop stderr type/output-port)

(define-nonsimple-scheme-primop read-char io)
(define-nonsimple-scheme-primop peek-char io)
(define-nonsimple-scheme-primop read-integer io)

(define type/status type/integer)

(define-nonsimple-scheme-primop write-char io)

(define-scheme-primop write-string  io type/status)
(define-scheme-primop write-integer io type/status)
(define-scheme-primop force-output  io type/status)

(define-nonsimple-scheme-primop open-input-file)
(define-nonsimple-scheme-primop open-output-file)

(define-scheme-primop close-input-port  io type/status)
(define-scheme-primop close-output-port io type/status)

(define-scheme-primop abort io type/unit)

(define-nonsimple-scheme-primop error io)

(define-scheme-primop error-string type/string)

(define-scheme-primop call-external-value io type/integer)
(define-scheme-primop call-external-value-2 io type/integer)

(define-nonsimple-scheme-primop read-block io)
(define-scheme-primop write-block io type/status)