version 1.13, 2005/12/11 20:10:01
|
version 1.20, 2007/06/30 23:00:35
|
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] 2dup s" bsd" search nip nip [IF] 2drop |
|
library libc libc.so |
|
[ELSE] 2dup s" darwin" string-prefix? [IF] 2drop |
|
library libc libc.dylib |
|
[ELSE] 2drop \ or add your stuff here |
|
[THEN] |
|
[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 82 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 |
|
|
fptr: 2:1call int int (int) |
fptr 2:1call int int (int) |
|
|
: test c_plus 2:1call ; |
: test c_plus 2:1call ; |
|
|