1 /* yForth? - A Forth interpreter written in ANSI C
2 * Copyright (C) 2012 Luca Padovani
4 * This program is free software: you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation, either version 3 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program. If not, see <http://www.gnu.org/licenses/>.
16 * ------------------------------------------------------------------------
17 * Module name: block.h
18 * Abstract: Block word set header file
38 /**************************************************************************/
39 /* VARIABLES **************************************************************/
40 /**************************************************************************/
44 struct _block_data { /* Entry in the table of blocks */
45 UCell block_no; /* Block number */
46 Cell dirty; /* Block updated */
49 struct _block_buffer { /* Simply an array of Char */
50 Char buffer[BLOCK_SIZE];
53 extern FILE *block_file;
55 extern struct _block_data *block_data;
56 extern struct _block_buffer *block_buffer;
58 extern UCell current_block;
62 variable(UCell, b_l_k, "blk")
64 /**************************************************************************/
65 /* PROTOTYPES *************************************************************/
66 /**************************************************************************/
68 code(block, "block", 0)
69 code(buffer, "buffer", 0)
70 code(flush, "flush", 0)
72 code(save_buffers, "save-buffers", 0)
73 code(update, "update", 0)
77 /**************************************************************************/
78 /* AUXILIARY FUNCTIONS PROTOTYPES *****************************************/
79 /**************************************************************************/
81 int search_block(UCell block_no);
82 int allocate_block(UCell block_no, int load);
83 void load_block(UCell block_no, int b);
84 void save_block(int b);
85 int open_block_file(char *name);
86 void close_block_file(void);