Mercurial > hg > octave-nkf

comparison scripts/pkg/private/get_forge_pkg.m @ 17176:abf384f5d243

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Remove unneeded input validation from internal fcns in private/ directories. * scripts/general/private/__isequal__.m, scripts/general/private/__splinen__.m, scripts/image/private/__imwrite__.m, scripts/image/private/ind2x.m, scripts/miscellaneous/private/__xzip__.m, scripts/miscellaneous/private/display_info_file.m, scripts/pkg/private/describe.m, scripts/pkg/private/get_forge_pkg.m, scripts/pkg/private/unload_packages.m, scripts/plot/private/__actual_axis_position__.m, scripts/plot/private/__add_datasource__.m, scripts/plot/private/__clabel__.m, scripts/plot/private/__errcomm__.m, scripts/plot/private/__errplot__.m, scripts/plot/private/__fltk_print__.m, scripts/plot/private/__gnuplot_get_var__.m, scripts/plot/private/__go_draw_axes__.m, scripts/plot/private/__go_draw_figure__.m, scripts/plot/private/__interp_cube__.m, scripts/plot/private/__line__.m, scripts/plot/private/__next_line_color__.m, scripts/plot/private/__next_line_style__.m, scripts/plot/private/__plt__.m, scripts/plot/private/__pltopt__.m, scripts/signal/private/rectangle_lw.m, scripts/signal/private/rectangle_sw.m, scripts/signal/private/triangle_lw.m, scripts/signal/private/triangle_sw.m, scripts/sparse/private/__sprand_impl__.m, scripts/statistics/models/private/logistic_regression_derivatives.m, scripts/statistics/models/private/logistic_regression_likelihood.m: Remove unneeded input validation from internal fcns in private/ directories.
author Rik <rik@octave.org>
date Sun, 04 Aug 2013 18:13:08 -0700
parents 333243133364
children b81b9d079515
comparison
equal deleted inserted replaced
17175:4bb7ae321901 17176:abf384f5d243
24 ## If two output arguments are requested, also return an address from which 24 ## If two output arguments are requested, also return an address from which
25 ## to download the file. 25 ## to download the file.
26 ## @end deftypefn 26 ## @end deftypefn
27 27
28 function [ver, url] = get_forge_pkg (name) 28 function [ver, url] = get_forge_pkg (name)
29 if (nargin != 1) 29
30 print_usage ();
31 endif
32 ## Verify that name is valid. 30 ## Verify that name is valid.
33 if (! (ischar (name) && rows (name) == 1 && ndims (name) == 2)) 31 if (! (ischar (name) && rows (name) == 1 && ndims (name) == 2))
34 error ("get_forge_pkg: package NAME must be a string"); 32 error ("get_forge_pkg: package NAME must be a string");
35 elseif (! all (isalnum (name) | name == "-" | name == "." | name == "_")) 33 elseif (! all (isalnum (name) | name == "-" | name == "." | name == "_"))
36 error ("get_forge_pkg: invalid package name: %s", name); 34 error ("get_forge_pkg: invalid package name: %s", name);