OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
guile
/
2.0
/
ice-9
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
and-let-star.scm
2.53 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
binary-ports.scm
1.88 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
boot-9.scm
150.08 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
buffered-input.scm
4.82 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
calling.scm
10.54 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
channel.scm
5.19 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
command-line.scm
18.22 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
common-list.scm
8.95 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
control.scm
3.94 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
curried-definitions.scm
1.79 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
debug.scm
1.09 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
deprecated.scm
31.24 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
documentation.scm
7.41 KB
07/17/2018 10:14:45 AM
rw-r--r--
📄
eval-string.scm
2.93 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
eval.scm
20.85 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
expect.scm
5.5 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
format.scm
74.5 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
ftw.scm
24.24 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
futures.scm
10.92 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
gap-buffer.scm
10.14 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
getopt-long.scm
16.49 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
hash-table.scm
1.77 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
hcons.scm
2.55 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
history.scm
2.29 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
i18n.scm
15.75 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
iconv.scm
3.65 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
lineio.scm
3.85 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
list.scm
1.29 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
local-eval.scm
9.71 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
ls.scm
3.2 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
mapping.scm
4.84 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
match.scm
2 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
match.upstream.scm
35.6 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
networking.scm
3.33 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
null.scm
1.13 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
occam-channel.scm
7.26 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
optargs.scm
15.75 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
poe.scm
3.3 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
poll.scm
6.02 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
popen.scm
5.67 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
posix.scm
2.73 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
pretty-print.scm
15.83 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
psyntax-pp.scm
161.01 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
psyntax.scm
143.59 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
q.scm
4.2 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
quasisyntax.scm
5.22 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
r4rs.scm
9.42 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
r5rs.scm
1.56 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
r6rs-libraries.scm
8.95 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
rdelim.scm
7.47 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
readline.scm
9.56 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
receive.scm
1.06 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
regex.scm
8.87 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
runq.scm
8.18 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
rw.scm
1.02 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
safe-r5rs.scm
3.72 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
safe.scm
1.25 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
save-stack.scm
2.15 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
scm-style-repl.scm
11.71 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
serialize.scm
3.77 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
session.scm
17.72 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
slib.scm
1.55 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
stack-catch.scm
1.94 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
streams.scm
7.31 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
string-fun.scm
8.59 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
syncase.scm
1.52 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
threads.scm
6.24 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
time.scm
2.04 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
top-repl.scm
2.75 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
unicode.scm
1005 bytes
10/22/2016 08:09:34 PM
rw-r--r--
📄
vlist.scm
21.56 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
weak-vector.scm
1.26 KB
10/22/2016 08:09:34 PM
rw-r--r--
Editing: lineio.scm
Close
;;; installed-scm-file ;;;; Copyright (C) 1996, 1998, 2001, 2003, 2006 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 lineio) :use-module (ice-9 rdelim) :export (unread-string read-string lineio-port? make-line-buffering-input-port)) ;;; {Line Buffering Input Ports} ;;; ;;; [This is a work-around to get past certain deficiencies in the capabilities ;;; of ports. Eventually, ports should be fixed and this module nuked.] ;;; ;;; A line buffering input port supports: ;;; ;;; read-string which returns the next line of input ;;; unread-string which pushes a line back onto the stream ;;; ;;; The implementation of unread-string is kind of limited; it doesn't ;;; interact properly with unread-char, or any of the other port ;;; reading functions. Only read-string will get you back the things that ;;; unread-string accepts. ;;; ;;; Normally a "line" is all characters up to and including a newline. ;;; If lines are put back using unread-string, they can be broken arbitrarily ;;; -- that is, read-string returns strings passed to unread-string (or ;;; shared substrings of them). ;;; ;; read-string port ;; unread-string port str ;; Read (or buffer) a line from PORT. ;; ;; Not all ports support these functions -- only those with ;; 'unread-string and 'read-string properties, bound to hooks ;; implementing these functions. ;; (define (unread-string str line-buffering-input-port) ((object-property line-buffering-input-port 'unread-string) str)) ;; (define (read-string line-buffering-input-port) ((object-property line-buffering-input-port 'read-string))) (define (lineio-port? port) (not (not (object-property port 'read-string)))) ;; make-line-buffering-input-port port ;; Return a wrapper for PORT. The wrapper handles read-string/unread-string. ;; ;; The port returned by this function reads newline terminated lines from PORT. ;; It buffers these characters internally, and parsels them out via calls ;; to read-char, read-string, and unread-string. ;; (define (make-line-buffering-input-port underlying-port) (let* (;; buffers - a list of strings put back by unread-string or cached ;; using read-line. ;; (buffers '()) ;; getc - return the next character from a buffer or from the underlying ;; port. ;; (getc (lambda () (if (not buffers) (read-char underlying-port) (let ((c (string-ref (car buffers) 0))) (if (= 1 (string-length (car buffers))) (set! buffers (cdr buffers)) (set-car! buffers (substring (car buffers) 1))) c)))) (propogate-close (lambda () (close-port underlying-port))) (self (make-soft-port (vector #f #f #f getc propogate-close) "r")) (unread-string (lambda (str) (and (< 0 (string-length str)) (set! buffers (cons str buffers))))) (read-string (lambda () (cond ((not (null? buffers)) (let ((answer (car buffers))) (set! buffers (cdr buffers)) answer)) (else (read-line underlying-port 'concat)))))) ;handle-newline->concat (set-object-property! self 'unread-string unread-string) (set-object-property! self 'read-string read-string) self))