Index: rnd_inclib/font/font_lht.h
===================================================================
--- rnd_inclib/font/font_lht.h	(nonexistent)
+++ rnd_inclib/font/font_lht.h	(revision 36467)
@@ -0,0 +1,169 @@
+/*
+ *                            COPYRIGHT
+ *
+ *  librnd, modular 2D CAD framework - lihata parser support for Ringdove font
+ *  librnd Copyright (C) 2022 Tibor 'Igor2' Palinkas
+ *
+ *  This program 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 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program 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 this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ *  Contact:
+ *    Project page: http://repo.hu/projects/librnd
+ *    lead developer: http://repo.hu/projects/librnd/contact.html
+ *    mailing list: pcb-rnd (at) list.repo.hu (send "subscribe")
+ *
+ */
+
+#include <rnd_inclib/font/font.h>
+
+/* calls provided by the caller:
+
+   Return non-zero on error:
+    int PARSE_COORD(rnd_coord_t *dst, lht_node src);
+    int PARSE_DOUBLE(double *dst, lht_node src);
+
+   Prints error and returns special value recognized by PARSE_* if
+   name does not exist in hash:
+    lht_node_t *HASH_GET(lht_node_t *hash, const char *name);
+
+   Prints error for nd:
+    LHT_ERROR(lht_node_t *nd, const char *fmt, ...)
+
+*/
+
+static int rnd_font_lht_parse_glyph(rnd_glyph_t *glp, lht_node_t *nd);
+static int rnd_font_lht_parse_font(rnd_font_t *font, lht_node_t *nd);
+
+/*** Implementation */
+
+static int rnd_font_lht_parse_glyph(rnd_glyph_t *glp, lht_node_t *nd)
+{
+	lht_node_t *grp, *obj, *n;
+	lht_dom_iterator_t it;
+	int err = 0;
+
+	err |= PARSE_COORD(&glp->width,  HASH_GET(nd, "width"));
+	err |= PARSE_COORD(&glp->height, HASH_GET(nd, "height"));
+	err |= PARSE_COORD(&glp->xdelta, HASH_GET(nd, "delta"));
+
+	grp = lht_dom_hash_get(nd, "objects");
+	for(obj = lht_dom_first(&it, grp); obj != NULL; obj = lht_dom_next(&it)) {
+		rnd_coord_t x1, y1, x2, y2, th, r;
+		double sa, da;
+		rnd_glyph_atom_t *a;
+
+		if (strncmp(obj->name, "line.", 5) == 0) {
+			err |= PARSE_COORD(&x1, HASH_GET(obj, "x1"));
+			err |= PARSE_COORD(&y1, HASH_GET(obj, "y1"));
+			err |= PARSE_COORD(&x2, HASH_GET(obj, "x2"));
+			err |= PARSE_COORD(&y2, HASH_GET(obj, "y2"));
+			err |= PARSE_COORD(&th, HASH_GET(obj, "thickness"));
+			if (err != 0)
+				return -1;
+
+			a = vtgla_alloc_append(&glp->atoms, 1);
+			a->line.type = RND_GLYPH_LINE;
+			a->line.x1 = x1;
+			a->line.y1 = y1;
+			a->line.x2 = x2;
+			a->line.y2 = y2;
+			a->line.thickness = th;
+		}
+		else if (strncmp(obj->name, "simplearc.", 10) == 0) {
+			err |= PARSE_COORD(&x1,  HASH_GET(obj, "x"));
+			err |= PARSE_COORD(&y1,  HASH_GET(obj, "y"));
+			err |= PARSE_COORD(&r,   HASH_GET(obj, "r"));
+			err |= PARSE_COORD(&th,  HASH_GET(obj, "thickness"));
+			err |= PARSE_DOUBLE(&sa, HASH_GET(obj, "astart"));
+			err |= PARSE_DOUBLE(&da, HASH_GET(obj, "adelta"));
+			if (err != 0)
+				return -1;
+
+			a = vtgla_alloc_append(&glp->atoms, 1);
+			a->arc.type = RND_GLYPH_ARC;
+			a->arc.cx = x1;
+			a->arc.cy = y1;
+			a->arc.r = r;
+			a->arc.start = sa;
+			a->arc.delta = da;
+			a->arc.thickness = th;
+		}
+		else if (strncmp(obj->name, "simplepoly.", 11) == 0) {
+			int len;
+
+			if (obj->type != LHT_LIST) {
+				LHT_ERROR(obj, "Symbol error: simplepoly is not a list! (ignoring this poly)\n");
+				continue;
+			}
+			for(len = 0, n = obj->data.list.first; n != NULL; len++, n = n->next) ;
+			if ((len % 2 != 0) || (len < 6)) {
+				LHT_ERROR(obj, "Symbol error: sumplepoly has wrong number of points (%d, expected an even integer >= 6)! (ignoring this poly)\n", len);
+				continue;
+			}
+
+			a = vtgla_alloc_append(&glp->atoms, 1);
+			a->poly.type = RND_GLYPH_POLY;
+			vtc0_enlarge(&a->poly.xy, len);
+			a->poly.xy.used = len;
+
+			for(len = 0, n = obj->data.list.first; n != NULL; n = n->next) {
+				PARSE_COORD(&x1, n);
+				n = n->next;
+				PARSE_COORD(&y1, n);
+				a->poly.xy.array[len++] = x1;
+				a->poly.xy.array[len++] = y1;
+			}
+		}
+	}
+
+	glp->valid = 1;
+	return 0;
+}
+
+static int rnd_font_lht_parse_font(rnd_font_t *font, lht_node_t *nd)
+{
+	lht_node_t *grp, *sym;
+	lht_dom_iterator_t it;
+	int err = 0;
+
+	if (nd->type != LHT_HASH) {
+		LHT_ERROR(nd, "font must be a hash\n");
+		return -1;
+	}
+
+	err |= PARSE_COORD(&font->max_height, HASH_GET(nd, "cell_height"));
+	err |= PARSE_COORD(&font->max_width,  HASH_GET(nd, "cell_width"));
+
+	grp = lht_dom_hash_get(nd, "symbols");
+
+	for(sym = lht_dom_first(&it, grp); sym != NULL; sym = lht_dom_next(&it)) {
+		int chr;
+		if (sym->type != LHT_HASH)
+			continue;
+		if (*sym->name == '&') {
+			char *end;
+			chr = strtol(sym->name+1, &end, 16);
+			if (*end != '\0') {
+				LHT_ERROR(sym, "Ignoring glyph with invalid glyph name '%s'.\n", sym->name);
+				continue;
+			}
+		}
+		else
+			chr = *sym->name;
+		if ((chr >= 0) && (chr < sizeof(font->glyph) / sizeof(font->glyph[0])))
+			rnd_font_lht_parse_glyph(font->glyph+chr, sym);
+	}
+
+	return err;
+}