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

40
extra/unix/unix.factor
View File

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