Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
peg	[ DIR ]	drwxr-xr-x	2025-02-07 15:04
and-let-star.scm	2.53 KB	-rw-r--r--	2022-02-10 20:40
arrays.scm	2.63 KB	-rw-r--r--	2022-02-10 20:40
atomic.scm	1.55 KB	-rw-r--r--	2022-02-10 20:40
binary-ports.scm	2.71 KB	-rw-r--r--	2022-02-10 20:40
boot-9.scm	166.75 KB	-rw-r--r--	2022-02-10 20:40
buffered-input.scm	4.82 KB	-rw-r--r--	2022-02-10 20:40
calling.scm	10.54 KB	-rw-r--r--	2022-02-10 20:40
command-line.scm	18.6 KB	-rw-r--r--	2022-02-10 20:40
common-list.scm	8.95 KB	-rw-r--r--	2022-02-10 20:40
control.scm	4.08 KB	-rw-r--r--	2022-02-10 20:40
copy-tree.scm	3.05 KB	-rw-r--r--	2022-02-10 20:40
curried-definitions.scm	1.79 KB	-rw-r--r--	2022-02-10 20:40
deprecated.scm	1.54 KB	-rw-r--r--	2022-02-10 20:40
documentation.scm	7.41 KB	-rw-r--r--	2022-03-05 22:19
eval-string.scm	2.99 KB	-rw-r--r--	2022-02-10 20:40
eval.scm	25.08 KB	-rw-r--r--	2022-02-10 20:40
exceptions.scm	14.38 KB	-rw-r--r--	2022-02-10 20:40
expect.scm	5.5 KB	-rw-r--r--	2022-02-10 20:40
fdes-finalizers.scm	1.06 KB	-rw-r--r--	2022-02-10 20:40
format.scm	65.47 KB	-rw-r--r--	2022-02-10 20:40
ftw.scm	25.05 KB	-rw-r--r--	2022-02-10 20:40
futures.scm	10.49 KB	-rw-r--r--	2022-02-10 20:40
gap-buffer.scm	9.59 KB	-rw-r--r--	2022-02-10 20:40
getopt-long.scm	16.49 KB	-rw-r--r--	2022-02-10 20:40
hash-table.scm	1.77 KB	-rw-r--r--	2022-02-10 20:40
hcons.scm	2.55 KB	-rw-r--r--	2022-02-10 20:40
history.scm	2.29 KB	-rw-r--r--	2022-02-10 20:40
i18n.scm	20.51 KB	-rw-r--r--	2022-02-10 20:40
iconv.scm	3.19 KB	-rw-r--r--	2022-02-10 20:40
lineio.scm	3.85 KB	-rw-r--r--	2022-02-10 20:40
list.scm	1.29 KB	-rw-r--r--	2022-02-10 20:40
local-eval.scm	9.84 KB	-rw-r--r--	2022-02-10 20:40
ls.scm	3.2 KB	-rw-r--r--	2022-02-10 20:40
match.scm	2.18 KB	-rw-r--r--	2022-02-10 20:40
match.upstream.scm	37.33 KB	-rw-r--r--	2022-02-10 20:40
networking.scm	3.33 KB	-rw-r--r--	2022-02-10 20:40
null.scm	1.21 KB	-rw-r--r--	2022-02-10 20:40
occam-channel.scm	7.26 KB	-rw-r--r--	2022-02-10 20:40
optargs.scm	15.75 KB	-rw-r--r--	2022-02-10 20:40
peg.scm	1.64 KB	-rw-r--r--	2022-02-10 20:40
poe.scm	3.3 KB	-rw-r--r--	2022-02-10 20:40
poll.scm	5.79 KB	-rw-r--r--	2022-02-10 20:40
popen.scm	9.27 KB	-rw-r--r--	2022-02-10 20:40
ports.scm	19.08 KB	-rw-r--r--	2022-02-10 20:40
posix.scm	2.73 KB	-rw-r--r--	2022-02-10 20:40
pretty-print.scm	16.88 KB	-rw-r--r--	2022-02-10 20:40
psyntax-pp.scm	183.78 KB	-rw-r--r--	2022-02-10 20:40
psyntax.scm	149.4 KB	-rw-r--r--	2022-02-10 20:40
q.scm	4.2 KB	-rw-r--r--	2022-02-10 20:40
quasisyntax.scm	5.22 KB	-rw-r--r--	2022-02-10 20:40
r5rs.scm	1.56 KB	-rw-r--r--	2022-02-10 20:40
r6rs-libraries.scm	12.52 KB	-rw-r--r--	2022-02-10 20:40
r7rs-libraries.scm	4.28 KB	-rw-r--r--	2022-02-10 20:40
rdelim.scm	7.72 KB	-rw-r--r--	2022-02-10 20:40
read.scm	32.69 KB	-rw-r--r--	2022-02-10 20:40
readline.scm	9.56 KB	-rw-r--r--	2022-02-10 20:40
receive.scm	1.06 KB	-rw-r--r--	2022-02-10 20:40
regex.scm	8.87 KB	-rw-r--r--	2022-02-10 20:40
runq.scm	8.18 KB	-rw-r--r--	2022-02-10 20:40
rw.scm	1.02 KB	-rw-r--r--	2022-02-10 20:40
safe-r5rs.scm	7.5 KB	-rw-r--r--	2022-02-10 20:40
safe.scm	1.25 KB	-rw-r--r--	2022-02-10 20:40
sandbox.scm	34.24 KB	-rw-r--r--	2022-02-10 20:40
save-stack.scm	2.15 KB	-rw-r--r--	2022-02-10 20:40
scm-style-repl.scm	11.62 KB	-rw-r--r--	2022-02-10 20:40
serialize.scm	3.78 KB	-rw-r--r--	2022-02-10 20:40
session.scm	17.72 KB	-rw-r--r--	2022-02-10 20:40
slib.scm	1.55 KB	-rw-r--r--	2022-02-10 20:40
stack-catch.scm	1.94 KB	-rw-r--r--	2022-02-10 20:40
streams.scm	5.86 KB	-rw-r--r--	2022-02-10 20:40
string-fun.scm	9.68 KB	-rw-r--r--	2022-02-10 20:40
suspendable-ports.scm	29.86 KB	-rw-r--r--	2022-02-10 20:40
textual-ports.scm	2.29 KB	-rw-r--r--	2022-02-10 20:40
threads.scm	12.54 KB	-rw-r--r--	2022-02-10 20:40
time.scm	2.07 KB	-rw-r--r--	2022-02-10 20:40
top-repl.scm	2.63 KB	-rw-r--r--	2022-02-10 20:40
unicode.scm	1005 B	-rw-r--r--	2022-02-10 20:40
vlist.scm	21.56 KB	-rw-r--r--	2022-02-10 20:40
weak-vector.scm	1.2 KB	-rw-r--r--	2022-02-10 20:40

Rename

;;;; buffered-input.scm --- construct a port from a buffered input reader
;;;;
;;;; 	Copyright (C) 2001, 2006, 2010 Free Software Foundation, Inc.
;;;; 
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
;;;; 
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;;; Lesser General Public License for more details.
;;;; 
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

(define-module (ice-9 buffered-input)
  #:export (make-buffered-input-port
            make-line-buffered-input-port
            set-buffered-input-continuation?!))

;; @code{buffered-input-continuation?} is a property of the ports
;; created by @code{make-line-buffered-input-port} that stores the
;; read continuation flag for each such port.
(define buffered-input-continuation? (make-object-property))

(define (set-buffered-input-continuation?! port val)
  "Set the read continuation flag for @var{port} to @var{val}.

See @code{make-buffered-input-port} for the meaning and use of this
flag."
  (set! (buffered-input-continuation? port) val))

(define (make-buffered-input-port reader)
  "Construct a line-buffered input port from the specified @var{reader}.
@var{reader} should be a procedure of one argument that somehow reads
a chunk of input and returns it as a string.

The port created by @code{make-buffered-input-port} does @emph{not}
interpolate any additional characters between the strings returned by
@var{reader}.

@var{reader} should take a boolean @var{continuation?} argument.
@var{continuation?} indicates whether @var{reader} is being called to
start a logically new read operation (in which case
@var{continuation?} is @code{#f}) or to continue a read operation for
which some input has already been read (in which case
@var{continuation?} is @code{#t}).  Some @var{reader} implementations
use the @var{continuation?} argument to determine what prompt to
display to the user.

The new/continuation distinction is largely an application-level
concept: @code{set-buffered-input-continuation?!} allows an
application to specify when a read operation is considered to be new.
But note that if there is non-whitespace data already buffered in the
port when a new read operation starts, this data will be read before
the first call to @var{reader}, and so @var{reader} will be called
with @var{continuation?} set to @code{#t}."
  (let ((read-string "")
	(string-index 0))
    (letrec ((get-character
	      (lambda ()
		(if (< string-index (string-length read-string))
                    ;; Read a char.
                    (let ((res (string-ref read-string string-index)))
                      (set! string-index (+ 1 string-index))
                      (if (not (char-whitespace? res))
                          (set! (buffered-input-continuation? port) #t))
                      res)
                    ;; Fill the buffer.
                    (let ((x (reader (buffered-input-continuation? port))))
                      (cond
                       ((eof-object? x)
                        ;; Don't buffer the EOF object.
                        x)
                       (else
                        (set! read-string x)
                        (set! string-index 0)
                        (get-character)))))))
	     (input-waiting
	      (lambda ()
                (- (string-length read-string) string-index)))
             (port #f))
      (set! port (make-soft-port (vector #f #f #f get-character #f input-waiting) "r"))
      (set! (buffered-input-continuation? port) #f)
      port)))

(define (make-line-buffered-input-port reader)
  "Construct a line-buffered input port from the specified @var{reader}.
@var{reader} should be a procedure of one argument that somehow reads
a line of input and returns it as a string @emph{without} the
terminating newline character.

The port created by @code{make-line-buffered-input-port} automatically
interpolates a newline character after each string returned by
@var{reader}.

@var{reader} should take a boolean @var{continuation?} argument.  For
the meaning and use of this argument, see
@code{make-buffered-input-port}."
  (make-buffered-input-port (lambda (continuation?)
                              (let ((str (reader continuation?)))
                                (if (eof-object? str)
                                    str
                                    (string-append str "\n"))))))

;;; buffered-input.scm ends here