str.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

#include "cccl.h"

#include <stddef.h>


const char *strtoken(enum cccl_TokenType type)
{
    switch (type)
    {
    break; case cccl_Token_IDENTIFIER: return "IDENTIFIER";
    break; case cccl_Token_COMMAND: return "COMMAND";
    break; case cccl_Token_COMMANDWITHARG: return "COMMANDWITHARG";
    break; case cccl_Token_BLOCKSTART: return "BLOCKSTART";
    break; case cccl_Token_BLOCKEND: return "BLOCKEND";
    }
    return NULL;
}

const char *strnode(enum cccl_NodeType type)
{
    switch (type)
    {
    break; case cccl_Node_CODE: return "CODE";
    break; case cccl_Node_PUSHZERO: return "PUSHZERO";
    break; case cccl_Node_INCREMENT: return "INCREMENT";
    break; case cccl_Node_DECREMENT: return "DECREMENT";
    break; case cccl_Node_ADD: return "ADD";
    break; case cccl_Node_SUBTRACT: return "SUBTRACT";
    break; case cccl_Node_REVERSE: return "REVERSE";
    break; case cccl_Node_ASSIGN: return "ASSIGN";
    break; case cccl_Node_DELETE: return "DELETE";
    break; case cccl_Node_PUSHVAR: return "PUSHVAR";
    break; case cccl_Node_ASSIGNLOCAL: return "ASSIGNLOCAL";
    break; case cccl_Node_OUTPUT: return "OUTPUT";
    break; case cccl_Node_INPUT: return "INPUT";
    break; case cccl_Node_CALL: return "CALL";
    break; case cccl_Node_END: return "END";
    break; case cccl_Node_CONTINUE: return "CONTINUE";
    break; case cccl_Node_PROCEDURE: return "PROCEDURE";
    break; case cccl_Node_INFINITE: return "INFINITE";
    break; case cccl_Node_REPEAT: return "REPEAT";
    break; case cccl_Node_CONDITIONAL: return "CONDITIONAL";
    }
    return NULL;
}

const char *strstatus(enum cccl_ExecutorStatus status)
{
    switch (status)
    {
    break; case cccl_Executor_OK: return "OK";
    break; case cccl_Executor_ERROR: return "ERROR";
    break; case cccl_Executor_CONTINUE: return "CONTINUE";
    break; case cccl_Executor_END: return "END";
    }
    return NULL;
}