Mercurial > hg > octave-lyh

comparison scripts/pkg/get_forge_pkg.m @ 11472:1740012184f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
author Rik <octave@nomad.inbox5.com>
date Sun, 09 Jan 2011 21:33:04 -0800
parents 2c356a35d7f5
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11471:994e2a93a8e2 11472:1740012184f9
28 if (nargin != 1) 28 if (nargin != 1)
29 print_usage (); 29 print_usage ();
30 endif 30 endif
31 ## Verify that name is valid. 31 ## Verify that name is valid.
32 if (! (ischar (name) && rows (name) == 1 && ndims (name) == 2)) 32 if (! (ischar (name) && rows (name) == 1 && ndims (name) == 2))
33 error ("get_forge_pkg: package name must be a string"); 33 error ("get_forge_pkg: package NAME must be a string");
34 elseif (! all (isalnum (name) | name == "-" | name == "." | name == "_")) 34 elseif (! all (isalnum (name) | name == "-" | name == "." | name == "_"))
35 error ("get_forge_pkg: invalid package name: %s", name); 35 error ("get_forge_pkg: invalid package name: %s", name);
36 endif 36 endif
37 37
38 name = tolower (name); 38 name = tolower (name);
64 [html, succ] = urlread ("http://octave.sourceforge.net/packages.php"); 64 [html, succ] = urlread ("http://octave.sourceforge.net/packages.php");
65 if (succ) 65 if (succ)
66 t = regexp (html, "<div class=""package"" id=""(\\w+)"">", "tokens"); 66 t = regexp (html, "<div class=""package"" id=""(\\w+)"">", "tokens");
67 t = horzcat (t{:}); 67 t = horzcat (t{:});
68 if (any (strcmp (t, name))) 68 if (any (strcmp (t, name)))
69 error ("get_forge_pkg: package name exists, but index page not available"); 69 error ("get_forge_pkg: package NAME exists, but index page not available");
70 else 70 else
71 ## Try a simplistic method to determine close names. 71 ## Try a simplistic method to determine close names.
72 dist = cellfun (@(n) length (setdiff (name, n)), t); 72 dist = cellfun (@(n) length (setdiff (name, n)), t);
73 [~, i] = min (dist); 73 [~, i] = min (dist);
74 error ("get_forge_pkg: package not found: ""%s"". Maybe you meant ""%s?""", name, t{i}); 74 error ("get_forge_pkg: package not found: ""%s"". Maybe you meant ""%s?""", name, t{i});