|
|
| 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 */ |