Mercurial > octave
view examples/code/oct_demo.cc @ 31248:8b75954a4670
delaunayn: adjust node ordering for positive outward normal vectors (bug #53397)
* delaunayn.m: Check sign of simplex volume, flip node order for negative
volumes to ensure positive (outward-pointing) normal vectors. Add BISTs to
check for positive volumes.
* etc/News.8.md: Append function improvement note to delaunayn change
paragraph under General Improvements.
author | Nicholas R. Jankowski <jankowski.nicholas@gmail.com> |
---|---|
date | Thu, 29 Sep 2022 23:09:05 -0400 |
parents | 22ee68edcf3a |
children |
line wrap: on
line source
// oct_demo.cc -- example of a dynamically linked function for Octave. // To compile this file, type the command // // mkoctfile oct_demo.cc // // from within Octave or from the shell prompt. This will create a file // called oct_demo.oct that can be loaded by Octave. To test the // oct_demo.oct file, start Octave and type the command // // oct_demo ("easy as", 1, 2, 3) // // at the Octave prompt. Octave should respond by printing // // Hello, world! // easy as // 1 // 2 // 3 // ans = 3 // Additional samples of real dynamically loaded functions are available in // the files of the libinterp/dldfcn directory of the Octave distribution. // See also the chapter External Code Interface in the documentation. #include <iostream> #include <octave/oct.h> // Every user function should include <octave/oct.h> which imports the // basic set of Octave header files required. In particular this will define // the DEFUN_DLD macro (defun-dld.h) which is used for every user function // that is visible to Octave. // The four arguments to the DEFUN_DLD macro are: // 1) The function name as seen in Octave. // 2) The variable to hold any inputs (of type octave_value_list) // 3) The number of output arguments // 4) A string to use as help text if 'help <function_name>' is entered. // // Note below that the third parameter (nargout) of DEFUN_DLD is not used. DEFUN_DLD (oct_demo, args, /* nargout */, "[...] = oct_demo (...)\n\ \n\ Print a greeting followed by the values of all input arguments.\n\ \n\ Return all arguments in reverse order.") { // The inputs to this are available in the variable named args. int nargin = args.length (); // The list of values to return. See the declaration in ovl.h. octave_value_list retval; // This stream is normally connected to the pager. octave_stdout << "Hello, world!\n"; // The octave_value_list class is a zero-based array of octave_value objects. // The declaration for the octave_value class is in the file ov.h. // The print() method will send its output to octave_stdout, // so it will also end up going through the pager. for (int i = 0; i < nargin; i++) { octave_value tmp = args(i); tmp.print (octave_stdout); retval(nargin-i-1) = tmp; } return retval; }