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)
(export latin-1-codec utf-8-codec utf-16-codec native-eol-style
make-transcoder native-transcoder)
make-transcoder native-transcoder buffer-mode?)
(import
(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))
(define (latin-1-codec) 'latin-1-codec)
(define (utf-8-codec) 'utf-8-codec)
@ -61,5 +62,8 @@
(define (native-transcoder)
(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-define (macro . trace-define)]
[eol-style (macro . eol-style)]
[buffer-mode (macro . buffer-mode)]
[error-handling-mode (macro . error-handling-mode)]
))
@ -924,8 +925,8 @@
[with-exception-handler r ex]
[guard r ex]
[binary-port? r ip]
[buffer-mode r ip]
[buffer-mode? r ip]
[buffer-mode i r ip]
[buffer-mode? i r ip]
[bytevector->string r ip]
[call-with-bytevector-output-port r ip]
[call-with-port r ip]

3
src/psyntax.expander.ss
View File

@ -1917,6 +1917,9 @@
((error-handling-mode)
(lambda (x)
(symbol-macro x '(ignore raise replace))))
((buffer-mode)
(lambda (x)
(symbol-macro x '(none line block))))
((... => _ else unquote unquote-splicing
unsyntax unsyntax-splicing)
incorrect-usage-macro)

4
src/todo-r6rs.ss
View File

@ -496,8 +496,8 @@
[guard X ex]
;;;
[binary-port? S ip]
[buffer-mode S ip]
[buffer-mode? S ip]
[buffer-mode C ip]
[buffer-mode? C ip]
[bytevector->string S ip]
[call-with-bytevector-output-port S ip]
[call-with-port S ip]