* Added buffer-mode and buffer-mode?
This commit is contained in:
parent
aafecc9cfb
commit
4649598a7e
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -1,10 +1,11 @@
|
||||||
|
|
||||||
(library (ikarus codecs)
|
(library (ikarus codecs)
|
||||||
(export latin-1-codec utf-8-codec utf-16-codec native-eol-style
|
(export latin-1-codec utf-8-codec utf-16-codec native-eol-style
|
||||||
make-transcoder native-transcoder)
|
make-transcoder native-transcoder buffer-mode?)
|
||||||
(import
|
(import
|
||||||
(except (ikarus) latin-1-codec utf-8-codec utf-16-codec
|
(except (ikarus) latin-1-codec utf-8-codec utf-16-codec
|
||||||
native-eol-style make-transcoder native-transcoder)
|
native-eol-style make-transcoder native-transcoder
|
||||||
|
buffer-mode?)
|
||||||
(ikarus system $transcoders))
|
(ikarus system $transcoders))
|
||||||
(define (latin-1-codec) 'latin-1-codec)
|
(define (latin-1-codec) 'latin-1-codec)
|
||||||
(define (utf-8-codec) 'utf-8-codec)
|
(define (utf-8-codec) 'utf-8-codec)
|
||||||
|
@ -61,5 +62,8 @@
|
||||||
(define (native-transcoder)
|
(define (native-transcoder)
|
||||||
(make-transcoder 'utf-8-codec 'none 'replace))
|
(make-transcoder 'utf-8-codec 'none 'replace))
|
||||||
|
|
||||||
|
(define (buffer-mode? x)
|
||||||
|
(and (memq x '(none line block)) #t))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
107
src/makefile.ss
107
src/makefile.ss
|
@ -81,57 +81,58 @@
|
||||||
"ikarus.main.ss"))
|
"ikarus.main.ss"))
|
||||||
|
|
||||||
(define ikarus-system-macros
|
(define ikarus-system-macros
|
||||||
'([define (define)]
|
'([define (define)]
|
||||||
[define-syntax (define-syntax)]
|
[define-syntax (define-syntax)]
|
||||||
[module (module)]
|
[module (module)]
|
||||||
[begin (begin)]
|
[begin (begin)]
|
||||||
[import (import)]
|
[import (import)]
|
||||||
[set! (set!)]
|
[set! (set!)]
|
||||||
[let-syntax (let-syntax)]
|
[let-syntax (let-syntax)]
|
||||||
[letrec-syntax (letrec-syntax)]
|
[letrec-syntax (letrec-syntax)]
|
||||||
[foreign-call (core-macro . foreign-call)]
|
[foreign-call (core-macro . foreign-call)]
|
||||||
[quote (core-macro . quote)]
|
[quote (core-macro . quote)]
|
||||||
[syntax-case (core-macro . syntax-case)]
|
[syntax-case (core-macro . syntax-case)]
|
||||||
[syntax (core-macro . syntax)]
|
[syntax (core-macro . syntax)]
|
||||||
[lambda (core-macro . lambda)]
|
[lambda (core-macro . lambda)]
|
||||||
[case-lambda (core-macro . case-lambda)]
|
[case-lambda (core-macro . case-lambda)]
|
||||||
[type-descriptor (core-macro . type-descriptor)]
|
[type-descriptor (core-macro . type-descriptor)]
|
||||||
[letrec (core-macro . letrec)]
|
[letrec (core-macro . letrec)]
|
||||||
[letrec* (core-macro . letrec*)]
|
[letrec* (core-macro . letrec*)]
|
||||||
[if (core-macro . if)]
|
[if (core-macro . if)]
|
||||||
[when (core-macro . when)]
|
[when (core-macro . when)]
|
||||||
[unless (core-macro . unless)]
|
[unless (core-macro . unless)]
|
||||||
[parameterize (core-macro . parameterize)]
|
[parameterize (core-macro . parameterize)]
|
||||||
[case (core-macro . case)]
|
[case (core-macro . case)]
|
||||||
[let-values (core-macro . let-values)]
|
[let-values (core-macro . let-values)]
|
||||||
[define-record (macro . define-record)]
|
[define-record (macro . define-record)]
|
||||||
[include (macro . include)]
|
[include (macro . include)]
|
||||||
[syntax-rules (macro . syntax-rules)]
|
[syntax-rules (macro . syntax-rules)]
|
||||||
[quasiquote (macro . quasiquote)]
|
[quasiquote (macro . quasiquote)]
|
||||||
[quasisyntax (macro . quasisyntax)]
|
[quasisyntax (macro . quasisyntax)]
|
||||||
[with-syntax (macro . with-syntax)]
|
[with-syntax (macro . with-syntax)]
|
||||||
[identifier-syntax (macro . identifier-syntax)]
|
[identifier-syntax (macro . identifier-syntax)]
|
||||||
[let (macro . let)]
|
[let (macro . let)]
|
||||||
[let* (macro . let*)]
|
[let* (macro . let*)]
|
||||||
[cond (macro . cond)]
|
[cond (macro . cond)]
|
||||||
[do (macro . do)]
|
[do (macro . do)]
|
||||||
[and (macro . and)]
|
[and (macro . and)]
|
||||||
[or (macro . or)]
|
[or (macro . or)]
|
||||||
[time (macro . time)]
|
[time (macro . time)]
|
||||||
[delay (macro . delay)]
|
[delay (macro . delay)]
|
||||||
[endianness (macro . endianness)]
|
[endianness (macro . endianness)]
|
||||||
[assert (macro . assert)]
|
[assert (macro . assert)]
|
||||||
[... (macro . ...)]
|
[... (macro . ...)]
|
||||||
[=> (macro . =>)]
|
[=> (macro . =>)]
|
||||||
[else (macro . else)]
|
[else (macro . else)]
|
||||||
[_ (macro . _)]
|
[_ (macro . _)]
|
||||||
[unquote (macro . unquote)]
|
[unquote (macro . unquote)]
|
||||||
[unquote-splicing (macro . unquote-splicing)]
|
[unquote-splicing (macro . unquote-splicing)]
|
||||||
[unsyntax (macro . unsyntax)]
|
[unsyntax (macro . unsyntax)]
|
||||||
[unsyntax-splicing (macro . unsyntax-splicing)]
|
[unsyntax-splicing (macro . unsyntax-splicing)]
|
||||||
[trace-lambda (macro . trace-lambda)]
|
[trace-lambda (macro . trace-lambda)]
|
||||||
[trace-define (macro . trace-define)]
|
[trace-define (macro . trace-define)]
|
||||||
[eol-style (macro . eol-style)]
|
[eol-style (macro . eol-style)]
|
||||||
|
[buffer-mode (macro . buffer-mode)]
|
||||||
[error-handling-mode (macro . error-handling-mode)]
|
[error-handling-mode (macro . error-handling-mode)]
|
||||||
))
|
))
|
||||||
|
|
||||||
|
@ -924,8 +925,8 @@
|
||||||
[with-exception-handler r ex]
|
[with-exception-handler r ex]
|
||||||
[guard r ex]
|
[guard r ex]
|
||||||
[binary-port? r ip]
|
[binary-port? r ip]
|
||||||
[buffer-mode r ip]
|
[buffer-mode i r ip]
|
||||||
[buffer-mode? r ip]
|
[buffer-mode? i r ip]
|
||||||
[bytevector->string r ip]
|
[bytevector->string r ip]
|
||||||
[call-with-bytevector-output-port r ip]
|
[call-with-bytevector-output-port r ip]
|
||||||
[call-with-port r ip]
|
[call-with-port r ip]
|
||||||
|
|
|
@ -1917,6 +1917,9 @@
|
||||||
((error-handling-mode)
|
((error-handling-mode)
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
(symbol-macro x '(ignore raise replace))))
|
(symbol-macro x '(ignore raise replace))))
|
||||||
|
((buffer-mode)
|
||||||
|
(lambda (x)
|
||||||
|
(symbol-macro x '(none line block))))
|
||||||
((... => _ else unquote unquote-splicing
|
((... => _ else unquote unquote-splicing
|
||||||
unsyntax unsyntax-splicing)
|
unsyntax unsyntax-splicing)
|
||||||
incorrect-usage-macro)
|
incorrect-usage-macro)
|
||||||
|
|
|
@ -496,8 +496,8 @@
|
||||||
[guard X ex]
|
[guard X ex]
|
||||||
;;;
|
;;;
|
||||||
[binary-port? S ip]
|
[binary-port? S ip]
|
||||||
[buffer-mode S ip]
|
[buffer-mode C ip]
|
||||||
[buffer-mode? S ip]
|
[buffer-mode? C ip]
|
||||||
[bytevector->string S ip]
|
[bytevector->string S ip]
|
||||||
[call-with-bytevector-output-port S ip]
|
[call-with-bytevector-output-port S ip]
|
||||||
[call-with-port S ip]
|
[call-with-port S ip]
|
||||||
|
|
Loading…
Reference in New Issue