| words.c (102657) | words.c (108470) |
|---|---|
| 1/******************************************************************* 2** w o r d s . c 3** Forth Inspired Command Language 4** ANS Forth CORE word-set written in C 5** Author: John Sadler (john_sadler@alum.mit.edu) 6** Created: 19 July 1997 7** $Id: words.c,v 1.17 2001/12/05 07:21:34 jsadler Exp $ 8*******************************************************************/ --- 27 unchanged lines hidden (view full) --- 36** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 37** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 38** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 39** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 40** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 41** SUCH DAMAGE. 42*/ 43 | 1/******************************************************************* 2** w o r d s . c 3** Forth Inspired Command Language 4** ANS Forth CORE word-set written in C 5** Author: John Sadler (john_sadler@alum.mit.edu) 6** Created: 19 July 1997 7** $Id: words.c,v 1.17 2001/12/05 07:21:34 jsadler Exp $ 8*******************************************************************/ --- 27 unchanged lines hidden (view full) --- 36** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 37** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 38** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 39** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 40** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 41** SUCH DAMAGE. 42*/ 43 |
| 44/* $FreeBSD: head/sys/boot/ficl/words.c 102657 2002-08-31 01:04:53Z scottl $ */ | 44/* $FreeBSD: head/sys/boot/ficl/words.c 108470 2002-12-30 21:18:15Z schweikh $ */ |
| 45 46#ifdef TESTMAIN 47#include <stdlib.h> 48#include <stdio.h> 49#include <ctype.h> 50#include <fcntl.h> 51#else 52#include <stand.h> --- 4477 unchanged lines hidden (view full) --- 4530 return; 4531} 4532 4533 4534#endif 4535/************************************************************************** 4536 f i c l W o r d C l a s s i f y 4537** This public function helps to classify word types for SEE | 45 46#ifdef TESTMAIN 47#include <stdlib.h> 48#include <stdio.h> 49#include <ctype.h> 50#include <fcntl.h> 51#else 52#include <stand.h> --- 4477 unchanged lines hidden (view full) --- 4530 return; 4531} 4532 4533 4534#endif 4535/************************************************************************** 4536 f i c l W o r d C l a s s i f y 4537** This public function helps to classify word types for SEE |
| 4538** and the deugger in tools.c. Given an pointer to a word, it returns | 4538** and the deugger in tools.c. Given a pointer to a word, it returns |
| 4539** a member of WOR 4540**************************************************************************/ 4541WORDKIND ficlWordClassify(FICL_WORD *pFW) 4542{ 4543 typedef struct 4544 { 4545 WORDKIND kind; 4546 FICL_CODE code; --- 397 unchanged lines hidden --- | 4539** a member of WOR 4540**************************************************************************/ 4541WORDKIND ficlWordClassify(FICL_WORD *pFW) 4542{ 4543 typedef struct 4544 { 4545 WORDKIND kind; 4546 FICL_CODE code; --- 397 unchanged lines hidden --- |