pikapython/demo/stm32g070cbt6/pikascript/pikascript-core/PikaBlock.c

#include "PikaObj.h"
#include "dataArgs.h"
#include "dataMemory.h"
#include "dataString.h"
#include "dataStrs.h"
#include <stdarg.h>
#include "PikaBlock.h"
#include "TinyObj.h"

void block_deinit(PikaObj *self)
{
    obj_deinit(self);
}

PikaObj *block_init(Args *args)
{
    PikaObj *self = New_TinyObj(args);
    obj_setStr(self, "mode", "");
    obj_setStr(self, "assert", "");
    obj_setStr(self, "body", "");
    obj_setInt(self, "lineSize", 0);
    obj_setStr(self, "lineNow", "");
    return self;
}

char *block_getBody(PikaObj *self)
{
    return obj_getStr(self, "body");
}

void block_setBody(PikaObj *self, char *body)
{
    obj_setStr(self, "body", body);
}

uint8_t block_checkAssert(PikaObj *self)
{
    Args *buffs = New_strBuff();
    PikaObj *host = obj_getContext(self);
    char *assert = block_getAssert(self);
    obj_run(host, strsFormat(buffs, 32, "_res = %s", assert));
    int res = obj_getInt(host, "_res");
    obj_removeArg(host, "_res");
    args_deinit(buffs);
    return res;
}

uint16_t block_getLineSize(PikaObj *self)
{
    return obj_getInt(self, "lineSize");
}

void block_setAssert(PikaObj *self, char *assert)
{
    obj_setStr(self, "assert", assert);
}

char *block_getAssert(PikaObj *self)
{
    return obj_getStr(self, "assert");
}

void block_setMode(PikaObj *self, char *mode)
{
    obj_setStr(self, "mode", mode);
}

char *block_getMode(PikaObj *self)
{
    return obj_getStr(self, "mode");
}

void block_pushLine(PikaObj *self, char *line)
{
    Args *buffs = New_strBuff();
    char *body = obj_getStr(self, "body");
    body = strsAppend(buffs, body, line);
    body = strsAppend(buffs, body, "\n");
    obj_setStr(self, "body", body);
    obj_setInt(self, "lineSize", obj_getInt(self, "lineSize") + 1);
    args_deinit(buffs);
}

char *block_popLine(PikaObj *self)
{
    Args *buffs = New_strBuff();
    char *body = obj_getStr(self, "body");
    char *line = strsPopToken(buffs, body, '\n');

    obj_setStr(self, "body", body);
    obj_setStr(self, "lineNow", line);
    obj_setInt(self, "lineSize", obj_getInt(self, "lineSize") - 1);
    args_deinit(buffs);
    return obj_getStr(self, "lineNow");
}