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

unix: start removing the factored out types

db4
Eduardo Cavazos 2008-02-27 18:15:18 -06:00
parent c338a2dc25
commit 194e0d00c7
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,9 +7,9 @@ IN: unix.types
TYPEDEF: ulonglong __uquad_type TYPEDEF: ulonglong __uquad_type
TYPEDEF: ulong __ulongword_type TYPEDEF: ulong __ulongword_type
TYPEDEF: uint __uword_type TYPEDEF: long __sword_type
TYPEDEF: ulong __uword_type
TYPEDEF: long __slongword_type TYPEDEF: long __slongword_type
TYPEDEF: int __sword_type
TYPEDEF: uint __u32_type TYPEDEF: uint __u32_type
TYPEDEF: int __s32_type TYPEDEF: int __s32_type

40
extra/unix/unix.factor
View File

@ -2,36 +2,36 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: unix IN: unix
USING: alien alien.c-types alien.syntax kernel libc structs 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 ! ! ! Unix types
TYPEDEF: long word ! TYPEDEF: long word
TYPEDEF: ulong uword ! TYPEDEF: ulong uword
TYPEDEF: long longword ! TYPEDEF: long longword
TYPEDEF: ulong ulongword ! TYPEDEF: ulong ulongword
TYPEDEF: long ssize_t ! TYPEDEF: long ssize_t
TYPEDEF: longword blksize_t ! TYPEDEF: longword blksize_t
TYPEDEF: longword blkcnt_t ! TYPEDEF: longword blkcnt_t
TYPEDEF: longlong quad_t ! TYPEDEF: longlong quad_t
TYPEDEF: ulonglong dev_t ! TYPEDEF: ulonglong dev_t
TYPEDEF: uint gid_t ! TYPEDEF: uint gid_t
TYPEDEF: uint in_addr_t TYPEDEF: uint in_addr_t
TYPEDEF: ulong ino_t ! TYPEDEF: ulong ino_t
TYPEDEF: int pid_t ! TYPEDEF: int pid_t
TYPEDEF: uint socklen_t TYPEDEF: uint socklen_t
TYPEDEF: uint time_t TYPEDEF: uint time_t
TYPEDEF: uint uid_t ! TYPEDEF: uint uid_t
TYPEDEF: ulong size_t TYPEDEF: ulong size_t
TYPEDEF: ulong u_long ! TYPEDEF: ulong u_long
TYPEDEF: uint mode_t ! TYPEDEF: uint mode_t
TYPEDEF: uword nlink_t ! TYPEDEF: uword nlink_t
TYPEDEF: void* caddr_t ! TYPEDEF: void* caddr_t
TYPEDEF: ulong off_t ! TYPEDEF: ulong off_t
TYPEDEF-IF: bsd? ulonglong off_t ! TYPEDEF-IF: bsd? ulonglong off_t
C-STRUCT: tm C-STRUCT: tm
{ "int" "sec" } ! Seconds: 0-59 (K&R says 0-61?) { "int" "sec" } ! Seconds: 0-59 (K&R says 0-61?)