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
 | 
			
		||||
] 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
 | 
			
		||||
[ ] [
 | 
			
		||||
    "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 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 ;
 | 
			
		||||
 | 
			
		||||
: <c-writer> ( handle -- stream ) c-writer new-c-stream ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue