# HG changeset patch # User Rik # Date 1403733996 25200 # Node ID 6825522c25e4ccd3d89cf4f7bb966b99012a4454 # Parent da6ffbf75edf48bd08825c4c7d6c43ab68dec901 maint: Use names beginning and ending with "__" for internal only functions. * cellfun.cc (Fcellfun): Use "__cellfun_fcn__". * cellfun.cc (Farrayfun): Use "__arrayfun_fcn__". * quad.cc (Fquad): Use "__quad_fcn__". * __eigs__.cc (F__eigs__): Use "__eigs_fcn__". diff -r da6ffbf75edf -r 6825522c25e4 libinterp/corefcn/cellfun.cc --- a/libinterp/corefcn/cellfun.cc Wed Jun 25 14:48:39 2014 -0700 +++ b/libinterp/corefcn/cellfun.cc Wed Jun 25 15:06:36 2014 -0700 @@ -440,7 +440,7 @@ if (! valid_identifier (name)) { - std::string fcn_name = unique_symbol_name ("__cellfun_fcn_"); + std::string fcn_name = unique_symbol_name ("__cellfun_fcn__"); std::string fname = "function y = " + fcn_name + "(x) y = "; octave_function *ptr_func @@ -1193,7 +1193,7 @@ if (! valid_identifier (name)) { - std::string fcn_name = unique_symbol_name ("__arrayfun_fcn_"); + std::string fcn_name = unique_symbol_name ("__arrayfun_fcn__"); std::string fname = "function y = " + fcn_name + "(x) y = "; octave_function *ptr_func diff -r da6ffbf75edf -r 6825522c25e4 libinterp/corefcn/quad.cc --- a/libinterp/corefcn/quad.cc Wed Jun 25 14:48:39 2014 -0700 +++ b/libinterp/corefcn/quad.cc Wed Jun 25 15:06:36 2014 -0700 @@ -235,7 +235,7 @@ quad_fcn = args(0).function_value (); else { - fcn_name = unique_symbol_name ("__quad_fcn_"); + fcn_name = unique_symbol_name ("__quad_fcn__"); std::string fname = "function y = "; fname.append (fcn_name); fname.append ("(x) y = "); diff -r da6ffbf75edf -r 6825522c25e4 libinterp/dldfcn/__eigs__.cc --- a/libinterp/dldfcn/__eigs__.cc Wed Jun 25 14:48:39 2014 -0700 +++ b/libinterp/dldfcn/__eigs__.cc Wed Jun 25 15:06:36 2014 -0700 @@ -211,7 +211,7 @@ { std::string name = args(0).string_value (); std::string fname = "function y = "; - fcn_name = unique_symbol_name ("__eigs_fcn_"); + fcn_name = unique_symbol_name ("__eigs_fcn__"); fname.append (fcn_name); fname.append ("(x) y = "); eigs_fcn = extract_function (args(0), "eigs", fcn_name, fname,