| \ 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 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| [THEN] |
[THEN] |
| [THEN] |
[THEN] |
| |
|
| |
\ testing stuff |
| |
|
| |
[ifdef] testing |
| |
|
| |
library libc libc.so.6 |
| |
|
| |
libc sleep int (int) sleep |
| |
libc open ptr int int (int) open |
| |
libc lseek int llong int (llong) lseek64 |
| |
libc read int ptr int (int) read |
| |
libc close int (int) close |
| |
|
| |
library libm libm.so.6 |
| |
|
| |
libm fmodf sf sf (sf) fmodf |
| |
libm fmod df df (fp) fmod |
| |
|
| |
\ example for a windows callback |
| |
|
| |
callback wincall (int) int int int int callback; |
| |
|
| |
:noname ( a b c d -- e ) 2drop 2drop 0 ; wincall do_timer |
| |
|
| |
\ test a callback |
| |
|
| |
callback 2:1 (int) int int callback; |
| |
|
| |
: cb-test ( a b -- c ) |
| |
cr ." Testing callback" |
| |
cr ." arguments: " .s |
| |
cr ." result " + .s cr ; |
| |
' cb-test 2:1 c_plus |
| |
|
| |
fptr 2:1call int int (int) |
| |
|
| |
: test c_plus 2:1call ; |
| |
|
| |
\ 3 4 test |
| |
|
| |
\ bigFORTH legacy library test |
| |
|
| |
library libX11 libX11.so.6 |
| |
|
| |
legacy on |
| |
|
| |
1 libX11 XOpenDisplay XOpenDisplay ( name -- dpy ) |
| |
5 libX11 XInternAtoms XInternAtoms ( atoms flag count names dpy -- status ) |
| |
|
| |
legacy off |
| |
|
| |
[then] |
