![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to engine.c CVS log | Up to [gforth] / gforth |
| version 1.20, 1994/12/12 17:10:35 | version 1.22, 1995/01/10 18:57:42 |
|---|---|
| Line 13 | Line 13 |
| #include <stdlib.h> | #include <stdlib.h> |
| #include <time.h> | #include <time.h> |
| #include <sys/time.h> | #include <sys/time.h> |
| #include <unistd.h> | |
| #include "forth.h" | #include "forth.h" |
| #include "io.h" | #include "io.h" |
| Line 122 char *cstr(Char *from, UCell size, int c | Line 123 char *cstr(Char *from, UCell size, int c |
| #define NEWLINE '\n' | #define NEWLINE '\n' |
| #ifndef HAVE_RINT | |
| #define rint(x) floor((x)+0.5) | |
| #endif | |
| static char* fileattr[6]={"r","rb","r+","r+b","w+","w+b"}; | static char* fileattr[6]={"r","rb","r+","r+b","w+","w+b"}; |