From fa02225c5ae8b704408769c70bb47101042762b8 Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Sun, 20 Feb 2022 18:48:30 +0100 Subject: Haskell ftw --- inc/context.h | 41 ----------------------- inc/lint.h | 8 ----- inc/log.h | 8 ----- inc/preprocess.h | 11 ------- inc/tokenize.h | 40 ----------------------- inc/treeify.h | 99 -------------------------------------------------------- 6 files changed, 207 deletions(-) delete mode 100644 inc/context.h delete mode 100644 inc/lint.h delete mode 100644 inc/log.h delete mode 100644 inc/preprocess.h delete mode 100644 inc/tokenize.h delete mode 100644 inc/treeify.h (limited to 'inc') diff --git a/inc/context.h b/inc/context.h deleted file mode 100644 index f9bb5e5..0000000 --- a/inc/context.h +++ /dev/null @@ -1,41 +0,0 @@ -#ifndef CONTEXT_H -#define CONTEXT_H - -#include -#include - -typedef struct { - size_t start, end; -} ctx_string; - -struct ctx_location { - size_t line; - size_t column; - const char *path; - - char *data; // Raw - size_t size; -}; - -struct ctx { - struct ctx_location location; - - char *data; // Preprocessed - size_t size; - - size_t token_count; - struct token *tokens; - - struct { - struct node *head; - struct node *current; - } tree; -}; - -struct ctx *context_create(const char *path); -void context_destroy(struct ctx *ctx); -char context_getch(struct ctx *ctx, size_t i); -void context_print(FILE *fd, struct ctx_location *location); -void context_rewind(struct ctx *ctx); - -#endif diff --git a/inc/lint.h b/inc/lint.h deleted file mode 100644 index 9c3f808..0000000 --- a/inc/lint.h +++ /dev/null @@ -1,8 +0,0 @@ -#ifndef LINT_H -#define LINT_H - -#include - -void lint(struct ctx *ctx); - -#endif diff --git a/inc/log.h b/inc/log.h deleted file mode 100644 index da82233..0000000 --- a/inc/log.h +++ /dev/null @@ -1,8 +0,0 @@ -#ifndef LOG_H -#define LOG_H - -#include - -__attribute__((noreturn)) void errln(struct ctx_location *location, const char *fmt, ...); - -#endif diff --git a/inc/preprocess.h b/inc/preprocess.h deleted file mode 100644 index 2724068..0000000 --- a/inc/preprocess.h +++ /dev/null @@ -1,11 +0,0 @@ -#ifndef PREPROCESS_H -#define PREPROCESS_H - -#include - -#define MACRO_SKIP ((char)128) -#define MACRO_NEWLINE ((char)129) - -void preprocess(struct ctx *ctx); - -#endif diff --git a/inc/tokenize.h b/inc/tokenize.h deleted file mode 100644 index 61fcd67..0000000 --- a/inc/tokenize.h +++ /dev/null @@ -1,40 +0,0 @@ -#ifndef TOKENIZE_H -#define TOKENIZE_H - -#include - -#define TOKENS_MAX 4096 - -enum token_type { - UNKNOWN, - - TYPE, - TYPEDELIM, - - IDENT, - IDENTDELIM, - PARAM, - - STRING, - NUMBER, - OPERATOR, - - LPAREN, - RPAREN, - - NEWLINE, - END, - - SOMETHING, -}; - -struct token { - enum token_type type; - struct ctx_location location; - ctx_string string; -}; - -void token_print(struct ctx *ctx, struct token *token); -void tokenize(struct ctx *ctx); - -#endif diff --git a/inc/treeify.h b/inc/treeify.h deleted file mode 100644 index 1e2d3e5..0000000 --- a/inc/treeify.h +++ /dev/null @@ -1,99 +0,0 @@ -#ifndef TREEIFY_H -#define TREEIFY_H - -#include - -enum node_type { - EXPRESSION, - DECLARATION, - DEFINITION, -}; - -/** - * Expressions - */ - -// (*f* x y) -struct node_expression_identifier { - ctx_string name; // f -}; - -enum node_expression_parameter_type { - PARAM_TYPE_IDENT, - PARAM_TYPE_EXPRESSION, -}; - -// (f *x* *y* *(expr)*) -struct node_expression_parameter { - enum node_expression_parameter_type type; - union { - ctx_string name; // x or y - struct node_expression *expression; // (expr) - } data; -}; - -// (*f x y*) -struct node_expression { - struct node_expression_identifier *callee; // f - struct node_expression_parameter *parameters; // x y - size_t parameter_count; -}; - -/** - * Declarations - */ - -// *f* u32 u32 -> *u32* -struct node_declaration_callee { - ctx_string name; // f - ctx_string type; // u32 -}; - -// f *u32* *u32* -> u32 -struct node_declaration_parameter { - ctx_string type; // u32 -}; - -// *f u32 u32 -> u32* -struct node_declaration { - struct node_declaration_callee callee; // f - struct node_declaration_parameter *parameters; // u32 u32 OR NULL - size_t parameter_count; -}; - -/** - * Definitions - */ - -// *f* a b : expr -struct node_definition_callee { - ctx_string name; -}; - -// f *a* *b* : expr -struct node_definition_parameter { - ctx_string name; // u32 -}; - -// *f a b : expr* -struct node_definition { - struct node_definition_callee callee; // f - struct node_definition_parameter *parameters; // a b - size_t parameter_count; - struct node_expression expression; // expr -}; - -struct node { - enum node_type type; - struct node *prev; - struct node *next; - void *data; -}; - -struct node *tree_create(void); -void tree_destroy(struct node *tree); -void tree_add(struct ctx *ctx, enum node_type type, void *data); - -void treeify(struct ctx *ctx); - -#endif -- cgit v1.2.3