Mercurial > octave
view examples/code/embedded.cc @ 27693:de4bfeda8d9f
do not call main_loop in embedded interpreter (bug #57229)
* interpreter.cc (interpreter::execute): Do not call main_loop when
m_app_context is null.
* embedded.cc: Fix comment demonstrating interpreter::initialize.
author | Mike Miller <mtmiller@octave.org> |
---|---|
date | Thu, 14 Nov 2019 13:15:31 -0800 |
parents | 07c2c42f457e |
children | 66b52ae69d73 |
line wrap: on
line source
#include <iostream> #include <octave/oct.h> #include <octave/octave.h> #include <octave/parse.h> #include <octave/interpreter.h> int main (void) { // Create interpreter. octave::interpreter interpreter; try { // Inhibit reading history file by calling // // interpreter.initialize_history (false); // Set custom load path here if you wish by calling // // interpreter.initialize_load_path (false); // Perform final initialization of interpreter, including // executing commands from startup files by calling // // interpreter.initialize (); // // if (! interpreter.initialized ()) // { // std::cerr << "Octave interpreter initialization failed!" // << std::endl; // exit (status); // } // // You may skip this step if you don't need to do anything // between reading the startup files and telling the interpreter // that you are ready to execute commands. // Tell the interpreter that we're ready to execute commands: int status = interpreter.execute (); if (status != 0) { std::cerr << "creating embedded Octave interpreter failed!" << std::endl; return status; } octave_idx_type n = 2; octave_value_list in; for (octave_idx_type i = 0; i < n; i++) in(i) = octave_value (5 * (i + 2)); octave_value_list out = octave::feval ("gcd", in, 1); if (out.length () > 0) std::cout << "GCD of [" << in(0).int_value () << ", " << in(1).int_value () << "] is " << out(0).int_value () << std::endl; else std::cout << "invalid\n"; } catch (const octave::exit_exception& ex) { std::cerr << "Octave interpreter exited with status = " << ex.exit_status () << std::endl; } catch (const octave::execution_exception&) { std::cerr << "error encountered in Octave evaluator!" << std::endl; } return 0; }