Annotation of gforth/test/libcc.fs, revision 1.2
1.1 anton 1: require libcc.fs
2:
3: \c #include <string.h>
4: \c #include <stdlib.h>
5:
6: c-function strlen strlen a -- n
1.2 ! anton 7: cr s\" fooo\0" 2dup dump drop .s strlen cr .s drop cr
1.1 anton 8: c-function labs labs n -- n
9:
10: \c #include <sys/types.h>
11: \c #include <unistd.h>
12: c-function dlseek lseek n d n -- d
13:
14: cr s\" fooo\0" 2dup dump drop .s strlen cr .s drop cr
15: -5 labs .s drop cr
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>