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

Add more time bindings

db4
Doug Coleman 2010-06-13 18:25:08 -05:00
parent e718670997
commit d050ad5906
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/unix/time/time.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel alien.syntax alien.c-types math unix.types
classes.struct accessors ;
USING: accessors alien.c-types alien.syntax calendar
classes.struct kernel math unix.types ;
IN: unix.time
STRUCT: timeval
@ -24,6 +24,15 @@ STRUCT: timespec
swap >>nsec
swap >>sec ;
STRUCT: timezone
{ tz_minuteswest int }
{ tz_dsttime int } ;
: timestamp>timezone ( timestamp -- timezone )
gmt-offset>> duration>minutes
1
\ timezone <struct-boa> ; inline
STRUCT: tm
{ sec int }
{ min int }
@ -40,3 +49,5 @@ STRUCT: tm
FUNCTION: time_t time ( time_t* t ) ;
FUNCTION: tm* localtime ( time_t* clock ) ;
FUNCTION: int gettimeofday ( timespec* TP, void* TZP ) ;
FUNCTION: int settimeofday ( timeval* TP, timezone* TZP ) ;
FUNCTION: int adjtime ( timeval* delta, timeval* olddelta ) ;