version 1.12, 2025/04/11 16:23:18
|
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 |
* Revision 1.12 2025/04/11 16:23:18 snw |
* Avoid re-reading the same block consecutively when possible |
* Avoid re-reading the same block consecutively when possible |
* |
* |
Line 73
|
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 */ |