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

2
scheme/last-revision
View File

@ -1 +1 @@
1642
1643