403aaac7d4
The libraries moved were: - mzlib/control => racket/control - mzlib/date => racket/date - mzlib/deflate => file/gzip - mzlib/inflate => file/gunzip - mzlib/port => racket/port - mzlib/process => racket/system - mzlib/runtime-path => racket/runtime-path - mzlib/shared => racket/shared - mzlib/unit => racket/unit - mzlib/unit-exptime => racket/unit-exptime - mzlib/zip => file/zip The old modules in mzlib are now pointers to the new modules. These are all modules that were already redirected in the documentation.
53 lines
1.4 KiB
Racket
53 lines
1.4 KiB
Racket
#lang racket/base
|
|
|
|
;; deprecated library, see `racket/port`
|
|
|
|
(require racket/port)
|
|
(provide ;; these are the functions that used to be defined in
|
|
;; `mzlib/port` but are now defined in `racket/port`
|
|
open-output-nowhere
|
|
make-pipe-with-specials
|
|
make-input-port/read-to-peek
|
|
peeking-input-port
|
|
relocate-input-port
|
|
transplant-input-port
|
|
filter-read-input-port
|
|
special-filter-input-port
|
|
relocate-output-port
|
|
transplant-output-port
|
|
merge-input
|
|
copy-port
|
|
input-port-append
|
|
convert-stream
|
|
make-limited-input-port
|
|
reencode-input-port
|
|
reencode-output-port
|
|
dup-input-port
|
|
dup-output-port
|
|
|
|
read-bytes-avail!-evt
|
|
peek-bytes-avail!-evt
|
|
read-bytes!-evt
|
|
peek-bytes!-evt
|
|
read-bytes-evt
|
|
peek-bytes-evt
|
|
read-string!-evt
|
|
peek-string!-evt
|
|
read-string-evt
|
|
peek-string-evt
|
|
regexp-match-evt
|
|
read-bytes-line-evt
|
|
read-line-evt
|
|
eof-evt
|
|
|
|
;; defined here and not in racket/port
|
|
strip-shell-command-start)
|
|
|
|
;; ----------------------------------------
|
|
|
|
(define (strip-shell-command-start in)
|
|
(when (regexp-match-peek #rx#"^#![^\r\n]*" in)
|
|
(let loop ([s (read-line in)])
|
|
(when (regexp-match #rx#"\\\\$" s)
|
|
(loop (read-line in))))))
|