formatting
parent
68621c4d79
commit
67cccc63b3
|
@ -60,6 +60,7 @@ M: unix seek-handle ( n seek-type handle -- )
|
|||
|
||||
M: unix can-seek-handle? ( handle -- ? )
|
||||
fd>> SEEK_CUR 0 lseek -1 = not ;
|
||||
|
||||
M: unix handle-length ( handle -- n/f )
|
||||
fd>> \ stat <struct> [ fstat -1 = not ] keep
|
||||
swap [ st_size>> ] [ drop f ] if ;
|
||||
|
|
|
@ -53,7 +53,6 @@ M: buffer dispose* ptr>> free ;
|
|||
|
||||
HINTS: buffer-read fixnum buffer ;
|
||||
|
||||
|
||||
: buffer-end ( buffer -- alien )
|
||||
[ fill>> ] [ ptr>> ] bi <displaced-alien> ; inline
|
||||
|
||||
|
|
|
@ -113,16 +113,19 @@ PRIVATE>
|
|||
|
||||
ERROR: invalid-read-buffer buf stream ;
|
||||
|
||||
|
||||
: stream-read-into ( buf stream -- buf-slice/f )
|
||||
[ stream-read-unsafe ] (read-into) ; inline
|
||||
|
||||
: stream-read-partial-into ( buf stream -- buf-slice/f )
|
||||
[ stream-read-partial-unsafe ] (read-into) ; inline
|
||||
|
||||
: read ( n -- seq ) input-stream get stream-read ; inline
|
||||
|
||||
: read-partial ( n -- seq ) input-stream get stream-read-partial ; inline
|
||||
|
||||
: read-into ( buf -- buf-slice/f )
|
||||
input-stream get stream-read-into ; inline
|
||||
|
||||
: read-partial-into ( buf -- buf-slice/f )
|
||||
input-stream get stream-read-partial-into ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue