40 lines
1.4 KiB
Scheme
40 lines
1.4 KiB
Scheme
;;; Read cr/lf and lf terminated lines. -*- Scheme -*-
|
|
;;; Copyright (c) 1995 by Olin Shivers. <shivers@lcs.mit.edu>
|
|
|
|
;;; External dependencies and non-R4RS'isms
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; ascii->char (To create a carriage-return)
|
|
;;; read-line write-string force-output (scsh I/O procs)
|
|
;;; receive values (MV return)
|
|
;;; let-optionals
|
|
;;; "\r\n" in strings for cr/lf. (Not R4RS)
|
|
|
|
;;; (read-crlf-line [fd/port retain-crlf?]) -> string or EOF object
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; Read a line terminated by either line-feed or EOF. If RETAIN-CRLF? is #f
|
|
;;; (the default), a terminating cr/lf or lf sequence is trimmed from the
|
|
;;; returned string.
|
|
;;;
|
|
;;; This is simple and inefficient. It would be save one copy if we didn't
|
|
;;; use READ-LINE, but replicated its implementation instead.
|
|
|
|
(define (read-crlf-line . args)
|
|
(let-optionals args ((fd/port (current-input-port))
|
|
(retain-crlf? #f))
|
|
(let ((ln (read-line fd/port retain-crlf?)))
|
|
(if (or retain-crlf? (eof-object? ln))
|
|
ln
|
|
(let ((slen (string-length ln))) ; Trim a trailing cr, if any.
|
|
(if (or (zero? slen)
|
|
(not (char=? (string-ref ln (- slen 1)) cr)))
|
|
ln
|
|
(substring ln 0 (- slen 1))))))))
|
|
|
|
(define cr (ascii->char 13))
|
|
|
|
(define (write-crlf port)
|
|
(write-string "\r\n" port)
|
|
(force-output port))
|
|
|
|
|