Mercurial > hg > octave-lojdl
changeset 8097:804c60f92fb1
Add explanationation of initializing the interpreter in a standalone program
author | David Bateman <dbateman@free.fr> |
---|---|
date | Tue, 09 Sep 2008 13:43:42 -0400 |
parents | 01f60e8d6ae9 |
children | 229bd50e6e8f |
files | doc/interpreter/dynamic.txi examples/Makefile.in examples/embedded.cc examples/standalone.cc |
diffstat | 4 files changed, 87 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/interpreter/dynamic.txi +++ b/doc/interpreter/dynamic.txi @@ -1621,28 +1621,7 @@ following C++ program, uses class Matrix from liboctave.a or liboctave.so. -@example -@group -#include <iostream> -#include <octave/oct.h> -int -main (void) -@{ - std::cout << "Hello Octave world!\n"; - int n = 2; - Matrix a_matrix = Matrix (n, n); - for (octave_idx_type i = 0; i < n; i++) - @{ - for (octave_idx_type j = 0; j < n; j++) - @{ - a_matrix (i, j) = (i + 1) * 10 + (j + 1); - @} - @} - std::cout << a_matrix; - return 0; -@} -@end group -@end example +@examplefile{standalone.cc} @noindent mkoctfile can then be used to build a standalone application with a @@ -1650,8 +1629,8 @@ @example @group -$ mkoctfile --link-stand-alone hello.cc -o hello -$ ./hello +$ mkoctfile --link-stand-alone standalone.cc -o standalone +$ ./standalone Hello Octave world! 11 12 21 22 @@ -1660,4 +1639,24 @@ @end example Note that the application @code{hello} will be dynamically linked -against the octave libraries and any octave support libraries. +against the octave libraries and any octave support libraries. The above +allows the Octave math libraries to be used by an application. It does +not however allow the script files, oct-files or builtin functions of +Octave to be used by the application. To do that the Octave interpreter +needs to be initialized first. An example of how to do this can then be +seen in the code + +@examplefile{embedded.cc} + +@noindent +which is compiled and run as before as a standalone application with + +@example +@group +$ mkoctfile --link-stand-alone embedded.cc -o embedded +$ ./embedded +GCD of [10, 15] is 5 +$ +@end group +@end example +
--- a/examples/Makefile.in +++ b/examples/Makefile.in @@ -39,6 +39,7 @@ SOURCES = \ addtwomatrices.cc \ celldemo.cc \ + embedded.cc \ firstmexdemo.c \ fortdemo.cc \ fortsub.f \ @@ -62,6 +63,7 @@ oregonator.cc \ oregonator.m \ paramdemo.cc \ + standalone.cc \ stringdemo.cc \ structdemo.cc \ unwinddemo.cc
new file mode 100644 --- /dev/null +++ b/examples/embedded.cc @@ -0,0 +1,43 @@ +#include <iostream> +#include <octave/oct.h> +#include <octave/octave.h> +#include <octave/parse.h> +int +main (void) +{ + string_vector argv (2); + argv(0) = "embedded"; + argv(1) = "-q"; + + octave_main (2, argv.c_str_vec(), 1); + + octave_idx_type n = 2; + Matrix a_matrix = Matrix (1, 2); + + std::cout << "GCD of ["; + for (octave_idx_type i = 0; i < n; i++) + { + a_matrix (i) = 5 * (i + 1); + if (i != 0) + std::cout << ", " << 5 * (i + 2); + else + std::cout << 5 * (i + 2); + } + std::cout << "] is "; + + octave_value_list in = octave_value (a_matrix); + octave_value_list out = feval ("gcd", in, 1); + + if (!error_state && out.length () > 0) + { + a_matrix = out(0).matrix_value (); + if (a_matrix.numel () == 1) + std::cout << a_matrix(0) << "\n"; + else + std::cout << "invalid\n"; + } + else + std::cout << "invalid\n"; + + return 0; +}
new file mode 100644 --- /dev/null +++ b/examples/standalone.cc @@ -0,0 +1,18 @@ +#include <iostream> +#include <octave/oct.h> +int +main (void) +{ + std::cout << "Hello Octave world!\n"; + int n = 2; + Matrix a_matrix = Matrix (n, n); + for (octave_idx_type i = 0; i < n; i++) + { + for (octave_idx_type j = 0; j < n; j++) + { + a_matrix (i, j) = (i + 1) * 10 + (j + 1); + } + } + std::cout << a_matrix; + return 0; +}