octave-lyh: scripts/pkg/pkg.m annotate

annotate scripts/pkg/pkg.m @ 14472:045a5b85495d

maint: Remove redundant private function from the package manager. * scripts/pkg/private/issuperuser.m: remove file. * scripts/pkg/pkg.m: remove call to issuperuser. * scripts/pkg/private/getarchprefix.m: remove call to issuperuser. * scripts/pkg/private/create_pkgaddel.m: remove call to issuperuser.

author	Carlo de Falco <kingcrimson@tiscali.it>
date	Fri, 16 Mar 2012 21:14:49 +0100
parents	d2c095e45196
children	7371e127c351

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 14010 diff changeset	1 ## Copyright (C) 2005-2012 S�ren Hauberg
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	2 ## Copyright (C) 2010 VZLU Prague, a.s.
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: 14446 diff changeset	3 ## Copyright (C) 2012 Carlo de Falco
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	4 ##
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	5 ## This file is part of Octave.
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	6 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	7 ## Octave is free software; you can redistribute it and/or modify it
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	8 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6950 diff changeset	9 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6950 diff changeset	10 ## your option) any later version.
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	11 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	12 ## Octave is distributed in the hope that it will be useful, but
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	13 ## WITHOUT ANY WARRANTY; without even the implied warranty of
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	14 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	15 ## General Public License for more details.
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6378 diff changeset	16 ##
5801 70013c9f3ccc [project @ 2006-05-10 16:53:03 by jwe] jwe parents: diff changeset	17 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6950 diff changeset	18 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6950 diff changeset	19 ## <http://www.gnu.org/licenses/>.
5801 70013c9f3ccc [project @ 2006-05-10 16:53:03 by jwe] jwe parents: diff changeset	20
70013c9f3ccc [project @ 2006-05-10 16:53:03 by jwe] jwe parents: diff changeset	21 ## -- texinfo --
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	22 ## @deftypefn {Command} {} pkg @var{command} @var{pkg_name}
e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	23 ## @deftypefnx {Command} {} pkg @var{command} @var{option} @var{pkg_name}
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	24 ## Manage packages (groups of add-on functions) for Octave. Different actions
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 12931 diff changeset	25 ## are available depending on the value of @var{command}.
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	26 ##
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	27 ## Available commands:
6032 dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	28 ##
dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	29 ## @table @samp
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	30 ##
6032 dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	31 ## @item install
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	32 ## Install named packages. For example,
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	33 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	34 ## @example
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	35 ## pkg install image-1.0.0.tar.gz
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	36 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	37 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	38 ## @noindent
9307 c2923c27c877 Various documentation improvements Rik <rdrider0-list@yahoo.com> parents: 9258 diff changeset	39 ## installs the package found in the file @file{image-1.0.0.tar.gz}.
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	40 ##
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	41 ## The @var{option} variable can contain options that affect the manner
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	42 ## in which a package is installed. These options can be one or more of
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	43 ##
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	44 ## @table @code
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	45 ## @item -nodeps
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	46 ## The package manager will disable dependency checking. With this option it
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	47 ## is possible to install a package even when it depends on another package
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	48 ## which is not installed on the system. @strong{Use this option with care.}
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	49 ##
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	50 ## @item -noauto
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	51 ## The package manager will not automatically load the installed package
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	52 ## when starting Octave. This overrides any setting within the package.
6258 ea3a7e8469e9 [project @ 2007-01-30 20:17:19 by dbateman] dbateman parents: 6254 diff changeset	53 ##
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	54 ## @item -auto
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	55 ## The package manager will automatically load the installed package when
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	56 ## starting Octave. This overrides any setting within the package.
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	57 ##
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	58 ## @item -local
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 12931 diff changeset	59 ## A local installation (package available only to current user) is forced,
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	60 ## even if the user has system privileges.
6258 ea3a7e8469e9 [project @ 2007-01-30 20:17:19 by dbateman] dbateman parents: 6254 diff changeset	61 ##
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	62 ## @item -global
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	63 ## A global installation (package available to all users) is forced, even if
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	64 ## the user doesn't normally have system privileges.
12642 f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 12561 diff changeset	65 ##
12561 0ade5992e374 Add documentation for '-forge' option (bug #32464). Rik <octave@nomad.inbox5.com> parents: 12167 diff changeset	66 ## @item -forge
0ade5992e374 Add documentation for '-forge' option (bug #32464). Rik <octave@nomad.inbox5.com> parents: 12167 diff changeset	67 ## Install a package directly from the Octave-Forge repository. This
0ade5992e374 Add documentation for '-forge' option (bug #32464). Rik <octave@nomad.inbox5.com> parents: 12167 diff changeset	68 ## requires an internet connection and the cURL library.
6614 3a53d0f3e0e4 [project @ 2007-05-12 05:50:03 by dbateman] dbateman parents: 6500 diff changeset	69 ##
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	70 ## @item -verbose
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	71 ## The package manager will print the output of all commands as
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	72 ## they are performed.
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	73 ## @end table
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	74 ##
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	75 ## @item update
13931 9de488c6c59c doc: Spellcheck documentation before 3.6.0 release Rik <octave@nomad.inbox5.com> parents: 13864 diff changeset	76 ## Check installed Octave-Forge packages against repository and update any
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	77 ## outdated items. This requires an internet connection and the cURL library.
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	78 ## Usage:
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	79 ##
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	80 ## @example
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	81 ## pkg update
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	82 ## @end example
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	83 ##
6032 dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	84 ## @item uninstall
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	85 ## Uninstall named packages. For example,
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	86 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	87 ## @example
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	88 ## pkg uninstall image
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	89 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	90 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	91 ## @noindent
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	92 ## removes the @code{image} package from the system. If another installed
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	93 ## package depends on the @code{image} package an error will be issued.
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10685 diff changeset	94 ## The package can be uninstalled anyway by using the @option{-nodeps} option.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	95 ##
6032 dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	96 ## @item load
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	97 ## Add named packages to the path. After loading a package it is
1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	98 ## possible to use the functions provided by the package. For example,
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	99 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	100 ## @example
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	101 ## pkg load image
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	102 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	103 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	104 ## @noindent
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	105 ## adds the @code{image} package to the path. It is possible to load all
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	106 ## installed packages at once with the keyword @samp{all}. Usage:
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	107 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	108 ## @example
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	109 ## pkg load all
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	110 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	111 ##
6203 512d72ee321f [project @ 2006-12-06 18:00:13 by jwe] jwe parents: 6189 diff changeset	112 ## @item unload
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	113 ## Remove named packages from the path. After unloading a package it is
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	114 ## no longer possible to use the functions provided by the package. It is
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	115 ## possible to unload all installed packages at once with the keyword
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	116 ## @samp{all}. Usage:
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	117 ##
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	118 ## @example
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	119 ## pkg unload all
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	120 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	121 ##
6032 dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	122 ## @item list
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	123 ## Show the list of currently installed packages. For example,
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	124 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	125 ## @example
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	126 ## installed_packages = pkg ("list")
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	127 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	128 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	129 ## @noindent
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	130 ## returns a cell array containing a structure for each installed package.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	131 ##
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	132 ## If two output arguments are requested @code{pkg} splits the list of
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	133 ## installed packages into those which were installed by the current user,
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	134 ## and those which were installed by the system administrator.
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 12931 diff changeset	135 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	136 ## @example
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	137 ## [user_packages, system_packages] = pkg ("list")
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	138 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	139 ##
14359 7277fe922e99 doc: Use Octave preference for double quote in docstrings in scripts/ Rik <octave@nomad.inbox5.com> parents: 14214 diff changeset	140 ## The option "-forge" lists packages available at the Octave-Forge repository.
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	141 ## This requires an internet connection and the cURL library. For example:
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	142 ##
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	143 ## @example
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	144 ## oct_forge_pkgs = pkg ("list", "-forge")
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	145 ## @end example
12561 0ade5992e374 Add documentation for '-forge' option (bug #32464). Rik <octave@nomad.inbox5.com> parents: 12167 diff changeset	146 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	147 ## @item describe
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	148 ## Show a short description of the named installed packages, with the option
14359 7277fe922e99 doc: Use Octave preference for double quote in docstrings in scripts/ Rik <octave@nomad.inbox5.com> parents: 14214 diff changeset	149 ## "-verbose" also list functions provided by the package. For example,
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	150 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	151 ## @example
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	152 ## pkg describe -verbose all
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	153 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	154 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	155 ## @noindent
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	156 ## will describe all installed packages and the functions they provide.
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	157 ## If one output is requested a cell of structure containing the
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	158 ## description and list of functions of each package is returned as
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	159 ## output rather than printed on screen:
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	160 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	161 ## @example
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	162 ## desc = pkg ("describe", "secs1d", "image")
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	163 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	164 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	165 ## @noindent
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	166 ## If any of the requested packages is not installed, pkg returns an
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	167 ## error, unless a second output is requested:
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	168 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	169 ## @example
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	170 ## [desc, flag] = pkg ("describe", "secs1d", "image")
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	171 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	172 ##
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	173 ## @noindent
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	174 ## @var{flag} will take one of the values "Not installed", "Loaded" or
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	175 ## "Not loaded" for each of the named packages.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	176 ##
6034 5cbbf96b52da [project @ 2006-10-04 18:45:43 by jwe] jwe parents: 6033 diff changeset	177 ## @item prefix
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	178 ## Set the installation prefix directory. For example,
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	179 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	180 ## @example
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	181 ## pkg prefix ~/my_octave_packages
df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	182 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	183 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	184 ## @noindent
9307 c2923c27c877 Various documentation improvements Rik <rdrider0-list@yahoo.com> parents: 9258 diff changeset	185 ## sets the installation prefix to @file{~/my_octave_packages}.
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	186 ## Packages will be installed in this directory.
6034 5cbbf96b52da [project @ 2006-10-04 18:45:43 by jwe] jwe parents: 6033 diff changeset	187 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	188 ## It is possible to get the current installation prefix by requesting an
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	189 ## output argument. For example:
693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	190 ##
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	191 ## @example
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	192 ## pfx = pkg ("prefix")
6070 df821c22355c [project @ 2006-10-23 19:01:04 by jwe] jwe parents: 6055 diff changeset	193 ## @end example
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	194 ##
1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	195 ## The location in which to install the architecture dependent files can be
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	196 ## independently specified with an addition argument. For example:
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	197 ##
1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	198 ## @example
9153 5247e89688e1 Eliminate most overfull errors when running texi2pdf for generating pdf documentation Rik <rdrider0-list@yahoo.com> parents: 9079 diff changeset	199 ## pkg prefix ~/my_octave_packages ~/my_arch_dep_pkgs
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	200 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	201 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	202 ## @item local_list
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	203 ## Set the file in which to look for information on locally
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	204 ## installed packages. Locally installed packages are those that are
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	205 ## available only to the current user. For example:
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	206 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	207 ## @example
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	208 ## pkg local_list ~/.octave_packages
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	209 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	210 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	211 ## It is possible to get the current value of local_list with the following
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	212 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	213 ## @example
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	214 ## pkg local_list
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	215 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	216 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	217 ## @item global_list
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	218 ## Set the file in which to look for information on globally
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	219 ## installed packages. Globally installed packages are those that are
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	220 ## available to all users. For example:
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	221 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	222 ## @example
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	223 ## pkg global_list /usr/share/octave/octave_packages
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	224 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	225 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	226 ## It is possible to get the current value of global_list with the following
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	227 ##
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	228 ## @example
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	229 ## pkg global_list
0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	230 ## @end example
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	231 ##
6675 f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	232 ## @item build
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	233 ## Build a binary form of a package or packages. The binary file produced
6675 f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	234 ## will itself be an Octave package that can be installed normally with
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8942 diff changeset	235 ## @code{pkg}. The form of the command to build a binary package is
6675 f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	236 ##
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	237 ## @example
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	238 ## pkg build builddir image-1.0.0.tar.gz @dots{}
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	239 ## @end example
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	240 ##
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	241 ## @noindent
9079 4d610aba7347 Cleanup documentation for system.texi, package.texi Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	242 ## where @code{builddir} is the name of a directory where the temporary
6675 f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	243 ## installation will be produced and the binary packages will be found.
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	244 ## The options @option{-verbose} and @option{-nodeps} are respected, while
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	245 ## all other options are ignored.
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	246 ##
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	247 ## @item rebuild
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	248 ## Rebuild the package database from the installed directories. This can
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	249 ## be used in cases where the package database has been corrupted.
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	250 ## It can also take the @option{-auto} and @option{-noauto} options to allow the
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	251 ## autoloading state of a package to be changed. For example,
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	252 ##
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	253 ## @example
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	254 ## pkg rebuild -noauto image
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	255 ## @end example
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	256 ##
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	257 ## @noindent
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	258 ## will remove the autoloading status of the image package.
095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	259 ##
6032 dcecca0396e6 [project @ 2006-10-04 17:35:15 by jwe] jwe parents: 6025 diff changeset	260 ## @end table
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	261 ## @end deftypefn
5947 009fa69b6182 [project @ 2006-08-21 16:15:20 by jwe] jwe parents: 5928 diff changeset	262
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	263 function [local_packages, global_packages] = pkg (varargin)
8202 cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8174 diff changeset	264 ## Installation prefix (FIXME: what should these be on windows?)
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	265 persistent user_prefix = false;
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	266 persistent prefix = -1;
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	267 persistent archprefix = -1;
7498 a939fb03a137 pkg.m style fixes John W. Eaton <jwe@octave.org> parents: 7497 diff changeset	268 persistent local_list = tilde_expand (fullfile ("~", ".octave_packages"));
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	269 persistent global_list = fullfile (OCTAVE_HOME (), "share", "octave",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	270 "octave_packages");
14471 d2c095e45196 maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14466 diff changeset	271
d2c095e45196 maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14466 diff changeset	272 confirm_recursive_rmdir (false, "local");
d2c095e45196 maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14466 diff changeset	273
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	274 mlock ();
6189 0d23b0c0ce1a [project @ 2006-11-29 21:01:05 by dbateman] dbateman parents: 6143 diff changeset	275
14472 045a5b85495d maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14471 diff changeset	276 ## If user is superuser set global_istall to true
045a5b85495d maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14471 diff changeset	277 ## FIXME: is it OK to set this always true on windows?
045a5b85495d maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14471 diff changeset	278 global_install = ((ispc () && ! isunix ()) \|\| (geteuid () == 0));
6683 a2f697dca2a4 [project @ 2007-06-01 23:10:24 by dbateman] dbateman parents: 6675 diff changeset	279
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	280 if (prefix == -1)
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	281 if (global_install)
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	282 prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
12710 762d10c77277 maint: use libdir for .oct files, not libexecdir John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	283 archprefix = fullfile (octave_config_info ("libdir"),
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	284 "octave", "packages");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	285 else
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	286 prefix = fullfile ("~", "octave");
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	287 archprefix = prefix;
5801 70013c9f3ccc [project @ 2006-05-10 16:53:03 by jwe] jwe parents: diff changeset	288 endif
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	289 prefix = tilde_expand (prefix);
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	290 archprefix = tilde_expand (archprefix);
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	291 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	292
7498 a939fb03a137 pkg.m style fixes John W. Eaton <jwe@octave.org> parents: 7497 diff changeset	293 available_actions = {"list", "install", "uninstall", "load", ...
12779 095fd5c8b7e1 doc: Update docstring for pkg() Rik <octave@nomad.inbox5.com> parents: 12778 diff changeset	294 "unload", "prefix", "local_list", ...
12778 0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	295 "global_list", "rebuild", "build", ...
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	296 "describe", "update"};
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	297 ## Handle input
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	298 if (length (varargin) == 0 \|\| ! iscellstr (varargin))
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	299 print_usage ();
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	300 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	301 files = {};
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	302 deps = true;
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	303 auto = 0;
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	304 action = "none";
6614 3a53d0f3e0e4 [project @ 2007-05-12 05:50:03 by dbateman] dbateman parents: 6500 diff changeset	305 verbose = false;
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	306 octave_forge = false;
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	307 for i = 1:length (varargin)
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	308 switch (varargin{i})
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	309 case "-nodeps"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	310 deps = false;
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	311 case "-noauto"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	312 auto = -1;
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	313 case "-auto"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	314 auto = 1;
6614 3a53d0f3e0e4 [project @ 2007-05-12 05:50:03 by dbateman] dbateman parents: 6500 diff changeset	315 case "-verbose"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	316 verbose = true;
13275 635db52feab4 pkg.m: Display verbose output immediately rather than buffering it. Rik <octave@nomad.inbox5.com> parents: 13141 diff changeset	317 ## Send verbose output to pager immediately. Change setting locally.
635db52feab4 pkg.m: Display verbose output immediately rather than buffering it. Rik <octave@nomad.inbox5.com> parents: 13141 diff changeset	318 page_output_immediately (true, "local");
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	319 case "-forge"
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	320 octave_forge = true;
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	321 case "-local"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	322 global_install = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	323 if (! user_prefix)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	324 prefix = tilde_expand (fullfile ("~", "octave"));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	325 archprefix = prefix;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	326 endif
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	327 case "-global"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	328 global_install = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	329 if (! user_prefix)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	330 prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
12710 762d10c77277 maint: use libdir for .oct files, not libexecdir John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	331 archprefix = fullfile (octave_config_info ("libdir"),
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	332 "octave", "packages");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	333 endif
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	334 case available_actions
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	335 if (strcmp (action, "none"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	336 action = varargin{i};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	337 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	338 error ("more than one action specified");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	339 endif
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	340 otherwise
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	341 files{end+1} = varargin{i};
5801 70013c9f3ccc [project @ 2006-05-10 16:53:03 by jwe] jwe parents: diff changeset	342 endswitch
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	343 endfor
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	344
10685 81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	345 if (octave_forge && ! any (strcmp (action, {"install", "list"})))
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	346 error ("-forge can only be used with install or list");
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	347 endif
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	348
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	349 ## Take action
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	350 switch (action)
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	351 case "list"
10685 81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	352 if (octave_forge)
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	353 if (nargout > 0)
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	354 local_packages = list_forge_packages ();
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	355 else
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	356 list_forge_packages ();
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	357 endif
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	358 else
10685 81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	359 if (nargout == 0)
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	360 installed_packages (local_list, global_list);
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	361 elseif (nargout == 1)
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	362 local_packages = installed_packages (local_list, global_list);
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	363 elseif (nargout == 2)
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	364 [local_packages, global_packages] = installed_packages (local_list,
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	365 global_list);
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	366 else
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	367 error ("too many output arguments requested");
81a43049dee2 support pkg list -forge Jaroslav Hajek <highegg@gmail.com> parents: 10684 diff changeset	368 endif
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	369 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	370
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	371 case "install"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	372 if (length (files) == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	373 error ("you must specify at least one filename when calling 'pkg install'");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	374 endif
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	375
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	376 local_files = {};
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	377 unwind_protect
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	378
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	379 if (octave_forge)
12931 cefd568ea073 Replace function handles with function names in cellfun calls for 15% speedup. Rik <octave@nomad.inbox5.com> parents: 12779 diff changeset	380 [urls, local_files] = cellfun ("get_forge_download", files, "uniformoutput", false);
cefd568ea073 Replace function handles with function names in cellfun calls for 15% speedup. Rik <octave@nomad.inbox5.com> parents: 12779 diff changeset	381 [files, succ] = cellfun ("urlwrite", urls, local_files, "uniformoutput", false);
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	382 succ = [succ{:}];
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	383 if (! all (succ))
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	384 i = find (! succ, 1);
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	385 error ("could not download file %s from url %s", local_files{i}, urls{i});
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	386 endif
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	387 endif
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	388
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	389 install (files, deps, auto, prefix, archprefix, verbose, local_list,
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	390 global_list, global_install);
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	391
76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	392 unwind_protect_cleanup
12931 cefd568ea073 Replace function handles with function names in cellfun calls for 15% speedup. Rik <octave@nomad.inbox5.com> parents: 12779 diff changeset	393 cellfun ("unlink", local_files);
10684 76aba4305f1f support pkg install -forge Jaroslav Hajek <highegg@gmail.com> parents: 10549 diff changeset	394 end_unwind_protect
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	395
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	396 case "uninstall"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	397 if (length (files) == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	398 error ("you must specify at least one package when calling 'pkg uninstall'");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	399 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	400 uninstall (files, deps, verbose, local_list,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	401 global_list, global_install);
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	402
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	403 case "load"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	404 if (length (files) == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	405 error ("you must specify at least one package, 'all' or 'auto' when calling 'pkg load'");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	406 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	407 load_packages (files, deps, local_list, global_list);
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	408
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	409 case "unload"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	410 if (length (files) == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	411 error ("you must specify at least one package or 'all' when calling 'pkg unload'");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	412 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	413 unload_packages (files, deps, local_list, global_list);
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	414
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	415 case "prefix"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	416 if (length (files) == 0 && nargout == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	417 printf ("Installation prefix: %s\n", prefix);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	418 printf ("Architecture dependent prefix: %s\n", archprefix);
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	419 elseif (length (files) == 0 && nargout >= 1)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	420 local_packages = prefix;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	421 global_packages = archprefix;
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	422 elseif (length (files) >= 1 && nargout <= 2 && ischar (files{1}))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	423 prefix = files{1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	424 prefix = absolute_pathname (prefix);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	425 local_packages = prefix;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	426 user_prefix = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	427 if (length (files) >= 2 && ischar (files{2}))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	428 archprefix = files{2};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	429 try
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	430 archprefix = absolute_pathname (archprefix);
6925 1401a79af68c [project @ 2007-09-26 18:58:52 by dbateman] dbateman parents: 6820 diff changeset	431 catch
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	432 mkdir (archprefix);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	433 warning ("creating the directory %s\n", archprefix);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	434 archprefix = absolute_pathname (archprefix);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	435 end_try_catch
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	436 global_packages = archprefix;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	437 endif
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	438 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	439 error ("you must specify a prefix directory, or request an output argument");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	440 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	441
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	442 case "local_list"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	443 if (length (files) == 0 && nargout == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	444 disp (local_list);
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	445 elseif (length (files) == 0 && nargout == 1)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	446 local_packages = local_list;
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	447 elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	448 try
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	449 local_list = absolute_pathname (files{1});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	450 catch
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	451 ## Force file to be created
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	452 fclose (fopen (files{1}, "wt"));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	453 local_list = absolute_pathname (files{1});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	454 end_try_catch
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	455 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	456 error ("you must specify a local_list file, or request an output argument");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	457 endif
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	458
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	459 case "global_list"
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	460 if (length (files) == 0 && nargout == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	461 disp(global_list);
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	462 elseif (length (files) == 0 && nargout == 1)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	463 local_packages = global_list;
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	464 elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	465 try
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	466 global_list = absolute_pathname (files{1});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	467 catch
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	468 ## Force file to be created
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	469 fclose (fopen (files{1}, "wt"));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	470 global_list = absolute_pathname (files{1});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	471 end_try_catch
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	472 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	473 error ("you must specify a global_list file, or request an output argument");
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	474 endif
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	475
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	476 case "rebuild"
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	477 if (global_install)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	478 global_packages = rebuild (prefix, archprefix, global_list, files,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	479 auto, verbose);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	480 global_packages = save_order (global_packages);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	481 save (global_list, "global_packages");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	482 if (nargout > 0)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	483 local_packages = global_packages;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	484 endif
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	485 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	486 local_packages = rebuild (prefix, archprefix, local_list, files, auto,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	487 verbose);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	488 local_packages = save_order (local_packages);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	489 save (local_list, "local_packages");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	490 if (nargout == 0)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	491 clear ("local_packages");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	492 endif
6645 81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	493 endif
81eb28d50cee [project @ 2007-05-21 21:05:54 by dbateman] dbateman parents: 6634 diff changeset	494
6675 f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	495 case "build"
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	496 if (length (files) < 2)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	497 error ("you must specify at least the build directory and one filename\nwhen calling 'pkg build'");
6675 f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	498 endif
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	499 build (files, deps, auto, verbose);
f938c7018d28 [project @ 2007-05-31 19:31:14 by dbateman] dbateman parents: 6663 diff changeset	500
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	501 case "describe"
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	502 if (length (files) == 0)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	503 error ("you must specify at least one package or 'all' when calling 'pkg describe'");
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	504 endif
8202 cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8174 diff changeset	505 ## FIXME: the name of the output variables is inconsistent
7497 bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	506 ## with their content
bb7cc90cdc5e added describe command to pkg carlo@guglielmo.local parents: 7329 diff changeset	507 switch (nargout)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	508 case 0
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	509 describe (files, verbose, local_list, global_list);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	510 case 1
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	511 pkg_desc_list = describe (files, verbose, local_list, ...
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	512 global_list);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	513 local_packages = pkg_desc_list;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	514 case 2
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	515 [pkg_desc_list, flag] = describe (files, verbose, local_list, ...
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	516 global_list);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	517 local_packages = pkg_desc_list;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	518 global_packages = flag;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	519 otherwise
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10401 diff changeset	520 error ("you can request at most two outputs when calling 'pkg describe'");
7498 a939fb03a137 pkg.m style fixes John W. Eaton <jwe@octave.org> parents: 7497 diff changeset	521 endswitch
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11547 diff changeset	522
12778 0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	523 case "update"
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	524 if (nargout == 0)
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	525 installed_pkgs_lst = installed_packages (local_list, global_list);
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	526 for i = 1:length (installed_pkgs_lst)
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	527 installed_pkg_name = installed_pkgs_lst{i}.name;
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	528 installed_pkg_version = installed_pkgs_lst{i}.version;
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	529 forge_pkg_version = get_forge_pkg (installed_pkg_name);
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	530 if (compare_versions (forge_pkg_version, installed_pkg_version, ">"))
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	531 feval (@pkg, "install", "-forge", installed_pkg_name);
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	532 endif
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	533 endfor
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	534 else
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	535 error ("no output arguments available");
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	536 endif
0ca5672d5f1a Implement pkg update command Lukas Reichlin <lukas.reichlin@gmail.com> parents: 12710 diff changeset	537
6496 e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	538 otherwise
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	539 error ("you must specify a valid action for 'pkg'. See 'help pkg' for details");
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	540 endswitch
e0acfe7c3f7b [project @ 2007-04-05 17:19:30 by jwe] jwe parents: 6440 diff changeset	541 endfunction

Mercurial > hg > octave-lyh

annotate scripts/pkg/pkg.m @ 14472:045a5b85495d