/* Copyright (c) 1996-2009 by John W. Eaton.
Copyright (c) 2003 by Paul Kienzle.
- Copyright (c) 2010-201
2 by Albert Graef.
+ Copyright (c) 2010-201 by Albert Graef.
This file is part of pure-octave.
void octave_init(int argc, char *argv)
+ // octave_main() segfaults when called a second time, so let's at least
+ // try to terminate gracefully here.
+ fprintf(stderr, "error: octave_init called twice, exiting\n");
+ // Octave 3.8 doesn't expose do_octave_atexit() any more, so we call
+ // clean_up_and_exit() instead, and prevent Octave from exiting the
+ clean_up_and_exit(0, true);
static void install_builtins()
+ install_builtin_function(Fpure_call, "pure_call", "embed.cc", PURE_HELP);
install_builtin_function(Fpure_call, "pure_call", PURE_HELP);