unwind-2.m

来自「GNU Octave is a high-level language, pri」· M 代码 · 共 14 行

global g = -1;
function f (x)
  global g;
  save_g = g;
  unwind_protect
    g = 0
    [1,2;x];
    g = 1
  unwind_protect_cleanup
    g = save_g
  end_unwind_protect
endfunction
f (3)