Small cleanups
parent
64a37d2db6
commit
4893ebf183
basis
io
math/bitwise
prettyprint/stylesheet
|
@ -22,10 +22,6 @@ TUPLE: fd < disposable fd ;
|
||||||
] with-destructors ;
|
] with-destructors ;
|
||||||
|
|
||||||
: <fd> ( n -- fd )
|
: <fd> ( n -- fd )
|
||||||
#! We drop the error code rather than calling io-error,
|
|
||||||
#! since on OS X 10.3, this operation fails from init-io
|
|
||||||
#! when running the Factor.app (presumably because fd 0 and
|
|
||||||
#! 1 are closed).
|
|
||||||
fd new-disposable swap >>fd ;
|
fd new-disposable swap >>fd ;
|
||||||
|
|
||||||
M: fd dispose
|
M: fd dispose
|
||||||
|
@ -197,5 +193,5 @@ TUPLE: mx-port < port mx ;
|
||||||
[ drop 0 ] [ (io-error) ] if
|
[ drop 0 ] [ (io-error) ] if
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
: ?flag ( n mask symbol -- n )
|
:: ?flag ( n mask symbol -- n )
|
||||||
pick rot bitand 0 > [ , ] [ drop ] if ;
|
n mask bitand 0 > [ symbol , ] when n ;
|
||||||
|
|
|
@ -4,7 +4,7 @@ USING: alien.c-types io.directories.unix kernel system unix
|
||||||
classes.struct unix.ffi ;
|
classes.struct unix.ffi ;
|
||||||
IN: io.directories.unix.linux
|
IN: io.directories.unix.linux
|
||||||
|
|
||||||
M: unix find-next-file ( DIR* -- dirent )
|
M: linux find-next-file ( DIR* -- dirent )
|
||||||
dirent <struct>
|
dirent <struct>
|
||||||
f <void*>
|
f <void*>
|
||||||
[ [ readdir64_r ] unix-system-call 0 = [ (io-error) ] unless ] 2keep
|
[ [ readdir64_r ] unix-system-call 0 = [ (io-error) ] unless ] 2keep
|
||||||
|
|
|
@ -163,9 +163,3 @@ M: input summary
|
||||||
: write-object ( str obj -- ) presented associate format ;
|
: write-object ( str obj -- ) presented associate format ;
|
||||||
|
|
||||||
: write-image ( image -- ) [ "" ] dip image associate format ;
|
: write-image ( image -- ) [ "" ] dip image associate format ;
|
||||||
|
|
||||||
SYMBOL: stack-effect-style
|
|
||||||
H{
|
|
||||||
{ foreground COLOR: FactorDarkGreen }
|
|
||||||
{ font-style plain }
|
|
||||||
} stack-effect-style set-global
|
|
||||||
|
|
|
@ -99,7 +99,7 @@ M: bignum (bit-count)
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
: byte-array-bit-count ( byte-array -- n )
|
: byte-array-bit-count ( byte-array -- n )
|
||||||
0 [ byte-bit-count + ] reduce ;
|
0 [ byte-bit-count + ] reduce ; inline
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
|
@ -42,5 +42,12 @@ PRIVATE>
|
||||||
: vocab-style ( vocab -- style )
|
: vocab-style ( vocab -- style )
|
||||||
dim-color colored-presentation-style ;
|
dim-color colored-presentation-style ;
|
||||||
|
|
||||||
|
SYMBOL: stack-effect-style
|
||||||
|
|
||||||
|
H{
|
||||||
|
{ foreground COLOR: FactorDarkGreen }
|
||||||
|
{ font-style plain }
|
||||||
|
} stack-effect-style set-global
|
||||||
|
|
||||||
: effect-style ( effect -- style )
|
: effect-style ( effect -- style )
|
||||||
presented associate stack-effect-style get assoc-union ;
|
presented associate stack-effect-style get assoc-union ;
|
||||||
|
|
Loading…
Reference in New Issue