]> gitweb.factorcode.org Git - factor.git/commitdiff
moving structs around
authorDoug Coleman <doug.coleman@gmail.com>
Mon, 6 Oct 2008 23:18:33 +0000 (18:18 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Mon, 6 Oct 2008 23:18:33 +0000 (18:18 -0500)
basis/calendar/unix/unix.factor
basis/unix/time/time.factor
basis/unix/unix.factor

index 679cc69fad9684d08dbfb914034ace9e7f508975..fcdfcc8a676e25d2a657bd78147635a9cb5e3bfd 100644 (file)
@@ -1,5 +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 structs math unix unix.time namespaces system ;
+kernel math unix unix.time namespaces system ;
 IN: calendar.unix
 
 : make-timeval ( ms -- timeval )
index 67611ae193bfb7bd97e83b14356d325f13731cae..b6471e9892ecfddf6b2e1378a4216e9892e6a578 100644 (file)
@@ -3,6 +3,14 @@
 USING: kernel alien.syntax alien.c-types math unix.types ;
 IN: unix.time
 
+C-STRUCT: timeval
+    { "long" "sec" }
+    { "long" "usec" } ;
+
+C-STRUCT: timespec
+    { "time_t" "sec" }
+    { "long" "nsec" } ;
+
 C-STRUCT: tm
     { "int" "sec" }    ! Seconds: 0-59 (K&R says 0-61?)
     { "int" "min" }    ! Minutes: 0-59
index 8ccc14f44d8712d05c566b3d8f1152e4d351ed08..a68274f09b8cfb475980cd611f0965b8fe1e7a70 100644 (file)
@@ -29,15 +29,6 @@ C-STRUCT: group
     { "int" "gr_gid" }
     { "char**" "gr_mem" } ;
 
-C-STRUCT: timeval
-    { "long" "sec" }
-    { "long" "usec" } ;
-
-C-STRUCT: timespec
-    { "time_t" "sec" }
-    { "long" "nsec" } ;
-
-
 LIBRARY: factor
 
 FUNCTION: void clear_err_no ( ) ;