/usr/share/doc/octave3.2-headers/examples/funcdemo.cc is in octave3.2-headers 3.2.4-12.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | #include <octave/oct.h>
#include <octave/parse.h>
DEFUN_DLD (funcdemo, args, nargout, "Function Demo")
{
int nargin = args.length();
octave_value_list retval;
if (nargin < 2)
print_usage ();
else
{
octave_value_list newargs;
for (octave_idx_type i = nargin - 1; i > 0; i--)
newargs (i - 1) = args(i);
if (args(0).is_function_handle ()
|| args(0).is_inline_function ())
{
octave_function *fcn = args(0).function_value ();
if (! error_state)
retval = feval (fcn, newargs, nargout);
}
else if (args(0).is_string ())
{
std::string fcn = args (0).string_value ();
if (! error_state)
retval = feval (fcn, newargs, nargout);
}
else
error ("funcdemo: expected string,",
" inline or function handle");
}
return retval;
}
|