1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/*
* COPYRIGHT
*
* pcb-rnd, interactive printed circuit board design
* Copyright (C) 2017 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/pcb-rnd
* lead developer: http://repo.hu/projects/pcb-rnd/contact.html
* mailing list: pcb-rnd (at) list.repo.hu (send "subscribe")
*/
/* Generate output using a lihata template */
#ifndef TESTER
#include "config.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <liblihata/dom.h>
#include <liblihata/tree.h>
#include "lht_template.h"
static void verbatim(FILE *f, const char *prefix, const char *value, int trim_indent)
{
const char *s, *next;
int indent_len = 0;
if (*value == '\n')
value++;
if (trim_indent)
for(s = value; isspace(*s); s++)
indent_len++;
for(s = value; *s != '\0'; s = next) {
if (trim_indent) {
int n;
for(n = 0; (n < indent_len) && (isspace(*s)); n++) s++;
}
next = strpbrk(s, "\r\n");
if (next == NULL) {
fprintf(f, "%s%s", prefix, s);
break;
}
while((*next == '\r') || (*next == '\n')) next++;
fprintf(f, "%s", prefix);
fwrite(s, 1, next-s, f);
}
}
int lht_temp_exec(FILE *f, const char *prefix, lht_doc_t *doc, const char *name, lht_temp_insert_t ins, lht_err_t *err)
{
lht_node_t *t, *n, *cfg;
int trim_indent = 0;
if (prefix == NULL)
prefix = "";
t = lht_tree_path(doc, "/template", name, 1, err);
if (t == NULL)
return -1;
if (t->type != LHT_LIST) {
*err = LHTE_INVALID_TYPE;
return -1;
}
cfg = lht_tree_path(doc, "/", "trim_indent", 1, NULL);
if ((cfg != NULL) && (cfg->type == LHT_TEXT) && (cfg->data.text.value != NULL))
trim_indent = ((strcmp(cfg->data.text.value, "1") == 0) || (strcmp(cfg->data.text.value, "yes") == 0) || (strcmp(cfg->data.text.value, "true") == 0));
for(n = t->data.list.first; n != NULL; n = n->next) {
if (strcmp(n->name, "verbatim") == 0)
verbatim(f, prefix, n->data.text.value, trim_indent);
if (strcmp(n->name, "insert") == 0) {
int res = ins(f, prefix, n->data.text.value, err);
if (res != 0)
return res;
}
}
return 0;
}
#ifdef TESTER
int ins_(FILE *f, const char *prefix, char *name, lht_err_t *err)
{
printf("INSERT: %s\n", name);
return 0;
}
int main()
{
lht_doc_t *doc;
lht_err_t err;
char *errmsg;
const char *fn = "dxf_templ.lht";
/* do not do safe_fs here - it's just a test code that never ends up in pcb_rnd */
doc = lht_dom_load(fn, &errmsg);
if (doc == NULL) {
fprintf(stderr, "Error loading %s: %s\n", fn, errmsg);
exit(1);
}
lht_temp_exec(stdout, "", doc, "header", ins_, &err);
lht_dom_uninit(doc);
return 0;
}
#endif
|
