Return to libcc.fs CVS log

Up to [gforth] / gforth / test

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