From: Michael D. Lowis Date: Mon, 25 Jun 2018 17:38:48 +0000 (-0400) Subject: removed symbols from the AST and pprint module X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=78ca5f499ca300372ea81278f8fdfa557f0a46f1;p=proto%2Fsclpl.git removed symbols from the AST and pprint module --- 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 *****************************************************************************/