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

utf16-coded output port do not produce a BOM now.

This commit is contained in:
Abdulaziz Ghuloum 2008-10-21 23:00:10 -04:00
parent f1013454db
commit cc686d8e8f
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/ikarus.io.ss
View File

@ -426,7 +426,7 @@
[(eq? 'utf-8-codec (transcoder-codec x)) [(eq? 'utf-8-codec (transcoder-codec x))
(fxior textual-output-port-bits fast-u7-text-tag)] (fxior textual-output-port-bits fast-u7-text-tag)]
[(eq? 'utf-16-codec (transcoder-codec x)) [(eq? 'utf-16-codec (transcoder-codec x))
(fxior textual-output-port-bits init-u16-text-tag)] (fxior textual-output-port-bits fast-u16be-text-tag)]
[else (die who "unsupported codec" (transcoder-codec x))])) [else (die who "unsupported codec" (transcoder-codec x))]))
(define open-bytevector-input-port (define open-bytevector-input-port
@ -2045,11 +2045,11 @@
[(raise) [(raise)
(raise (make-i/o-encoding-error p c))] (raise (make-i/o-encoding-error p c))]
[else (die who "BUG: invalid error handling mode" p)])])))] [else (die who "BUG: invalid error handling mode" p)])])))]
[(eq? m init-put-utf16-tag) ;[(eq? m init-put-utf16-tag)
(put-byte! p #xFE who) ; (put-byte! p #xFE who)
(put-byte! p #xFF who) ; (put-byte! p #xFF who)
($set-port-attrs! p fast-put-utf16be-tag) ; ($set-port-attrs! p fast-put-utf16be-tag)
(do-put-char p c who)] ; (do-put-char p c who)]
[(eq? m fast-put-utf16be-tag) [(eq? m fast-put-utf16be-tag)
(let ([n (char->integer c)]) (let ([n (char->integer c)])
(cond (cond

2
scheme/last-revision
View File

@ -1 +1 @@
1642 1643