+/**
+ * collectd - src/utils_db_query.c
+ * Copyright (C) 2008,2009 Florian octo Forster
+ *
+ * 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; only version 2 of the License is applicable.
+ *
+ * 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 St, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Authors:
+ * Florian octo Forster <octo at verplant.org>
+ **/
+
+#include "collectd.h"
+#include "common.h"
+#include "plugin.h"
+#include "configfile.h"
+#include "utils_db_query.h"
+
+/*
+ * Data types
+ */
+struct udb_result_s; /* {{{ */
+typedef struct udb_result_s udb_result_t;
+struct udb_result_s
+{
+ char *type;
+ char *instance_prefix;
+ char **instances;
+ size_t instances_num;
+ char **values;
+ size_t values_num;
+
+ /* Preparation area */
+ const data_set_t *ds;
+ size_t *instances_pos;
+ size_t *values_pos;
+ char **instances_buffer;
+ char **values_buffer;
+
+ udb_result_t *next;
+}; /* }}} */
+
+struct udb_query_s /* {{{ */
+{
+ char *name;
+ char *statement;
+ void *user_data;
+
+ /* Preparation area */
+ size_t column_num;
+ char *host;
+ char *plugin;
+ char *db_name;
+
+ udb_result_t *results;
+}; /* }}} */
+
+/*
+ * Config Private functions
+ */
+static int udb_config_set_string (char **ret_string, /* {{{ */
+ oconfig_item_t *ci)
+{
+ char *string;
+
+ if ((ci->values_num != 1)
+ || (ci->values[0].type != OCONFIG_TYPE_STRING))
+ {
+ WARNING ("db query utils: The `%s' config option "
+ "needs exactly one string argument.", ci->key);
+ return (-1);
+ }
+
+ string = strdup (ci->values[0].value.string);
+ if (string == NULL)
+ {
+ ERROR ("db query utils: strdup failed.");
+ return (-1);
+ }
+
+ if (*ret_string != NULL)
+ free (*ret_string);
+ *ret_string = string;
+
+ return (0);
+} /* }}} int udb_config_set_string */
+
+static int udb_config_add_string (char ***ret_array, /* {{{ */
+ size_t *ret_array_len, oconfig_item_t *ci)
+{
+ char **array;
+ size_t array_len;
+ int i;
+
+ if (ci->values_num < 1)
+ {
+ WARNING ("db query utils: The `%s' config option "
+ "needs at least one argument.", ci->key);
+ return (-1);
+ }
+
+ for (i = 0; i < ci->values_num; i++)
+ {
+ if (ci->values[i].type != OCONFIG_TYPE_STRING)
+ {
+ WARNING ("db query utils: Argument %i to the `%s' option "
+ "is not a string.", i + 1, ci->key);
+ return (-1);
+ }
+ }
+
+ array_len = *ret_array_len;
+ array = (char **) realloc (*ret_array,
+ sizeof (char *) * (array_len + ci->values_num));
+ if (array == NULL)
+ {
+ ERROR ("db query utils: realloc failed.");
+ return (-1);
+ }
+ *ret_array = array;
+
+ for (i = 0; i < ci->values_num; i++)
+ {
+ array[array_len] = strdup (ci->values[i].value.string);
+ if (array[array_len] == NULL)
+ {
+ ERROR ("db query utils: strdup failed.");
+ *ret_array_len = array_len;
+ return (-1);
+ }
+ array_len++;
+ }
+
+ *ret_array_len = array_len;
+ return (0);
+} /* }}} int udb_config_add_string */
+
+/*
+ * Result private functions
+ */
+static void udb_result_submit (udb_result_t *r, udb_query_t *q) /* {{{ */
+{
+ value_list_t vl = VALUE_LIST_INIT;
+ size_t i;
+
+ assert (((size_t) r->ds->ds_num) == r->values_num);
+
+ DEBUG ("db query utils: udb_result_submit: r->instance_prefix = %s;",
+ (r->instance_prefix == NULL) ? "NULL" : r->instance_prefix);
+ for (i = 0; i < r->instances_num; i++)
+ {
+ DEBUG ("db query utils: udb_result_submit: r->instances_buffer[%zu] = %s;",
+ i, r->instances_buffer[i]);
+ }
+
+ vl.values = (value_t *) calloc (r->ds->ds_num, sizeof (value_t));
+ if (vl.values == NULL)
+ {
+ ERROR ("db query utils: malloc failed.");
+ return;
+ }
+ vl.values_len = r->ds->ds_num;
+
+ for (i = 0; i < r->values_num; i++)
+ {
+ char *endptr;
+
+ endptr = NULL;
+ errno = 0;
+ if (r->ds->ds[i].type == DS_TYPE_COUNTER)
+ vl.values[i].counter = (counter_t) strtoll (r->values_buffer[i],
+ &endptr, /* base = */ 0);
+ else if (r->ds->ds[i].type == DS_TYPE_GAUGE)
+ vl.values[i].gauge = (gauge_t) strtod (r->values_buffer[i], &endptr);
+ else
+ errno = EINVAL;
+
+ if ((endptr == r->values_buffer[i]) || (errno != 0))
+ {
+ WARNING ("db query utils: udb_result_submit: Parsing `%s' as %s failed.",
+ r->values_buffer[i],
+ (r->ds->ds[i].type == DS_TYPE_COUNTER) ? "counter" : "gauge");
+ vl.values[i].gauge = NAN;
+ }
+ }
+
+ vl.time = time (NULL);
+ sstrncpy (vl.host, q->host, sizeof (vl.host));
+ sstrncpy (vl.plugin, q->plugin, sizeof (vl.plugin));
+ sstrncpy (vl.plugin_instance, q->db_name, sizeof (vl.type_instance));
+ sstrncpy (vl.type, r->type, sizeof (vl.type));
+
+ if (r->instance_prefix == NULL)
+ {
+ strjoin (vl.type_instance, sizeof (vl.type_instance),
+ r->instances_buffer, r->instances_num, "-");
+ }
+ else
+ {
+ char tmp[DATA_MAX_NAME_LEN];
+
+ strjoin (tmp, sizeof (tmp), r->instances_buffer, r->instances_num, "-");
+ tmp[sizeof (tmp) - 1] = 0;
+
+ snprintf (vl.type_instance, sizeof (vl.type_instance), "%s-%s",
+ r->instance_prefix, tmp);
+ }
+ vl.type_instance[sizeof (vl.type_instance) - 1] = 0;
+
+ plugin_dispatch_values (&vl);
+
+ sfree (vl.values);
+} /* }}} void udb_result_submit */
+
+static void udb_result_finish_result (udb_result_t *r) /* {{{ */
+{
+ if (r == NULL)
+ return;
+
+ r->ds = NULL;
+ sfree (r->instances_pos);
+ sfree (r->values_pos);
+ sfree (r->instances_buffer);
+ sfree (r->values_buffer);
+} /* }}} void udb_result_finish_result */
+
+static int udb_result_handle_result (udb_result_t *r, /* {{{ */
+ udb_query_t *q, char **column_values)
+{
+ size_t i;
+
+ for (i = 0; i < r->instances_num; i++)
+ r->instances_buffer[i] = column_values[r->instances_pos[i]];
+
+ for (i = 0; i < r->values_num; i++)
+ r->values_buffer[i] = column_values[r->values_pos[i]];
+
+ udb_result_submit (r, q);
+
+ return (0);
+} /* }}} int udb_result_handle_result */
+
+static int udb_result_prepare_result (udb_result_t *r, /* {{{ */
+ char **column_names, size_t column_num)
+{
+ size_t i;
+
+ if (r == NULL)
+ return (-EINVAL);
+
+#define BAIL_OUT(status) \
+ r->ds = NULL; \
+ sfree (r->instances_pos); \
+ sfree (r->values_pos); \
+ sfree (r->instances_buffer); \
+ sfree (r->values_buffer); \
+ return (status)
+
+ /* Make sure previous preparations are cleaned up. */
+ udb_result_finish_result (r);
+ r->instances_pos = NULL;
+ r->values_pos = NULL;
+
+ /* Read `ds' and check number of values {{{ */
+ r->ds = plugin_get_ds (r->type);
+ if (r->ds == NULL)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: Type `%s' is not "
+ "known by the daemon. See types.db(5) for details.",
+ r->type);
+ BAIL_OUT (-1);
+ }
+
+ if (((size_t) r->ds->ds_num) != r->values_num)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: The type `%s' "
+ "requires exactly %i value%s, but the configuration specifies %zu.",
+ r->type,
+ r->ds->ds_num, (r->ds->ds_num == 1) ? "" : "s",
+ r->values_num);
+ BAIL_OUT (-1);
+ }
+ /* }}} */
+
+ /* Allocate r->instances_pos, r->values_pos, r->instances_buffer, and
+ * r->values_buffer {{{ */
+ r->instances_pos = (size_t *) calloc (r->instances_num, sizeof (size_t));
+ if (r->instances_pos == NULL)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: malloc failed.");
+ BAIL_OUT (-ENOMEM);
+ }
+
+ r->values_pos = (size_t *) calloc (r->values_num, sizeof (size_t));
+ if (r->values_pos == NULL)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: malloc failed.");
+ BAIL_OUT (-ENOMEM);
+ }
+
+ r->instances_buffer = (char **) calloc (r->instances_num, sizeof (char *));
+ if (r->instances_buffer == NULL)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: malloc failed.");
+ BAIL_OUT (-ENOMEM);
+ }
+
+ r->values_buffer = (char **) calloc (r->values_num, sizeof (char *));
+ if (r->values_buffer == NULL)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: malloc failed.");
+ BAIL_OUT (-ENOMEM);
+ }
+ /* }}} */
+
+ /* Determine the position of the instance columns {{{ */
+ for (i = 0; i < r->instances_num; i++)
+ {
+ size_t j;
+
+ for (j = 0; j < column_num; j++)
+ {
+ if (strcasecmp (r->instances[i], column_names[j]) == 0)
+ {
+ r->instances_pos[i] = j;
+ break;
+ }
+ }
+
+ if (j >= column_num)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: "
+ "Column `%s' could not be found.",
+ r->instances[i]);
+ BAIL_OUT (-ENOENT);
+ }
+ } /* }}} for (i = 0; i < r->instances_num; i++) */
+
+ /* Determine the position of the value columns {{{ */
+ for (i = 0; i < r->values_num; i++)
+ {
+ size_t j;
+
+ for (j = 0; j < column_num; j++)
+ {
+ if (strcasecmp (r->values[i], column_names[j]) == 0)
+ {
+ r->values_pos[i] = j;
+ break;
+ }
+ }
+
+ if (j >= column_num)
+ {
+ ERROR ("db query utils: udb_result_prepare_result: "
+ "Column `%s' could not be found.",
+ r->values[i]);
+ BAIL_OUT (-ENOENT);
+ }
+ } /* }}} for (i = 0; i < r->values_num; i++) */
+
+#undef BAIL_OUT
+ return (0);
+} /* }}} int udb_result_prepare_result */
+
+static void udb_result_free (udb_result_t *r) /* {{{ */
+{
+ size_t i;
+
+ if (r == NULL)
+ return;
+
+ sfree (r->type);
+
+ for (i = 0; i < r->instances_num; i++)
+ sfree (r->instances[i]);
+ sfree (r->instances);
+
+ for (i = 0; i < r->values_num; i++)
+ sfree (r->values[i]);
+ sfree (r->values);
+
+ udb_result_free (r->next);
+
+ sfree (r);
+} /* }}} void udb_result_free */
+
+static int udb_result_create (const char *query_name, /* {{{ */
+ udb_result_t **r_head, oconfig_item_t *ci)
+{
+ udb_result_t *r;
+ int status;
+ int i;
+
+ if (ci->values_num != 0)
+ {
+ WARNING ("db query utils: The `Result' block doesn't accept "
+ "any arguments. Ignoring %i argument%s.",
+ ci->values_num, (ci->values_num == 1) ? "" : "s");
+ }
+
+ r = (udb_result_t *) malloc (sizeof (*r));
+ if (r == NULL)
+ {
+ ERROR ("db query utils: malloc failed.");
+ return (-1);
+ }
+ memset (r, 0, sizeof (*r));
+ r->type = NULL;
+ r->instance_prefix = NULL;
+ r->instances = NULL;
+ r->values = NULL;
+ r->next = NULL;
+
+ /* Fill the `udb_result_t' structure.. */
+ status = 0;
+ for (i = 0; i < ci->children_num; i++)
+ {
+ oconfig_item_t *child = ci->children + i;
+
+ if (strcasecmp ("Type", child->key) == 0)
+ status = udb_config_set_string (&r->type, child);
+ else if (strcasecmp ("InstancePrefix", child->key) == 0)
+ status = udb_config_set_string (&r->instance_prefix, child);
+ else if (strcasecmp ("InstancesFrom", child->key) == 0)
+ status = udb_config_add_string (&r->instances, &r->instances_num, child);
+ else if (strcasecmp ("ValuesFrom", child->key) == 0)
+ status = udb_config_add_string (&r->values, &r->values_num, child);
+ else
+ {
+ WARNING ("db query utils: Query `%s': Option `%s' not allowed here.",
+ query_name, child->key);
+ status = -1;
+ }
+
+ if (status != 0)
+ break;
+ }
+
+ /* Check that all necessary options have been given. */
+ while (status == 0)
+ {
+ if (r->type == NULL)
+ {
+ WARNING ("db query utils: `Type' not given for "
+ "result in query `%s'", query_name);
+ status = -1;
+ }
+ if (r->instances == NULL)
+ {
+ WARNING ("db query utils: `InstancesFrom' not given for "
+ "result in query `%s'", query_name);
+ status = -1;
+ }
+ if (r->values == NULL)
+ {
+ WARNING ("db query utils: `ValuesFrom' not given for "
+ "result in query `%s'", query_name);
+ status = -1;
+ }
+
+ break;
+ } /* while (status == 0) */
+
+ if (status != 0)
+ {
+ udb_result_free (r);
+ return (-1);
+ }
+
+ /* If all went well, add this result to the list of results. */
+ if (*r_head == NULL)
+ {
+ *r_head = r;
+ }
+ else
+ {
+ udb_result_t *last;
+
+ last = *r_head;
+ while (last->next != NULL)
+ last = last->next;
+
+ last->next = r;
+ }
+
+ return (0);
+} /* }}} int udb_result_create */
+
+/*
+ * Query private functions
+ */
+void udb_query_free_one (udb_query_t *q) /* {{{ */
+{
+ if (q == NULL)
+ return;
+
+ sfree (q->name);
+ sfree (q->statement);
+
+ udb_result_free (q->results);
+
+ sfree (q);
+} /* }}} void udb_query_free_one */
+
+/*
+ * Query public functions
+ */
+int udb_query_create (udb_query_t ***ret_query_list, /* {{{ */
+ size_t *ret_query_list_len, oconfig_item_t *ci)
+{
+ udb_query_t **query_list;
+ size_t query_list_len;
+
+ udb_query_t *q;
+ int status;
+ int i;
+
+ if ((ret_query_list == NULL) || (ret_query_list_len == NULL))
+ return (-EINVAL);
+ query_list = *ret_query_list;
+ query_list_len = *ret_query_list_len;
+
+ if ((ci->values_num != 1)
+ || (ci->values[0].type != OCONFIG_TYPE_STRING))
+ {
+ WARNING ("db query utils: The `Query' block "
+ "needs exactly one string argument.");
+ return (-1);
+ }
+
+ q = (udb_query_t *) malloc (sizeof (*q));
+ if (q == NULL)
+ {
+ ERROR ("db query utils: malloc failed.");
+ return (-1);
+ }
+ memset (q, 0, sizeof (*q));
+
+ status = udb_config_set_string (&q->name, ci);
+ if (status != 0)
+ {
+ sfree (q);
+ return (status);
+ }
+
+ /* Fill the `udb_query_t' structure.. */
+ for (i = 0; i < ci->children_num; i++)
+ {
+ oconfig_item_t *child = ci->children + i;
+
+ if (strcasecmp ("Statement", child->key) == 0)
+ status = udb_config_set_string (&q->statement, child);
+ else if (strcasecmp ("Result", child->key) == 0)
+ status = udb_result_create (q->name, &q->results, child);
+ else
+ {
+ WARNING ("db query utils: Query `%s': Option `%s' not allowed here.",
+ q->name, child->key);
+ status = -1;
+ }
+
+ if (status != 0)
+ break;
+ }
+
+ /* Check that all necessary options have been given. */
+ if (status == 0)
+ {
+ if (q->statement == NULL)
+ {
+ WARNING ("db query utils: Query `%s': No `Statement' given.", q->name);
+ status = -1;
+ }
+ if (q->results == NULL)
+ {
+ WARNING ("db query utils: Query `%s': No (valid) `Result' block given.",
+ q->name);
+ status = -1;
+ }
+ } /* if (status == 0) */
+
+ /* If all went well, add this query to the list of queries within the
+ * database structure. */
+ if (status == 0)
+ {
+ udb_query_t **temp;
+
+ temp = (udb_query_t **) realloc (query_list,
+ sizeof (*query_list) * (query_list_len + 1));
+ if (temp == NULL)
+ {
+ ERROR ("db query utils: realloc failed");
+ status = -1;
+ }
+ else
+ {
+ query_list = temp;
+ query_list[query_list_len] = q;
+ query_list_len++;
+ }
+ }
+
+ if (status != 0)
+ {
+ udb_query_free_one (q);
+ return (-1);
+ }
+
+ *ret_query_list = query_list;
+ *ret_query_list_len = query_list_len;
+
+ return (0);
+} /* }}} int udb_query_create */
+
+void udb_query_free (udb_query_t **query_list, size_t query_list_len) /* {{{ */
+{
+ size_t i;
+
+ if (query_list == NULL)
+ return;
+
+ for (i = 0; i < query_list_len; i++)
+ udb_query_free_one (query_list[i]);
+
+ sfree (query_list);
+} /* }}} void udb_query_free */
+
+int udb_query_pick_from_list (oconfig_item_t *ci, /* {{{ */
+ udb_query_t **src_list, size_t src_list_len,
+ udb_query_t ***dst_list, size_t *dst_list_len)
+{
+ const char *name;
+ udb_query_t *q;
+ udb_query_t **tmp_list;
+ size_t tmp_list_len;
+ size_t i;
+
+ if ((ci == NULL) || (src_list == NULL) || (dst_list == NULL)
+ || (dst_list_len == NULL))
+ {
+ ERROR ("db query utils: Invalid argument.");
+ return (-EINVAL);
+ }
+
+ if ((ci->values_num != 1)
+ || (ci->values[0].type != OCONFIG_TYPE_STRING))
+ {
+ ERROR ("db query utils: The `%s' config option "
+ "needs exactly one string argument.", ci->key);
+ return (-1);
+ }
+ name = ci->values[0].value.string;
+
+ q = NULL;
+ for (i = 0; i < src_list_len; i++)
+ if (strcasecmp (name, src_list[i]->name) == 0)
+ {
+ q = src_list[i];
+ break;
+ }
+
+ if (q == NULL)
+ {
+ ERROR ("db query utils: Cannot find query `%s'. Make sure the <%s> "
+ "block is above the database definition!",
+ name, ci->key);
+ return (-ENOENT);
+ }
+
+ tmp_list_len = *dst_list_len;
+ tmp_list = (udb_query_t **) realloc (*dst_list, (tmp_list_len + 1)
+ * sizeof (udb_query_t *));
+ if (tmp_list == NULL)
+ {
+ ERROR ("db query utils: realloc failed.");
+ return (-ENOMEM);
+ }
+ tmp_list[tmp_list_len] = q;
+ tmp_list_len++;
+
+ *dst_list = tmp_list;
+ *dst_list_len = tmp_list_len;
+
+ return (0);
+} /* }}} int udb_query_pick_from_list */
+
+const char *udb_query_get_name (udb_query_t *q) /* {{{ */
+{
+ if (q == NULL)
+ return (NULL);
+
+ return (q->name);
+} /* }}} const char *udb_query_get_name */
+
+const char *udb_query_get_statement (udb_query_t *q) /* {{{ */
+{
+ if (q == NULL)
+ return (NULL);
+
+ return (q->statement);
+} /* }}} const char *udb_query_get_statement */
+
+void udb_query_set_user_data (udb_query_t *q, void *user_data) /* {{{ */
+{
+ if (q == NULL)
+ return;
+
+ q->user_data = user_data;
+} /* }}} void udb_query_set_user_data */
+
+void *udb_query_get_user_data (udb_query_t *q) /* {{{ */
+{
+ if (q == NULL)
+ return (NULL);
+
+ return (q->statement);
+} /* }}} void *udb_query_get_user_data */
+
+void udb_query_finish_result (udb_query_t *q) /* {{{ */
+{
+ udb_result_t *r;
+
+ if (q == NULL)
+ return;
+
+ q->column_num = 0;
+ sfree (q->host);
+ sfree (q->plugin);
+ sfree (q->db_name);
+
+ for (r = q->results; r != NULL; r = r->next)
+ udb_result_finish_result (r);
+} /* }}} void udb_query_finish_result */
+
+int udb_query_handle_result (udb_query_t *q, char **column_values) /* {{{ */
+{
+ udb_result_t *r;
+ int success;
+ int status;
+
+ if (q == NULL)
+ return (-EINVAL);
+
+ if ((q->column_num < 1) || (q->host == NULL) || (q->plugin == NULL)
+ || (q->db_name == NULL))
+ {
+ ERROR ("db query utils: Query `%s': Query is not prepared; "
+ "can't handle result.", q->name);
+ return (-EINVAL);
+ }
+
+#if defined(COLLECT_DEBUG) && COLLECT_DEBUG /* {{{ */
+ do
+ {
+ size_t i;
+
+ for (i = 0; i < q->column_num; i++)
+ {
+ DEBUG ("db query utils: udb_query_handle_result (%s, %s): "
+ "column[%zu] = %s;",
+ q->db_name, q->name, i, column_values[i]);
+ }
+ } while (0);
+#endif /* }}} */
+
+ success = 0;
+ for (r = q->results; r != NULL; r = r->next)
+ {
+ status = udb_result_handle_result (r, q, column_values);
+ if (status == 0)
+ success++;
+ }
+
+ if (success == 0)
+ {
+ ERROR ("db query utils: udb_query_handle_result (%s, %s): "
+ "All results failed.", q->db_name, q->name);
+ return (-1);
+ }
+
+ return (0);
+} /* }}} int udb_query_handle_result */
+
+int udb_query_prepare_result (udb_query_t *q, /* {{{ */
+ const char *host, const char *plugin, const char *db_name,
+ char **column_names, size_t column_num)
+{
+ udb_result_t *r;
+ int status;
+
+ if (q == NULL)
+ return (-EINVAL);
+
+ udb_query_finish_result (q);
+
+ q->column_num = column_num;
+ q->host = strdup (host);
+ q->plugin = strdup (plugin);
+ q->db_name = strdup (db_name);
+
+ if ((q->host == NULL) || (q->plugin == NULL) || (q->db_name == NULL))
+ {
+ ERROR ("db query utils: Query `%s': Prepare failed: Out of memory.", q->name);
+ udb_query_finish_result (q);
+ return (-ENOMEM);
+ }
+
+#if defined(COLLECT_DEBUG) && COLLECT_DEBUG
+ do
+ {
+ size_t i;
+
+ for (i = 0; i < column_num; i++)
+ {
+ DEBUG ("db query utils: udb_query_prepare_result: "
+ "query = %s; column[%zu] = %s;",
+ q->name, i, column_names[i]);
+ }
+ } while (0);
+#endif
+
+ for (r = q->results; r != NULL; r = r->next)
+ {
+ status = udb_result_prepare_result (r, column_names, column_num);
+ if (status != 0)
+ {
+ udb_query_finish_result (q);
+ return (status);
+ }
+ }
+
+ return (0);
+} /* }}} int udb_query_prepare_result */
+
+/* vim: set sw=2 sts=2 et fdm=marker : */