diff --git a/extra/unix/types/linux/linux.factor b/extra/unix/types/linux/linux.factor index 9be9756edd..8822366a3a 100644 --- a/extra/unix/types/linux/linux.factor +++ b/extra/unix/types/linux/linux.factor @@ -7,9 +7,9 @@ IN: unix.types TYPEDEF: ulonglong __uquad_type TYPEDEF: ulong __ulongword_type -TYPEDEF: uint __uword_type +TYPEDEF: long __sword_type +TYPEDEF: ulong __uword_type TYPEDEF: long __slongword_type -TYPEDEF: int __sword_type TYPEDEF: uint __u32_type TYPEDEF: int __s32_type diff --git a/extra/unix/unix.factor b/extra/unix/unix.factor index e8716ee074..68e46eb2ae 100755 --- a/extra/unix/unix.factor +++ b/extra/unix/unix.factor @@ -2,36 +2,36 @@ ! See http://factorcode.org/license.txt for BSD license. IN: unix USING: alien alien.c-types alien.syntax kernel libc structs -math namespaces system combinators vocabs.loader ; +math namespaces system combinators vocabs.loader unix.types ; ! ! ! Unix types -TYPEDEF: long word -TYPEDEF: ulong uword +! TYPEDEF: long word +! TYPEDEF: ulong uword -TYPEDEF: long longword -TYPEDEF: ulong ulongword +! TYPEDEF: long longword +! TYPEDEF: ulong ulongword -TYPEDEF: long ssize_t -TYPEDEF: longword blksize_t -TYPEDEF: longword blkcnt_t -TYPEDEF: longlong quad_t -TYPEDEF: ulonglong dev_t -TYPEDEF: uint gid_t +! TYPEDEF: long ssize_t +! TYPEDEF: longword blksize_t +! TYPEDEF: longword blkcnt_t +! TYPEDEF: longlong quad_t +! TYPEDEF: ulonglong dev_t +! TYPEDEF: uint gid_t TYPEDEF: uint in_addr_t -TYPEDEF: ulong ino_t -TYPEDEF: int pid_t +! TYPEDEF: ulong ino_t +! TYPEDEF: int pid_t TYPEDEF: uint socklen_t TYPEDEF: uint time_t -TYPEDEF: uint uid_t +! TYPEDEF: uint uid_t TYPEDEF: ulong size_t -TYPEDEF: ulong u_long -TYPEDEF: uint mode_t -TYPEDEF: uword nlink_t -TYPEDEF: void* caddr_t +! TYPEDEF: ulong u_long +! TYPEDEF: uint mode_t +! TYPEDEF: uword nlink_t +! TYPEDEF: void* caddr_t -TYPEDEF: ulong off_t -TYPEDEF-IF: bsd? ulonglong off_t +! TYPEDEF: ulong off_t +! TYPEDEF-IF: bsd? ulonglong off_t C-STRUCT: tm { "int" "sec" } ! Seconds: 0-59 (K&R says 0-61?)