Ports represent input and output devices. An input port is a Scheme object that can deliver data upon command, while an output port is a Scheme object that can accept data.
Different port types operate on different data:
A textual port supports reading or writing of individual
characters from or to a backing store containing characters
using read-char and write-char below, and it supports
operations defined in terms of characters, such as read and
write.
A binary port supports reading or writing of individual
bytes from or to a backing store containing bytes using
read-u8 and write-u8 below, as well as operations defined
in terms of bytes (integers in the range 0 to 255).
All Kawa binary ports created by procedures documented here
are also textual ports. Thus you can either read/write
bytes as described above, or read/write
characters whose scalar value is in the range 0 to 255
(i.e. the Latin-1 character set), using read-char and write-char.
A native binary port is a java.io.InputStream
or java.io.OutputStream instance. These are not textual ports.
You can use methods read-u8 and write-u8,
but not read-char and write-char on native binary ports.
(The functions input-port?, output-port?, binary-port?,
and port? all currently return false on native binary ports,
but that may change.)
Procedure: call-with-port port proc
The
call-with-portprocedure callsprocwith port as an argument. Ifprocreturns, then the port is closed automatically and the values yielded by the proc are returned.If
procdoes not return, then the port must not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.As a Kawa extension,
portmay be any object that implementsjava.io.Closeable. It is an error ifprocdoes not accept one argument.
Procedure: call-with-input-file path proc
Procedure: call-with-output-file path proc
These procedures obtain a textual port obtained by opening the named file for input or output as if by
open-input-fileoropen-output-file. The port andprocare then passed to a procedure equivalent tocall-with-port.It is an error if
procdoes not accept one argument.
These procedures return
#tif obj is an input port, output port, textual port, binary port, or any kind of port, respectively. Otherwise they return#f.These procedures currently return
#fon a native Java streams (java.io.InputStreamorjava.io.OutputStream), a native reader (ajava.io.Readerthat is not angnu.mapping.Inport), or a native writer (ajava.io.Writerthat is not angnu.mapping.Outport). This may change if conversions between native ports and Scheme ports becomes more seamless.
Procedure: input-port-open? port
Procedure: output-port-open? port
Returns
#tifportis still open and capable of performing input or output, respectively, and#fotherwise. (Not supported for native binary ports - i.e.java.io.InputStteamorjava.io.OutputStream.)
Procedure: current-output-port
Returns the current default input port, output port, or error port (an output port), respectively. (The error port is the port to which errors and warnings should be sent - the standard error in Unix and C terminology.) These procedures are parameter objects, which can be overridden with
parameterize.The initial bindings for
(current-output-port)and(current-error-port)are hybrid textual/binary ports that wrap the values of the correspondingjava.lang.Systemfieldsout, anderr. The latter, in turn are bound to the standard output and error streams of the JVM process. This means you can write binary data to standard output usingwrite-bytevectorandwrite-u8.The initial value
(current-input-port)similarly is a textual port that wraps thejava.lang.Systemfieldin, which is bound to the standard input stream of the JVM process. It is a hybrid textual/binary port only if there is no console (as determined by(java.lang.System:console)returning#!null) - i.e. if standard input is not a tty.Here is an example that copies standard input to standard output:
(let* ((in (current-input-port)) (out (current-output-port)) (blen ::int 2048) (buf (make-bytevector blen))) (let loop () (define n (read-bytevector! buf in)) (cond ((not (eof-object? n)) (write-bytevector buf out 0 n) (loop)))))
Procedure: with-input-from-file path thunk
Procedure: with-output-to-file path thunk
The file is opened for input or output as if by
open-input-fileoropen-output-file, and the new port is made to be the value returned bycurrent-input-portorcurrent-output-port(as used by(read),(write, and so forth). The thunk is then called with no arguments. When theobj)thunkreturns, the port is closed and the previous default is restored. It is an error ifthunkdoes not accept zero arguments. Both procedures return the values yielded bythunk. If an escape procedure is used to escape from the continuation of these procedures, they behave exactly as if the current input or output port had been bound dynamically withparameterize.
Procedure: open-input-file path
Procedure: open-binary-input-file path
Takes a
pathnaming an existing file and returns a textual input port or binary input port that is capable of delivering data from the file.The procedure
open-input-filechecks the fluid variableport-char-encodingto determine how bytes are decoded into characters. The procedureopen-binary-input-fileis equivalent to callingopen-input-filewithport-char-encodingset to#f.
Procedure: open-output-file path
Procedure: open-binary-output-file path
Takes a
pathnaming an output file to be created and returns respectively a textual output port or binary output port that is capable of writing data to a new file by that name. If a file with the given name already exists, the effect is unspecified.The procedure
open-output-filechecks the fluid variableport-char-encodingto determine how characters are encoded as bytes. The procedureopen-binary-output-fileis equivalent to callingopen-output-filewithport-char-encodingset to#f.
Procedure: close-input-port port
Procedure: close-output-port port
Closes the resource associated with
port, rendering the port incapable of delivering or accepting data. It is an error to apply the last two procedures to a port which is not an input or output port, respectively. (Specifically,close-input-portrequires ajava.io.Reader, whileclose-output-portrequires ajava.io.Writer. In contrastclose-portaccepts any object whose class implementsjava.io.Closeable.)These routines have no effect if the port has already been closed.
Procedure: open-input-string string
Takes a string and returns a text input port that delivers characters from the string. The port can be closed by
close-input-port, though its storage will be reclaimed by the garbage collector if it becomes inaccessible.(define p (open-input-string "(a . (b c . ())) 34")) (input-port? p) ⇒ #t (read p) ⇒ (a b c) (read p) ⇒ 34 (eof-object? (peek-char p)) ⇒ #t
Returns an textual output port that will accumulate characters for retrieval by
get-output-string. The port can be closed by the procedureclose-output-port, though its storage will be reclaimed by the garbage collector if it becomes inaccessible.(let ((q (open-output-string)) (x '(a b c))) (write (car x) q) (write (cdr x) q) (get-output-string q)) ⇒ "a(b c)"
Procedure: get-output-string output-port
Given an output port created by
open-output-string, returns a string consisting of the characters that have been output to the port so far in the order they were output. If the result string is modified, the effect is unspecified.(parameterize ((current-output-port (open-output-string))) (display "piece") (display " by piece ") (display "by piece.") (newline) (get-output-string (current-output-port))) ⇒ "piece by piece by piece.\n"
Procedure: call-with-input-string string proc
Create an input port that gets its data from
string, callprocwith that port as its one argument, and return the result from the call ofproc
Procedure: call-with-output-string proc
Create an output port that writes its data to a
string, and callprocwith that port as its one argument. Return a string consisting of the data written to the port.
Procedure: open-input-bytevector bytevector
Takes a bytevector and returns a binary input port that delivers bytes from the bytevector.
Procedure: open-output-bytevector
Returns a binary output port that will accumulate bytes for retrieval by
get-output-bytevector.
Procedure: get-output-bytevector port
Returns a bytevector consisting of the bytes that have been output to the port so far in the order they were output. It is an error if
portwas not created withopen-output-bytevector.
If port is omitted from any input procedure, it defaults
to the value returned by (current-input-port). It is an
error to attempt an input operation on a closed port.
The
readprocedure converts external representations of Scheme objects into the objects themselves. That is, it is a parser for the non-terminaldatum. It returns the next object parsable from the given textual input port, updating port to point to the first character past the end of the external representation of the object.If an end of file is encountered in the input before any characters are found that can begin an object, then an end-of-file object is returned. The port remains open, and further attempts to read will also return an end-of-file object. If an end of file is encountered after the beginning of an object’s external representation, but the external representation is incomplete and therefore not parsable, an error that satisfies
read-error?is signaled.
Returns the next character available from the textual input
port, updating the port to point to the following character. If no more characters are available, an end-of-file value is returned.The result type is
character-or-eof.
Returns the next character available from the textual input
port, but without updating the port to point to the following character. If no more characters are available, an end-of-file value is returned.The result type is
character-or-eof.Note: The value returned by a call to
peek-charis the same as the value that would have been returned by a call toread-charwith the sameport. The only difference is that the very next call toread-charorpeek-charon thatportwill return the value returned by the preceding call topeek-char. In particular, a call topeek-charon an interactive port will hang waiting for input whenever a call toread-charwould have hung.
Procedure: read-line [port [handle-newline]]
Reads a line of input from the textual input
port. Thehandle-newlineparameter determines what is done with terminating end-of-line delimiter. The default,'trim, ignores the delimiter;'peekleaves the delimiter in the input stream;'concatappends the delimiter to the returned value; and'splitreturns the delimiter as a second value. You can use the last three options to tell if the string was terminated by end-or-line or by end-of-file. If an end of file is encountered before any end of line is read, but some characters have been read, a string containing those characters is returned. (In this case,'trim,'peek, and'concathave the same result and effect. The'splitcase returns two values: The characters read, and the delimiter is an empty string.) If an end of file is encountered before any characters are read, an end-of-file object is returned. For the purpose of this procedure, an end of line consists of either a linefeed character, a carriage return character, or a sequence of a carriage return character followed by a linefeed character.
Returns
#tifobjis an end-of-file object, otherwise returns#f.
Performance note: Ifobjhas typecharacter-or-eof, this is compiled as anintcomparison with -1.
Returns an end-of-file object.
Returns
#tif a character is ready on the textual inputportand returns#fotherwise. If char-ready returns#tthen the nextread-charoperation on the givenportis guaranteed not to hang. If the port is at end of file thenchar-ready?returns#t.Rationale: The
char-ready?procedure exists to make it possible for a program to accept characters from interactive ports without getting stuck waiting for input. Any input editors as- sociated with such ports must ensure that characters whose existence has been asserted bychar-ready?cannot be removed from the input. Ifchar-ready?were to return#fat end of file, a port at end-of-file would be indistinguishable from an interactive port that has no ready characters.
Procedure: read-string k [port]
Reads the next
kcharacters, or as many as are available before the end of file, from the textual inputportinto a newly allocated string in left-to-right order and returns the string. If no characters are available before the end of file, an end-of-file object is returned.
Returns the next byte available from the binary input
port, updating theportto point to the following byte. If no more bytes are available, an end-of-file object is returned.
Returns the next byte available from the binary input
port, but without updating theportto point to the following byte. If no more bytes are available, an end-of-file object is returned.
Returns
#tif a byte is ready on the binary inputportand returns#fotherwise. Ifu8-ready?returns#tthen the nextread-u8operation on the given port is guaranteed not to hang. If the port is at end of file thenu8-ready?returns#t.
Procedure: read-bytevector k [port]
Reads the next
kbytes, or as many as are available before the end of file, from the binary inputportinto a newly allocated bytevector in left-to-right order and returns the bytevector. If no bytes are available before the end of file, an end-of-file object is returned.
Procedure: read-bytevector! bytevector [port [start [end]]]
Reads the next
end−startbytes, or as many as are available before the end of file, from the binary inputportintobytevectorin left-to-right order beginning at thestartposition. Ifendis not supplied, reads until the end ofbytevectorhas been reached. Ifstartis not supplied, reads beginning at position 0. Returns the number of bytes read. If no bytes are available, an end-of-file object is returned.
If port is omitted from any output procedure, it defaults
to the value returned by (current-output-port). It is an
error to attempt an output operation on a closed port.
The return type of these methods is void.
Writes a representation of
objto the given textual outputport. Strings that appear in the written representation are enclosed in quotation marks, and within those strings backslash and quotation mark characters are escaped by backslashes. Symbols that contain non-ASCII characters are escaped with vertical lines. Character objects are written using the#\notation.If
objcontains cycles which would cause an infinite loop using the normal written representation, then at least the objects that form part of the cycle must be represented using datum labels. Datum labels must not be used if there are no cycles.
Procedure: write-shared obj [port]
The
write-sharedprocedure is the same aswrite, except that shared structure must be represented using datum labels for all pairs and vectors that appear more than once in the output.
Procedure: write-simple obj [port]
The
write-simpleprocedure is the same aswrite, except that shared structure is never represented using datum labels. This can cause write-simple not to terminate ifobjcontains circular structure.
Writes a representation of
objto the given textual output port. Strings that appear in the written representation are output as if bywrite-stringinstead of bywrite. Symbols are not escaped. Character objects appear in the representation as if written bywrite-charinstead of bywrite. Thedisplayrepresentation of other objects is unspecified.
Writes an end of line to textual output
port. This is done using theprintlnmethod of the Java classjava.io.PrintWriter.
Procedure: write-char char [port]
Writes the character
char(not an external representation of the character) to the given textual outputport.
Procedure: write-string string [port [start [end]]]
Writes the characters of
stringfromstarttoendin left-to-right order to the textual outputport.
Procedure: write-u8 byte [port]
Writes the
byteto the given binary output port.
Procedure: write-bytevector bytevector [port [start [end]]]
Writes the bytes of
bytevectorfromstarttoendin left-to-right order to the binary outputport.
Procedure: flush-output-port [port]
Procedure: force-output [port]
Forces any pending output on
portto be delivered to the output file or device and returns an unspecified value. If theportargument is omitted it defaults to the value returned by(current-output-port). (The nameforce-outputis older, while R6RS addedflush-output-port. They have the same effect.)
When an interactive input port is used for a read-eval-print-loop (REPL or console) it is traditional for the REPL to print a short prompt string to signal that the user is expected to type an expression. These prompt strings can be customized.
These are fluid variable whose values are string templates with placeholders similar to
printf-style format. The placeholders are expanded (depending on the current state), and the resulting string printed in front of the input line.The
input-prompt1is used normally. For multi-line input commands (for example if the first line is incomplete),input-prompt1is used for the first line of each command, whileinput-prompt2is used for subsequent “continuation” lines.The following placeholders are handled:
%%A literal ‘
%’.%NThe current line number. This is
(+ 1 (port-line.port))%nPcInsert padding at this possion, repeating the following character
as needed to bring the total number of columns of the prompt to that specified by the digitsc.n%PcSame as
%, butnPcdefaults to the number of columns in the initial prompt from the expansion ofninput-prompt1. This is only meaningful when expandinginput-prompt2for continuation lines.%{hidden%}Same as
hidden, but the characters ofhiddenare assumed to have zero visible width. Can be used for ANSI escape sequences to change color or style:(set! input-prompt1 "%{\e[48;5;51m%}{Kawa:%N} %{\e[0m%}")The above changes both the text and the background color (to a pale blue).
%MInsert a “message” string. Not normally used by Kawa, but supported by JLine.
These variables can be initialized by the command-line arguments
console:prompt1=andprompt1console:prompt2=, respectively. If these are not specified, languages-specific defaults are used. For example for Scheme the default value ofprompt2input-prompt1is"#|kawa:%N|# "andinput-prompt2is"#|$P.%N| ". These have the form of Scheme comments, to make it easier to cut-and-paste.If
input-prompt1(respectivelyinput-prompt2) does not contain an escape sequence (either"%{or the escape character"\e") then ANSI escape sequences are added to to highlight the prompt. (Under DomTerm this sets thepromptstyle, which can be customised with CSS but defaults to a light green background; if using JLine the background is set to light green.)
For greater flexibility, you can also set a prompter procedure.
Procedure: set-input-port-prompter! port prompter
Set the prompt procedure associated with
porttoprompter, which must be a one-argument procedure taking an input port, and returning a string. The procedure is called before reading the first line of a command; its return value is used as the first-line prompt.The prompt procedure can have side effects. In Bash shell terms: It combines the features of
PROMPT_COMMANDandPS1.The initial
prompterisdefault-prompter, which returns the expansion ofinput-prompt1.
Procedure: input-port-prompter port
Get the prompt procedure associated with
port.
Procedure: default-prompter port
The default prompt procedure. Normally (i.e. when
input-port-read-stateis a space) returnsinput-prompt1after expanding the%-placeholders. Can also expandinput-prompt2wheninput-port-read-stateis not whitespace.
Function: port-column input-port
Function: port-line input-port
Return the current column number or line number of
input-port, using the current input port if none is specified. If the number is unknown, the result is#f. Otherwise, the result is a 0-origin integer - i.e. the first character of the first line is line 0, column 0. (However, when you display a file position, for example in an error message, we recommend you add 1 to get 1-origin integers. This is because lines and column numbers traditionally start with 1, and that is what non-programmers will find most natural.)
Procedure: set-port-line! port line
Set (0-origin) line number of the current line of
porttonum.
Procedure: input-port-line-number port
Get the line number of the current line of
port, which must be a (non-binary) input port. The initial line is line 1. Deprecated; replaced by(+ 1 (port-line.port))
Procedure: set-input-port-line-number! port num
Set line number of the current line of
porttonum. Deprecated; replaced by(set-port-line!.port(-num1))
Procedure: input-port-column-number port
Get the column number of the current line of
port, which must be a (non-binary) input port. The initial column is column 1. Deprecated; replaced by(+ 1 (port-column.port))
Procedure: input-port-read-state port
Returns a character indicating the current
readstate of theport. Returns#\Returnif not current doing aread,#\"if reading a string;#\|if reading a comment;#\(if inside a list; and#\Spacewhen otherwise in aread. The result is intended for use by prompt prcedures, and is not necessarily correct except when reading a new-line.
A symbol that controls how
readhandles letters when reading a symbol. If the first letter is ‘U’, then letters in symbols are upper-cased. If the first letter is ‘D’ or ‘L’, then letters in symbols are down-cased. If the first letter is ‘I’, then the case of letters in symbols is inverted. Otherwise (the default), the letter is not changed. (Letters following a ‘\’ are always unchanged.) The value ofsymbol-read-caseonly checked when a reader is created, not each time a symbol is read.
Controls how bytes in external files are converted to/from internal Unicode characters. Can be either a symbol or a boolean. If
port-char-encodingis#f, the file is assumed to be a binary file and no conversion is done. Otherwise, the file is a text file. The default is#t, which uses a locale-dependent conversion. Ifport-char-encodingis a symbol, it must be the name of a character encoding known to Java. For all text files (that is ifport-char-encodingis not#f), on input a#\Returncharacter or a#\Returnfollowed by#\Newlineare converted into plain#\Newline.This variable is checked when the file is opened; not when actually reading or writing. Here is an example of how you can safely change the encoding temporarily:
(define (open-binary-input-file name) (fluid-let ((port-char-encoding #f)) (open-input-file name)))
The number base (radix) to use by default when printing rational numbers. Must be an integer between 2 and 36, and the default is of course 10. For example setting
*print-base*to 16 produces hexadecimal output.
If true, prints an indicator of the radix used when printing rational numbers. If
*print-base*is respectively 2, 8, or 16, then#b,#oor#xis written before the number; otherwise#is written, whereNris the base. An exception is whenN*print-base*is 10, in which case a period is written after the number, to match Common Lisp; this may be inappropriate for Scheme, so is likely to change.
Variable: *print-right-margin*
The right margin (or line width) to use when pretty-printing.
If this an integer, and the available width is less or equal to this value, then the pretty printer switch to the more miser compact style.
When writing to XML, controls pretty-printing and indentation. If the value is
'alwaysor'yesforce each element to start on a new suitably-indented line. If the value is'prettyonly force new lines for elements that won’t fit completely on a line. The the value is'noor unset, don’t add extra whitespace.