version 1.18, 1995/10/26 22:48:39
|
version 1.20, 1995/11/09 19:37:02
|
Line 1
|
Line 1
|
/* |
/* common header file |
Copyright 1992 by the ANSI figForth Development Group |
|
*/ |
Copyright (C) 1995 Free Software Foundation, Inc. |
|
|
|
This file is part of Gforth. |
|
|
/* common header file */ |
Gforth is free software; you can redistribute it and/or |
|
modify it under the terms of the GNU General Public License |
|
as published by the Free Software Foundation; either version 2 |
|
of the License, or (at your option) any later version. |
|
|
|
This program is distributed in the hope that it will be useful, |
|
but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
GNU General Public License for more details. |
|
|
|
You should have received a copy of the GNU General Public License |
|
along with this program; if not, write to the Free Software |
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
*/ |
|
|
typedef void *Label; |
typedef void *Label; |
|
|
Line 20 typedef void *Label;
|
Line 35 typedef void *Label;
|
#include "machine.h" |
#include "machine.h" |
|
|
/* Forth data types */ |
/* Forth data types */ |
typedef int Bool; |
typedef Cell Bool; |
#define FLAG(b) (-(b)) |
#define FLAG(b) (-(b)) |
#define FILEIO(error) (FLAG(error) & -37) |
#define FILEIO(error) (FLAG(error) & -37) |
#define FILEEXIST(error) (FLAG(error) & -38) |
#define FILEEXIST(error) (FLAG(error) & -38) |