steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.encodings: Add a stream-tell method for decoder streams.

db4
Doug Coleman 2013-06-04 17:46:25 -07:00
parent 3e3ce269de
commit d38fdb4433
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/encodings/encodings.factor
View File

@ -86,6 +86,8 @@ M: decoder stream-element-type
M: decoder stream-read1 ( decoder -- ch ) M: decoder stream-read1 ( decoder -- ch )
dup (read1) fix-cr ; inline dup (read1) fix-cr ; inline
M: decoder stream-tell stream>> stream-tell ;
: (read-first) ( n buf decoder -- buf stream encoding n c ) : (read-first) ( n buf decoder -- buf stream encoding n c )
[ rot [ >decoder< ] dip 2over decode-char ] [ rot [ >decoder< ] dip 2over decode-char ]
[ swap fix-cr ] bi ; inline [ swap fix-cr ] bi ; inline