1/******************************************************************* 2** p r e f i x . c 3** Forth Inspired Command Language 4** Parser extensions for Ficl 5** Authors: Larry Hastings & John Sadler (john_sadler@alum.mit.edu) 6** Created: April 2001 7** $Id: prefix.c,v 1.6 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/prefix.c 102657 2002-08-31 01:04:53Z scottl $ */ |
45 46#include <string.h> 47#include <ctype.h> 48#include "ficl.h" 49#include "math64.h" 50 51/* 52** (jws) revisions: --- 46 unchanged lines hidden (view full) --- 99 ** and execute the prefix word. 100 */ 101 if (!strincmp(SI_PTR(si), pFW->name, (FICL_UNS)n)) 102 { 103 /* (sadler) fixed off-by-one error when the token has no trailing space in the TIB */ 104 vmSetTibIndex(pVM, si.cp + n - pVM->tib.cp ); 105 vmExecute(pVM, pFW); 106 |
107 return (int)FICL_TRUE; |
108 } 109 pFW = pFW->link; 110 } 111 } 112 113 return FICL_FALSE; 114} 115 --- 84 unchanged lines hidden --- |