Return to engine.c CVS log | Up to [gforth] / gforth |
version 1.19, 1994/10/24 19:15:56 | 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" |
#ifndef SEEK_SET | |
/* should be defined in stdio.h, but some systems don't have it */ | |
#define SEEK_SET 0 | |
#endif | |
typedef union { | typedef union { |
struct { | struct { |
#ifdef BIG_ENDIAN | #ifdef WORDS_BIGENDIAN |
Cell high; | Cell high; |
Cell low; | Cell low; |
#else | #else |
Line 117 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"}; |