take a shot at making other platform vocabs c-type-string-free

db4
Joe Groff 2009-09-27 19:25:34 -05:00
parent 89045e3fd0
commit 24de21eac8
23 changed files with 39 additions and 33 deletions

View File

@ -1,6 +1,6 @@
USING: accessors alien.syntax arrays assocs biassocs USING: accessors alien.c-types alien.syntax arrays assocs
classes.struct combinators kernel literals math math.bitwise biassocs classes.struct combinators kernel literals math
math.floats.env math.floats.env.private system ; math.bitwise math.floats.env math.floats.env.private system ;
IN: math.floats.env.ppc IN: math.floats.env.ppc
STRUCT: ppc-fpu-env STRUCT: ppc-fpu-env

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax ; USING: alien.c-types alien.syntax unix.statfs.freebsd ;
IN: unix.getfsstat.freebsd IN: unix.getfsstat.freebsd
CONSTANT: MNT_WAIT 1 ! synchronously wait for I/O to complete CONSTANT: MNT_WAIT 1 ! synchronously wait for I/O to complete

View File

@ -1,10 +1,10 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax ; USING: alien.c-types alien.syntax unix.statvfs.netbsd ;
IN: unix.getfsstat.netbsd IN: unix.getfsstat.netbsd
CONSTANT: MNT_WAIT 1 ! synchronously wait for I/O to complete CONSTANT: MNT_WAIT 1 ! synchronously wait for I/O to complete
CONSTANT: MNT_NOWAIT 2 ! start all I/O, but do not wait for it CONSTANT: MNT_NOWAIT 2 ! start all I/O, but do not wait for it
CONSTANT: MNT_LAZY 3 ! push data not written by filesystem syncer CONSTANT: MNT_LAZY 3 ! push data not written by filesystem syncer
FUNCTION: int getvfsstat ( statfs* buf, int bufsize, int flags ) ; FUNCTION: int getvfsstat ( statvfs* buf, int bufsize, int flags ) ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax ; USING: alien.c-types alien.syntax unix.statfs.openbsd ;
IN: unix.getfsstat.openbsd IN: unix.getfsstat.openbsd
CONSTANT: MNT_WAIT 1 ! synchronously wait for I/O to complete CONSTANT: MNT_WAIT 1 ! synchronously wait for I/O to complete

View File

@ -1,4 +1,4 @@
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.time ;
IN: unix.kqueue IN: unix.kqueue
STRUCT: kevent STRUCT: kevent

View File

@ -1,4 +1,4 @@
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.time ;
IN: unix.kqueue IN: unix.kqueue
STRUCT: kevent STRUCT: kevent

View File

@ -1,4 +1,4 @@
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.time ;
IN: unix.kqueue IN: unix.kqueue
STRUCT: kevent STRUCT: kevent

View File

@ -1,6 +1,6 @@
! Copyright (C) 2005, 2008 Slava Pestov. ! Copyright (C) 2005, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax alien system classes.struct ; USING: alien.c-types alien.syntax alien system classes.struct ;
IN: unix IN: unix
! Linux. ! Linux.

View File

@ -1,6 +1,6 @@
! Copyright (C) 2006 Patrick Mauritz. ! Copyright (C) 2006 Patrick Mauritz.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax system kernel layouts ; USING: alien.c-types alien.syntax system kernel layouts ;
IN: unix IN: unix
! Solaris. ! Solaris.

View File

@ -1,4 +1,5 @@
USING: kernel alien.syntax math classes.struct ; USING: kernel alien.c-types alien.syntax math classes.struct
unix.time unix.types ;
IN: unix.stat IN: unix.stat
! FreeBSD 8.0-CURRENT ! FreeBSD 8.0-CURRENT

View File

@ -1,4 +1,5 @@
USING: kernel alien.syntax math classes.struct ; USING: kernel alien.c-types alien.syntax math classes.struct
unix.time unix.types ;
IN: unix.stat IN: unix.stat
! stat64 ! stat64

View File

@ -1,4 +1,5 @@
USING: kernel alien.syntax math classes.struct ; USING: kernel alien.c-types alien.syntax math classes.struct
unix.time unix.types ;
IN: unix.stat IN: unix.stat
! Ubuntu 7.10 64-bit ! Ubuntu 7.10 64-bit

View File

@ -1,4 +1,5 @@
USING: kernel alien.syntax math classes.struct ; USING: kernel alien.c-types alien.syntax math classes.struct
unix.time unix.types ;
IN: unix.stat IN: unix.stat
! NetBSD 4.0 ! NetBSD 4.0

View File

@ -1,4 +1,5 @@
USING: kernel alien.syntax math classes.struct ; USING: kernel alien.c-types alien.syntax math classes.struct
unix.time unix.types ;
IN: unix.stat IN: unix.stat
! NetBSD 4.0 ! NetBSD 4.0

View File

@ -1,4 +1,5 @@
USING: kernel alien.syntax math classes.struct ; USING: kernel alien.c-types alien.syntax math classes.struct
unix.time unix.types ;
IN: unix.stat IN: unix.stat
! OpenBSD 4.2 ! OpenBSD 4.2

View File

@ -27,8 +27,8 @@ STRUCT: statfs
{ f_owner uid_t } { f_owner uid_t }
{ f_fsid fsid_t } { f_fsid fsid_t }
{ f_charspare char[80] } { f_charspare char[80] }
{ f_fstypename { "char" MFSNAMELEN } } { f_fstypename { char MFSNAMELEN } }
{ f_mntfromname { "char" MNAMELEN } } { f_mntfromname { char MNAMELEN } }
{ f_mntonname { "char" MNAMELEN } } ; { f_mntonname { char MNAMELEN } } ;
FUNCTION: int statfs ( char* path, statvfs* buf ) ; FUNCTION: int statfs ( char* path, statvfs* buf ) ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax unix.types unix.stat classes.struct ; USING: alien.c-types alien.syntax unix.types unix.stat classes.struct ;
IN: unix.statfs.linux IN: unix.statfs.linux
STRUCT: statfs64 STRUCT: statfs64

View File

@ -111,9 +111,9 @@ STRUCT: statfs64
{ f_type uint32_t } { f_type uint32_t }
{ f_flags uint32_t } { f_flags uint32_t }
{ f_fssubtype uint32_t } { f_fssubtype uint32_t }
{ f_fstypename { "char" MFSTYPENAMELEN } } { f_fstypename { char MFSTYPENAMELEN } }
{ f_mntonname { "char" MAXPATHLEN } } { f_mntonname { char MAXPATHLEN } }
{ f_mntfromname { "char" MAXPATHLEN } } { f_mntfromname { char MAXPATHLEN } }
{ f_reserved uint32_t[8] } ; { f_reserved uint32_t[8] } ;
FUNCTION: int statfs64 ( char* path, statfs64* buf ) ; FUNCTION: int statfs64 ( char* path, statfs64* buf ) ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax unix.types unix.stat classes.struct ; USING: alien.c-types alien.syntax unix.types unix.stat classes.struct ;
IN: unix.statfs.openbsd IN: unix.statfs.openbsd
CONSTANT: MFSNAMELEN 16 CONSTANT: MFSNAMELEN 16
@ -25,9 +25,9 @@ STRUCT: statfs
{ f_owner uid_t } { f_owner uid_t }
{ f_ctime u_int32_t } { f_ctime u_int32_t }
{ f_spare u_int32_t[3] } { f_spare u_int32_t[3] }
{ f_fstypename { "char" MFSNAMELEN } } { f_fstypename { char MFSNAMELEN } }
{ f_mntonname { "char" MNAMELEN } } { f_mntonname { char MNAMELEN } }
{ f_mntfromname { "char" MNAMELEN } } { f_mntfromname { char MNAMELEN } }
{ mount_info char[160] } ; { mount_info char[160] } ;
FUNCTION: int statfs ( char* path, statvfs* buf ) ; FUNCTION: int statfs ( char* path, statvfs* buf ) ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.types ;
IN: unix.statvfs.freebsd IN: unix.statvfs.freebsd
STRUCT: statvfs STRUCT: statvfs

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.types ;
IN: unix.statvfs.linux IN: unix.statvfs.linux
STRUCT: statvfs64 STRUCT: statvfs64

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.types ;
IN: unix.statvfs.netbsd IN: unix.statvfs.netbsd
CONSTANT: _VFS_NAMELEN 32 CONSTANT: _VFS_NAMELEN 32

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax classes.struct ; USING: alien.c-types alien.syntax classes.struct unix.types ;
IN: unix.statvfs.openbsd IN: unix.statvfs.openbsd
STRUCT: statvfs STRUCT: statvfs