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

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

Slava Pestov 2008-03-20 21:35:10 -05:00
parent dea825331a 0d4032707c
commit c4ab343a29
7 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/unix/stat/openbsd/32/32.factor
View File

@ -12,9 +12,9 @@ C-STRUCT: stat
{ "gid_t" "st_gid" } { "gid_t" "st_gid" }
{ "dev_t" "st_rdev" } { "dev_t" "st_rdev" }
{ "int32_t" "st_lspare0" } { "int32_t" "st_lspare0" }
{ "timespec*" "st_atimespec" } { "timespec*" "st_atim" }
{ "timespec*" "st_mtimespec" } { "timespec*" "st_mtim" }
{ "timespec*" "st_ctimespec" } { "timespec*" "st_ctim" }
{ "off_t" "st_size" } { "off_t" "st_size" }
{ "int64_t" "st_blocks" } { "int64_t" "st_blocks" }
{ "u_int32_t" "st_blksize" } { "u_int32_t" "st_blksize" }
@ -25,5 +25,5 @@ C-STRUCT: stat
{ "int64_t" "st_qspare1" } { "int64_t" "st_qspare1" }
{ "int64_t" "st_qspare2" } ; { "int64_t" "st_qspare2" } ;
! FUNCTION: int stat ( char* pathname, stat* buf ) ; FUNCTION: int stat ( char* pathname, stat* buf ) ;
FUNCTION: int lstat ( char* pathname, stat* buf ) ; FUNCTION: int lstat ( char* pathname, stat* buf ) ;

2
extra/unix/stat/openbsd/64/64.factor
View File

@ -25,5 +25,5 @@ C-STRUCT: stat
{ "int64_t" "st_qspare1" } { "int64_t" "st_qspare1" }
{ "int64_t" "st_qspare2" } ; { "int64_t" "st_qspare2" } ;
! FUNCTION: int stat ( char* pathname, stat* buf ) ; FUNCTION: int stat ( char* pathname, stat* buf ) ;
FUNCTION: int lstat ( char* pathname, stat* buf ) ; FUNCTION: int lstat ( char* pathname, stat* buf ) ;

8
extra/unix/stat/stat-tests.factor Normal file
View File

@ -0,0 +1,8 @@
USING: kernel tools.test files.unique ;
IN: unix.stat.tests
[ 123 ] [
123 CHAR: a <repetition> [
write
] with-unique-file file-size>>
] unit-test

3
extra/unix/stat/stat.factor
View File

@ -63,7 +63,8 @@ FUNCTION: int mkdir ( char* path, mode_t mode ) ;
{ "linux" [ "unix.stat.linux" require ] } { "linux" [ "unix.stat.linux" require ] }
{ "macosx" [ "unix.stat.macosx" require ] } { "macosx" [ "unix.stat.macosx" require ] }
{ "freebsd" [ "unix.stat.freebsd" require ] } { "freebsd" [ "unix.stat.freebsd" require ] }
[ drop ] { "netbsd" [ "unix.stat.netbsd" require ] }
{ "openbsd" [ "unix.stat.openbsd" require ] }
} }
case case
>> >>

1
extra/unix/types/types.factor
View File

@ -12,6 +12,5 @@ os
{ "freebsd" [ "unix.types.freebsd" require ] } { "freebsd" [ "unix.types.freebsd" require ] }
{ "openbsd" [ "unix.types.openbsd" require ] } { "openbsd" [ "unix.types.openbsd" require ] }
{ "netbsd" [ "unix.types.netbsd" require ] } { "netbsd" [ "unix.types.netbsd" require ] }
[ drop ]
} }
case case

3
misc/target
View File

@ -3,6 +3,9 @@
if [ \( `uname -s ` = FreeBSD \) -a \( `uname -p` = i386 \) ] if [ \( `uname -s ` = FreeBSD \) -a \( `uname -p` = i386 \) ]
then then
echo freebsd-x86-32 echo freebsd-x86-32
elif [ \( `uname -s` = OpenBSD \) -a \( `uname -m` = i386 \) ]
then
echo openbsd-x86-32
elif [ \( `uname -s` = Darwin \) -a \( `uname -p` = powerpc \) ] elif [ \( `uname -s` = Darwin \) -a \( `uname -p` = powerpc \) ]
then then
echo macosx-ppc echo macosx-ppc

2
vm/Config.openbsd
View File

@ -2,4 +2,4 @@ include vm/Config.unix
PLAF_DLL_OBJS += vm/os-genunix.o vm/os-openbsd.o PLAF_DLL_OBJS += vm/os-genunix.o vm/os-openbsd.o
CC = egcc CC = egcc
CFLAGS += -export-dynamic CFLAGS += -export-dynamic
LIBS = -L/usr/local/lib/ -lm $(X11_UI_LIBS) LIBS = -L/usr/local/lib/ -lm $(X11_UI_LIBS) -lz