1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
7 * Module name: toolse.c
8 * Abstract: Programming Tools extension word set
19 /**************************************************************************/
20 /* WORDS ******************************************************************/
21 /**************************************************************************/
31 compile_cell((Cell) _branch);
37 register Cell flag = *sp++;
38 register Cell nest = 1;
39 register Cell ok = FFLAG(1);
49 if (!strmatch("[IF]", _dp, 4)) nest++;
50 else if (!strmatch("[THEN]", _dp, 6) ||
51 (!strmatch("[ELSE]", _dp, 6) && nest == 1)) nest--;
57 void _bracket_else() {
58 register Cell nest = 1;
59 register Cell ok = FFLAG(1);
68 if (!strmatch("[IF]", _dp, 4)) nest++;
69 else if (!strmatch("[THEN]", _dp, 6)) nest--;
74 void _bracket_then() {