io.streams.c: remove -seek and -tell methods
M: c-stream stream-seek was broken and bootstrap doesn't need it so save some code.db4
parent
e426512534
commit
0353179a92
|
@ -11,15 +11,6 @@ IN: io.streams.c.tests
|
||||||
>string
|
>string
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ 0 ]
|
|
||||||
[ "test.txt" temp-file "rb" fopen <c-reader> [ stream-tell ] [ dispose ] bi ] unit-test
|
|
||||||
|
|
||||||
[ 3 ] [
|
|
||||||
"test.txt" temp-file "rb" fopen <c-reader>
|
|
||||||
3 over stream-read drop
|
|
||||||
[ stream-tell ] [ dispose ] bi
|
|
||||||
] unit-test
|
|
||||||
|
|
||||||
! Writing specialized arrays to binary streams
|
! Writing specialized arrays to binary streams
|
||||||
[ ] [
|
[ ] [
|
||||||
"test.txt" temp-file "wb" fopen <c-writer> [
|
"test.txt" temp-file "wb" fopen <c-writer> [
|
||||||
|
|
|
@ -13,18 +13,6 @@ TUPLE: c-stream < disposable handle ;
|
||||||
|
|
||||||
M: c-stream dispose* handle>> fclose ;
|
M: c-stream dispose* handle>> fclose ;
|
||||||
|
|
||||||
M: c-stream stream-tell handle>> ftell ;
|
|
||||||
|
|
||||||
M: c-stream stream-seek
|
|
||||||
[
|
|
||||||
{
|
|
||||||
{ seek-absolute [ 0 ] }
|
|
||||||
{ seek-relative [ 1 ] }
|
|
||||||
{ seek-end [ 2 ] }
|
|
||||||
[ bad-seek-type ]
|
|
||||||
} case
|
|
||||||
] [ handle>> ] bi* fseek ;
|
|
||||||
|
|
||||||
TUPLE: c-writer < c-stream ;
|
TUPLE: c-writer < c-stream ;
|
||||||
|
|
||||||
: <c-writer> ( handle -- stream ) c-writer new-c-stream ;
|
: <c-writer> ( handle -- stream ) c-writer new-c-stream ;
|
||||||
|
|
Loading…
Reference in New Issue