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

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

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

1. Дескриптор функции
2. Дескриптор анонимной функции
3. Строка

Приведенный ниже код демонстрирует все четыре метода передачи функции в файл 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, её следует очистить после использования. Кроме того, по соглашению все внутренние имена функций начинаются и заканчиваются последовательностью символов ‘__’.