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

unix: use byte-vectors here.

db4
John Benediktsson 2013-03-29 11:36:13 -07:00
parent 51641c6e02
commit f70325a8c2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/unix/unix.factor
View File

@ -2,7 +2,7 @@
! Copyright (C) 2008 Eduardo Cavazos. ! Copyright (C) 2008 Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.libraries USING: accessors alien alien.c-types alien.libraries
alien.syntax byte-arrays classes.struct combinators alien.syntax byte-vectors classes.struct combinators
combinators.short-circuit combinators.smart continuations combinators.short-circuit combinators.smart continuations
generalizations io kernel libc locals macros math namespaces generalizations io kernel libc locals macros math namespaces
sequences sequences.generalizations stack-checker strings system sequences sequences.generalizations stack-checker strings system
@ -67,10 +67,10 @@ M: unix open-file [ open ] unix-system-call ;
[ utime ] unix-system-call drop ; [ utime ] unix-system-call drop ;
: read-symbolic-link ( path -- path ) : read-symbolic-link ( path -- path )
PATH_MAX <byte-array> dup [ PATH_MAX <byte-vector> [
PATH_MAX underlying>> PATH_MAX
[ readlink ] unix-system-call [ readlink ] unix-system-call
] dip swap head-slice >string ; ] keep swap >>length >string ;
: unlink-file ( path -- ) [ unlink ] unix-system-call drop ; : unlink-file ( path -- ) [ unlink ] unix-system-call drop ;