stvar.h

Go to the documentation of this file.

#pragma once
 
 
#include <cx/cx.h>
#include <cx/stype/stype.h>
 
 
 
#ifndef __cplusplus
#define stvarInit(typen, val) { .data = { .st_##typen = val }, .type = stType(typen) }
 
#define stvar(typen, val) ((stvar) { .data = stArg(typen, val), .type = stType(typen) })
 
#define stvNone ((stvar) { .type = stType(none) })
#else
_meta_inline stvar _stvar(stype st, stgeneric val)
{
    stvar ret;
    ret.data = val;
    ret.type = st;
    return ret;
}
#define stvar(typen, val) _stvar(stType(typen), stArg(typen, val))
 
#define stvNone _stvar(0, stArg(int64, 0))
#endif
 
 
 
_meta_inline void stvarDestroy(stvar* stv)
{
    _stDestroy(stv->type, NULL, &stv->data, 0);
    stv->type = 0;
}
 
_meta_inline void stvarCopy(stvar* dvar, stvar svar)
{
    dvar->type = svar.type;
    _stCopy(svar.type, NULL, &dvar->data, svar.data, 0);
}
 
 
 
#define stvarIs(svar, type) _stvarIs(svar, stType(type))
_meta_inline bool _stvarIs(stvar* svar, stype styp)
{
    return svar && stEq(svar->type, styp);
}
 
_meta_inline string stvarString(stvar* svar)
{
    if (stvarIs(svar, string))
        return svar->data.st_string;
    return NULL;
}
 
_meta_inline string* stvarStringPtr(stvar* svar)
{
    if (stvarIs(svar, string))
        return &svar->data.st_string;
    return NULL;
}
 
_meta_inline ObjInst* stvarObjInst(stvar* svar)
{
    if (stvarIs(svar, object))
        return svar->data.st_object;
    return NULL;
}
 
_meta_inline ObjInst** stvarObjInstPtr(stvar* svar)
{
    if (stvarIs(svar, object))
        return &svar->data.st_object;
    return NULL;
}
 
#define stvarObj(class, svar) (objDynCast(class, stvarObjInst(svar)))
 
 
 
typedef struct stvlist {
    int count;     
    int cursor;    
    stvar* vars;   
} stvlist;
 
void stvlInit(stvlist* list, int count, stvar* vars);
 
#define stvlInitSA(list, vararray) _stvlInitSA(list, (vararray).a)
void _stvlInitSA(stvlist* list, stvar* vara);
 
#define stvlNext(list, type, pvar) _stvlNext(list, stCheckedPtrArg(type, pvar))
bool _stvlNext(stvlist* list, stype type, stgeneric* out);
 
#define stvlNextPtr(list) _stvlNextPtr(list, stType(ptr))
void* _stvlNextPtr(stvlist* list, stype type);
 
#define stvlNextObj(list, class) objDynCast(class, (ObjInst*)_stvlNextPtr(list, stType(object)))
 
void stvlRewind(stvlist* list);