Port xeq_level_array variable

Author: CraftSpider

crates/engine_xetex/src/c_api/engine.rs

@@ -248,6 +248,7 @@ pub struct EngineCtx {
     /// An arena of TeX nodes
     pub(crate) mem: Vec<MemoryWord>,
     pub(crate) buffer: Vec<char>,
+    pub(crate) xeq_level_array: Vec<u16>,
 }
 
 #[derive(Copy, Clone, PartialEq, Eq)]
@@ -364,6 +365,7 @@ impl EngineCtx {
             prim: Box::new([B32x2 { s0: 0, s1: 0 }; PRIM_SIZE + 1]),
             mem: Vec::new(),
             buffer: Vec::new(),
+            xeq_level_array: vec![0; EQTB_SIZE - INT_BASE + 1],
         }
     }
 
@@ -427,6 +429,10 @@ impl EngineCtx {
         let val = unsafe { self.eqtb[CAT_CODE_BASE + p].b32.s1 };
         CatCode::try_from(val)
     }
+
+    pub fn set_xeq_level(&mut self, idx: usize, val: u16) {
+        self.xeq_level_array[idx - INT_BASE] = val;
+    }
 }
 
 #[derive(Copy, Clone, PartialEq)]
@@ -1017,6 +1023,11 @@ pub extern "C" fn clear_buffer() {
     ENGINE_CTX.with_borrow_mut(|engine| engine.buffer.clear())
 }
 
+#[no_mangle]
+pub extern "C" fn xeq_level_array_ptr(idx: usize) -> *mut u16 {
+    ENGINE_CTX.with_borrow_mut(|engine| ptr::from_mut(&mut engine.xeq_level_array[idx]))
+}
+
 fn checkpool_pointer(pool: &mut StringPool, pool_ptr: usize, len: usize) {
     if pool_ptr + len >= pool.pool_size {
         panic!("string pool overflow [{} bytes]", pool.pool_size);

crates/engine_xetex/xetex/xetex-ini.c

@@ -291,8 +291,6 @@ int32_t last_node_type;
 int32_t insert_penalties;
 bool output_active;
 
-uint16_t _xeq_level_array[EQTB_SIZE - INT_BASE + 1];
-
 #define NEG_TRIE_OP_SIZE -35111L
 #define MAX_TRIE_OP 65535L
 

crates/engine_xetex/xetex/xetex-xetexd.h

@@ -655,8 +655,7 @@ extern bool gave_char_warning_help;
  * with negative indices. The underlying arrays used to be named "zzzaa" and
  * "zzzbb". */
 
-extern uint16_t _xeq_level_array[EQTB_SIZE - INT_BASE + 1];
-#define XEQ_LEVEL(i) _xeq_level_array[(i) - INT_BASE]
+#define XEQ_LEVEL(i) (*xeq_level_array_ptr((i) - INT_BASE))
 
 /* the former xetexcoerce.h: */
 

crates/engine_xetex/xetex/xetex_bindings.h

@@ -740,6 +740,8 @@ void set_buffer(uintptr_t idx, uint32_t val);
 
 void clear_buffer(void);
 
+uint16_t *xeq_level_array_ptr(uintptr_t idx);
+
 StrNumber maketexstring(const char *str);
 
 char *gettexstring(StrNumber s);
@@ -766,6 +768,8 @@ void show_context(void);
 
 void token_show(int32_t p);
 
+void geq_word_define(int32_t p, int32_t w);
+
 void pre_error_message(void);
 
 void error(void);