(bind-func static load_blep_tables_from_blob
(lambda (fname:i8*)
(let ((data (sys_slurp_file fname)) ;; data will be heap-allocated
(offset 0))
(if (null? data)
(begin (println "Failed to open bleptable dump file") void)
(begin
(set! BLEPTable (convert (pref-ptr data offset)))
(set! offset (+ offset (* 4096 8)))
(set! fBLEPTable (convert (pref-ptr data offset)))
(set! offset (+ offset (* 4096 4)))
(set! BLEPTable_8_BLKHAR (convert (pref-ptr data offset)))
(set! offset (+ offset (* 4096 8)))
(set! fBLEPTable_8_BLKHAR (convert (pref-ptr data offset)))
void)))))