conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added buffer-mode and buffer-mode?

This commit is contained in:
Abdulaziz Ghuloum 2007-10-11 23:21:55 -04:00
parent aafecc9cfb
commit 4649598a7e
5 changed files with 65 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

8
src/ikarus.codecs.ss
View File

@ -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))
) )

5
src/makefile.ss
View File

@ -132,6 +132,7 @@
[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]

3
src/psyntax.expander.ss
View File

@ -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)

4
src/todo-r6rs.ss
View File

@ -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]