1 /* vim:tw=78:ts=8:sw=4:set ft=c: */
3 Copyright (C) 2006-2007 Ben Kibbey <bjk@luxsci.net>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
35 #include "pwmd_error.h"
38 void log_write(const gchar
*fmt
, ...);
39 gboolean
strv_printf(gchar
***array
, const gchar
*fmt
, ...);
41 gboolean
is_literal_element_str(gchar
*element
)
43 if (!element
|| !*element
)
46 return *element
== '!' ? TRUE
: FALSE
;
50 * 'element' must be allocated.
52 gboolean
is_literal_element(gchar
**element
)
56 if (!element
|| !*element
)
59 if (*(*element
) == '!') {
62 for (p
= *element
, c
= p
+1; *c
; c
++)
73 * Fails if 'element' begins with punctuation or digit or contains whitespace.
75 * I'm not sure about using g_unichar_isspace() rather than isspace()?
77 gboolean
valid_xml_element(xmlChar
*element
)
81 gchar
*p
= (gchar
*)element
;
83 if (!element
|| !*element
)
89 len
= g_utf8_strlen(p
, -1) - 1;
90 c
= g_utf8_get_char(p
++);
92 if (g_unichar_ispunct(c
) == TRUE
|| g_unichar_isdigit(c
) == TRUE
)
96 c
= g_utf8_get_char(p
++);
98 if (g_unichar_isspace(c
))
105 gboolean
valid_element_path(gchar
**path
, gboolean has_value
)
109 for (p
= path
; *p
; p
++) {
111 * An empty element is valid and don't check the syntax of the
114 if (has_value
== TRUE
&& (!*(p
+1) || !*p
[0]))
117 if (valid_xml_element((xmlChar
*)*p
) == FALSE
)
124 gpg_error_t
new_account(xmlDocPtr doc
, gchar
*name
)
126 xmlNodePtr root
= xmlDocGetRootElement(doc
);
132 return EPWMD_LIBXML_ERROR
;
134 if (is_literal_element_str(p
))
137 n
= xmlNewNode(NULL
, (xmlChar
*)"account");
138 n
= xmlAddChild(root
, n
);
139 a
= xmlNewProp(n
, (xmlChar
*)"name", (xmlChar
*)p
);
143 xmlChar
*new_document()
146 const xmlChar
*line
= (xmlChar
*)
147 "<?xml version=\"1.0\"?>\n"
148 "<!DOCTYPE accounts [\n"
149 "<!ELEMENT accounts (account*)>\n"
150 "<!ATTLIST account name CDATA #REQUIRED>\n"
154 buf
= gcry_calloc(1, xmlStrlen(line
) + 1);
155 return buf
? xmlStrcat(buf
, line
) : NULL
;
159 * The "target" attribute is ignored here.
161 gpg_error_t
list_accounts(xmlDocPtr doc
, GString
**result
)
163 xmlNodePtr n
= NULL
, t
;
168 for (t
= doc
->children
; t
; t
= t
->next
) {
169 if (t
->type
== XML_ELEMENT_NODE
) {
170 if (xmlStrEqual(t
->name
, (xmlChar
*)"accounts")) {
177 if (!n
|| !n
->children
)
178 return EPWMD_EMPTY_ELEMENT
;
180 for (n
= n
->children
; n
; n
= n
->next
) {
185 if (n
->type
!= XML_ELEMENT_NODE
)
188 a
= xmlHasProp(n
, (xmlChar
*)"name");
190 if (!a
|| !a
->children
->content
)
193 tmp
= g_strdup((gchar
*)a
->children
->content
);
197 return gpg_error_from_errno(ENOMEM
);
200 tlist
= g_slist_append(list
, tmp
);
204 return gpg_error_from_errno(ENOMEM
);
210 total
= g_slist_length(list
);
213 return EPWMD_EMPTY_ELEMENT
;
215 string
= g_string_new(NULL
);
219 return gpg_error_from_errno(ENOMEM
);
222 for (i
= 0; i
< total
; i
++) {
223 gchar
*tmp
= g_slist_nth_data(list
, i
);
225 g_string_append_printf(string
, "%s\n", tmp
);
229 string
= g_string_truncate(string
, string
->len
- 1);
235 gchar
**split_input_line(gchar
*str
, gchar
*delim
, gint n
)
240 return g_strsplit(str
, delim
, n
);
243 static gchar
**append_element_path(gchar
**dst
, gchar
**src
)
257 i
= g_strv_length(d
);
259 for (p
= src
; *p
; p
++) {
262 pa
= g_realloc(d
, (i
+ 2) * sizeof(gchar
*));
283 static xmlNodePtr
find_stop_node(xmlNodePtr node
)
287 for (n
= node
->parent
->children
; n
; n
= n
->next
) {
296 * Alot like create_elements_cb() but doesn't use the last element of 'req' as
297 * content but as an element.
299 xmlNodePtr
create_target_elements_cb(xmlNodePtr node
, gchar
**path
,
300 gpg_error_t
*error
, void *data
)
305 if (xmlStrEqual(node
->name
, (xmlChar
*)*req
))
308 for (i
= 0; req
[i
]; i
++) {
311 if ((n
= find_element(node
, req
[i
], find_stop_node(node
))) == NULL
) {
312 is_literal_element(&req
[i
]);
313 n
= xmlNewNode(NULL
, (xmlChar
*)req
[i
]);
316 *error
= gpg_error_from_errno(ENOMEM
);
320 node
= xmlAddChild(node
, n
);
323 *error
= gpg_error_from_errno(ENOMEM
);
334 xmlNodePtr
find_text_node(xmlNodePtr node
)
338 if (n
&& n
->type
== XML_TEXT_NODE
)
341 for (n
= node
; n
; n
= n
->next
) {
342 if (n
->type
== XML_TEXT_NODE
)
349 xmlNodePtr
create_elements_cb(xmlNodePtr node
, gchar
**elements
,
350 gpg_error_t
*error
, void *data
)
353 gchar
**req
= elements
;
355 if (node
->type
== XML_TEXT_NODE
)
358 if (node
->name
&& xmlStrEqual(node
->name
, (xmlChar
*)*req
))
361 for (i
= 0; req
[i
]; i
++) {
366 * Strip the first '!' if needed. If there's another, it's an
367 * error. The syntax has already been checked before calling this
370 is_literal_element(&req
[i
]);
374 * The value of the element tree.
377 n
= find_text_node(node
->children
);
380 /* Use AddContent here to prevent overwriting any children. */
381 xmlNodeAddContent(node
, (xmlChar
*)req
[i
]);
382 else if (n
&& !*req
[i
])
383 xmlNodeSetContent(n
, NULL
);
385 xmlNodeSetContent(n
, (xmlChar
*)req
[i
]);
390 n
= find_element(node
, req
[i
], find_stop_node(node
));
393 n
= xmlNewNode(NULL
, (xmlChar
*)req
[i
]);
396 *error
= gpg_error_from_errno(ENOMEM
);
400 node
= xmlAddChild(node
, n
);
403 *error
= gpg_error_from_errno(ENOMEM
);
414 xmlNodePtr
find_account(xmlDocPtr doc
, gchar
***req
, gpg_error_t
*error
,
415 gboolean
*target
, gint recursion_depth
)
419 gchar
*account
= g_strdup(*req
[0]);
420 gboolean literal
= is_literal_element(&account
);
423 *error
= gpg_error_from_errno(ENOMEM
);
430 if (max_recursion_depth
>= 1 && recursion_depth
> max_recursion_depth
) {
435 for (n
= doc
->children
; n
;) {
436 if (n
->type
== XML_ELEMENT_NODE
) {
437 if (depth
== 0 && xmlStrEqual(n
->name
, (xmlChar
*)"accounts")) {
443 if (depth
== 1 && xmlStrEqual(n
->name
, (xmlChar
*)"account")) {
444 xmlChar
*content
= node_has_attribute(n
, (xmlChar
*)"name");
449 if (xmlStrEqual(content
, (xmlChar
*)account
)) {
450 gchar
**nreq
, **tmp
= NULL
;
452 if (literal
== TRUE
) {
457 content
= node_has_attribute(n
, (xmlChar
*)"target");
464 if (strchr((gchar
*)content
, '\t')) {
465 nreq
= split_input_line((gchar
*)content
, "\t", 0);
472 *error
= gpg_error_from_errno(ENOMEM
);
478 tmp
= append_element_path(nreq
, tmp
+1);
482 *error
= gpg_error_from_errno(ENOMEM
);
490 if (strv_printf(&tmp
, "%s", content
) == FALSE
) {
491 *error
= gpg_error_from_errno(ENOMEM
);
496 nreq
= append_element_path(tmp
, nreq
+1);
500 *error
= gpg_error_from_errno(ENOMEM
);
512 n
= find_account(doc
, req
, error
, target
, recursion_depth
);
522 *error
= EPWMD_ELEMENT_NOT_FOUND
;
526 xmlNodePtr
find_sibling(xmlNodePtr node
, gchar
*element
, xmlNodePtr stop
)
530 if (!node
|| !element
)
533 for (n
= node
; n
; n
= n
->next
) {
534 if (n
->type
!= XML_ELEMENT_NODE
)
540 if (xmlStrEqual(n
->name
, (xmlChar
*)element
))
547 xmlNodePtr
find_element(xmlNodePtr node
, gchar
*element
, xmlNodePtr stop
)
549 if (!node
|| !element
)
552 return find_sibling(node
, element
, stop
);
555 xmlChar
*node_has_attribute(xmlNodePtr n
, xmlChar
*attr
)
557 xmlAttrPtr a
= xmlHasProp(n
, attr
);
562 if (!a
->children
|| !a
->children
->content
)
565 return a
->children
->content
;
568 static gboolean
element_to_literal(gchar
**element
)
570 gchar
*p
= g_strdup_printf("!%s", *element
);
580 xmlNodePtr
find_elements(xmlDocPtr doc
, xmlNodePtr node
,
581 gchar
**req
, gpg_error_t
*error
, gboolean
*target
,
582 xmlNodePtr (*found_fn
)(xmlNodePtr
, gchar
**, gpg_error_t
*, void *),
583 xmlNodePtr (*not_found_fn
)(xmlNodePtr
, gchar
**, gpg_error_t
*, void *),
584 gboolean is_list_command
, gint recursion_depth
, void *data
)
586 xmlNodePtr n
, last
, last_node
;
593 if (max_recursion_depth
>= 1 && recursion_depth
> max_recursion_depth
) {
599 for (last_node
= last
= n
= node
, p
= req
; *p
; p
++) {
601 gchar
*t
= g_strdup(*p
);
605 *error
= gpg_error_from_errno(ENOMEM
);
609 literal
= is_literal_element(&t
);
610 n
= find_element(last
, t
, NULL
);
615 return not_found_fn(found
? last_node
: last_node
->parent
, p
, error
, data
);
617 *error
= EPWMD_ELEMENT_NOT_FOUND
;
625 if (literal
== FALSE
) {
626 xmlChar
*content
= node_has_attribute(n
, (xmlChar
*)"target");
627 gchar
**nreq
= NULL
, **nnreq
;
630 if (is_list_command
== TRUE
) {
631 if (element_to_literal(&(*p
)) == FALSE
) {
632 *error
= gpg_error_from_errno(ENOMEM
);
640 if (strchr((gchar
*)content
, '\t') != NULL
) {
641 if ((nreq
= split_input_line((gchar
*)content
, "\t", 0)) == NULL
) {
642 *error
= EPWMD_INVALID_ELEMENT
;
647 if ((nreq
= split_input_line((gchar
*)content
, " ", 0)) == NULL
) {
648 *error
= EPWMD_INVALID_ELEMENT
;
653 tmp
= find_account(doc
, &nreq
, error
, target
, 0);
661 found_fn(n
, nreq
, error
, data
);
663 nnreq
= append_element_path(nreq
+1, p
+1);
667 if (!nnreq
|| !*nnreq
) {
677 n
= find_elements(doc
, tmp
->children
, nnreq
, error
, NULL
, found_fn
,
678 not_found_fn
, is_list_command
, recursion_depth
, data
);
681 gchar
**zz
= p
+1, **qq
= nnreq
;
683 if (g_strv_length(nnreq
) > g_strv_length(p
+1))
686 for (; *qq
&& *zz
; zz
++) {
688 *zz
= g_strdup(*qq
++);
691 *error
= gpg_error_from_errno(ENOMEM
);
706 gboolean
node_has_child_element(xmlNodePtr node
)
713 for (n
= node
; n
; n
= n
->next
) {
714 if (n
->type
== XML_ELEMENT_NODE
)
718 return node_has_child_element(n
->children
);