Mercurial > octave

view test/bug-61105/nested_test_1.m @ 30103:55eeb7f0850b stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
store parent name in function object when caching parents in scope (bug #61105) * symscope.h, symscope.cc (symbol_scope_rep::cache_parent_fcn_names): Also store parent function name in function object. * bug-61105/bug-61105.tst, bug-61105/nested_test_1.m, bug-61105/nested_test_2.m, bug-61105/nested_test_3.m: New test files. * test/bug-61105/module.mk: New file. * test/module.mk: Update.
author John W. Eaton <jwe@octave.org>
date Wed, 01 Sep 2021 16:19:09 -0400
parents
children
line wrap: on
line source

function r = nested_test_1 (val)
  a = 3;
  b = 5;
  c = 7;
  function r = f1 (f, x)
    r = f(x) + a;
  endfunction
  function r = f2 (y)
    function r2 = f3 (z)
      r2 = z^2 + b*y;
    endfunction
    r = f1 (@f3, y) + c;
  endfunction
  r = f2 (val);
endfunction