mcs.h

Go to the documentation of this file.

 
#pragma once
 
#ifdef __cplusplus
extern "C" {
#endif
 
#include <stdint.h>
 
#define __UCONCAT(a, b) #a b
#define _UCONCAT(a, b) __UCONCAT(a, b)
#define UCONCAT(b) _UCONCAT(__USER_LABEL_PREFIX__, b)
 
#ifndef __clang__
#define cstr(x) __attribute__((null_terminated_string_arg(x)))
#define ro(...) __attribute__((access(read_only, __VA_ARGS__)))
#define rw(...) __attribute__((access(read_write, __VA_ARGS__)))
#define wo(...) __attribute__((access(write_only, __VA_ARGS__)))
#else
#define cstr(x)
#define ro(...)
#define rw(...)
#define wo(...)
#endif
 
#define wu __attribute__((warn_unused_result))
#define inline inline __attribute__((always_inline))
 
enum MCS_VariableType {
    VARTYPE_OBCD = 0x01,
 
    VARTYPE_CBCD = 0x02,
 
    VARTYPE_STR = 0x05,
 
    VARTYPE_LIST = 0x0A,
 
    VARTYPE_MAT = 0x0C,
 
    VARTYPE_PRGM = 0x47,
 
    VARTYPE_FUNC = 0x48,
 
    VARTYPE_GEO = 0x54
};
 
enum MCS_Error {
    MCS_OK = 0x00,
 
    MCS_NO_VARIABLE = 0x30,
 
    MCS_NO_FOLDER = 0x40,
 
    MCS_FOLDER_EXISTS = 0x42,
 
    MCS_SIZE_NOT_PO2 = 0x61,
 
    MCS_NOT_LIST = 0x62,
 
    MCS_INDEX_OOB = 0x63
};
 
#define GET_BCD_DIGIT(n, i) (((n) >> ((i) * 4)) & 0xF)
 
struct OBCD {
    uint8_t mantissa[10];
    uint16_t exponent;
};
 
struct CBCD {
    struct OBCD re;
    struct OBCD im;
};
 
extern enum MCS_Error (*MCS_CreateFolder)(const char *folder, uint8_t *folderIndex) wu cstr(1);
 
extern enum MCS_Error (*MCS_GetVariableU)(
    const char *folder, const char *name,
    uint8_t *variableType, char **name2, void **data, uint32_t *size
) __asm__ (UCONCAT("MCS_GetVariable")) wu cstr(1) cstr(2) ro(1) ro(2) wo(3) wo(4) wo(5);
 
static inline wu cstr(1) cstr(2) ro(1) ro(2) wo(3) wo(4) wo(5) enum MCS_Error MCS_GetVariable(
    const char *folder, const char *name,
    enum MCS_VariableType *variableType, char **name2, void **data, uint32_t *size
) {
    return MCS_GetVariableU(folder, name, (uint8_t *)variableType, name2, data, size);
}
 
extern enum MCS_Error (*MCS_List_CreateU)(
    const char *folder, const char *name,
    uint32_t size, uint16_t length, uint8_t variableType
) __asm__ (UCONCAT("MCS_List_Create")) wu cstr(1) cstr(2) ro(1) ro(2);
 
static inline wu cstr(1) cstr(2) ro(1) ro(2) enum MCS_Error MCS_List_Create(
    const char *folder, const char *name,
    uint32_t size, uint16_t length, enum MCS_VariableType variableType
) {
    return MCS_List_CreateU(folder, name, size, length, (uint8_t)variableType);
}
 
extern enum MCS_Error (*MCS_List_SetU)(
    const char *folder, const char *name,
    uint32_t size, unsigned int index, uint8_t variableType, void *data
) __asm__ (UCONCAT("MCS_List_Set")) wu cstr(1) cstr(2) ro(1) ro(2) ro(6, 3);
 
static inline wu cstr(1) cstr(2) ro(1) ro(2) ro(6, 3) enum MCS_Error MCS_List_Set(
    const char *folder, const char *name,
    uint32_t size, unsigned int index, enum MCS_VariableType variableType, void *data
) {
    return MCS_List_SetU(folder, name, size, index, (uint8_t)variableType, data);
}
 
extern enum MCS_Error (*MCS_SetVariableU)(
    const char *folder, const char *name,
    uint8_t variableType, uint32_t size, void *data
) __asm__ (UCONCAT("MCS_SetVariable")) wu cstr(1) cstr(2) ro(1) ro(2) ro(5, 4);
 
static inline wu cstr(1) cstr(2) ro(1) ro(2) ro(5, 4) enum MCS_Error MCS_SetVariable(
    const char *folder, const char *name,
    enum MCS_VariableType variableType, uint32_t size, void *data
) {
    return MCS_SetVariableU(folder, name, (uint8_t)variableType, size, data);
}
 
#undef cstr
#undef ro
#undef rw
#undef wo
#undef __UCONCAT
#undef _UCONCAT
#undef UCONCAT
#undef wu
#undef inline
 
#ifdef __cplusplus
}
#endif