Mercurial > hg > octave-lyh

comparison scripts/pkg/private/get_forge_pkg.m @ 12561:0ade5992e374

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add documentation for '-forge' option (bug #32464).
author Rik <octave@nomad.inbox5.com>
date Thu, 31 Mar 2011 20:57:37 -0700
parents scripts/pkg/get_forge_pkg.m@46b3883d800c
children d0b799dafede
comparison
equal deleted inserted replaced
12560:d6ad4ed57dda 12561:0ade5992e374
1 ## Copyright (C) 2010-2011 VZLU Prague, a.s.
2 ##
3 ## This file is part of Octave.
4 ##
5 ## Octave is free software; you can redistribute it and/or modify it
6 ## under the terms of the GNU General Public License as published by
7 ## the Free Software Foundation; either version 3 of the License, or (at
8 ## your option) any later version.
9 ##
10 ## Octave is distributed in the hope that it will be useful, but
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ## General Public License for more details.
14 ##
15 ## You should have received a copy of the GNU General Public License
16 ## along with Octave; see the file COPYING. If not, see
17 ## <http://www.gnu.org/licenses/>.
18
19 ## -*- texinfo -*-
20 ## @deftypefn {Function File} {[@var{ver}, @var{url}] =} get_forge_pkg (@var{name})
21 ## Tries to discover the current version of an OctaveForge package from the web,
22 ## using a working internet connection and the urlread function.
23 ## If two output arguments are requested, returns also an address to download
24 ## the file.
25 ## @end deftypefn
26
27 function [ver, url] = get_forge_pkg (name)
28 if (nargin != 1)
29 print_usage ();
30 endif
31 ## Verify that name is valid.
32 if (! (ischar (name) && rows (name) == 1 && ndims (name) == 2))
33 error ("get_forge_pkg: package NAME must be a string");
34 elseif (! all (isalnum (name) | name == "-" | name == "." | name == "_"))
35 error ("get_forge_pkg: invalid package name: %s", name);
36 endif
37
38 name = tolower (name);
39
40 ## Try to download package's index page.
41 [html, succ] = urlread (sprintf ("http://octave.sourceforge.net/%s/index.html", name));
42 if (succ)
43 ## Remove blanks for simpler matching.
44 html(isspace(html)) = [];
45 ## Good. Let's grep for the version.
46 pat = "<tdclass=""package_table"">PackageVersion:</td><td>([\\d.]*)</td>";
47 t = regexp (html, pat, "tokens");
48 if (isempty (t) || isempty(t{1}))
49 error ("get_forge_pkg: could not read version number from package's page");
50 else
51 ver = t{1}{1};
52 if (nargout > 1)
53 # Build download string.
54 urlbase = "http://downloads.sourceforge.net/octave/%s-%s.tar.gz?download";
55 url = sprintf (urlbase, name, ver);
56 ## Verify that the string exists on the page.
57 if (isempty (strfind (html, url)))
58 warning ("get_forge_pkg: download URL not verified");
59 endif
60 endif
61 endif
62 else
63 ## Try get the list of all packages.
64 [html, succ] = urlread ("http://octave.sourceforge.net/packages.php");
65 if (succ)
66 t = regexp (html, "<div class=""package"" id=""(\\w+)"">", "tokens");
67 t = horzcat (t{:});
68 if (any (strcmp (t, name)))
69 error ("get_forge_pkg: package NAME exists, but index page not available");
70 else
71 ## Try a simplistic method to determine close names.
72 dist = cellfun (@(n) length (setdiff (name, n)), t);
73 [~, i] = min (dist);
74 error ("get_forge_pkg: package not found: ""%s"". Maybe you meant ""%s?""", name, t{i});
75 endif
76 else
77 error ("get_forge_pkg: could not read URL, please verify internet connection");
78 endif
79 endif
80
81 endfunction