diff options
author | atsb <atsb@atsb> | 2020-04-22 20:31:34 +0200 |
---|---|---|
committer | atsb <atsb@atsb> | 2020-04-22 20:31:34 +0200 |
commit | 6360e88416763db759a8df2afab0b7ab0dfcb36e (patch) | |
tree | 9008b15f214aaa993f67fa4cd92f099b1bdc4a45 /src/utils.c | |
parent | f22de155b8e75918c9030897a01e070a8af02661 (diff) | |
parent | 1eedf3b6d24f421ccdb8798b053ee718d1051651 (diff) | |
download | mcron-6360e88416763db759a8df2afab0b7ab0dfcb36e.tar.gz mcron-6360e88416763db759a8df2afab0b7ab0dfcb36e.tar.bz2 mcron-6360e88416763db759a8df2afab0b7ab0dfcb36e.zip |
merge from dm-v1.2.0 part 1
Diffstat (limited to 'src/utils.c')
-rw-r--r-- | src/utils.c | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/src/utils.c b/src/utils.c deleted file mode 100644 index 00a4150..0000000 --- a/src/utils.c +++ /dev/null @@ -1,48 +0,0 @@ -/* utils.c -- Utility functions. - Copyright © 2017 Mathieu Lirzin <mthl@gnu.org> - - This file is part of GNU Mcron. - - GNU Mcron 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 3 of the License, or - (at your option) any later version. - - GNU Mcron 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 GNU Mcron. If not, see <http://www.gnu.org/licenses/>. */ - -#include "utils.h" -#include <stdbool.h> -#include <stdio.h> - -void -wrap_env_path (const char *envar, const char *dir) -{ - const char *path = getenv (envar); - if (path == NULL) - setenv (envar, dir, true); - else - { - char *new_path; - int ret = asprintf (&new_path, "%s:%s", dir, path); - if (ret >= 0) - setenv (envar, new_path, true); - else - { - perror (envar); - exit (EXIT_FAILURE); - } - free (new_path); - } -} - -void -assq_symbol_set_x (SCM *alst, const char *symbol, SCM val) -{ - *alst = scm_assq_set_x (*alst, scm_from_utf8_symbol (symbol), val); -} |