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

formatting

db4
Joe Groff 2011-10-17 21:12:48 -07:00
parent 68621c4d79
commit 67cccc63b3
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/io/backend/unix/unix.factor
View File

@ -60,6 +60,7 @@ M: unix seek-handle ( n seek-type handle -- )
M: unix can-seek-handle? ( handle -- ? ) M: unix can-seek-handle? ( handle -- ? )
fd>> SEEK_CUR 0 lseek -1 = not ; fd>> SEEK_CUR 0 lseek -1 = not ;
M: unix handle-length ( handle -- n/f ) M: unix handle-length ( handle -- n/f )
fd>> \ stat <struct> [ fstat -1 = not ] keep fd>> \ stat <struct> [ fstat -1 = not ] keep
swap [ st_size>> ] [ drop f ] if ; swap [ st_size>> ] [ drop f ] if ;

1
basis/io/buffers/buffers.factor
View File

@ -53,7 +53,6 @@ M: buffer dispose* ptr>> free ;
HINTS: buffer-read fixnum buffer ; HINTS: buffer-read fixnum buffer ;
: buffer-end ( buffer -- alien ) : buffer-end ( buffer -- alien )
[ fill>> ] [ ptr>> ] bi <displaced-alien> ; inline [ fill>> ] [ ptr>> ] bi <displaced-alien> ; inline

5
core/io/io.factor
View File

@ -113,16 +113,19 @@ PRIVATE>
ERROR: invalid-read-buffer buf stream ; ERROR: invalid-read-buffer buf stream ;
: stream-read-into ( buf stream -- buf-slice/f ) : stream-read-into ( buf stream -- buf-slice/f )
[ stream-read-unsafe ] (read-into) ; inline [ stream-read-unsafe ] (read-into) ; inline
: stream-read-partial-into ( buf stream -- buf-slice/f ) : stream-read-partial-into ( buf stream -- buf-slice/f )
[ stream-read-partial-unsafe ] (read-into) ; inline [ stream-read-partial-unsafe ] (read-into) ; inline
: read ( n -- seq ) input-stream get stream-read ; inline : read ( n -- seq ) input-stream get stream-read ; inline
: read-partial ( n -- seq ) input-stream get stream-read-partial ; inline : read-partial ( n -- seq ) input-stream get stream-read-partial ; inline
: read-into ( buf -- buf-slice/f ) : read-into ( buf -- buf-slice/f )
input-stream get stream-read-into ; inline input-stream get stream-read-into ; inline
: read-partial-into ( buf -- buf-slice/f ) : read-partial-into ( buf -- buf-slice/f )
input-stream get stream-read-partial-into ; inline input-stream get stream-read-partial-into ; inline