26 lines
572 B
Scheme
26 lines
572 B
Scheme
(define-library
|
|
(retropikzel named-pipes)
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme char)
|
|
(scheme file)
|
|
(scheme process-context)
|
|
(foreign c))
|
|
(export create-pipe
|
|
open-input-pipe
|
|
input-pipe?
|
|
open-output-pipe
|
|
output-pipe?
|
|
pipe-read-u8
|
|
pipe-write-u8
|
|
pipe-read-char
|
|
pipe-write-char
|
|
pipe-read-string
|
|
pipe-write-string
|
|
pipe-read
|
|
pipe-read-line
|
|
close-pipe)
|
|
(include "named-pipes.scm"))
|
|
|
|
|