version 1.11, 2025/04/11 14:21:03
|
version 1.13, 2025/04/13 04:22:43
|
Line 24
|
Line 24
|
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* |
* |
* $Log$ |
* $Log$ |
|
* Revision 1.13 2025/04/13 04:22:43 snw |
|
* Fix snprintf calls |
|
* |
|
* Revision 1.12 2025/04/11 16:23:18 snw |
|
* Avoid re-reading the same block consecutively when possible |
|
* |
* Revision 1.11 2025/04/11 14:21:03 snw |
* Revision 1.11 2025/04/11 14:21:03 snw |
* Make all but one of the read/write calls in global_bltin use gbl_read_block or gbl_write_block |
* Make all but one of the read/write calls in global_bltin use gbl_read_block or gbl_write_block |
* |
* |
Line 70
|
Line 76
|
#define GBL_HDR_BADVERSION 3 |
#define GBL_HDR_BADVERSION 3 |
#define GBL_HDR_BADBLOCKSIZE 4 |
#define GBL_HDR_BADBLOCKSIZE 4 |
|
|
|
#define ROOT 0L |
|
|
|
/* end of line symbol in global module is 30, which is a code not */ |
|
/* otherwise used in subscripts */ |
|
#define g_EOL 30 |
|
|
|
#define EOL1 EOL |
|
|
|
/* numerics (('.'<<1)&037)==28 ; (('-'<<1)&037)==26; */ |
|
#define POINT 28 |
|
#define MINUS 26 |
|
|
|
/* ALPHA and OMEGA are dummy subscripts in $order processing */ |
|
/* ALPHA sorts before all other subscripts */ |
|
/* OMEGA sorts after all other subscripts */ |
|
/* e.g. ("abc") -> "abc",OMEGA ; ("abc","") -> "abc",ALPHA */ |
|
#define OMEGA 29 |
|
#define ALPHA 31 |
|
|
|
/* length of blocks. status bytes defined as offset to blocklength */ |
|
/* BLOCKLEN 1024 is defined in mpsdef0 include file */ |
|
#define DATALIM (BLOCKLEN-11) |
|
#define LLPTR (BLOCKLEN-10) |
|
#define NRBLK LLPTR |
|
#define COLLA (BLOCKLEN- 7) |
|
#define RLPTR (BLOCKLEN- 6) |
|
#define FREE RLPTR |
|
#define BTYP (BLOCKLEN- 3) |
|
#define OFFS (BLOCKLEN- 2) |
|
|
|
/* length of blockpointers in bytes */ |
|
#define PLEN 3 |
|
|
|
#define EMPTY 0 |
|
#define FBLK 1 |
|
#define POINTER 2 |
|
#define BOTTOM 6 |
|
#define DATA 8 |
|
|
typedef struct global_header { |
typedef struct global_header { |
|
|
char magic[5]; /* FRMGL */ |
char magic[5]; /* FRMGL */ |
Line 92 typedef struct global_handle {
|
Line 137 typedef struct global_handle {
|
global_header header; |
global_header header; |
|
|
long age; |
long age; |
|
long last_read_time; |
|
|
short opened; |
short opened; |
short locked; |
short locked; |
unsigned long last_block; |
unsigned long last_block; |
|
short have_cached_block; |
|
unsigned long cached_block_num; |
|
|
|
char *last_block_accessed; |
|
|
unsigned long use_count; /* how many times has it been accessed? */ |
unsigned long use_count; /* how many times has it been accessed? */ |
unsigned long read_ops; |
unsigned long read_ops; |
unsigned long write_ops; |
unsigned long write_ops; |
|
unsigned long memory_reads; |
unsigned long splits; |
unsigned long splits; |
unsigned long cache_misses; |
unsigned long cache_misses; |
unsigned long cache_hits; |
unsigned long cache_hits; |