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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-02-28 01:33:22 -06:00
parent 1c959d0cca cc0bafecc6
commit e79772fce4
4 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/primes/primes.factor
View File

@ -47,3 +47,5 @@ PRIVATE>
primes-upto primes-upto
>r 1- next-prime r> >r 1- next-prime r>
[ [ <=> ] binsearch ] keep [ length ] keep <slice> ; foldable [ [ <=> ] binsearch ] keep [ length ] keep <slice> ; foldable
: coprime? ( a b -- ? ) gcd nip 1 = ; foldable

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

2
extra/unix/types/macosx/macosx.factor
View File

@ -1,4 +1,6 @@
USING: alien.syntax ;
IN: unix.types IN: unix.types
! Darwin 9.1.0 ppc ! Darwin 9.1.0 ppc

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