SummaryRefsLogTreeCommitDiffStats
path: root/src/utils.c
diff options
context:
space:
mode:
authoratsb <atsb@atsb>2020-04-22 20:31:34 +0200
committeratsb <atsb@atsb>2020-04-22 20:31:34 +0200
commit6360e88416763db759a8df2afab0b7ab0dfcb36e (patch)
tree9008b15f214aaa993f67fa4cd92f099b1bdc4a45 /src/utils.c
parentf22de155b8e75918c9030897a01e070a8af02661 (diff)
parent1eedf3b6d24f421ccdb8798b053ee718d1051651 (diff)
downloadmcron-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.c48
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);
-}