suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

style tweaks for Guide addition

Browse Source
This commit is contained in:
Matthew Flatt 2020-10-01 11:18:02 -06:00
parent 0e66734ea6
commit 932bce5e04
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pkgs/racket-doc/scribblings/guide/io.scrbl
View File

@ -410,25 +410,21 @@ instead of the original byte stream.
(interaction-eval #:eval port-eval (require racket/port racket/string))) (interaction-eval #:eval port-eval (require racket/port racket/string)))
For these examples, say you have two files in the same directory as For these examples, say you have two files in the same directory as
your program. your program, @filepath{oneline.txt} and @filepath{manylines.txt}.
@filepath{oneline.txt} contains
@filebox["oneline.txt"]{
@verbatim[#:indent 1]{ @verbatim[#:indent 1]{
I am one line, but there is an empty line after this one. I am one line, but there is an empty line after this one.
} }}
and
@filepath{manylines.txt} contains
@filebox["manylines.txt"]{
@verbatim[#:indent 1]{ @verbatim[#:indent 1]{
I am I am
a message a message
split over a few lines. split over a few lines.
} }}
If you have a file that is quite small, you can get If you have a file that is quite small, you can get
away with reading in the file as a string: away with reading in the file as a string:
@ -439,12 +435,12 @@ away with reading in the file as a string:
(define old-dir (current-directory)) (define old-dir (current-directory))
(current-directory (find-system-path 'temp-dir)) (current-directory (find-system-path 'temp-dir))
(call-with-output-file (call-with-output-file
"oneline.txt" "oneline.txt"
#:exists 'truncate #:exists 'truncate
(lambda (out) (lambda (out)
(display "I am one line, but there is an empty line after this one.\n" out))) (display "I am one line, but there is an empty line after this one.\n" out)))
(call-with-output-file (call-with-output-file
"manylines.txt" "manylines.txt"
#:exists 'truncate #:exists 'truncate
(lambda (out) (lambda (out)
(display "I am\na message\nsplit over a few lines.\n" out)))] (display "I am\na message\nsplit over a few lines.\n" out)))]
@ -466,9 +462,9 @@ any extraneous whitespace at the very beginning and very end of our file.
(Lots of formatters out there insist that text files end with a single (Lots of formatters out there insist that text files end with a single
blank line). blank line).
See also: @racket[read-line] if your file has one line of text. See also @racket[read-line] if your file has one line of text.
If instead you want to process individual lines of a file, then you can If, instead, you want to process individual lines of a file, then you can
use @racket[for] with @racket[in-lines]: use @racket[for] with @racket[in-lines]:
@interaction[ @interaction[