add librt for monotonic timers, new timespec>nanoseconds word
parent
9575b77643
commit
8db173e9de
|
|
@ -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 ;
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue