add librt for monotonic timers, new timespec>nanoseconds word

Doug Coleman 2009-11-15 00:46:12 -06:00
parent 9575b77643
commit 8db173e9de
3 changed files with 6 additions and 1 deletions

View File

@ -14,6 +14,9 @@ IN: calendar.unix
: timespec>seconds ( timespec -- seconds )
[ sec>> seconds ] [ nsec>> nanoseconds ] bi time+ ;
: timespec>nanoseconds ( timespec -- seconds )
[ sec>> 1000000000 * ] [ nsec>> ] bi + ;
: timespec>unix-time ( timespec -- timestamp )
timespec>seconds since-1970 ;

View File

@ -36,6 +36,7 @@ TYPEDEF: __uint64_t fsfilcnt_t
TYPEDEF: fsfilcnt_t __fsfilcnt_t
TYPEDEF: __uint64_t rlim_t
TYPEDEF: uint32_t id_t
TYPEDEF: long clockid_t
C-TYPE: DIR
C-TYPE: FILE

View File

@ -5,7 +5,7 @@ USING: alien alien.c-types alien.syntax kernel libc
sequences continuations byte-arrays strings math namespaces
system combinators vocabs.loader accessors
stack-checker macros locals generalizations unix.types
io vocabs classes.struct unix.time ;
io vocabs classes.struct unix.time alien.libraries ;
IN: unix
CONSTANT: PROT_NONE 0
@ -220,3 +220,4 @@ FUNCTION: int utimes ( char* path, timeval[2] times ) ;
FUNCTION: ssize_t write ( int fd, void* buf, size_t nbytes ) ;
"librt" "librt.so" "cdecl" add-library