dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mcron: Add forward declarations.

Browse source 
* mcron.c: Reorder function definitions sequentially.
This commit is contained in:
Mathieu Lirzin 2015-09-05 13:14:03 +02:00
commit ba6613fe96
1 changed files with 28 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

53
mcron.c
View file

@ -48,16 +48,30 @@
#include <signal.h> #include <signal.h>
#include <string.h> #include <string.h>
/* This is a function designed to be installed as a signal handler, for /* Forward declarations. */
signals which are supposed to initiate shutdown of this program. It calls void inner_main (void *closure, int argc, char **argv);
the scheme procedure (see mcron.scm for details) to do all the work, and void react_to_terminal_signal (int sig);
then exits. */ SCM set_cron_signals (void);
int
main (int argc, char **argv)
{
setenv ("GUILE_LOAD_PATH", GUILE_LOAD_PATH, 1);
scm_boot_guile (argc, argv, inner_main, 0);
return 0;
}
/* The effective main function (i.e. the one that actually does some work).
We register the function above with the guile system, and then execute the
mcron guile program. */
void void
react_to_terminal_signal (int sig) inner_main (void *closure, int argc, char **argv)
{ {
scm_c_eval_string ("(delete-run-file)"); scm_set_current_module (scm_c_resolve_module ("mcron main"));
exit (1); scm_c_define_gsubr ("c-set-cron-signals", 0, 0, 0, set_cron_signals);
scm_c_eval_string ("(main)");
} }
/* This is a function designed to be callable from scheme, and sets up all the /* This is a function designed to be callable from scheme, and sets up all the
@ -78,25 +92,14 @@ set_cron_signals ()
return SCM_BOOL_T; return SCM_BOOL_T;
} }
/* The effective main function (i.e. the one that actually does some work). /* This is a function designed to be installed as a signal handler, for
We register the function above with the guile system, and then execute the signals which are supposed to initiate shutdown of this program. It calls
mcron guile program. */ the scheme procedure (see mcron.scm for details) to do all the work, and
then exits. */
void void
inner_main (void *closure, int argc, char **argv) react_to_terminal_signal (int sig)
{ {
scm_set_current_module (scm_c_resolve_module ("mcron main")); scm_c_eval_string ("(delete-run-file)");
scm_c_define_gsubr ("c-set-cron-signals", 0, 0, 0, set_cron_signals); exit (1);
scm_c_eval_string ("(main)");
}
/* The real main function. Does nothing but start up the guile subsystem. */
int
main (int argc, char **argv)
{
setenv ("GUILE_LOAD_PATH", GUILE_LOAD_PATH, 1);
scm_boot_guile (argc, argv, inner_main, 0);
return 0;
} }