From 2d5f634d0d28a0762835afa01dd1e9eb212e4803 Mon Sep 17 00:00:00 2001
From: Nakidai <nakidai@disroot.org>
Date: Tue, 25 Mar 2025 14:35:06 +0300
Subject: Implement all instructions

Something doesn't work, though
---
 str.c | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 str.c

(limited to 'str.c')

diff --git a/str.c b/str.c
new file mode 100644
index 0000000..4277938
--- /dev/null
+++ b/str.c
@@ -0,0 +1,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_Executr_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;
+}
-- 
cgit 1.4.1