+ UCI_HANDLE_ERR(ctx);
+ UCI_ASSERT(ctx, package != NULL);
+ UCI_ASSERT(ctx, section != NULL);
+
+ fprintf(stderr, "uci_set: '%s' '%s' '%s' = '%s'\n", package, section, option, value);
+
+ /*
+ * look up the package, section and option (if set)
+ * if the section/option is to be modified and it is not found
+ * create a new element in the appropriate list
+ */
+ UCI_TRAP_SAVE(ctx, notfound);
+ e = uci_lookup_list(ctx, &ctx->root, package);
+ if (!e)
+ goto notfound;
+
+ p = uci_to_package(e);
+ e = uci_lookup_list(ctx, &p->sections, section);
+ if (!e)
+ goto notfound;
+ s = uci_to_section(e);
+
+ if (option) {
+ e = uci_lookup_list(ctx, &s->options, option);
+ if (!e)
+ goto notfound;
+ o = uci_to_option(e);
+ }
+ UCI_TRAP_RESTORE(ctx);
+
+ /*
+ * no unknown element was supplied, assume that we can just update
+ * an existing entry
+ */
+ if (o)
+ e = &o->e;
+ else
+ e = &s->e;
+
+ uci_add_history(ctx, p, UCI_CMD_CHANGE, section, option, value);
+ return uci_set_element_value(ctx, &e, value);
+
+notfound:
+ /*
+ * the entry that we need to update was not found,
+ * check if the search failed prematurely.
+ * this can happen if the package was not found, or if
+ * an option was supplied, but the section wasn't found
+ */
+ if (!p || (!s && option))
+ UCI_THROW(ctx, ctx->errno);
+
+ /* now add the missing entry */
+ uci_add_history(ctx, p, UCI_CMD_ADD, section, option, value);
+ if (s)
+ uci_alloc_option(s, option, value);
+ else
+ uci_alloc_section(p, section, value);