From 78ca5f499ca300372ea81278f8fdfa557f0a46f1 Mon Sep 17 00:00:00 2001 From: "Michael D. Lowis" Date: Mon, 25 Jun 2018 13:38:48 -0400 Subject: [PATCH] removed symbols from the AST and pprint module --- source/ast.c | 11 ----------- source/pprint.c | 1 - source/sclpl.h | 10 +++------- 3 files changed, 3 insertions(+), 19 deletions(-) diff --git a/source/ast.c b/source/ast.c index 76d0104..380e186 100644 --- a/source/ast.c +++ b/source/ast.c @@ -18,17 +18,6 @@ char* string_value(AST* val) { return val->value.text; } -AST* Symbol(Tok* val) { - AST* node = ast(AST_SYMBOL); - node->value.text = val->value.text; - return node; -} - -char* symbol_value(AST* val) { - assert(val->nodetype == AST_SYMBOL); - return val->value.text; -} - AST* Char(Tok* val) { AST* node = ast(AST_CHAR); node->value.character = val->value.character; diff --git a/source/pprint.c b/source/pprint.c index 24aabe1..011706c 100644 --- a/source/pprint.c +++ b/source/pprint.c @@ -97,7 +97,6 @@ static void pprint_literal(FILE* file, AST* tree, int depth) printf("%s:", tree_type_to_string(tree->nodetype)); switch(tree->nodetype) { case AST_STRING: printf("\"%s\"", string_value(tree)); break; - case AST_SYMBOL: printf("%s", symbol_value(tree)); break; case AST_IDENT: printf("%s", ident_value(tree)); break; case AST_CHAR: printf("%c", char_value(tree)); break; case AST_INT: printf("%ld", integer_value(tree)); break; diff --git a/source/sclpl.h b/source/sclpl.h index 0710b52..aa3cea8 100644 --- a/source/sclpl.h +++ b/source/sclpl.h @@ -142,10 +142,6 @@ typedef struct AST { AST* String(Tok* val); char* string_value(AST* val); -/* Symbol */ -AST* Symbol(Tok* val); -char* symbol_value(AST* val); - /* Character */ AST* Char(Tok* val); uint32_t char_value(AST* val); @@ -197,9 +193,9 @@ typedef struct { File* files; } Package; -pkg_add_require(Package* p, char* req); -pkg_add_provide(Package* p, char* exp); -pkg_add_definition(Package* p, AST* ast); +void pkg_add_require(Package* p, char* req); +void pkg_add_provide(Package* p, char* exp); +void pkg_add_definition(Package* p, AST* ast); /* Pretty Printing *****************************************************************************/ -- 2.54.0