version 1.11, 2005/11/20 23:15:42
|
version 1.19, 2007/06/01 16:27:37
|
Line 1
|
Line 1
|
\ lib.fs shared library support package 11may97py |
\ lib.fs shared library support package 11may97py |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 24
|
Line 24
|
[IFDEF] ffi-call |
[IFDEF] ffi-call |
include libffi.fs |
include libffi.fs |
[ELSE] |
[ELSE] |
|
.( Neither libffi nor ffcall are available ) cr |
|
abort |
|
.( Using oldlib.fs; incompatible with fflib.fs and libffi.fs) cr |
include oldlib.fs |
include oldlib.fs |
[THEN] |
[THEN] |
[THEN] |
[THEN] |
|
|
\ testing stuff |
\ testing stuff |
|
|
|
[IFUNDEF] libc |
|
s" os-type" environment? [IF] |
|
2dup s" linux-gnu" str= [IF] 2drop |
|
library libc libc.so.6 |
|
[ELSE] 2dup s" cygwin" str= [IF] 2drop |
|
library libc cygwin1.dll |
|
[ELSE] s" bsd" search nip nip [IF] |
|
library libc libc.so |
|
[THEN] |
|
[THEN] |
|
[THEN] |
|
[THEN] |
|
[THEN] |
|
|
[ifdef] testing |
[ifdef] testing |
|
|
library libc libc.so.6 |
library libc libc.so.6 |
|
|
libc sleep int (int) sleep |
libc sleep int (int) sleep |
libc open int int ptr (int) open |
libc open ptr int int (int) open |
libc lseek int llong int (llong) lseek64 |
libc lseek int llong int (llong) lseek64 |
libc read int ptr int (int) read |
libc read int ptr int (int) read |
libc close int (int) close |
libc close int (int) close |
Line 61 callback 2:1 (int) int int callback;
|
Line 78 callback 2:1 (int) int int callback;
|
cr ." result " + .s cr ; |
cr ." result " + .s cr ; |
' cb-test 2:1 c_plus |
' cb-test 2:1 c_plus |
|
|
: test c_plus av-start-int >r >r av-int-r av-int-r av-call-int ; |
fptr 2:1call int int (int) |
|
|
|
: test c_plus 2:1call ; |
|
|
\ 3 4 test |
\ 3 4 test |
|
|