From c01106387f6d0866ef6fd4801473984cc642e60b Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Tue, 25 Apr 2017 00:29:32 +0200 Subject: Replace generic C wrapper with individual programs * src/wrapper.c: Delete. * src/crontab.c: New file. * src/mcron.c: Likewise. * src/cron.c: Likewise. * configure.ac: Adapt 'AC_CONFIG_DIR' to use "src/mcron.c". * Makefile.am (bin_crontab_SOURCES, bin_cron_SOURCES) (bin_mcron_SOURCES): Use new files. (bin_cron_CPPFLAGS, bin_mcron_CPPFLAGS, bin_crontab_CPPFLAGS): Delete. --- src/crontab.c | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 src/crontab.c (limited to 'src/crontab.c') diff --git a/src/crontab.c b/src/crontab.c new file mode 100644 index 0000000..a432f1d --- /dev/null +++ b/src/crontab.c @@ -0,0 +1,49 @@ +/* crontab.c -- edit users' crontab files + Copyright © 2003, 2014 Dale Mellor + Copyright © 2015, 2016, 2017 Mathieu Lirzin + + 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 . */ + +#include "utils.h" +#include + +/* Forward declarations. */ +static void inner_main (void *closure, int argc, char *argv[]); + +int +main (int argc, char *argv[]) +{ + /* Set Guile load paths to ensure that Mcron modules will be found after + installation. In a build environment let the 'pre-inst-env' script set + the correct paths. */ + if (getenv ("MCRON_UNINSTALLED") == NULL) + { + wrap_env_path ("GUILE_LOAD_PATH", PACKAGE_LOAD_PATH); + wrap_env_path ("GUILE_LOAD_COMPILED_PATH", PACKAGE_LOAD_COMPILED_PATH); + } + + scm_boot_guile (argc, argv, inner_main, NULL); + + return EXIT_SUCCESS; +} + +/* Launch the Mcron Guile main program. */ +static void +inner_main (void *closure, int argc, char *argv[]) +{ + scm_set_current_module (scm_c_resolve_module ("mcron scripts crontab")); + scm_call_0 (scm_variable_ref (scm_c_lookup ("main"))); +} -- cgit v1.2.3