gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.15, 1999/08/20 17:22:51	version 1.17, 2000/05/31 14:37:41
Line 38	Line 38
#include <sys/time.h>	#include <sys/time.h>
#include <unistd.h>	#include <unistd.h>
#include <pwd.h>	#include <pwd.h>
	#include <dirent.h>
#else	#else
#include "systypes.h"	#include "systypes.h"
#endif	#endif
Line 170 char tilde_cstr(Char from, UCell size,	Line 171 char tilde_cstr(Char from, UCell size,
#endif	#endif

#ifdef HAS_FILE	#ifdef HAS_FILE
static char* fileattr[6]={"r","rb","r+","r+b","w","wb"};	static char* fileattr[6]={"rb","rb","r+b","r+b","wb","wb"};

#ifndef O_BINARY	#ifndef O_BINARY
#define O_BINARY 0	#define O_BINARY 0
Line 180 static char* fileattr[6]={"r","rb","r+",	Line 181 static char* fileattr[6]={"r","rb","r+",
#endif	#endif

static int ufileattr[6]= {	static int ufileattr[6]= {
O_RDONLY\|O_TEXT, O_RDONLY\|O_BINARY,	O_RDONLY\|O_BINARY, O_RDONLY\|O_BINARY,
O_RDWR \|O_TEXT, O_RDWR \|O_BINARY,	O_RDWR \|O_BINARY, O_RDWR \|O_BINARY,
O_WRONLY\|O_TEXT, O_WRONLY\|O_BINARY };	O_WRONLY\|O_BINARY, O_WRONLY\|O_BINARY };
#endif	#endif

/* if machine.h has not defined explicit registers, define them as implicit */	/* if machine.h has not defined explicit registers, define them as implicit */