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

Merge branch 'master' into dcn

db4
Slava Pestov 2009-07-22 21:12:14 -05:00
parent 610c3b33c7 dd2bbc51b3
commit 7f87335afe
6 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/calendar/unix/unix.factor
View File

@ -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 ;

4
basis/unix/types/freebsd/freebsd.factor
View File

@ -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>

4
basis/unix/types/linux/linux.factor
View File

@ -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>

4
basis/unix/types/macosx/macosx.factor
View File

@ -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>

4
basis/unix/types/netbsd/netbsd.factor
View File

@ -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 ] }

4
basis/unix/types/openbsd/openbsd.factor
View File

@ -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>