prefix.c (afc2ba1deb75b323afde536f2dd18bcafdaa308d) | prefix.c (c0bb4f7308f9d7f3f31eb636c73ef07c6d19b5f3) |
---|---|
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.8 2010/09/13 18:43:04 asau Exp $ 8 */ --- 141 unchanged lines hidden (view full) --- 150 */ 151 hash = ficlDictionaryCreateWordlist(dictionary, 1); 152 hash->name = list_name; 153 ficlDictionaryAppendConstantPointer(dictionary, list_name, hash); 154 155 /* 156 * Put __tempbase in the forth-wordlist 157 */ | 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.8 2010/09/13 18:43:04 asau Exp $ 8 */ --- 141 unchanged lines hidden (view full) --- 150 */ 151 hash = ficlDictionaryCreateWordlist(dictionary, 1); 152 hash->name = list_name; 153 ficlDictionaryAppendConstantPointer(dictionary, list_name, hash); 154 155 /* 156 * Put __tempbase in the forth-wordlist 157 */ |
158 ficlDictionarySetPrimitive(dictionary, "__tempbase", | 158 (void) ficlDictionarySetPrimitive(dictionary, "__tempbase", |
159 ficlPrimitiveTempBase, FICL_WORD_DEFAULT); 160 161 /* 162 * If you want to add some prefixes at compilation-time, copy this 163 * line to the top of this function: 164 * 165 * ficlHash *oldCompilationWordlist; 166 * --- 16 unchanged lines hidden --- | 159 ficlPrimitiveTempBase, FICL_WORD_DEFAULT); 160 161 /* 162 * If you want to add some prefixes at compilation-time, copy this 163 * line to the top of this function: 164 * 165 * ficlHash *oldCompilationWordlist; 166 * --- 16 unchanged lines hidden --- |