Merge branch 'master' into dcn
commit
7f87335afe
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien alien.c-types alien.syntax arrays calendar
|
USING: alien alien.c-types alien.syntax arrays calendar
|
||||||
kernel math unix unix.time namespaces system ;
|
kernel math unix unix.time unix.types namespaces system ;
|
||||||
IN: calendar.unix
|
IN: calendar.unix
|
||||||
|
|
||||||
: timeval>seconds ( timeval -- seconds )
|
: timeval>seconds ( timeval -- seconds )
|
||||||
|
@ -19,7 +19,7 @@ IN: calendar.unix
|
||||||
timespec>seconds since-1970 ;
|
timespec>seconds since-1970 ;
|
||||||
|
|
||||||
: get-time ( -- alien )
|
: get-time ( -- alien )
|
||||||
f time <uint> localtime ;
|
f time <time_t> localtime ;
|
||||||
|
|
||||||
: timezone-name ( -- string )
|
: timezone-name ( -- string )
|
||||||
get-time tm-zone ;
|
get-time tm-zone ;
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: alien.syntax ;
|
USING: alien.syntax alien.c-types ;
|
||||||
|
|
||||||
IN: unix.types
|
IN: unix.types
|
||||||
|
|
||||||
|
@ -22,3 +22,5 @@ TYPEDEF: __uint32_t fflags_t
|
||||||
TYPEDEF: long ssize_t
|
TYPEDEF: long ssize_t
|
||||||
TYPEDEF: int pid_t
|
TYPEDEF: int pid_t
|
||||||
TYPEDEF: int time_t
|
TYPEDEF: int time_t
|
||||||
|
|
||||||
|
ALIAS: <time_t> <int>
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: alien.syntax ;
|
USING: alien.syntax alien.c-types ;
|
||||||
IN: unix.types
|
IN: unix.types
|
||||||
|
|
||||||
TYPEDEF: ulonglong __uquad_type
|
TYPEDEF: ulonglong __uquad_type
|
||||||
|
@ -31,3 +31,5 @@ TYPEDEF: ulonglong __fsblkcnt64_t
|
||||||
TYPEDEF: ulonglong __fsfilcnt64_t
|
TYPEDEF: ulonglong __fsfilcnt64_t
|
||||||
TYPEDEF: ulonglong ino64_t
|
TYPEDEF: ulonglong ino64_t
|
||||||
TYPEDEF: ulonglong off64_t
|
TYPEDEF: ulonglong off64_t
|
||||||
|
|
||||||
|
ALIAS: <time_t> <long>
|
|
@ -1,4 +1,4 @@
|
||||||
USING: alien.syntax ;
|
USING: alien.syntax alien.c-types ;
|
||||||
IN: unix.types
|
IN: unix.types
|
||||||
|
|
||||||
! Darwin 9.1.0
|
! Darwin 9.1.0
|
||||||
|
@ -21,3 +21,5 @@ TYPEDEF: __int32_t blksize_t
|
||||||
TYPEDEF: long ssize_t
|
TYPEDEF: long ssize_t
|
||||||
TYPEDEF: __int32_t pid_t
|
TYPEDEF: __int32_t pid_t
|
||||||
TYPEDEF: long time_t
|
TYPEDEF: long time_t
|
||||||
|
|
||||||
|
ALIAS: <time_t> <long>
|
|
@ -1,4 +1,4 @@
|
||||||
USING: alien.syntax combinators layouts vocabs.loader ;
|
USING: alien.syntax alien.c-types combinators layouts vocabs.loader ;
|
||||||
IN: unix.types
|
IN: unix.types
|
||||||
|
|
||||||
! NetBSD 4.0
|
! NetBSD 4.0
|
||||||
|
@ -17,6 +17,8 @@ TYPEDEF: long ssize_t
|
||||||
TYPEDEF: int pid_t
|
TYPEDEF: int pid_t
|
||||||
TYPEDEF: int time_t
|
TYPEDEF: int time_t
|
||||||
|
|
||||||
|
ALIAS: <time_t> <int>
|
||||||
|
|
||||||
cell-bits {
|
cell-bits {
|
||||||
{ 32 [ "unix.types.netbsd.32" require ] }
|
{ 32 [ "unix.types.netbsd.32" require ] }
|
||||||
{ 64 [ "unix.types.netbsd.64" require ] }
|
{ 64 [ "unix.types.netbsd.64" require ] }
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: alien.syntax ;
|
USING: alien.syntax alien.c-types ;
|
||||||
IN: unix.types
|
IN: unix.types
|
||||||
|
|
||||||
! OpenBSD 4.2
|
! OpenBSD 4.2
|
||||||
|
@ -17,3 +17,5 @@ TYPEDEF: __uint32_t fflags_t
|
||||||
TYPEDEF: long ssize_t
|
TYPEDEF: long ssize_t
|
||||||
TYPEDEF: int pid_t
|
TYPEDEF: int pid_t
|
||||||
TYPEDEF: int time_t
|
TYPEDEF: int time_t
|
||||||
|
|
||||||
|
ALIAS: <time_t> <int>
|
Loading…
Reference in New Issue