Sha256: 08fe7f63ad9fa1b452f06ddd471d98d5ba4ad99401d1db344792ebef9bfca54c
Contents?: true
Size: 1017 Bytes
Versions: 8
Compression:
Stored size: 1017 Bytes
Contents
module Kl
module Primitives
module Streams
def pr(s, stream)
if stream == STDIN
# shen-prbytes in toplevel.kl calls pr on *stinput* rather than
# *stoutput*. As a temporary solution, use the same approach
# that Bruno Deferrari uses in his Scheme port. See
# https://groups.google.com/d/topic/qilang/2ixosqX4Too/discussion
stream = STDOUT if stream == STDIN
end
stream.write(s)
s
end
define_method 'read-byte' do |stream|
if stream.eof?
-1
else
stream.readbyte
end
end
def open(stream_type, name, direction)
unless stream_type == :file
raise Kl::Error, "unsupported stream type: #{stream_type}"
end
File.open(File.expand_path(name, value(:'*home-directory*')),
direction == :out ? 'w' : 'r')
end
def close(stream)
stream.close
:NIL
end
end
end
end
Version data entries
8 entries across 8 versions & 1 rubygems