ti/vars: add arcUnarcVariable() and deleteArchivedVariable().

Author: adriweb

src/ce/extravars.c

@@ -0,0 +1,44 @@
+#include <stdbool.h>
+#include <stdint.h>
+
+// From <ti/error.h>
+int os_PushErrorHandler(void) __attribute__((returns_twice));
+void os_PopErrorHandler(void);
+// From <ti/vars.h>
+#define os_OP1   ((uint8_t*)0xD005F8)
+#define os_Flags ((uint8_t*)0xD00080)
+
+void deleteArchivedVariable(void *entry, void *data)
+{
+    int clobber_hl, clobber_de;
+    asm volatile (
+        "ld b, 1\n"
+        "call 021434h\n"    // DelVarArc
+        : "=l" (clobber_hl),
+          "=e" (clobber_de)
+        : [hl] "l" (entry),
+          [de] "e" (data),
+          [flags] "iyl" (os_Flags)
+        : "cc", "a", "bc", "ix", "iy"
+    );
+}
+
+bool arcUnarcVariable(uint8_t varType, uint8_t nameLen, const char *name)
+{
+    const int err = os_PushErrorHandler();
+    if (err) {
+        // dbg_printf("[ERROR caught] [arcUnarcVariable] errno = %d\n", err);
+        return false;
+    }
+    *(os_OP1) = varType;
+    __builtin_memcpy((char*)(os_OP1+1), name, nameLen);
+    *(os_OP1+1+nameLen) = '\0';
+    asm volatile (
+        "call 021448h\n"    // Arc_Unarc
+        :
+        : [flags] "iyl" (os_Flags)
+        : "cc", "a", "bc", "de", "hl", "ix", "iy"
+    );
+    os_PopErrorHandler();
+    return true;
+}

src/ce/include/ti/vars.h

@@ -291,6 +291,24 @@ void *os_NextSymEntry(void *entry, uint24_t *type, uint24_t *nameLength, char *n
  */
 int os_DelSymEntry(void *entry);
 
+/**
+ * Delete a var from archive (Flash).
+ *
+ * @param[in] entry An entry as used in (or returned from) \c os_NextSymEntry or \c os_ChkFindSym.
+ * @param[in] data Start of variable's data as used in (or returned from) \c os_NextSymEntry or \c os_ChkFindSym.
+ */
+void os_DelArchivedVar(void *entry, void *data);
+
+/**
+ * Archive (if in RAM) or Unarchive (if in Flash) a variable.
+ *
+ * @param[in] varType The variable type ID (like \c OS_TYPE_PROT_PRGM etc.)
+ * @param[in] nameLen Length of the variable name
+ * @param[in] name Variable name
+ * @return true on success, false on failure.
+ */
+bool arcUnarcVariable(uint8_t varType, uint8_t nameLen, const char *name);
+
 /**
  * Creates an TIOS Str.
  *

src/ce/makefile

@@ -16,15 +16,30 @@
 
 include $(CURDIR)/../common.mk
 
-WILDCARD_SRC = $(wildcard *.src)
+BUILD_SRC := $(patsubst %,build/%.src,$(wildcard *.c *.cpp))
+
+EZCFLAGS := -S -ffreestanding -Wall -Wextra -Wimplicit-float-conversion -Wimplicit-int-float-conversion -Oz
+EZCFLAGS += -D_EZ80 -isystem ../libc/include -mllvm -profile-guided-section-prefix=false
+EZCXXFLAGS := $(EZCFLAGS) -fno-exceptions -fno-rtti
+EZCXXFLAGS += -isystem ../libc/include/c++
+
+WILDCARD_SRC = $(wildcard *.src) $(BUILD_SRC)
 WILDCARD_H = $(wildcard include/*.h)
 WILDCARD_HW_H = $(wildcard include/sys/*.h)
 WILDCARD_TI_H = $(wildcard include/ti/*.h)
 
 WILDCARD_CXX_H = $(wildcard include/c++/*)
 WILDCARD_CXX_TI_H = $(wildcard include/ti/c++/*)
 
-all:
+all: $(BUILD_SRC)
+
+build/%.c.src: %.c
+	$(Q)$(call MKDIR,build)
+	$(Q)$(EZCC) $(EZCFLAGS) $< -o $@
+
+build/%.cpp.src: %.cpp
+	$(Q)$(call MKDIR,build)
+	$(Q)$(EZCC) $(EZCXXFLAGS) $< -o $@
 
 install: $(addprefix install-,$(TARGETS))
 	$(Q)$(call MKDIR,$(INSTALL_H))