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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#ifndef __CCCL_H__
#define __CCCL_H__
#include <stddef.h>
#include <stdio.h>
#define TOKENS_LIMIT 16384
struct cccl_File
{
char *buffer;
size_t size;
};
enum cccl_TokenType
{
cccl_Token_IDENTIFIER,
cccl_Token_COMMAND,
cccl_Token_COMMANDWITHARG,
cccl_Token_BLOCKSTART,
cccl_Token_BLOCKEND,
};
struct cccl_Token
{
enum cccl_TokenType type;
char value;
};
enum cccl_NodeType
{
cccl_Node_CODE = 0,
cccl_Node_PUSHZERO,
cccl_Node_INCREMENT,
cccl_Node_DECREMENT,
cccl_Node_ADD,
cccl_Node_SUBTRACT,
cccl_Node_REVERSE,
cccl_Node_ASSIGN,
cccl_Node_DELETE,
cccl_Node_PUSHVAR,
cccl_Node_ASSIGNLOCAL,
cccl_Node_OUTPUT,
cccl_Node_INPUT,
cccl_Node_CALL,
cccl_Node_END,
cccl_Node_CONTINUE,
cccl_Node_PROCEDURE,
cccl_Node_INFINITE,
cccl_Node_REPEAT,
cccl_Node_CONDITIONAL,
};
struct cccl_Node
{
enum cccl_NodeType type;
struct cccl_Node **in;
size_t in_length;
char value;
};
enum cccl_ExecutorStatus
{
cccl_Executr_OK = 0,
cccl_Executor_ERROR,
cccl_Executor_CONTINUE,
cccl_Executor_END,
};
struct cccl_Variables
{
short buffer[52];
char used[52];
};
struct cccl_Function
{
struct cccl_Node **body;
size_t length;
};
struct cccl_Stack
{
short *buffer;
size_t length;
size_t allocated;
};
extern int verbose;
extern int interactive;
extern int dump;
int cccl_allocfile(const char *path, struct cccl_File *file);
void cccl(struct cccl_File file);
size_t cccl_tokenize(const char *code, size_t size, struct cccl_Token tokens[], size_t tokens_length);
struct cccl_Node *cccl_parse(struct cccl_Token tokens[], size_t tokens_length, enum cccl_NodeType type, char value);
enum cccl_ExecutorStatus cccl_execute(struct cccl_Node *code, struct cccl_Variables *scope, size_t depth);
void cccl_dump(FILE *f);
const char *strtoken(enum cccl_TokenType type);
const char *strnode(enum cccl_NodeType type);
const char *strstatus(enum cccl_ExecutorStatus status);
#endif /* __CCCL_H__ */
|