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

Move error words from unix to unix.ffi

db4
Eduardo Cavazos 2008-05-10 06:12:54 -05:00
parent 8e341475fe
commit 6da3e88de5
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/unix/ffi/ffi.factor
View File

@ -9,4 +9,7 @@ C-STRUCT: utimbuf
{ "time_t" "actime" } { "time_t" "actime" }
{ "time_t" "modtime" } ; { "time_t" "modtime" } ;
FUNCTION: int utime ( char* path, utimebuf* buf ) ; FUNCTION: int utime ( char* path, utimebuf* buf ) ;
FUNCTION: int err_no ( ) ;
FUNCTION: char* strerror ( int errno ) ;

4
extra/unix/unix.factor
View File

@ -29,7 +29,7 @@ TYPEDEF: ulong size_t
! ! ! Unix functions ! ! ! Unix functions
LIBRARY: factor LIBRARY: factor
FUNCTION: int err_no ( ) ; ! FUNCTION: int err_no ( ) ;
FUNCTION: void clear_err_no ( ) ; FUNCTION: void clear_err_no ( ) ;
LIBRARY: libc LIBRARY: libc
@ -78,7 +78,7 @@ FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_
FUNCTION: int munmap ( void* addr, size_t len ) ; FUNCTION: int munmap ( void* addr, size_t len ) ;
FUNCTION: uint ntohl ( uint n ) ; FUNCTION: uint ntohl ( uint n ) ;
FUNCTION: ushort ntohs ( ushort n ) ; FUNCTION: ushort ntohs ( ushort n ) ;
FUNCTION: char* strerror ( int errno ) ; ! FUNCTION: char* strerror ( int errno ) ;
: open ( path flags prot -- int ) [ unix.ffi:open ] unix-system-call ; : open ( path flags prot -- int ) [ unix.ffi:open ] unix-system-call ;