--- freem/src/global_bltin.h	2025/04/09 14:34:30	1.9
+++ freem/src/global_bltin.h	2025/04/13 04:22:43	1.13
@@ -1,5 +1,5 @@
 /*
- *   $Id: global_bltin.h,v 1.9 2025/04/09 14:34:30 snw Exp $
+ *   $Id: global_bltin.h,v 1.13 2025/04/13 04:22:43 snw Exp $
  *    built-in global handler header
  *
  *  
@@ -24,6 +24,18 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: global_bltin.h,v $
+ *   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
+ *   Make all but one of the read/write calls in global_bltin use gbl_read_block or gbl_write_block
+ *
+ *   Revision 1.10  2025/04/11 00:52:40  snw
+ *   Replace all lseek/read calls in global handler to use gbl_read_block function
+ *
  *   Revision 1.9  2025/04/09 14:34:30  snw
  *   Further work on global_bltin.c refactor
  *
@@ -64,6 +76,45 @@
 #define GBL_HDR_BADVERSION 3
 #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 {
     
     char magic[5]; /* FRMGL */
@@ -86,11 +137,21 @@ typedef struct global_handle {
     global_header header;
    
     long age;
+    long last_read_time;
+    
     short opened;
     short locked;
     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 read_ops;
+    unsigned long write_ops;
+    unsigned long memory_reads;
+    unsigned long splits;    
     unsigned long cache_misses;
     unsigned long cache_hits;
     
@@ -121,6 +182,8 @@ extern int gbl_read_header(global_handle
 extern int gbl_update_tid(global_handle *g);
 extern int gbl_create(global_handle *g);
 extern short gbl_open(global_handle *g, short action);
+extern int gbl_read_block(global_handle *g, unsigned long blocknum, char *block);
+extern int gbl_write_block(global_handle *g, unsigned long blocknum, char *block);
 extern global_handle *gbl_handle(char *key);
 
 #endif