Deleted Added
sdiff udiff text old ( 138223 ) new ( 167850 )
full compact
ficl.h (138223) ficl.h (167850)
1/*******************************************************************
2** f i c l . h
3** Forth Inspired Command Language
4** Author: John Sadler (john_sadler@alum.mit.edu)
5** Created: 19 July 1997
6** Dedicated to RHS, in loving memory
7** $Id: ficl.h,v 1.18 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** f i c l . h
3** Forth Inspired Command Language
4** Author: John Sadler (john_sadler@alum.mit.edu)
5** Created: 19 July 1997
6** Dedicated to RHS, in loving memory
7** $Id: ficl.h,v 1.18 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/ficl.h 138223 2004-11-30 11:35:30Z scottl $ */
44/* $FreeBSD: head/sys/boot/ficl/ficl.h 167850 2007-03-23 22:26:01Z jkim $ */
45
46#if !defined (__FICL_H__)
47#define __FICL_H__
48/*
49** Ficl (Forth-inspired command language) is an ANS Forth
50** interpreter written in C. Unlike traditional Forths, this
51** interpreter is designed to be embedded into other systems
52** as a command/macro/development prototype language.

--- 179 unchanged lines hidden (view full) ---

232struct ficl_system;
233typedef struct ficl_system FICL_SYSTEM;
234struct ficl_system_info;
235typedef struct ficl_system_info FICL_SYSTEM_INFO;
236
237/*
238** the Good Stuff starts here...
239*/
45
46#if !defined (__FICL_H__)
47#define __FICL_H__
48/*
49** Ficl (Forth-inspired command language) is an ANS Forth
50** interpreter written in C. Unlike traditional Forths, this
51** interpreter is designed to be embedded into other systems
52** as a command/macro/development prototype language.

--- 179 unchanged lines hidden (view full) ---

232struct ficl_system;
233typedef struct ficl_system FICL_SYSTEM;
234struct ficl_system_info;
235typedef struct ficl_system_info FICL_SYSTEM_INFO;
236
237/*
238** the Good Stuff starts here...
239*/
240#define FICL_VER "3.02"
240#define FICL_VER "3.03"
241#define FICL_VER_MAJOR 3
241#define FICL_VER_MAJOR 3
242#define FICL_VER_MINOR 2
242#define FICL_VER_MINOR 3
243#if !defined (FICL_PROMPT)
244#define FICL_PROMPT "ok> "
245#endif
246
247/*
248** ANS Forth requires false to be zero, and true to be the ones
249** complement of false... that unifies logical and bitwise operations
250** nicely.

--- 601 unchanged lines hidden (view full) ---

852 FICL_WORD *parseList[FICL_MAX_PARSE_STEPS];
853 OUTFUNC textOut;
854
855 FICL_WORD *pBranchParen;
856 FICL_WORD *pDoParen;
857 FICL_WORD *pDoesParen;
858 FICL_WORD *pExitInner;
859 FICL_WORD *pExitParen;
243#if !defined (FICL_PROMPT)
244#define FICL_PROMPT "ok> "
245#endif
246
247/*
248** ANS Forth requires false to be zero, and true to be the ones
249** complement of false... that unifies logical and bitwise operations
250** nicely.

--- 601 unchanged lines hidden (view full) ---

852 FICL_WORD *parseList[FICL_MAX_PARSE_STEPS];
853 OUTFUNC textOut;
854
855 FICL_WORD *pBranchParen;
856 FICL_WORD *pDoParen;
857 FICL_WORD *pDoesParen;
858 FICL_WORD *pExitInner;
859 FICL_WORD *pExitParen;
860 FICL_WORD *pIfParen;
860 FICL_WORD *pBranch0;
861 FICL_WORD *pInterpret;
862 FICL_WORD *pLitParen;
863 FICL_WORD *pTwoLitParen;
864 FICL_WORD *pLoopParen;
865 FICL_WORD *pPLoopParen;
866 FICL_WORD *pQDoParen;
867 FICL_WORD *pSemiParen;
861 FICL_WORD *pInterpret;
862 FICL_WORD *pLitParen;
863 FICL_WORD *pTwoLitParen;
864 FICL_WORD *pLoopParen;
865 FICL_WORD *pPLoopParen;
866 FICL_WORD *pQDoParen;
867 FICL_WORD *pSemiParen;
868 FICL_WORD *pOfParen;
868 FICL_WORD *pStore;
869 FICL_WORD *pStore;
870 FICL_WORD *pDrop;
869 FICL_WORD *pCStringLit;
870 FICL_WORD *pStringLit;
871
872#if FICL_WANT_LOCALS
873 FICL_WORD *pGetLocalParen;
874 FICL_WORD *pGet2LocalParen;
875 FICL_WORD *pGetLocal0;
876 FICL_WORD *pGetLocal1;

--- 204 unchanged lines hidden (view full) ---

1081 COLON,
1082 CONSTANT,
1083 CREATE,
1084 DO,
1085 DOES,
1086 IF,
1087 LITERAL,
1088 LOOP,
871 FICL_WORD *pCStringLit;
872 FICL_WORD *pStringLit;
873
874#if FICL_WANT_LOCALS
875 FICL_WORD *pGetLocalParen;
876 FICL_WORD *pGet2LocalParen;
877 FICL_WORD *pGetLocal0;
878 FICL_WORD *pGetLocal1;

--- 204 unchanged lines hidden (view full) ---

1083 COLON,
1084 CONSTANT,
1085 CREATE,
1086 DO,
1087 DOES,
1088 IF,
1089 LITERAL,
1090 LOOP,
1091 OF,
1089 PLOOP,
1090 PRIMITIVE,
1091 QDO,
1092 STRINGLIT,
1093 CSTRINGLIT,
1094#if FICL_WANT_USER
1095 USER,
1096#endif

--- 57 unchanged lines hidden --- 		1092 PLOOP,
1093 PRIMITIVE,
1094 QDO,
1095 STRINGLIT,
1096 CSTRINGLIT,
1097#if FICL_WANT_USER
1098 USER,
1099#endif

--- 57 unchanged lines hidden ---