| /dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/io/ |
| H A D | simple-6.rkt | 7 (rename-out [r6rs:call-with-input-file call-with-input-file]
14 [r6rs:with-input-from-file with-input-from-file]
16 [r6rs:open-input-file open-input-file]
17 [r6rs:open-output-file open-output-file])
30 (r6rs:open-input-file file)
35 (r6rs:open-output-file file)
39 (let ([p (r6rs:open-input-file file)])
46 (let ([p (r6rs:open-output-file file)])
52 (define (r6rs:open-input-file file)
53 (r6rs:transcoded-port (r6rs:open-file-input-port file) (r6rs:native-transcoder)))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | kw-file.rkt | 7 [open-input-file -open-input-file]
9 [open-input-output-file -open-input-output-file]
34 (raise-argument-error 'open-input-file "path-string?" path))
36 (raise-argument-error 'open-input-file binary-or-text-desc mode))
37 (k:open-input-file path mode (if for-module? 'module 'none)))
52 (define (open-input-output-file path #:mode [mode 'binary]
56 (raise-argument-error 'open-input-output-file "path-string?" path))
60 (raise-argument-error 'open-input-output-file exists-desc exists))
62 (raise-argument-error 'open-input-output-file perms-desc perms))
63 (k:open-input-output-file path mode exists perms))
[all …]
|
| H A D | base.rkt | 21 open-input-file
22 open-output-file
23 open-input-output-file
24 call-with-input-file
26 with-input-from-file
48 (rename -open-input-file open-input-file)
49 (rename -open-output-file open-output-file)
50 (rename -open-input-output-file open-input-output-file)
51 (rename -call-with-input-file call-with-input-file)
53 (rename -with-input-from-file with-input-from-file)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | kw-file.rkt | 7 [open-input-file -open-input-file]
9 [open-input-output-file -open-input-output-file]
34 (raise-argument-error 'open-input-file "path-string?" path))
36 (raise-argument-error 'open-input-file binary-or-text-desc mode))
37 (k:open-input-file path mode (if for-module? 'module 'none)))
52 (define (open-input-output-file path #:mode [mode 'binary]
56 (raise-argument-error 'open-input-output-file "path-string?" path))
60 (raise-argument-error 'open-input-output-file exists-desc exists))
62 (raise-argument-error 'open-input-output-file perms-desc perms))
63 (k:open-input-output-file path mode exists perms))
[all …]
|
| H A D | base.rkt | 21 open-input-file
22 open-output-file
23 open-input-output-file
24 call-with-input-file
26 with-input-from-file
48 (rename -open-input-file open-input-file)
49 (rename -open-output-file open-output-file)
50 (rename -open-input-output-file open-input-output-file)
51 (rename -call-with-input-file call-with-input-file)
53 (rename -with-input-from-file with-input-from-file)
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/testsuite/larceny-tests/tests/scheme/ |
| H A D | file.sld | 9 ;;; open-input-file
10 ;;; open-output-file
11 ;;; open-binary-input-file
12 ;;; open-binary-output-file
64 (test (call-with-input-file tempfile input-port-open?)
82 (test (let* ((p (open-input-file tempfile))
86 (b (input-port-open? p)))
105 (b (input-port-open? p)))
126 (b (input-port-open? p)))
154 (test (let* ((p (open-binary-input-file tempfile))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/io/port/ |
| H A D | file-port.rkt | 16 (provide open-input-file
17 open-output-file
18 open-input-output-file
19 call-with-input-file
26 (define/who (open-input-file path [mode1 none] [mode2 none])
48 "cannot open input file\n"
61 (define (do-open-output-file #:plus-input? [plus-input? #f] who path mode1 mode2 perms)
148 (define/who (open-input-output-file path [mode1 none] [mode2 none] [perms DEFAULT-CREATE-PERMS])
149 (do-open-output-file #:plus-input? #t who path mode1 mode2 perms))
154 (define i (open-input-file path mode))
[all …]
|
| H A D | main.rkt | 3 input-port?
8 "bytes-input.rkt"
106 open-input-file
107 open-output-file
108 open-input-output-file
109 call-with-input-file
111 with-input-from-file
118 open-input-bytes
119 open-output-bytes
121 open-input-string
[all …]
|
| /dports/lang/racket/racket-8.3/src/io/port/ |
| H A D | file-port.rkt | 16 (provide open-input-file
17 open-output-file
18 open-input-output-file
19 call-with-input-file
26 (define/who (open-input-file path [mode1 none] [mode2 none])
48 "cannot open input file\n"
61 (define (do-open-output-file #:plus-input? [plus-input? #f] who path mode1 mode2 perms)
148 (define/who (open-input-output-file path [mode1 none] [mode2 none] [perms DEFAULT-CREATE-PERMS])
149 (do-open-output-file #:plus-input? #t who path mode1 mode2 perms))
154 (define i (open-input-file path mode))
[all …]
|
| H A D | main.rkt | 3 input-port?
8 "bytes-input.rkt"
106 open-input-file
107 open-output-file
108 open-input-output-file
109 call-with-input-file
111 with-input-from-file
118 open-input-bytes
119 open-output-bytes
121 open-input-string
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/tests/r6rs-test-suite/tests/r6rs/io/ |
| H A D | ports.sls | 233 (let ([p (open-file-input-port tmp-file)])
248 (let ([p (open-file-input-port tmp-file)])
255 (let ([p (open-file-input-port tmp-file)])
267 (let ([p (open-file-input-port tmp-file)])
277 (let ([p (open-file-input-port tmp-file)])
296 (let ([p (open-file-input-port tmp-file (file-options) 'block)])
346 (let ([p (open-file-input-port tmp-file)])
368 (let ([p (open-file-input-port tmp-file (file-options) 'block tr)])
381 (let ([p (open-file-input-port tmp-file)])
390 (let ([p (open-file-input/output-port tmp-file
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/test/r6rs-test-suite/tests/r6rs/io/ |
| H A D | ports.sls | 230 (let ([p (open-file-input-port "io-tmp1")])
245 (let ([p (open-file-input-port "io-tmp1")])
252 (let ([p (open-file-input-port "io-tmp1")])
264 (let ([p (open-file-input-port "io-tmp1")])
274 (let ([p (open-file-input-port "io-tmp1")])
293 (let ([p (open-file-input-port "io-tmp1" (file-options) 'block)])
343 (let ([p (open-file-input-port "io-tmp1")])
365 (let ([p (open-file-input-port "io-tmp1" (file-options) 'block tr)])
378 (let ([p (open-file-input-port "io-tmp1")])
387 (let ([p (open-file-input/output-port "io-tmp1"
[all …]
|
| /dports/lang/fth/fth-1.4.1/tests/ |
| H A D | io-test.fs | 191 version-name file-exists? not "io-open rename #t" test-expr
205 version-name file-exists? not "io-open rename #f" test-expr
212 \ io-open-file, io-open-input-file, io-open-output-file
214 :filename fname io-open-file to io
215 io io-input? not "io-open-file not readable?" test-expr
217 :string "io-open-input-file" io-open-input-file to io
218 io io-input? not "io-open-input-file not readable?" test-expr
221 s1 s2 string<> "io-open-input-file" test-expr
223 :filename fname io-open-output-file to io
253 \ io-open-read, make-file-input-port (alias)
[all …]
|
| /dports/lang/guile1/guile-1.8.8/test-suite/tests/ |
| H A D | ports.test | 46 (let* ((port (open-input-file filename))
61 (let ((port (open-input-file filename)))
128 (let ((iport (open-input-file filename)))
151 (let* ((port (open-input-file filename))
171 (let* ((in-port (open-input-file filename))
331 (list (open-input-file port-loop-temp)
487 (let ((port (open-input-string "x")))
492 (let ((port (open-input-string "\a")))
512 (let ((port (open-input-string "\n")))
570 (open-input-file "/dev/null")
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.rnrs/rnrs/io/ |
| H A D | simple.ss | 2 (export call-with-input-file call-with-output-file
3 close-input-port close-output-port current-input-port current-output-port
4 display eof-object? newline open-input-file open-output-file peek-char
5 read read-char with-input-from-file with-output-to-file write write-char
8 output-port? input-port? port?
11 call-with-input-file call-with-output-file
12 close-input-port close-output-port current-input-port current-output-port
13 display eof-object? newline open-input-file open-output-file peek-char
14 read read-char with-input-from-file with-output-to-file write write-char
17 output-port? input-port? port?
|
| H A D | ports.ss | 17 …e-error latin-1-codec make-transcoder native-eol-style native-transcoder open-bytevector-input-port
18 open-bytevector-output-port open-file-input-port open-file-input/output-port open-file-output-port
19 …open-string-input-port open-string-output-port output-port-buffer-mode port-eof? port-has-port-po…
59 open-bytevector-input-port
60 open-bytevector-output-port
61 open-file-input-port
62 open-file-input/output-port
63 open-file-output-port
64 open-string-input-port
65 open-string-output-port
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/kawa/lib/scheme/ |
| H A D | file-exports | 2 call-with-input-file call-with-output-file
3 delete-file file-exists?
4 open-binary-input-file open-binary-output-file
5 open-input-file open-output-file
6 with-input-from-file with-output-to-file)
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | ports.test | 61 (let* ((port (open-input-file filename))
104 (let ((port (open-input-file filename)))
171 (let ((iport (open-input-file filename)))
194 (let* ((port (open-input-file filename))
214 (let* ((in-port (open-input-file filename))
456 (pass-if-equal "open-input-file"
492 (pass-if-equal "open-input-file"
555 (pass-if-equal "open-input-file"
1092 (list (open-input-file port-loop-temp)
1351 (open-input-file "/dev/null")
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/ |
| H A D | file.sld | 2 (define-library (scheme file)
3 (import (chibi) (only (chibi filesystem) delete-file file-exists?))
5 call-with-input-file call-with-output-file
6 delete-file file-exists?
7 open-binary-input-file open-binary-output-file
8 open-input-file open-output-file
9 with-input-from-file with-output-to-file))
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | ports.test | 61 (let* ((port (open-input-file filename))
104 (let ((port (open-input-file filename)))
171 (let ((iport (open-input-file filename)))
194 (let* ((port (open-input-file filename))
214 (let* ((in-port (open-input-file filename))
456 (pass-if-equal "open-input-file"
492 (pass-if-equal "open-input-file"
555 (pass-if-equal "open-input-file"
1062 (list (open-input-file port-loop-temp)
1318 (open-input-file "/dev/null")
[all …]
|
| /dports/databases/tile38/tile38-1.12.0/vendor/github.com/yuin/gopher-lua/_lua5.1-tests/ |
| H A D | files.lua | 10 assert(io.open(file) == nil)
69 io.input(file)
79 io.input(file)
123 local f = io.open(file, "a")
133 io.input(file)
165 local filehandle = assert(io.open(file, 'r'))
197 io.input(file)
212 local f = assert(io.open(file, "w"))
213 local fr = assert(io.open(file, "r"))
220 f = assert(io.open(file, "w"))
[all …]
|
| /dports/security/vault/vault-1.8.2/vendor/github.com/yuin/gopher-lua/_lua5.1-tests/ |
| H A D | files.lua | 10 assert(io.open(file) == nil)
69 io.input(file)
79 io.input(file)
123 local f = io.open(file, "a")
133 io.input(file)
165 local filehandle = assert(io.open(file, 'r'))
197 io.input(file)
212 local f = assert(io.open(file, "w"))
213 local fr = assert(io.open(file, "r"))
220 f = assert(io.open(file, "w"))
[all …]
|
| /dports/net-p2p/bitmark-recorder/bitmarkd-0.13.3/vendor/github.com/yuin/gopher-lua/_lua5.1-tests/ |
| H A D | files.lua | 10 assert(io.open(file) == nil)
69 io.input(file)
79 io.input(file)
123 local f = io.open(file, "a")
133 io.input(file)
165 local filehandle = assert(io.open(file, 'r'))
197 io.input(file)
212 local f = assert(io.open(file, "w"))
213 local fr = assert(io.open(file, "r"))
220 f = assert(io.open(file, "w"))
[all …]
|
| /dports/net-p2p/bitmark-daemon/bitmarkd-0.13.3/vendor/github.com/yuin/gopher-lua/_lua5.1-tests/ |
| H A D | files.lua | 10 assert(io.open(file) == nil)
69 io.input(file)
79 io.input(file)
123 local f = io.open(file, "a")
133 io.input(file)
165 local filehandle = assert(io.open(file, 'r'))
197 io.input(file)
212 local f = assert(io.open(file, "w"))
213 local fr = assert(io.open(file, "r"))
220 f = assert(io.open(file, "w"))
[all …]
|
| /dports/net-p2p/bitmark-cli/bitmarkd-0.13.3/vendor/github.com/yuin/gopher-lua/_lua5.1-tests/ |
| H A D | files.lua | 10 assert(io.open(file) == nil)
69 io.input(file)
79 io.input(file)
123 local f = io.open(file, "a")
133 io.input(file)
165 local filehandle = assert(io.open(file, 'r'))
197 io.input(file)
212 local f = assert(io.open(file, "w"))
213 local fr = assert(io.open(file, "r"))
220 f = assert(io.open(file, "w"))
[all …]
|