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: locals.h
8 * Abstract: include file for "locals" word set
28 /**************************************************************************/
29 /* PROTOTYPES *************************************************************/
30 /**************************************************************************/
32 code(paren_local_paren, "(local)", COMP_ONLY)
34 code(paren_bp_restore_paren, "(bp!)", 0)
35 code(paren_bp_save_paren, "(bp@)", 0)
36 code(paren_read_local_paren, "(rLocal)", 0)
37 code(paren_write_local_paren, "(wLocal)", 0)
41 /**************************************************************************/
42 /* AUXILIARY FUNCTIONS PROTOTYPES *****************************************/
43 /**************************************************************************/
45 void clear_locals(void);
46 void free_locals(void);
47 void init_locals(void);
48 void declare_local(Char *s, UCell u);
49 struct word_def *get_first_local(void);
50 int locals_defined(void);