version 1.15, 2005/12/31 15:46:09
|
version 1.18, 2007/02/17 21:04:15
|
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,2005 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 30
|
Line 30
|
|
|
\ 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 |