File:  [gforth] / gforth / test / libcc.fs
Revision 1.1: download - view: text, annotated - select for diffs
Mon May 28 09:43:34 2007 UTC (16 years, 11 months ago) by anton
Branches: MAIN
CVS tags: HEAD
split test/libcc.fs from libcc.fs

require libcc.fs

\c #include <string.h>
\c #include <stdlib.h>

c-function strlen strlen a -- n
c-function labs labs n -- n

\c #include <sys/types.h>
\c #include <unistd.h>
c-function dlseek lseek n d n -- d

cr s\" fooo\0" 2dup dump drop .s strlen cr .s drop cr 
-5 labs .s drop cr

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>