123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854 |
- /*
- This file is part of GNUnet.
- Copyright (C) 2006, 2007, 2008, 2009, 2013, 2020 GNUnet e.V.
- GNUnet is free software: you can redistribute it and/or modify it
- under the terms of the GNU Affero General Public License as published
- by the Free Software Foundation, either version 3 of the License,
- or (at your option) any later version.
- GNUnet 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
- Affero General Public License for more details.
- You should have received a copy of the GNU Affero General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
- SPDX-License-Identifier: AGPL3.0-or-later
- */
- /**
- * @file src/util/configuration.c
- * @brief configuration management
- * @author Christian Grothoff
- */
- #include "platform.h"
- #include "gnunet_crypto_lib.h"
- #include "gnunet_strings_lib.h"
- #include "gnunet_os_lib.h"
- #include "gnunet_configuration_lib.h"
- #include "gnunet_disk_lib.h"
- #define LOG(kind, ...) GNUNET_log_from (kind, "util", __VA_ARGS__)
- #define LOG_STRERROR_FILE(kind, syscall, filename) \
- GNUNET_log_from_strerror_file (kind, "util", syscall, filename)
- /**
- * @brief configuration entry
- */
- struct ConfigEntry
- {
- /**
- * This is a linked list.
- */
- struct ConfigEntry *next;
- /**
- * key for this entry
- */
- char *key;
- /**
- * current, commited value
- */
- char *val;
- };
- /**
- * @brief configuration section
- */
- struct ConfigSection
- {
- /**
- * This is a linked list.
- */
- struct ConfigSection *next;
- /**
- * entries in the section
- */
- struct ConfigEntry *entries;
- /**
- * name of the section
- */
- char *name;
- };
- /**
- * @brief configuration data
- */
- struct GNUNET_CONFIGURATION_Handle
- {
- /**
- * Configuration sections.
- */
- struct ConfigSection *sections;
- /**
- * Modification indication since last save
- * #GNUNET_NO if clean, #GNUNET_YES if dirty,
- * #GNUNET_SYSERR on error (i.e. last save failed)
- */
- int dirty;
- };
- /**
- * Used for diffing a configuration object against
- * the default one
- */
- struct DiffHandle
- {
- const struct GNUNET_CONFIGURATION_Handle *cfg_default;
- struct GNUNET_CONFIGURATION_Handle *cfgDiff;
- };
- /**
- * Create a GNUNET_CONFIGURATION_Handle.
- *
- * @return fresh configuration object
- */
- struct GNUNET_CONFIGURATION_Handle *
- GNUNET_CONFIGURATION_create ()
- {
- struct GNUNET_CONFIGURATION_Handle *cfg;
- char *p;
- cfg = GNUNET_new (struct GNUNET_CONFIGURATION_Handle);
- /* make certain values from the project data available
- as PATHS */
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_DATADIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "DATADIR",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_LIBDIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "LIBDIR",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_BINDIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "BINDIR",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_PREFIX);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "PREFIX",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_LOCALEDIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "LOCALEDIR",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_ICONDIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "ICONDIR",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_DOCDIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "DOCDIR",
- p);
- GNUNET_free (p);
- }
- p = GNUNET_OS_installation_get_path (GNUNET_OS_IPK_LIBEXECDIR);
- if (NULL != p)
- {
- GNUNET_CONFIGURATION_set_value_string (cfg,
- "PATHS",
- "LIBEXECDIR",
- p);
- GNUNET_free (p);
- }
- return cfg;
- }
- /**
- * Destroy configuration object.
- *
- * @param cfg configuration to destroy
- */
- void
- GNUNET_CONFIGURATION_destroy (struct GNUNET_CONFIGURATION_Handle *cfg)
- {
- struct ConfigSection *sec;
- while (NULL != (sec = cfg->sections))
- GNUNET_CONFIGURATION_remove_section (cfg, sec->name);
- GNUNET_free (cfg);
- }
- /**
- * Parse a configuration file @a filename and run the function
- * @a cb with the resulting configuration object. Then free the
- * configuration object and return the status value from @a cb.
- *
- * @param filename configuration to parse, NULL for "default"
- * @param cb function to run
- * @param cb_cls closure for @a cb
- * @return #GNUNET_SYSERR if parsing the configuration failed,
- * otherwise return value from @a cb.
- */
- int
- GNUNET_CONFIGURATION_parse_and_run (const char *filename,
- GNUNET_CONFIGURATION_Callback cb,
- void *cb_cls)
- {
- struct GNUNET_CONFIGURATION_Handle *cfg;
- int ret;
- cfg = GNUNET_CONFIGURATION_create ();
- if (GNUNET_OK != GNUNET_CONFIGURATION_load (cfg, filename))
- {
- GNUNET_break (0);
- GNUNET_CONFIGURATION_destroy (cfg);
- return GNUNET_SYSERR;
- }
- ret = cb (cb_cls, cfg);
- GNUNET_CONFIGURATION_destroy (cfg);
- return ret;
- }
- /**
- * De-serializes configuration
- *
- * @param cfg configuration to update
- * @param mem the memory block of serialized configuration
- * @param size the size of the memory block
- * @param basedir set to path from which we recursively load configuration
- * from inlined configurations; NULL if not and raise warnings
- * when we come across them
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_deserialize (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *mem,
- size_t size,
- const char *basedir)
- {
- char *line;
- char *line_orig;
- size_t line_size;
- char *pos;
- unsigned int nr;
- size_t r_bytes;
- size_t to_read;
- size_t i;
- int emptyline;
- int ret;
- char *section;
- char *eq;
- char *tag;
- char *value;
- ret = GNUNET_OK;
- section = GNUNET_strdup ("");
- nr = 0;
- r_bytes = 0;
- line_orig = NULL;
- while (r_bytes < size)
- {
- GNUNET_free (line_orig);
- /* fgets-like behaviour on buffer */
- to_read = size - r_bytes;
- pos = memchr (&mem[r_bytes], '\n', to_read);
- if (NULL == pos)
- {
- line_orig = GNUNET_strndup (&mem[r_bytes], line_size = to_read);
- r_bytes += line_size;
- }
- else
- {
- line_orig =
- GNUNET_strndup (&mem[r_bytes], line_size = (pos - &mem[r_bytes]));
- r_bytes += line_size + 1;
- }
- line = line_orig;
- /* increment line number */
- nr++;
- /* tabs and '\r' are whitespace */
- emptyline = GNUNET_YES;
- for (i = 0; i < line_size; i++)
- {
- if (line[i] == '\t')
- line[i] = ' ';
- if (line[i] == '\r')
- line[i] = ' ';
- if (' ' != line[i])
- emptyline = GNUNET_NO;
- }
- /* ignore empty lines */
- if (GNUNET_YES == emptyline)
- continue;
- /* remove tailing whitespace */
- for (i = line_size - 1; (i >= 1) && (isspace ((unsigned char) line[i]));
- i--)
- line[i] = '\0';
- /* remove leading whitespace */
- for (; line[0] != '\0' && (isspace ((unsigned char) line[0])); line++)
- ;
- /* ignore comments */
- if (('#' == line[0]) || ('%' == line[0]))
- continue;
- /* handle special "@INLINE@" directive */
- if (0 == strncasecmp (line, "@INLINE@ ", strlen ("@INLINE@ ")))
- {
- /* @INLINE@ value */
- value = &line[strlen ("@INLINE@ ")];
- if (NULL != basedir)
- {
- char *fn;
- GNUNET_asprintf (&fn, "%s/%s", basedir, value);
- if (GNUNET_OK != GNUNET_CONFIGURATION_parse (cfg, fn))
- {
- GNUNET_free (fn);
- ret = GNUNET_SYSERR; /* failed to parse included config */
- break;
- }
- GNUNET_free (fn);
- }
- else
- {
- LOG (GNUNET_ERROR_TYPE_DEBUG,
- "Ignoring parsing @INLINE@ configurations, not allowed!\n");
- ret = GNUNET_SYSERR;
- break;
- }
- continue;
- }
- if (('[' == line[0]) && (']' == line[line_size - 1]))
- {
- /* [value] */
- line[line_size - 1] = '\0';
- value = &line[1];
- GNUNET_free (section);
- section = GNUNET_strdup (value);
- continue;
- }
- if (NULL != (eq = strchr (line, '=')))
- {
- /* tag = value */
- tag = GNUNET_strndup (line, eq - line);
- /* remove tailing whitespace */
- for (i = strlen (tag) - 1; (i >= 1) && (isspace ((unsigned char) tag[i]));
- i--)
- tag[i] = '\0';
- /* Strip whitespace */
- value = eq + 1;
- while (isspace ((unsigned char) value[0]))
- value++;
- for (i = strlen (value) - 1;
- (i >= 1) && (isspace ((unsigned char) value[i]));
- i--)
- value[i] = '\0';
- /* remove quotes */
- i = 0;
- if (('"' == value[0]) && ('"' == value[strlen (value) - 1]))
- {
- value[strlen (value) - 1] = '\0';
- value++;
- }
- GNUNET_CONFIGURATION_set_value_string (cfg, section, tag, &value[i]);
- GNUNET_free (tag);
- continue;
- }
- /* parse error */
- LOG (GNUNET_ERROR_TYPE_WARNING,
- _ ("Syntax error while deserializing in line %u\n"),
- nr);
- ret = GNUNET_SYSERR;
- break;
- }
- GNUNET_free (line_orig);
- GNUNET_free (section);
- GNUNET_assert ((GNUNET_OK != ret) || (r_bytes == size));
- return ret;
- }
- /**
- * Parse a configuration file, add all of the options in the
- * file to the configuration environment.
- *
- * @param cfg configuration to update
- * @param filename name of the configuration file
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_parse (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *filename)
- {
- uint64_t fs64;
- size_t fs;
- char *fn;
- char *mem;
- char *endsep;
- int dirty;
- int ret;
- ssize_t sret;
- fn = GNUNET_STRINGS_filename_expand (filename);
- LOG (GNUNET_ERROR_TYPE_DEBUG, "Asked to parse config file `%s'\n", fn);
- if (NULL == fn)
- return GNUNET_SYSERR;
- dirty = cfg->dirty; /* back up value! */
- if (GNUNET_SYSERR ==
- GNUNET_DISK_file_size (fn, &fs64, GNUNET_YES, GNUNET_YES))
- {
- LOG (GNUNET_ERROR_TYPE_WARNING,
- "Error while determining the file size of `%s'\n",
- fn);
- GNUNET_free (fn);
- return GNUNET_SYSERR;
- }
- if (fs64 > SIZE_MAX)
- {
- GNUNET_break (0); /* File size is more than the heap size */
- GNUNET_free (fn);
- return GNUNET_SYSERR;
- }
- fs = fs64;
- mem = GNUNET_malloc (fs);
- sret = GNUNET_DISK_fn_read (fn, mem, fs);
- if ((sret < 0) || (fs != (size_t) sret))
- {
- LOG (GNUNET_ERROR_TYPE_WARNING, _ ("Error while reading file `%s'\n"), fn);
- GNUNET_free (fn);
- GNUNET_free (mem);
- return GNUNET_SYSERR;
- }
- LOG (GNUNET_ERROR_TYPE_DEBUG, "Deserializing contents of file `%s'\n", fn);
- endsep = strrchr (fn, (int) '/');
- if (NULL != endsep)
- *endsep = '\0';
- ret = GNUNET_CONFIGURATION_deserialize (cfg, mem, fs, fn);
- GNUNET_free (fn);
- GNUNET_free (mem);
- /* restore dirty flag - anything we set in the meantime
- * came from disk */
- cfg->dirty = dirty;
- return ret;
- }
- /**
- * Test if there are configuration options that were
- * changed since the last save.
- *
- * @param cfg configuration to inspect
- * @return #GNUNET_NO if clean, #GNUNET_YES if dirty, #GNUNET_SYSERR on error (i.e. last save failed)
- */
- int
- GNUNET_CONFIGURATION_is_dirty (const struct GNUNET_CONFIGURATION_Handle *cfg)
- {
- return cfg->dirty;
- }
- /**
- * Serializes the given configuration.
- *
- * @param cfg configuration to serialize
- * @param size will be set to the size of the serialized memory block
- * @return the memory block where the serialized configuration is
- * present. This memory should be freed by the caller
- */
- char *
- GNUNET_CONFIGURATION_serialize (const struct GNUNET_CONFIGURATION_Handle *cfg,
- size_t *size)
- {
- struct ConfigSection *sec;
- struct ConfigEntry *ent;
- char *mem;
- char *cbuf;
- char *val;
- char *pos;
- size_t m_size;
- size_t c_size;
- /* Pass1 : calculate the buffer size required */
- m_size = 0;
- for (sec = cfg->sections; NULL != sec; sec = sec->next)
- {
- /* For each section we need to add 3 charaters: {'[',']','\n'} */
- m_size += strlen (sec->name) + 3;
- for (ent = sec->entries; NULL != ent; ent = ent->next)
- {
- if (NULL != ent->val)
- {
- /* if val has any '\n' then they occupy +1 character as '\n'->'\\','n' */
- pos = ent->val;
- while (NULL != (pos = strstr (pos, "\n")))
- {
- m_size++;
- pos++;
- }
- /* For each key = value pair we need to add 4 characters (2
- spaces and 1 equal-to character and 1 new line) */
- m_size += strlen (ent->key) + strlen (ent->val) + 4;
- }
- }
- /* A new line after section end */
- m_size++;
- }
- /* Pass2: Allocate memory and write the configuration to it */
- mem = GNUNET_malloc (m_size);
- sec = cfg->sections;
- c_size = 0;
- *size = c_size;
- while (NULL != sec)
- {
- int len;
- len = GNUNET_asprintf (&cbuf, "[%s]\n", sec->name);
- GNUNET_assert (0 < len);
- GNUNET_memcpy (mem + c_size, cbuf, len);
- c_size += len;
- GNUNET_free (cbuf);
- for (ent = sec->entries; NULL != ent; ent = ent->next)
- {
- if (NULL != ent->val)
- {
- val = GNUNET_malloc (strlen (ent->val) * 2 + 1);
- strcpy (val, ent->val);
- while (NULL != (pos = strstr (val, "\n")))
- {
- memmove (&pos[2], &pos[1], strlen (&pos[1]));
- pos[0] = '\\';
- pos[1] = 'n';
- }
- len = GNUNET_asprintf (&cbuf, "%s = %s\n", ent->key, val);
- GNUNET_free (val);
- GNUNET_memcpy (mem + c_size, cbuf, len);
- c_size += len;
- GNUNET_free (cbuf);
- }
- }
- GNUNET_memcpy (mem + c_size, "\n", 1);
- c_size++;
- sec = sec->next;
- }
- GNUNET_assert (c_size == m_size);
- *size = c_size;
- return mem;
- }
- /**
- * Write configuration file.
- *
- * @param cfg configuration to write
- * @param filename where to write the configuration
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_write (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *filename)
- {
- char *fn;
- char *cfg_buf;
- size_t size;
- ssize_t sret;
- fn = GNUNET_STRINGS_filename_expand (filename);
- if (fn == NULL)
- return GNUNET_SYSERR;
- if (GNUNET_OK != GNUNET_DISK_directory_create_for_file (fn))
- {
- GNUNET_free (fn);
- return GNUNET_SYSERR;
- }
- cfg_buf = GNUNET_CONFIGURATION_serialize (cfg, &size);
- sret = GNUNET_DISK_fn_write (fn,
- cfg_buf,
- size,
- GNUNET_DISK_PERM_USER_READ
- | GNUNET_DISK_PERM_USER_WRITE
- | GNUNET_DISK_PERM_GROUP_READ
- | GNUNET_DISK_PERM_GROUP_WRITE);
- if ((sret < 0) || (size != (size_t) sret))
- {
- GNUNET_free (fn);
- GNUNET_free (cfg_buf);
- LOG (GNUNET_ERROR_TYPE_WARNING,
- "Writing configuration to file `%s' failed\n",
- filename);
- cfg->dirty = GNUNET_SYSERR; /* last write failed */
- return GNUNET_SYSERR;
- }
- GNUNET_free (fn);
- GNUNET_free (cfg_buf);
- cfg->dirty = GNUNET_NO; /* last write succeeded */
- return GNUNET_OK;
- }
- /**
- * Iterate over all options in the configuration.
- *
- * @param cfg configuration to inspect
- * @param iter function to call on each option
- * @param iter_cls closure for @a iter
- */
- void
- GNUNET_CONFIGURATION_iterate (const struct GNUNET_CONFIGURATION_Handle *cfg,
- GNUNET_CONFIGURATION_Iterator iter,
- void *iter_cls)
- {
- struct ConfigSection *spos;
- struct ConfigEntry *epos;
- for (spos = cfg->sections; NULL != spos; spos = spos->next)
- for (epos = spos->entries; NULL != epos; epos = epos->next)
- if (NULL != epos->val)
- iter (iter_cls, spos->name, epos->key, epos->val);
- }
- /**
- * Iterate over values of a section in the configuration.
- *
- * @param cfg configuration to inspect
- * @param section the section
- * @param iter function to call on each option
- * @param iter_cls closure for @a iter
- */
- void
- GNUNET_CONFIGURATION_iterate_section_values (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- GNUNET_CONFIGURATION_Iterator iter,
- void *iter_cls)
- {
- struct ConfigSection *spos;
- struct ConfigEntry *epos;
- spos = cfg->sections;
- while ((spos != NULL) && (0 != strcasecmp (spos->name, section)))
- spos = spos->next;
- if (NULL == spos)
- return;
- for (epos = spos->entries; NULL != epos; epos = epos->next)
- if (NULL != epos->val)
- iter (iter_cls, spos->name, epos->key, epos->val);
- }
- /**
- * Iterate over all sections in the configuration.
- *
- * @param cfg configuration to inspect
- * @param iter function to call on each section
- * @param iter_cls closure for @a iter
- */
- void
- GNUNET_CONFIGURATION_iterate_sections (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- GNUNET_CONFIGURATION_Section_Iterator iter,
- void *iter_cls)
- {
- struct ConfigSection *spos;
- struct ConfigSection *next;
- next = cfg->sections;
- while (next != NULL)
- {
- spos = next;
- next = spos->next;
- iter (iter_cls, spos->name);
- }
- }
- /**
- * Remove the given section and all options in it.
- *
- * @param cfg configuration to inspect
- * @param section name of the section to remove
- */
- void
- GNUNET_CONFIGURATION_remove_section (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section)
- {
- struct ConfigSection *spos;
- struct ConfigSection *prev;
- struct ConfigEntry *ent;
- prev = NULL;
- spos = cfg->sections;
- while (NULL != spos)
- {
- if (0 == strcasecmp (section, spos->name))
- {
- if (NULL == prev)
- cfg->sections = spos->next;
- else
- prev->next = spos->next;
- while (NULL != (ent = spos->entries))
- {
- spos->entries = ent->next;
- GNUNET_free (ent->key);
- GNUNET_free (ent->val);
- GNUNET_free (ent);
- cfg->dirty = GNUNET_YES;
- }
- GNUNET_free (spos->name);
- GNUNET_free (spos);
- return;
- }
- prev = spos;
- spos = spos->next;
- }
- }
- /**
- * Copy a configuration value to the given target configuration.
- * Overwrites existing entries.
- *
- * @param cls the destination configuration (`struct GNUNET_CONFIGURATION_Handle *`)
- * @param section section for the value
- * @param option option name of the value
- * @param value value to copy
- */
- static void
- copy_entry (void *cls,
- const char *section,
- const char *option,
- const char *value)
- {
- struct GNUNET_CONFIGURATION_Handle *dst = cls;
- GNUNET_CONFIGURATION_set_value_string (dst, section, option, value);
- }
- /**
- * Duplicate an existing configuration object.
- *
- * @param cfg configuration to duplicate
- * @return duplicate configuration
- */
- struct GNUNET_CONFIGURATION_Handle *
- GNUNET_CONFIGURATION_dup (const struct GNUNET_CONFIGURATION_Handle *cfg)
- {
- struct GNUNET_CONFIGURATION_Handle *ret;
- ret = GNUNET_CONFIGURATION_create ();
- GNUNET_CONFIGURATION_iterate (cfg, ©_entry, ret);
- return ret;
- }
- /**
- * Find a section entry from a configuration.
- *
- * @param cfg configuration to search in
- * @param section name of the section to look for
- * @return matching entry, NULL if not found
- */
- static struct ConfigSection *
- find_section (const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section)
- {
- struct ConfigSection *pos;
- pos = cfg->sections;
- while ((pos != NULL) && (0 != strcasecmp (section, pos->name)))
- pos = pos->next;
- return pos;
- }
- /**
- * Find an entry from a configuration.
- *
- * @param cfg handle to the configuration
- * @param section section the option is in
- * @param key the option
- * @return matching entry, NULL if not found
- */
- static struct ConfigEntry *
- find_entry (const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *key)
- {
- struct ConfigSection *sec;
- struct ConfigEntry *pos;
- if (NULL == (sec = find_section (cfg, section)))
- return NULL;
- pos = sec->entries;
- while ((pos != NULL) && (0 != strcasecmp (key, pos->key)))
- pos = pos->next;
- return pos;
- }
- /**
- * A callback function, compares entries from two configurations
- * (default against a new configuration) and write the diffs in a
- * diff-configuration object (the callback object).
- *
- * @param cls the diff configuration (`struct DiffHandle *`)
- * @param section section for the value (of the default conf.)
- * @param option option name of the value (of the default conf.)
- * @param value value to copy (of the default conf.)
- */
- static void
- compare_entries (void *cls,
- const char *section,
- const char *option,
- const char *value)
- {
- struct DiffHandle *dh = cls;
- struct ConfigEntry *entNew;
- entNew = find_entry (dh->cfg_default, section, option);
- if ((NULL != entNew) && (NULL != entNew->val) &&
- (0 == strcmp (entNew->val, value)))
- return;
- GNUNET_CONFIGURATION_set_value_string (dh->cfgDiff, section, option, value);
- }
- /**
- * Compute configuration with only entries that have been changed
- *
- * @param cfg_default original configuration
- * @param cfg_new new configuration
- * @return configuration with only the differences, never NULL
- */
- struct GNUNET_CONFIGURATION_Handle *
- GNUNET_CONFIGURATION_get_diff (
- const struct GNUNET_CONFIGURATION_Handle *cfg_default,
- const struct GNUNET_CONFIGURATION_Handle *cfg_new)
- {
- struct DiffHandle diffHandle;
- diffHandle.cfgDiff = GNUNET_CONFIGURATION_create ();
- diffHandle.cfg_default = cfg_default;
- GNUNET_CONFIGURATION_iterate (cfg_new, &compare_entries, &diffHandle);
- return diffHandle.cfgDiff;
- }
- /**
- * Write only configuration entries that have been changed to configuration file
- *
- * @param cfg_default default configuration
- * @param cfg_new new configuration
- * @param filename where to write the configuration diff between default and new
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_write_diffs (
- const struct GNUNET_CONFIGURATION_Handle *cfg_default,
- const struct GNUNET_CONFIGURATION_Handle *cfg_new,
- const char *filename)
- {
- int ret;
- struct GNUNET_CONFIGURATION_Handle *diff;
- diff = GNUNET_CONFIGURATION_get_diff (cfg_default, cfg_new);
- ret = GNUNET_CONFIGURATION_write (diff, filename);
- GNUNET_CONFIGURATION_destroy (diff);
- return ret;
- }
- /**
- * Set a configuration value that should be a string.
- *
- * @param cfg configuration to update
- * @param section section of interest
- * @param option option of interest
- * @param value value to set
- */
- void
- GNUNET_CONFIGURATION_set_value_string (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- const char *value)
- {
- struct ConfigSection *sec;
- struct ConfigEntry *e;
- char *nv;
- e = find_entry (cfg, section, option);
- if (NULL != e)
- {
- if (NULL == value)
- {
- GNUNET_free (e->val);
- e->val = NULL;
- }
- else
- {
- nv = GNUNET_strdup (value);
- GNUNET_free (e->val);
- e->val = nv;
- }
- return;
- }
- sec = find_section (cfg, section);
- if (sec == NULL)
- {
- sec = GNUNET_new (struct ConfigSection);
- sec->name = GNUNET_strdup (section);
- sec->next = cfg->sections;
- cfg->sections = sec;
- }
- e = GNUNET_new (struct ConfigEntry);
- e->key = GNUNET_strdup (option);
- e->val = GNUNET_strdup (value);
- e->next = sec->entries;
- sec->entries = e;
- }
- /**
- * Set a configuration value that should be a number.
- *
- * @param cfg configuration to update
- * @param section section of interest
- * @param option option of interest
- * @param number value to set
- */
- void
- GNUNET_CONFIGURATION_set_value_number (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- unsigned long long number)
- {
- char s[64];
- GNUNET_snprintf (s, 64, "%llu", number);
- GNUNET_CONFIGURATION_set_value_string (cfg, section, option, s);
- }
- /**
- * Get a configuration value that should be a number.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param number where to store the numeric value of the option
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_number (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- unsigned long long *number)
- {
- struct ConfigEntry *e;
- char dummy[2];
- if (NULL == (e = find_entry (cfg, section, option)))
- return GNUNET_SYSERR;
- if (NULL == e->val)
- return GNUNET_SYSERR;
- if (1 != sscanf (e->val, "%llu%1s", number, dummy))
- return GNUNET_SYSERR;
- return GNUNET_OK;
- }
- /**
- * Get a configuration value that should be a floating point number.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param number where to store the floating value of the option
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_float (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- float *number)
- {
- struct ConfigEntry *e;
- char dummy[2];
- if (NULL == (e = find_entry (cfg, section, option)))
- return GNUNET_SYSERR;
- if (NULL == e->val)
- return GNUNET_SYSERR;
- if (1 != sscanf (e->val, "%f%1s", number, dummy))
- return GNUNET_SYSERR;
- return GNUNET_OK;
- }
- /**
- * Get a configuration value that should be a relative time.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param time set to the time value stored in the configuration
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_time (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- struct GNUNET_TIME_Relative *time)
- {
- struct ConfigEntry *e;
- int ret;
- if (NULL == (e = find_entry (cfg, section, option)))
- return GNUNET_SYSERR;
- if (NULL == e->val)
- return GNUNET_SYSERR;
- ret = GNUNET_STRINGS_fancy_time_to_relative (e->val, time);
- if (GNUNET_OK != ret)
- GNUNET_log_config_invalid (GNUNET_ERROR_TYPE_ERROR,
- section,
- option,
- _ ("Not a valid relative time specification"));
- return ret;
- }
- /**
- * Get a configuration value that should be a size in bytes.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param size set to the size in bytes as stored in the configuration
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_size (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- unsigned long long *size)
- {
- struct ConfigEntry *e;
- if (NULL == (e = find_entry (cfg, section, option)))
- return GNUNET_SYSERR;
- if (NULL == e->val)
- return GNUNET_SYSERR;
- return GNUNET_STRINGS_fancy_size_to_bytes (e->val, size);
- }
- /**
- * Get a configuration value that should be a string.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param value will be set to a freshly allocated configuration
- * value, or NULL if option is not specified
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_string (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- char **value)
- {
- struct ConfigEntry *e;
- if ((NULL == (e = find_entry (cfg, section, option))) || (NULL == e->val))
- {
- *value = NULL;
- return GNUNET_SYSERR;
- }
- *value = GNUNET_strdup (e->val);
- return GNUNET_OK;
- }
- /**
- * Get a configuration value that should be in a set of
- * predefined strings
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param choices NULL-terminated list of legal values
- * @param value will be set to an entry in the legal list,
- * or NULL if option is not specified and no default given
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_choice (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- const char *const *choices,
- const char **value)
- {
- struct ConfigEntry *e;
- unsigned int i;
- if (NULL == (e = find_entry (cfg, section, option)))
- return GNUNET_SYSERR;
- for (i = 0; NULL != choices[i]; i++)
- if (0 == strcasecmp (choices[i], e->val))
- break;
- if (NULL == choices[i])
- {
- LOG (GNUNET_ERROR_TYPE_ERROR,
- _ ("Configuration value '%s' for '%s'"
- " in section '%s' is not in set of legal choices\n"),
- e->val,
- option,
- section);
- return GNUNET_SYSERR;
- }
- *value = choices[i];
- return GNUNET_OK;
- }
- /**
- * Get crockford32-encoded fixed-size binary data from a configuration.
- *
- * @param cfg configuration to access
- * @param section section to access
- * @param option option to access
- * @param buf where to store the decoded binary result
- * @param buf_size exact number of bytes to store in @a buf
- * @return #GNUNET_OK on success
- * #GNUNET_NO is the value does not exist
- * #GNUNET_SYSERR on decoding error
- */
- int
- GNUNET_CONFIGURATION_get_data (const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- void *buf,
- size_t buf_size)
- {
- char *enc;
- int res;
- size_t data_size;
- if (GNUNET_OK !=
- (res =
- GNUNET_CONFIGURATION_get_value_string (cfg, section, option, &enc)))
- return res;
- data_size = (strlen (enc) * 5) / 8;
- if (data_size != buf_size)
- {
- GNUNET_free (enc);
- return GNUNET_SYSERR;
- }
- if (GNUNET_OK !=
- GNUNET_STRINGS_string_to_data (enc, strlen (enc), buf, buf_size))
- {
- GNUNET_free (enc);
- return GNUNET_SYSERR;
- }
- GNUNET_free (enc);
- return GNUNET_OK;
- }
- /**
- * Test if we have a value for a particular option
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @return #GNUNET_YES if so, #GNUNET_NO if not.
- */
- int
- GNUNET_CONFIGURATION_have_value (const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option)
- {
- struct ConfigEntry *e;
- if ((NULL == (e = find_entry (cfg, section, option))) || (NULL == e->val))
- return GNUNET_NO;
- return GNUNET_YES;
- }
- /**
- * Expand an expression of the form "$FOO/BAR" to "DIRECTORY/BAR"
- * where either in the "PATHS" section or the environtment "FOO" is
- * set to "DIRECTORY". We also support default expansion,
- * i.e. ${VARIABLE:-default} will expand to $VARIABLE if VARIABLE is
- * set in PATHS or the environment, and otherwise to "default". Note
- * that "default" itself can also be a $-expression, thus
- * "${VAR1:-{$VAR2}}" will expand to VAR1 and if that is not defined
- * to VAR2.
- *
- * @param cfg configuration to use for path expansion
- * @param orig string to $-expand (will be freed!)
- * @param depth recursion depth, used to detect recursive expansions
- * @return $-expanded string, never NULL unless @a orig was NULL
- */
- static char *
- expand_dollar (const struct GNUNET_CONFIGURATION_Handle *cfg,
- char *orig,
- unsigned int depth)
- {
- char *prefix;
- char *result;
- char *start;
- const char *post;
- const char *env;
- char *def;
- char *end;
- unsigned int lopen;
- char erased_char;
- char *erased_pos;
- size_t len;
- if (NULL == orig)
- return NULL;
- if (depth > 128)
- {
- LOG (GNUNET_ERROR_TYPE_WARNING,
- _ (
- "Recursive expansion suspected, aborting $-expansion for term `%s'\n"),
- orig);
- return orig;
- }
- LOG (GNUNET_ERROR_TYPE_DEBUG, "Asked to $-expand %s\n", orig);
- if ('$' != orig[0])
- {
- LOG (GNUNET_ERROR_TYPE_DEBUG, "Doesn't start with $ - not expanding\n");
- return orig;
- }
- erased_char = 0;
- erased_pos = NULL;
- if ('{' == orig[1])
- {
- start = &orig[2];
- lopen = 1;
- end = &orig[1];
- while (lopen > 0)
- {
- end++;
- switch (*end)
- {
- case '}':
- lopen--;
- break;
- case '{':
- lopen++;
- break;
- case '\0':
- LOG (GNUNET_ERROR_TYPE_WARNING,
- _ ("Missing closing `%s' in option `%s'\n"),
- "}",
- orig);
- return orig;
- default:
- break;
- }
- }
- erased_char = *end;
- erased_pos = end;
- *end = '\0';
- post = end + 1;
- def = strchr (orig, ':');
- if (NULL != def)
- {
- *def = '\0';
- def++;
- if (('-' == *def) || ('=' == *def))
- def++;
- def = GNUNET_strdup (def);
- }
- }
- else
- {
- int i;
- start = &orig[1];
- def = NULL;
- i = 0;
- while ((orig[i] != '/') && (orig[i] != '\\') && (orig[i] != '\0') &&
- (orig[i] != ' '))
- i++;
- if (orig[i] == '\0')
- {
- post = "";
- }
- else
- {
- erased_char = orig[i];
- erased_pos = &orig[i];
- orig[i] = '\0';
- post = &orig[i + 1];
- }
- }
- LOG (GNUNET_ERROR_TYPE_DEBUG,
- "Split into `%s' and `%s' with default %s\n",
- start,
- post,
- def);
- if (GNUNET_OK !=
- GNUNET_CONFIGURATION_get_value_string (cfg, "PATHS", start, &prefix))
- {
- if (NULL == (env = getenv (start)))
- {
- /* try default */
- def = expand_dollar (cfg, def, depth + 1);
- env = def;
- }
- if (NULL == env)
- {
- start = GNUNET_strdup (start);
- if (erased_pos)
- *erased_pos = erased_char;
- LOG (GNUNET_ERROR_TYPE_WARNING,
- _ (
- "Failed to expand `%s' in `%s' as it is neither found in [PATHS] nor defined as an environmental variable\n"),
- start,
- orig);
- GNUNET_free (start);
- return orig;
- }
- prefix = GNUNET_strdup (env);
- }
- prefix = GNUNET_CONFIGURATION_expand_dollar (cfg, prefix);
- if ((erased_pos) && ('}' != erased_char))
- {
- len = strlen (prefix) + 1;
- prefix = GNUNET_realloc (prefix, len + 1);
- prefix[len - 1] = erased_char;
- prefix[len] = '\0';
- }
- result = GNUNET_malloc (strlen (prefix) + strlen (post) + 1);
- strcpy (result, prefix);
- strcat (result, post);
- GNUNET_free (def);
- GNUNET_free (prefix);
- GNUNET_free (orig);
- return result;
- }
- /**
- * Expand an expression of the form "$FOO/BAR" to "DIRECTORY/BAR"
- * where either in the "PATHS" section or the environtment "FOO" is
- * set to "DIRECTORY". We also support default expansion,
- * i.e. ${VARIABLE:-default} will expand to $VARIABLE if VARIABLE is
- * set in PATHS or the environment, and otherwise to "default". Note
- * that "default" itself can also be a $-expression, thus
- * "${VAR1:-{$VAR2}}" will expand to VAR1 and if that is not defined
- * to VAR2.
- *
- * @param cfg configuration to use for path expansion
- * @param orig string to $-expand (will be freed!). Note that multiple
- * $-expressions can be present in this string. They will all be
- * $-expanded.
- * @return $-expanded string
- */
- char *
- GNUNET_CONFIGURATION_expand_dollar (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- char *orig)
- {
- char *dup;
- size_t i;
- size_t len;
- for (i = 0; '\0' != orig[i]; i++)
- {
- if ('$' != orig[i])
- continue;
- dup = GNUNET_strdup (orig + i);
- dup = expand_dollar (cfg, dup, 0);
- GNUNET_assert (NULL != dup); /* make compiler happy */
- len = strlen (dup) + 1;
- orig = GNUNET_realloc (orig, i + len);
- GNUNET_memcpy (orig + i, dup, len);
- GNUNET_free (dup);
- }
- return orig;
- }
- /**
- * Get a configuration value that should be a string.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param value will be set to a freshly allocated configuration
- * value, or NULL if option is not specified
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_get_value_filename (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- char **value)
- {
- char *tmp;
- if (GNUNET_OK !=
- GNUNET_CONFIGURATION_get_value_string (cfg, section, option, &tmp))
- {
- LOG (GNUNET_ERROR_TYPE_DEBUG, "Failed to retrieve filename\n");
- *value = NULL;
- return GNUNET_SYSERR;
- }
- tmp = GNUNET_CONFIGURATION_expand_dollar (cfg, tmp);
- *value = GNUNET_STRINGS_filename_expand (tmp);
- GNUNET_free (tmp);
- if (*value == NULL)
- return GNUNET_SYSERR;
- return GNUNET_OK;
- }
- /**
- * Get a configuration value that should be in a set of
- * "YES" or "NO".
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @return #GNUNET_YES, #GNUNET_NO or #GNUNET_SYSERR
- */
- int
- GNUNET_CONFIGURATION_get_value_yesno (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option)
- {
- static const char *yesno[] = { "YES", "NO", NULL };
- const char *val;
- int ret;
- ret =
- GNUNET_CONFIGURATION_get_value_choice (cfg, section, option, yesno, &val);
- if (ret == GNUNET_SYSERR)
- return ret;
- if (val == yesno[0])
- return GNUNET_YES;
- return GNUNET_NO;
- }
- /**
- * Iterate over the set of filenames stored in a configuration value.
- *
- * @param cfg configuration to inspect
- * @param section section of interest
- * @param option option of interest
- * @param cb function to call on each filename
- * @param cb_cls closure for @a cb
- * @return number of filenames iterated over, -1 on error
- */
- int
- GNUNET_CONFIGURATION_iterate_value_filenames (
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- GNUNET_FileNameCallback cb,
- void *cb_cls)
- {
- char *list;
- char *pos;
- char *end;
- char old;
- int ret;
- if (GNUNET_OK !=
- GNUNET_CONFIGURATION_get_value_string (cfg, section, option, &list))
- return 0;
- GNUNET_assert (list != NULL);
- ret = 0;
- pos = list;
- while (1)
- {
- while (pos[0] == ' ')
- pos++;
- if (strlen (pos) == 0)
- break;
- end = pos + 1;
- while ((end[0] != ' ') && (end[0] != '\0'))
- {
- if (end[0] == '\\')
- {
- switch (end[1])
- {
- case '\\':
- case ' ':
- memmove (end, &end[1], strlen (&end[1]) + 1);
- case '\0':
- /* illegal, but just keep it */
- break;
- default:
- /* illegal, but just ignore that there was a '/' */
- break;
- }
- }
- end++;
- }
- old = end[0];
- end[0] = '\0';
- if (strlen (pos) > 0)
- {
- ret++;
- if ((cb != NULL) && (GNUNET_OK != cb (cb_cls, pos)))
- {
- ret = GNUNET_SYSERR;
- break;
- }
- }
- if (old == '\0')
- break;
- pos = end + 1;
- }
- GNUNET_free (list);
- return ret;
- }
- /**
- * FIXME.
- *
- * @param value FIXME
- * @return FIXME
- */
- static char *
- escape_name (const char *value)
- {
- char *escaped;
- const char *rpos;
- char *wpos;
- escaped = GNUNET_malloc (strlen (value) * 2 + 1);
- memset (escaped, 0, strlen (value) * 2 + 1);
- rpos = value;
- wpos = escaped;
- while (rpos[0] != '\0')
- {
- switch (rpos[0])
- {
- case '\\':
- case ' ':
- wpos[0] = '\\';
- wpos[1] = rpos[0];
- wpos += 2;
- break;
- default:
- wpos[0] = rpos[0];
- wpos++;
- }
- rpos++;
- }
- return escaped;
- }
- /**
- * FIXME.
- *
- * @param cls string we compare with (const char*)
- * @param fn filename we are currently looking at
- * @return #GNUNET_OK if the names do not match, #GNUNET_SYSERR if they do
- */
- static int
- test_match (void *cls, const char *fn)
- {
- const char *of = cls;
- return (0 == strcmp (of, fn)) ? GNUNET_SYSERR : GNUNET_OK;
- }
- /**
- * Append a filename to a configuration value that
- * represents a list of filenames
- *
- * @param cfg configuration to update
- * @param section section of interest
- * @param option option of interest
- * @param value filename to append
- * @return #GNUNET_OK on success,
- * #GNUNET_NO if the filename already in the list
- * #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_append_value_filename (
- struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- const char *value)
- {
- char *escaped;
- char *old;
- char *nw;
- if (GNUNET_SYSERR ==
- GNUNET_CONFIGURATION_iterate_value_filenames (cfg,
- section,
- option,
- &test_match,
- (void *) value))
- return GNUNET_NO; /* already exists */
- if (GNUNET_OK !=
- GNUNET_CONFIGURATION_get_value_string (cfg, section, option, &old))
- old = GNUNET_strdup ("");
- escaped = escape_name (value);
- nw = GNUNET_malloc (strlen (old) + strlen (escaped) + 2);
- strcpy (nw, old);
- if (strlen (old) > 0)
- strcat (nw, " ");
- strcat (nw, escaped);
- GNUNET_CONFIGURATION_set_value_string (cfg, section, option, nw);
- GNUNET_free (old);
- GNUNET_free (nw);
- GNUNET_free (escaped);
- return GNUNET_OK;
- }
- /**
- * Remove a filename from a configuration value that
- * represents a list of filenames
- *
- * @param cfg configuration to update
- * @param section section of interest
- * @param option option of interest
- * @param value filename to remove
- * @return #GNUNET_OK on success,
- * #GNUNET_NO if the filename is not in the list,
- * #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_remove_value_filename (
- struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *section,
- const char *option,
- const char *value)
- {
- char *list;
- char *pos;
- char *end;
- char *match;
- char old;
- if (GNUNET_OK !=
- GNUNET_CONFIGURATION_get_value_string (cfg, section, option, &list))
- return GNUNET_NO;
- match = escape_name (value);
- pos = list;
- while (1)
- {
- while (pos[0] == ' ')
- pos++;
- if (strlen (pos) == 0)
- break;
- end = pos + 1;
- while ((end[0] != ' ') && (end[0] != '\0'))
- {
- if (end[0] == '\\')
- {
- switch (end[1])
- {
- case '\\':
- case ' ':
- end++;
- break;
- case '\0':
- /* illegal, but just keep it */
- break;
- default:
- /* illegal, but just ignore that there was a '/' */
- break;
- }
- }
- end++;
- }
- old = end[0];
- end[0] = '\0';
- if (0 == strcmp (pos, match))
- {
- if (old != '\0')
- memmove (pos, &end[1], strlen (&end[1]) + 1);
- else
- {
- if (pos != list)
- pos[-1] = '\0';
- else
- pos[0] = '\0';
- }
- GNUNET_CONFIGURATION_set_value_string (cfg, section, option, list);
- GNUNET_free (list);
- GNUNET_free (match);
- return GNUNET_OK;
- }
- if (old == '\0')
- break;
- end[0] = old;
- pos = end + 1;
- }
- GNUNET_free (list);
- GNUNET_free (match);
- return GNUNET_NO;
- }
- /**
- * Wrapper around #GNUNET_CONFIGURATION_parse. Called on each
- * file in a directory, we trigger parsing on those files that
- * end with ".conf".
- *
- * @param cls the cfg
- * @param filename file to parse
- * @return #GNUNET_OK on success
- */
- static int
- parse_configuration_file (void *cls, const char *filename)
- {
- struct GNUNET_CONFIGURATION_Handle *cfg = cls;
- char *ext;
- int ret;
- /* Examine file extension */
- ext = strrchr (filename, '.');
- if ((NULL == ext) || (0 != strcmp (ext, ".conf")))
- {
- GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "Skipping file `%s'\n", filename);
- return GNUNET_OK;
- }
- ret = GNUNET_CONFIGURATION_parse (cfg, filename);
- return ret;
- }
- /**
- * Load default configuration. This function will parse the
- * defaults from the given defaults_d directory.
- *
- * @param cfg configuration to update
- * @param defaults_d directory with the defaults
- * @return #GNUNET_OK on success, #GNUNET_SYSERR on error
- */
- int
- GNUNET_CONFIGURATION_load_from (struct GNUNET_CONFIGURATION_Handle *cfg,
- const char *defaults_d)
- {
- if (GNUNET_SYSERR ==
- GNUNET_DISK_directory_scan (defaults_d, &parse_configuration_file, cfg))
- return GNUNET_SYSERR; /* no configuration at all found */
- return GNUNET_OK;
- }
- /**
- * Return GNUnet's default configuration. A new configuration is allocated
- * each time and it's up to the caller to destroy it when done. This function
- * returns GNUnet's configuration even when #GNUNET_OS_init has been called
- * with a value different from #GNUNET_OS_project_data_default.
- *
- * @return a freshly allocated configuration
- */
- struct GNUNET_CONFIGURATION_Handle *
- GNUNET_CONFIGURATION_default (void)
- {
- const struct GNUNET_OS_ProjectData *pd = GNUNET_OS_project_data_get ();
- const struct GNUNET_OS_ProjectData *dpd = GNUNET_OS_project_data_default ();
- GNUNET_OS_init (dpd);
- struct GNUNET_CONFIGURATION_Handle *cfg = GNUNET_CONFIGURATION_create ();
- const char *xdg = getenv ("XDG_CONFIG_HOME");
- char *cfgname = NULL;
- if (NULL != xdg)
- GNUNET_asprintf (&cfgname, "%s/%s", xdg, pd->config_file);
- else
- cfgname = GNUNET_strdup (pd->user_config_file);
- if (GNUNET_OK != GNUNET_CONFIGURATION_load (cfg, cfgname))
- {
- GNUNET_OS_init (pd);
- GNUNET_CONFIGURATION_destroy (cfg);
- GNUNET_free (cfgname);
- return NULL;
- }
- GNUNET_free (cfgname);
- GNUNET_OS_init (pd);
- return cfg;
- }
- /* end of configuration.c */
|