unix.types: define <time_t> alias; use it in calendar.unix to avoid clobbering data
							parent
							
								
									995a96d7e4
								
							
						
					
					
						commit
						dd2bbc51b3
					
				| 
						 | 
				
			
			@ -1,7 +1,7 @@
 | 
			
		|||
! Copyright (C) 2008 Doug Coleman.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
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
 | 
			
		||||
 | 
			
		||||
: timeval>seconds ( timeval -- seconds )
 | 
			
		||||
| 
						 | 
				
			
			@ -19,7 +19,7 @@ IN: calendar.unix
 | 
			
		|||
    timespec>seconds since-1970 ;
 | 
			
		||||
 | 
			
		||||
: get-time ( -- alien )
 | 
			
		||||
    f time <uint> localtime ;
 | 
			
		||||
    f time <time_t> localtime ;
 | 
			
		||||
 | 
			
		||||
: timezone-name ( -- string )
 | 
			
		||||
    get-time tm-zone ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
USING: alien.syntax ;
 | 
			
		||||
USING: alien.syntax alien.c-types ;
 | 
			
		||||
 | 
			
		||||
IN: unix.types
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -22,3 +22,5 @@ TYPEDEF: __uint32_t     fflags_t
 | 
			
		|||
TYPEDEF: long           ssize_t
 | 
			
		||||
TYPEDEF: int            pid_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
 | 
			
		||||
 | 
			
		||||
TYPEDEF: ulonglong __uquad_type
 | 
			
		||||
| 
						 | 
				
			
			@ -31,3 +31,5 @@ TYPEDEF: ulonglong __fsblkcnt64_t
 | 
			
		|||
TYPEDEF: ulonglong __fsfilcnt64_t
 | 
			
		||||
TYPEDEF: ulonglong ino64_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
 | 
			
		||||
 | 
			
		||||
! Darwin 9.1.0
 | 
			
		||||
| 
						 | 
				
			
			@ -21,3 +21,5 @@ TYPEDEF: __int32_t  blksize_t
 | 
			
		|||
TYPEDEF: long       ssize_t
 | 
			
		||||
TYPEDEF: __int32_t  pid_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
 | 
			
		||||
 | 
			
		||||
! NetBSD 4.0
 | 
			
		||||
| 
						 | 
				
			
			@ -17,6 +17,8 @@ TYPEDEF: long           ssize_t
 | 
			
		|||
TYPEDEF: int            pid_t
 | 
			
		||||
TYPEDEF: int            time_t
 | 
			
		||||
 | 
			
		||||
ALIAS: <time_t> <int>
 | 
			
		||||
 | 
			
		||||
cell-bits {
 | 
			
		||||
    { 32 [ "unix.types.netbsd.32" require ] }
 | 
			
		||||
    { 64 [ "unix.types.netbsd.64" require ] }
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
USING: alien.syntax ;
 | 
			
		||||
USING: alien.syntax alien.c-types ;
 | 
			
		||||
IN: unix.types
 | 
			
		||||
 | 
			
		||||
! OpenBSD 4.2
 | 
			
		||||
| 
						 | 
				
			
			@ -17,3 +17,5 @@ TYPEDEF: __uint32_t     fflags_t
 | 
			
		|||
TYPEDEF: long           ssize_t
 | 
			
		||||
TYPEDEF: int            pid_t
 | 
			
		||||
TYPEDEF: int            time_t
 | 
			
		||||
 | 
			
		||||
ALIAS: <time_t> <int>
 | 
			
		||||
		Loading…
	
		Reference in New Issue