Return to libcc.fs CVS log | Up to [gforth] / gforth / test |
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 ! 7: c-function labs labs n -- n ! 8: ! 9: \c #include <sys/types.h> ! 10: \c #include <unistd.h> ! 11: c-function dlseek lseek n d n -- d ! 12: ! 13: cr s\" fooo\0" 2dup dump drop .s strlen cr .s drop cr ! 14: -5 labs .s drop cr