A.1.8 Вызов функций Octave из файлов Oct

Часто возникает необходимость вызова другой функции Octave изнутри файла oct, и есть много примеров такого вызова в самом Octave. Например, функция quad – это файл oct, вычисляющий определённый интеграл методом квадратур по предоставленной пользователем функции.

Существует также множество способов передачи функции в качестве входного параметра. Она может передаваться в качестве:

1. Обработчика функций (Function Handle)
2. Обработчика анонимных функций (Anonymous Function Handle)
3. Строки (String)

Ниже представлен код, демонстрирующий все четыре способа передачи функции в файл oct.

#include <octave/oct.h>
#include <octave/parse.h>

DEFMETHOD_DLD (funcdemo, interp, args, nargout, "Function Demo")
{
  int nargin = args.length ();

  if (nargin < 2)
    print_usage ();

  octave_value_list newargs;

  for (octave_idx_type i = nargin - 1; i > 0; i--)
    newargs(i-1) = args(i);

  octave_value_list retval;

  if (args(0).is_function_handle () || args(0).is_inline_function ()
      || args(0).is_string ())
    retval = interp.feval (args(0), newargs, nargout);
  else
    error ("funcdemo: INPUT must be string, inline, or function handle");

  return retval;
}

Первый входной параметр демонстрационного кода — это функция, заданная пользователем, а оставшиеся аргументы передаются в эту функцию.

funcdemo (@sin, 1)
⇒ 0.84147
funcdemo (@(x) sin (x), 1)
⇒ 0.84147
funcdemo ("sin", 1)
⇒ 0.84147
funcdemo (@atan2, 1, 1)
⇒ 0.78540

Когда пользовательская функция передаётся в виде строки, обработка функции отличается. В некоторых случаях требуется, чтобы пользовательская функция была объектом octave_function. В этом случае строковый аргумент может использоваться для создания временной функции, как показано ниже.

std::octave fcn_name = unique_symbol_name ("__fcn__");
std::string fcode = "function y = ";
fcode.append (fcn_name);
fcode.append ("(x) y = ");
fcn = extract_function (args(0), "funcdemo", fcn_name,
                        fcode, "; endfunction");
…
if (fcn_name.length ())
  clear_function (fcn_name);

В этом случае важно знать две вещи. Во-первых, количество входных аргументов пользовательской функции фиксировано, и в приведённом примере оно равно одному аргументу. Во-вторых, чтобы не оставлять временную функцию в таблице символов Octave, её необходимо очистить после использования. Кроме того, по соглашению все имена внутренних функций начинаются и заканчиваются последовательностью символов «__».