diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-24 23:27:42 +0000 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-09-24 23:27:42 +0000 |
commit | 58f9d88fb8f444cf2eb95509a58cfec322786b2b (patch) | |
tree | 319acc54386747aa009f5d9f18a4e9b193179b15 /mixguile/mixguile.c | |
parent | 5c4491feaac8dc4344f301e8614a72f202f97624 (diff) | |
download | mdk-58f9d88fb8f444cf2eb95509a58cfec322786b2b.tar.gz mdk-58f9d88fb8f444cf2eb95509a58cfec322786b2b.tar.bz2 |
optionally load local startup file
Diffstat (limited to 'mixguile/mixguile.c')
-rw-r--r-- | mixguile/mixguile.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/mixguile/mixguile.c b/mixguile/mixguile.c index 4da3068..482832a 100644 --- a/mixguile/mixguile.c +++ b/mixguile/mixguile.c @@ -1,7 +1,7 @@ /* -*-c-*- -------------- mixguile.c : * Implementation of the functions declared in mixguile.h * ------------------------------------------------------------------ - * Last change: Time-stamp: "01/08/22 01:10:33 jao" + * $Id: mixguile.c,v 1.5 2001/09/24 23:27:42 jao Exp $ * ------------------------------------------------------------------ * Copyright (C) 2001 Free Software Foundation, Inc. * @@ -30,6 +30,7 @@ static mixguile_cmd_dispatcher_t *dispatcher_ = NULL; static mix_vm_cmd_dispatcher_t *vm_dispatcher_ = NULL; static main_func_t main_fun_; +static gboolean init_file_; /* do local initialisation and enter the user provided main */ @@ -49,11 +50,13 @@ real_main_ (int argc, char *argv[]) main function. */ void -mixguile_init (int argc, char *argv[], main_func_t main_fun, +mixguile_init (int argc, char *argv[], gboolean initfile, + main_func_t main_fun, mix_vm_cmd_dispatcher_t *dis) { main_fun_ = main_fun; vm_dispatcher_ = dis; + init_file_ = initfile; gh_enter (argc, argv, real_main_); } @@ -74,7 +77,7 @@ mixguile_load_bootstrap (void) else mixguile_interpret_file (scmfile); - if (!access (lscmfile, R_OK)) + if (init_file_ && !access (lscmfile, R_OK)) { mixguile_interpret_file (lscmfile); } |