Mercurial > octave
view test/fcn-handle/shared_ctx.m @ 31195:776446acdc7b
pkg.m: Show URL of source tarball(s) in verbose mode.
* scripts/pkg/pkg.m: If downloading source tarballs with the "-forge" option,
show the URL where they are downloaded from if verbose mode is on.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Fri, 19 Aug 2022 08:54:05 +0200 |
parents | 8dd50efa3c47 |
children |
line wrap: on
line source
function [add, sub, mul, div] = shared_ctx (val) add = @add_fun; sub = @sub_fun; mul = @mul_fun; div = @div_fun; function r = add_fun (x) val += x; r = val; endfunction function r = sub_fun (x) val -= x; r = val; endfunction function r = mul_fun (x) val *= x; r = val; endfunction function r = div_fun (x) val /= x; r = val; endfunction endfunction