Mercurial > octave-nkf
diff scripts/pkg/pkg.m @ 19630:0e1f5a750d00
maint: Periodic merge of gui-release to default.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 20 Jan 2015 10:24:46 -0500 |
parents | 8a8a7bc2a09d be7ac98fab43 |
children | db92e7e28e1f |
line wrap: on
line diff
--- a/scripts/pkg/pkg.m Tue Jan 20 09:55:41 2015 -0500 +++ b/scripts/pkg/pkg.m Tue Jan 20 10:24:46 2015 -0500 @@ -153,7 +153,7 @@ ## @end example ## ## The @qcode{"-forge"} option lists packages available at the Octave-Forge -## repository. This requires an internet connection and the cURL library. +## repository. This requires an internet connection and the cURL library. ## For example: ## ## @example @@ -456,7 +456,7 @@ else error ("you must specify a prefix directory, or request an output argument"); endif - + case "local_list" if (isempty (files) && nargout == 0) disp (local_list); @@ -464,7 +464,7 @@ local_packages = local_list; elseif (numel (files) == 1 && nargout == 0 && ischar (files{1})) local_list = files{1}; - if (! exist (local_list, "file")) + if (! exist (local_list, "file")) try ## Force file to be created fclose (fopen (local_list, "wt")); @@ -484,7 +484,7 @@ local_packages = global_list; elseif (numel (files) == 1 && nargout == 0 && ischar (files{1})) global_list = files{1}; - if (! exist (global_list, "file")) + if (! exist (global_list, "file")) try ## Force file to be created fclose (fopen (files{1}, "wt")); @@ -546,7 +546,7 @@ if (nargout == 0) installed_pkgs_lst = installed_packages (local_list, global_list); if (numel (files) > 0) - update_lst = {}; + update_lst = {}; installed_names = {installed_pkgs_list.name}'; for i = 1:numel (files) idx = find (strcmp (files{i}, installed_names), 1);