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

* Added eol-style and native-eol-style.

This commit is contained in:
Abdulaziz Ghuloum 2007-10-11 21:47:11 -04:00
parent f7beb1afe0
commit 12f3041f03
5 changed files with 18 additions and 6 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.

5
src/ikarus.codecs.ss
View File

@ -1,8 +1,9 @@
(library (ikarus codecs)
(export latin-1-codec utf-8-codec utf-16-codec)
(export latin-1-codec utf-8-codec utf-16-codec native-eol-style)
(import (rnrs base))
(define (latin-1-codec) 'latin-1-codec)
(define (utf-8-codec) 'utf-8-codec)
(define (utf-16-codec) 'utf-16-codec))
(define (utf-16-codec) 'utf-16-codec)
(define (native-eol-style) 'none))

5
src/makefile.ss
View File

@ -131,6 +131,7 @@
[unsyntax-splicing (macro . unsyntax-splicing)]
[trace-lambda (macro . trace-lambda)]
[trace-define (macro . trace-define)]
[eol-style (macro . eol-style)]
))
(define library-legend
@ -963,7 +964,7 @@
[quotient i r r5 se]
[scheme-report-environment r5 se]
[close-port r ip]
[eol-style r ip]
[eol-style i r ip]
[error-handling-mode r ip]
[file-options r ip]
[flush-output-port i r ip]
@ -1028,7 +1029,7 @@
[make-i/o-write-error r ip is fi]
[latin-1-codec i r ip]
[make-transcoder r ip]
[native-eol-style r ip]
[native-eol-style i r ip]
[native-transcoder r ip]
[open-bytevector-input-port r ip]
[open-bytevector-output-port r ip]

10
src/psyntax.expander.ss
View File

@ -1879,6 +1879,13 @@
((type-descriptor) type-descriptor-transformer)
(else (error 'macro-transformer "cannot find ~s" name)))))
(define symbol-macro
(lambda (x set)
(syntax-match x ()
((_ name)
(and (id? name) (memq (id->sym name) set))
(bless `(quote ,name))))))
(define macro-transformer
(lambda (x)
(cond
@ -1904,6 +1911,9 @@
((endianness) endianness-macro)
((trace-lambda) trace-lambda-macro)
((trace-define) trace-define-macro)
((eol-style)
(lambda (x)
(symbol-macro x '(none lf cr crlf nel crnel ls))))
((... => _ else unquote unquote-splicing
unsyntax unsyntax-splicing)
incorrect-usage-macro)

4
src/todo-r6rs.ss
View File

@ -544,7 +544,7 @@
[scheme-report-environment C r5 se]
;;;
[close-port S ip]
[eol-style S ip]
[eol-style C ip]
[error-handling-mode S ip]
[file-options S ip]
[flush-output-port S ip]
@ -609,7 +609,7 @@
[make-i/o-write-error X ip is fi]
[latin-1-codec C ip]
[make-transcoder S ip]
[native-eol-style S ip]
[native-eol-style C ip]
[native-transcoder S ip]
[open-bytevector-input-port S ip]
[open-bytevector-output-port S ip]