From 9075e91263f6cd74d33d0e078ba9ab77a95f1083 Mon Sep 17 00:00:00 2001 From: peter Date: Thu, 10 Sep 2026 21:10:18 +0000 Subject: Work in progress changes for the module system. I am only committing to save my work somewhere, but it doesn't work yet. FossilOrigin-Name: 45400ea0e451183f360a3d0cbb14f262cbec2e62167bad732fd396ed0ce4acaf --- src/lib/symtab.c | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 src/lib/symtab.c (limited to 'src/lib/symtab.c') diff --git a/src/lib/symtab.c b/src/lib/symtab.c new file mode 100644 index 0000000..d81414d --- /dev/null +++ b/src/lib/symtab.c @@ -0,0 +1,51 @@ +/* + * Copyright (C) 2026 Peter Mikkelsen + * + * This file is part of aplwc. + * + * Aplwc is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * Aplwc is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with aplwc. If not, see . + */ + +#include "aplwc_internal.h" + +enum aplwc_rc +getsym(struct aplwc *aplwc, struct string *string, symbol_t *id) +{ + static symbol_t next_id; + struct symbol *sym; + enum aplwc_rc rc; + + MEMPTRS(aplwc, 1); + + rc = APLWC_OK; + for(sym = aplwc->symtab; sym; sym = sym->link){ + if(string_compare(sym->text, string) == 0) + goto end; + } + + MEMPTR(0, string); + if((sym = memory_alloc_symbol(aplwc)) == NULL){ + rc = aplwc->last_error; + goto end; + } + sym->id = next_id++; + sym->text = string; + sym->link = aplwc->symtab; + aplwc->symtab = sym; + +end: + *id = sym->id; + MEMPTRS_EXIT(aplwc); + return rc; +} -- cgit v1.2.3