jwe/octave: scripts/pkg/private/install.m annotate

annotate scripts/pkg/private/install.m @ 31150:674e7bf1d630 stable

pkg: Fix formatting of copyfile message (bug #62769). * scripts/pkg/private/install.m (copy_built_files): Add a space character between source and destination in the verbose message of the copyfile command.

author	Rafael Laboissiere <rafael@laboissiere.net>
date	Thu, 14 Jul 2022 19:07:59 -0300
parents	796f54d4ddbf
children

rev	line source
27928 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27924 diff changeset	1 ########################################################################
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27924 diff changeset	2 ##
30569 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 29467 diff changeset	3 ## Copyright (C) 2005-2022 The Octave Project Developers
27923 b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 27814 diff changeset	4 ##
27928 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27924 diff changeset	5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27924 diff changeset	6 ## distribution or <https://octave.org/copyright/>.
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	7 ##
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	8 ## This file is part of Octave.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	9 ##
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24013 diff changeset	10 ## Octave is free software: you can redistribute it and/or modify it
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	11 ## under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24013 diff changeset	12 ## the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	13 ## (at your option) any later version.
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	14 ##
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	15 ## Octave is distributed in the hope that it will be useful, but
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	18 ## GNU General Public License for more details.
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	19 ##
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	20 ## You should have received a copy of the GNU General Public License
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	21 ## along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24013 diff changeset	22 ## <https://www.gnu.org/licenses/>.
27928 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27924 diff changeset	23 ##
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27924 diff changeset	24 ########################################################################
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	25
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	26 ## -- texinfo --
21624 cf227735d5fd pkg: remove support for autoload (automatically loading package at start). Carnë Draug <carandraug@octave.org> parents: 21615 diff changeset	27 ## @deftypefn {} {} install (@var{files}, @var{handle_deps}, @var{prefix}, @var{archprefix}, @var{verbose}, @var{local_list}, @var{global_list}, @var{global_install})
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	28 ## Undocumented internal function.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	29 ## @end deftypefn
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	30
21624 cf227735d5fd pkg: remove support for autoload (automatically loading package at start). Carnë Draug <carandraug@octave.org> parents: 21615 diff changeset	31 function install (files, handle_deps, prefix, archprefix, verbose,
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	32 local_list, global_list, global_install)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	33
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21634 diff changeset	34 ## Check that the directory in prefix exist. If it doesn't: create it!
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	35 if (! isfolder (prefix))
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	36 warning ("creating installation directory %s", prefix);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	37 [status, msg] = mkdir (prefix);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	38 if (status != 1)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	39 error ("could not create installation directory: %s", msg);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	40 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	41 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	42
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	43 ## Get the list of installed packages.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	44 [local_packages, global_packages] = installed_packages (local_list,
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	45 global_list);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	46
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	47 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	48
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	49 if (global_install)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	50 packages = global_packages;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	51 else
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	52 packages = local_packages;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	53 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	54
29315 0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	55 if (ispc ())
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	56 oct_glob = @__wglob__;
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	57 else
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	58 oct_glob = @glob;
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	59 endif
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	60
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	61 ## Uncompress the packages and read the DESCRIPTION files.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	62 tmpdirs = packdirs = descriptions = {};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	63 try
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	64 ## Warn about non existent files.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	65 for i = 1:length (files)
29315 0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	66 if (isempty (oct_glob (files{i})))
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	67 warning ("file %s does not exist", files{i});
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	68 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	69 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	70
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	71 ## Unpack the package files and read the DESCRIPTION files.
29315 0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	72 files = oct_glob (files);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	73 packages_to_uninstall = [];
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	74 for i = 1:length (files)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	75 tgz = files{i};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	76
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	77 if (exist (tgz, "file"))
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	78 ## Create a temporary directory.
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 17744 diff changeset	79 tmpdir = tempname ();
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	80 tmpdirs{end+1} = tmpdir;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	81 if (verbose)
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	82 printf ("mkdir (%s)\n", tmpdir);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	83 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	84 [status, msg] = mkdir (tmpdir);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	85 if (status != 1)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	86 error ("couldn't create temporary directory: %s", msg);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	87 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	88
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	89 ## Uncompress the package.
26816 0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	90 [~, ~, ext] = fileparts (tgz);
0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	91 if (strcmpi (ext, ".zip"))
0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	92 func_uncompress = @unzip;
0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	93 else
0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	94 func_uncompress = @untar;
0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	95 endif
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	96 if (verbose)
26816 0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	97 printf ("%s (%s, %s)\n", func2str (func_uncompress), tgz, tmpdir);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	98 endif
26816 0dd5b293b18c pkg.m: restore installing packages from zip archives (bug #55788) Mike Miller <mtmiller@octave.org> parents: 26379 diff changeset	99 func_uncompress (tgz, tmpdir);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	100
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	101 ## Get the name of the directories produced by tar.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	102 [dirlist, err, msg] = readdir (tmpdir);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	103 if (err)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	104 error ("couldn't read directory produced by tar: %s", msg);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	105 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	106
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	107 if (length (dirlist) > 3)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	108 error ("bundles of packages are not allowed");
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	109 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	110 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	111
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	112 ## The filename pointed to an uncompressed package to begin with.
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	113 if (isfolder (tgz))
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	114 dirlist = {".", "..", tgz};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	115 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	116
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	117 if (exist (tgz, "file") \|\| isfolder (tgz))
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	118 ## The two first entries of dirlist are "." and "..".
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	119 if (exist (tgz, "file"))
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	120 packdir = fullfile (tmpdir, dirlist{3});
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	121 else
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14517 diff changeset	122 packdir = fullfile (pwd (), dirlist{3});
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	123 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	124 packdirs{end+1} = packdir;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	125
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	126 ## Make sure the package contains necessary files.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	127 verify_directory (packdir);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	128
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	129 ## Read the DESCRIPTION file.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	130 filename = fullfile (packdir, "DESCRIPTION");
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	131 desc = get_description (filename);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	132
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	133 ## Set default installation directory.
16994 333243133364 Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance. Rik <rik@octave.org> parents: 16467 diff changeset	134 desc.dir = fullfile (prefix, [desc.name "-" desc.version]);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	135
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	136 ## Set default architectire dependent installation directory.
16994 333243133364 Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance. Rik <rik@octave.org> parents: 16467 diff changeset	137 desc.archprefix = fullfile (archprefix, [desc.name "-" desc.version]);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	138
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	139 ## Save desc.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	140 descriptions{end+1} = desc;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	141
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	142 ## Are any of the new packages already installed?
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	143 ## If so we'll remove the old version.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	144 for j = 1:length (packages)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	145 if (strcmp (packages{j}.name, desc.name))
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	146 packages_to_uninstall(end+1) = j;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	147 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	148 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	149 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	150 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	151 catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	152 ## Something went wrong, delete tmpdirs.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	153 for i = 1:length (tmpdirs)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	154 sts = rmdir (tmpdirs{i}, "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	155 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	156 rethrow (lasterror ());
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	157 end_try_catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	158
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	159 ## Check dependencies.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	160 if (handle_deps)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	161 ok = true;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	162 error_text = "";
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	163 for i = 1:length (descriptions)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	164 desc = descriptions{i};
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	165 idx2 = setdiff (1:length (descriptions), i);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	166 if (global_install)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	167 ## Global installation is not allowed to have dependencies on locally
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	168 ## installed packages.
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	169 idx1 = setdiff (1:length (global_packages), packages_to_uninstall);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	170 pseudo_installed_packages = {global_packages{idx1}, ...
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	171 descriptions{idx2}};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	172 else
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	173 idx1 = setdiff (1:length (local_packages), packages_to_uninstall);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	174 pseudo_installed_packages = {local_packages{idx1}, ...
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	175 global_packages{:}, ...
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	176 descriptions{idx2}};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	177 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	178 bad_deps = get_unsatisfied_deps (desc, pseudo_installed_packages);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	179 ## Are there any unsatisfied dependencies?
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	180 if (! isempty (bad_deps))
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	181 ok = false;
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	182 for i = 1:length (bad_deps)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	183 dep = bad_deps{i};
16994 333243133364 Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance. Rik <rik@octave.org> parents: 16467 diff changeset	184 error_text = [error_text " " desc.name " needs " ...
17016 a3f6790df115 Fix typos from cstrcat to matrix concatenation changeset (333243133364). Rik <rik@octave.org> parents: 16994 diff changeset	185 dep.package " " dep.operator " " dep.version "\n"];
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	186 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	187 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	188 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	189
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	190 ## Did we find any unsatisfied dependencies?
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	191 if (! ok)
16467 cc9e2751e073 pkg: Typo correction Adam H Aitkenhead <adamhaitkenhead@gmail.com> parents: 14868 diff changeset	192 error ("the following dependencies were unsatisfied:\n %s", error_text);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	193 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	194 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	195
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	196 ## Prepare each package for installation.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	197 try
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	198 for i = 1:length (descriptions)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	199 desc = descriptions{i};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	200 pdir = packdirs{i};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	201 prepare_installation (desc, pdir);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	202 configure_make (desc, pdir, verbose);
21518 2ee20a290d61 pkg build: complete rewrite of the logic behind binary packages. Carnë Draug <carandraug@octave.org> parents: 20852 diff changeset	203 copy_built_files (desc, pdir, verbose);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	204 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	205 catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	206 ## Something went wrong, delete tmpdirs.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	207 for i = 1:length (tmpdirs)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	208 sts = rmdir (tmpdirs{i}, "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	209 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	210 rethrow (lasterror ());
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	211 end_try_catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	212
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	213 ## Uninstall the packages that will be replaced.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	214 try
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	215 for i = packages_to_uninstall
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	216 if (global_install)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	217 uninstall ({global_packages{i}.name}, false, verbose, local_list,
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	218 global_list, global_install);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	219 else
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	220 uninstall ({local_packages{i}.name}, false, verbose, local_list,
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	221 global_list, global_install);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	222 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	223 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	224 catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	225 ## Something went wrong, delete tmpdirs.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	226 for i = 1:length (tmpdirs)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	227 sts = rmdir (tmpdirs{i}, "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	228 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	229 rethrow (lasterror ());
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	230 end_try_catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	231
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	232 ## Install each package.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	233 try
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	234 for i = 1:length (descriptions)
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	235 desc = descriptions{i};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	236 pdir = packdirs{i};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	237 copy_files (desc, pdir, global_install);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	238 create_pkgadddel (desc, pdir, "PKG_ADD", global_install);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	239 create_pkgadddel (desc, pdir, "PKG_DEL", global_install);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	240 finish_installation (desc, pdir, global_install);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	241 generate_lookfor_cache (desc);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	242 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	243 catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	244 ## Something went wrong, delete tmpdirs.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	245 for i = 1:length (tmpdirs)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	246 sts = rmdir (tmpdirs{i}, "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	247 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	248 for i = 1:length (descriptions)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	249 sts = rmdir (descriptions{i}.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	250 sts = rmdir (getarchdir (descriptions{i}), "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	251 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	252 rethrow (lasterror ());
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	253 end_try_catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	254
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21634 diff changeset	255 ## Check if the installed directory is empty. If it is remove it
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	256 ## from the list.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	257 for i = length (descriptions):-1:1
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	258 if (dirempty (descriptions{i}.dir, {"packinfo", "doc"})
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	259 && dirempty (getarchdir (descriptions{i})))
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	260 warning ("package %s is empty\n", descriptions{i}.name);
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	261 sts = rmdir (descriptions{i}.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	262 sts = rmdir (getarchdir (descriptions{i}), "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	263 descriptions(i) = [];
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	264 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	265 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	266
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	267 ## Add the packages to the package list.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	268 try
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	269 if (global_install)
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	270 idx = setdiff (1:length (global_packages), packages_to_uninstall);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	271 global_packages = save_order ({global_packages{idx}, descriptions{:}});
27578 0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	272 if (ispc)
0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	273 ## On Windows ensure LFN paths are saved rather than 8.3 style paths
0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	274 global_packages = standardize_paths (global_packages);
0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	275 endif
27712 377f069841c1 Make packages installation dirs in global octave_packages file relative Philip Nienhuis <prnienhuis@users.sf.net> parents: 27578 diff changeset	276 global_packages = make_rel_paths (global_packages);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	277 save (global_list, "global_packages");
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	278 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	279 else
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	280 idx = setdiff (1:length (local_packages), packages_to_uninstall);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	281 local_packages = save_order ({local_packages{idx}, descriptions{:}});
27578 0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	282 if (ispc)
0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	283 local_packages = standardize_paths (local_packages);
0cedd1e23c1f Adapt path styles for pkg.m on Windows (bug #57083) Philip Nienhuis <prnienhuis@users.sf.net> parents: 27574 diff changeset	284 endif
29467 280defaf2023 pkg.m: Install local packages in version dependent path (bug #58299). Markus Mützel <markus.muetzel@gmx.de> parents: 29364 diff changeset	285 if (! exist (fileparts (local_list), "dir")
280defaf2023 pkg.m: Install local packages in version dependent path (bug #58299). Markus Mützel <markus.muetzel@gmx.de> parents: 29364 diff changeset	286 && ! mkdir (fileparts (local_list)))
280defaf2023 pkg.m: Install local packages in version dependent path (bug #58299). Markus Mützel <markus.muetzel@gmx.de> parents: 29364 diff changeset	287 error ("Octave:pkg:install:local-dir", ...
280defaf2023 pkg.m: Install local packages in version dependent path (bug #58299). Markus Mützel <markus.muetzel@gmx.de> parents: 29364 diff changeset	288 "pkg: Could not create directory for local package configuration");
280defaf2023 pkg.m: Install local packages in version dependent path (bug #58299). Markus Mützel <markus.muetzel@gmx.de> parents: 29364 diff changeset	289 endif
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	290 save (local_list, "local_packages");
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	291 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	292 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	293 catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	294 ## Something went wrong, delete tmpdirs.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	295 for i = 1:length (tmpdirs)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	296 sts = rmdir (tmpdirs{i}, "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	297 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	298 for i = 1:length (descriptions)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	299 sts = rmdir (descriptions{i}.dir, "s");
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	300 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	301 if (global_install)
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	302 printf ("error: couldn't append to %s\n", global_list);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	303 else
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	304 printf ("error: couldn't append to %s\n", local_list);
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	305 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	306 rethrow (lasterror ());
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	307 end_try_catch
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	308
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	309 ## All is well, let's clean up.
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	310 for i = 1:length (tmpdirs)
14471 d2c095e45196 maint: Remove redundant private function from the package manager. Carlo de Falco <kingcrimson@tiscali.it> parents: 14470 diff changeset	311 [status, msg] = rmdir (tmpdirs{i}, "s");
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	312 if (status != 1 && isfolder (tmpdirs{i}))
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	313 warning ("couldn't clean up after my self: %s\n", msg);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	314 endif
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	315 endfor
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	316
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	317 ## If there is a NEWS file, mention it.
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	318 ## Check if desc exists too because it's possible to get to this point
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	319 ## without creating it such as giving an invalid filename for the package
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	320 if (exist ("desc", "var")
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	321 && exist (fullfile (desc.dir, "packinfo", "NEWS"), "file"))
24967 183dc284783a pkg/private/install.m: make code 80 characters long Juan Pablo Carbajal <ajuanpi+dev@gmail.com> parents: 24534 diff changeset	322 printf (["For information about changes from previous versions " ...
183dc284783a pkg/private/install.m: make code 80 characters long Juan Pablo Carbajal <ajuanpi+dev@gmail.com> parents: 24534 diff changeset	323 "of the %s package, run 'news %s'.\n"],
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	324 desc.name, desc.name);
cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	325 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	326
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	327 endfunction
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	328
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	329
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	330 function pkg = extract_pkg (nm, pat)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	331
27814 b6db1c7c4595 Create valid UTF-8 from .m file content when installing package (bug #57395). Markus Mützel <markus.muetzel@gmx.de> parents: 27712 diff changeset	332 mfile_encoding = __mfile_encoding__ ();
b6db1c7c4595 Create valid UTF-8 from .m file content when installing package (bug #57395). Markus Mützel <markus.muetzel@gmx.de> parents: 27712 diff changeset	333 if (strcmp (mfile_encoding, "system"))
b6db1c7c4595 Create valid UTF-8 from .m file content when installing package (bug #57395). Markus Mützel <markus.muetzel@gmx.de> parents: 27712 diff changeset	334 mfile_encoding = __locale_charset__ ();
b6db1c7c4595 Create valid UTF-8 from .m file content when installing package (bug #57395). Markus Mützel <markus.muetzel@gmx.de> parents: 27712 diff changeset	335 endif
b6db1c7c4595 Create valid UTF-8 from .m file content when installing package (bug #57395). Markus Mützel <markus.muetzel@gmx.de> parents: 27712 diff changeset	336 fid = fopen (nm, "rt", "n", mfile_encoding);
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	337 pkg = "";
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	338 if (fid >= 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	339 while (! feof (fid))
27814 b6db1c7c4595 Create valid UTF-8 from .m file content when installing package (bug #57395). Markus Mützel <markus.muetzel@gmx.de> parents: 27712 diff changeset	340 ln = __u8_validate__ (fgetl (fid));
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	341 if (ln > 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	342 t = regexp (ln, pat, "tokens");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	343 if (! isempty (t))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	344 pkg = [pkg "\n" t{1}{1}];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	345 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	346 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	347 endwhile
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	348 if (! isempty (pkg))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	349 pkg = [pkg "\n"];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	350 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	351 fclose (fid);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	352 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	353
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	354 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	355
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	356
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	357 ## Make sure the package contains the essential files.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	358 function verify_directory (dir)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	359
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	360 needed_files = {"COPYING", "DESCRIPTION"};
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	361 for f = needed_files
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	362 if (! exist (fullfile (dir, f{1}), "file"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	363 error ("package is missing file: %s", f{1});
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	364 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	365 endfor
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	366
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	367 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	368
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	369
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	370 function prepare_installation (desc, packdir)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	371
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	372 ## Is there a pre_install to call?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	373 if (exist (fullfile (packdir, "pre_install.m"), "file"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	374 wd = pwd ();
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	375 try
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	376 cd (packdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	377 pre_install (desc);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	378 cd (wd);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	379 catch
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	380 cd (wd);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	381 rethrow (lasterror ());
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	382 end_try_catch
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	383 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	384
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	385 ## If the directory "inst" doesn't exist, we create it.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	386 inst_dir = fullfile (packdir, "inst");
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	387 if (! isfolder (inst_dir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	388 [status, msg] = mkdir (inst_dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	389 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	390 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	391 error ("the 'inst' directory did not exist and could not be created: %s",
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	392 msg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	393 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	394 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	395
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	396 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	397
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	398
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	399 function copy_built_files (desc, packdir, verbose)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	400
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	401 src = fullfile (packdir, "src");
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	402 if (! isfolder (src))
28922 72d57dbcc305 maint: Add semicolon after break and return keywords. Rik <rik@octave.org> parents: 28568 diff changeset	403 return;
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	404 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	405
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	406 ## Copy files to "inst" and "inst/arch" (this is instead of 'make install').
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	407 files = fullfile (src, "FILES");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	408 instdir = fullfile (packdir, "inst");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	409 archdir = fullfile (packdir, "inst", getarch ());
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	410
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	411 ## Get filenames.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	412 if (exist (files, "file"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	413 [fid, msg] = fopen (files, "r");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	414 if (fid < 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	415 error ("couldn't open %s: %s", files, msg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	416 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	417 filenames = char (fread (fid))';
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	418 fclose (fid);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	419 if (filenames(end) == "\n")
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	420 filenames(end) = [];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	421 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	422 filenames = strtrim (ostrsplit (filenames, "\n"));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	423 delete_idx = [];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	424 for i = 1:length (filenames)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	425 if (! all (isspace (filenames{i})))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	426 filenames{i} = fullfile (src, filenames{i});
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	427 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	428 delete_idx(end+1) = i;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	429 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	430 endfor
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	431 filenames(delete_idx) = [];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	432 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	433 m = dir (fullfile (src, "*.m"));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	434 oct = dir (fullfile (src, "*.oct"));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	435 mex = dir (fullfile (src, "*.mex"));
29031 64d1c7af5b18 Automatically extract BISTs during pkg install (bug #41298). Oliver Heimlich <oheim@posteo.de> parents: 27928 diff changeset	436 tst = dir (fullfile (src, "*tst"));
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	437
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	438 filenames = cellfun (@(x) fullfile (src, x),
29031 64d1c7af5b18 Automatically extract BISTs during pkg install (bug #41298). Oliver Heimlich <oheim@posteo.de> parents: 27928 diff changeset	439 {m.name, oct.name, mex.name, tst.name},
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	440 "uniformoutput", false);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	441 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	442
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	443 ## Split into architecture dependent and independent files.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	444 if (isempty (filenames))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	445 idx = [];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	446 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	447 idx = cellfun ("is_architecture_dependent", filenames);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	448 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	449 archdependent = filenames(idx);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	450 archindependent = filenames(! idx);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	451
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	452 ## Copy the files.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	453 if (! all (isspace ([filenames{:}])))
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	454 if (! isfolder (instdir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	455 mkdir (instdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	456 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	457 if (! all (isspace ([archindependent{:}])))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	458 if (verbose)
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	459 printf ("copyfile");
96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	460 printf (" %s", archindependent{:});
31150 674e7bf1d630 pkg: Fix formatting of copyfile message (bug #62769). Rafael Laboissiere <rafael@laboissiere.net> parents: 30569 diff changeset	461 printf (" %s\n", instdir);
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	462 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	463 [status, output] = copyfile (archindependent, instdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	464 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	465 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	466 error ("Couldn't copy files from 'src' to 'inst': %s", output);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	467 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	468 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	469 if (! all (isspace ([archdependent{:}])))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	470 if (verbose)
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	471 printf ("copyfile");
96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	472 printf (" %s", archdependent{:});
96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	473 printf (" %s\n", archdir);
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	474 endif
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	475 if (! isfolder (archdir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	476 mkdir (archdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	477 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	478 [status, output] = copyfile (archdependent, archdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	479 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	480 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	481 error ("Couldn't copy files from 'src' to 'inst': %s", output);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	482 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	483 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	484 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	485
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	486 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	487
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	488
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	489 function dep = is_architecture_dependent (nm)
29031 64d1c7af5b18 Automatically extract BISTs during pkg install (bug #41298). Oliver Heimlich <oheim@posteo.de> parents: 27928 diff changeset	490
64d1c7af5b18 Automatically extract BISTs during pkg install (bug #41298). Oliver Heimlich <oheim@posteo.de> parents: 27928 diff changeset	491 persistent archdepsuffix = {".oct", ".mex", ".a", ".lib", ".so", ...
64d1c7af5b18 Automatically extract BISTs during pkg install (bug #41298). Oliver Heimlich <oheim@posteo.de> parents: 27928 diff changeset	492 "tst", ".so.*", ".dll", "dylib"};
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	493
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	494 dep = false;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	495 for i = 1 : length (archdepsuffix)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	496 ext = archdepsuffix{i};
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	497 if (ext(end) == "*")
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	498 isglob = true;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	499 ext(end) = [];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	500 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	501 isglob = false;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	502 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	503 pos = strfind (nm, ext);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	504 if (pos)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	505 if (! isglob && (length (nm) - pos(end) != length (ext) - 1))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	506 continue;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	507 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	508 dep = true;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	509 break;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	510 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	511 endfor
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	512
14466 cfb0173fe1ca maint: Refactor pkg.m and move subfunctions to private/ directory. Carlo de Falco <kingcrimson@tiscali.it> parents: diff changeset	513 endfunction
17338 1c89599167a6 maint: End m-files with 1 blank line. Rik <rik@octave.org> parents: 17016 diff changeset	514
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	515
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	516 function copy_files (desc, packdir, global_install)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	517
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	518 ## Create the installation directory.
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	519 if (! isfolder (desc.dir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	520 [status, output] = mkdir (desc.dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	521 if (status != 1)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	522 error ("couldn't create installation directory %s : %s",
28979 c2db7bd05c00 maint: Remove redundant never-executed statements following error() in m-files. Rik <rik@octave.org> parents: 28922 diff changeset	523 desc.dir, output);
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	524 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	525 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	526
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	527 octfiledir = getarchdir (desc);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	528
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	529 ## Copy the files from "inst" to installdir.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	530 instdir = fullfile (packdir, "inst");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	531 if (! dirempty (instdir))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	532 [status, output] = copyfile (fullfile (instdir, "*"), desc.dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	533 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	534 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	535 error ("couldn't copy files to the installation directory");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	536 endif
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	537 if (isfolder (fullfile (desc.dir, getarch ()))
27574 29ccef7e5295 New function "is_same_file". Markus Mützel <markus.muetzel@gmx.de> parents: 26816 diff changeset	538 && ! is_same_file (fullfile (desc.dir, getarch ()), octfiledir))
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	539 if (! isfolder (octfiledir))
24013 26ec2e264826 Fix installing pkgs into a symlinked dir (bug #50994). Rik <rik@octave.org> parents: 23220 diff changeset	540 ## Can be required to create up to three levels of dirs.
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	541 octm1 = fileparts (octfiledir);
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	542 if (! isfolder (octm1))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	543 octm2 = fileparts (octm1);
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	544 if (! isfolder (octm2))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	545 octm3 = fileparts (octm2);
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	546 if (! isfolder (octm3))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	547 [status, output] = mkdir (octm3);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	548 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	549 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	550 error ("couldn't create installation directory %s : %s",
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	551 octm3, output);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	552 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	553 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	554 [status, output] = mkdir (octm2);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	555 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	556 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	557 error ("couldn't create installation directory %s : %s",
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	558 octm2, output);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	559 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	560 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	561 [status, output] = mkdir (octm1);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	562 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	563 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	564 error ("couldn't create installation directory %s : %s",
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	565 octm1, output);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	566 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	567 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	568 [status, output] = mkdir (octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	569 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	570 sts = rmdir (desc.dir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	571 error ("couldn't create installation directory %s : %s",
28979 c2db7bd05c00 maint: Remove redundant never-executed statements following error() in m-files. Rik <rik@octave.org> parents: 28922 diff changeset	572 octfiledir, output);
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	573 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	574 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	575 [status, output] = movefile (fullfile (desc.dir, getarch (), "*"),
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	576 octfiledir);
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	577 sts = rmdir (fullfile (desc.dir, getarch ()), "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	578
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	579 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	580 sts = rmdir (desc.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	581 sts = rmdir (octfiledir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	582 error ("couldn't copy files to the installation directory");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	583 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	584 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	585
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	586 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	587
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	588 ## Create the "packinfo" directory.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	589 packinfo = fullfile (desc.dir, "packinfo");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	590 [status, msg] = mkdir (packinfo);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	591 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	592 sts = rmdir (desc.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	593 sts = rmdir (octfiledir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	594 error ("couldn't create packinfo directory: %s", msg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	595 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	596
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	597 packinfo_copy_file ("DESCRIPTION", "required", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	598 packinfo_copy_file ("COPYING", "required", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	599 packinfo_copy_file ("CITATION", "optional", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	600 packinfo_copy_file ("NEWS", "optional", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	601 packinfo_copy_file ("ONEWS", "optional", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	602 packinfo_copy_file ("ChangeLog", "optional", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	603
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	604 ## Is there an INDEX file to copy or should we generate one?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	605 index_file = fullfile (packdir, "INDEX");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	606 if (exist (index_file, "file"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	607 packinfo_copy_file ("INDEX", "required", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	608 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	609 try
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	610 write_index (desc, fullfile (packdir, "inst"),
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	611 fullfile (packinfo, "INDEX"), global_install);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	612 catch
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	613 sts = rmdir (desc.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	614 sts = rmdir (octfiledir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	615 rethrow (lasterror ());
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	616 end_try_catch
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	617 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	618
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	619 ## Is there an 'on_uninstall.m' to install?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	620 packinfo_copy_file ("on_uninstall.m", "optional", packdir, packinfo, desc, octfiledir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	621
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	622 ## Is there a doc/ directory that needs to be installed?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	623 docdir = fullfile (packdir, "doc");
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	624 if (isfolder (docdir) && ! dirempty (docdir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	625 [status, output] = copyfile (docdir, desc.dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	626 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	627
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	628 ## Is there a bin/ directory that needs to be installed?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	629 ## FIXME: Need to treat architecture dependent files in bin/
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	630 bindir = fullfile (packdir, "bin");
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	631 if (isfolder (bindir) && ! dirempty (bindir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	632 [status, output] = copyfile (bindir, desc.dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	633 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	634
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	635 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	636
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	637
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	638 function packinfo_copy_file (filename, requirement, packdir, packinfo, desc, octfiledir)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	639
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	640 filepath = fullfile (packdir, filename);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	641 if (! exist (filepath, "file") && strcmpi (requirement, "optional"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	642 ## do nothing, it's still OK
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	643 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	644 [status, output] = copyfile (filepath, packinfo);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	645 if (status != 1)
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	646 sts = rmdir (desc.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	647 sts = rmdir (octfiledir, "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	648 error ("Couldn't copy %s file: %s", filename, output);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	649 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	650 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	651
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	652 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	653
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	654
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	655 ## Create an INDEX file for a package that doesn't provide one.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	656 ## 'desc' describes the package.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	657 ## 'dir' is the 'inst' directory in temporary directory.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	658 ## 'index_file' is the name (including path) of resulting INDEX file.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	659 function write_index (desc, dir, index_file, global_install)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	660
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	661 ## Get names of functions in dir
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	662 [files, err, msg] = readdir (dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	663 if (err)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	664 error ("couldn't read directory %s: %s", dir, msg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	665 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	666
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	667 ## Get classes in dir
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	668 class_idx = find (strncmp (files, '@', 1));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	669 for k = 1:length (class_idx)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	670 class_name = files {class_idx(k)};
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	671 class_dir = fullfile (dir, class_name);
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	672 if (isfolder (class_dir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	673 [files2, err, msg] = readdir (class_dir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	674 if (err)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	675 error ("couldn't read directory %s: %s", class_dir, msg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	676 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	677 files2 = strcat (class_name, filesep (), files2);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	678 files = [files; files2];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	679 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	680 endfor
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	681
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	682 ## Check for architecture dependent files.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	683 tmpdir = getarchdir (desc);
25790 3293cd2651fb prefer 'isfolder' over 'exist (..., "dir")' in Octave functions Mike Miller <mtmiller@octave.org> parents: 25132 diff changeset	684 if (isfolder (tmpdir))
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	685 [files2, err, msg] = readdir (tmpdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	686 if (err)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	687 error ("couldn't read directory %s: %s", tmpdir, msg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	688 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	689 files = [files; files2];
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	690 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	691
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	692 functions = {};
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	693 for i = 1:length (files)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	694 file = files{i};
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	695 lf = length (file);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	696 if (lf > 2 && strcmp (file(end-1:end), ".m"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	697 functions{end+1} = file(1:end-2);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	698 elseif (lf > 4 && strcmp (file(end-3:end), ".oct"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	699 functions{end+1} = file(1:end-4);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	700 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	701 endfor
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	702
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	703 ## Does desc have a categories field?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	704 if (! isfield (desc, "categories"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	705 error ("the DESCRIPTION file must have a Categories field, when no INDEX file is given");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	706 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	707 categories = strtrim (strsplit (desc.categories, ","));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	708 if (length (categories) < 1)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	709 error ("the Category field is empty");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	710 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	711
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	712 ## Write INDEX.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	713 fid = fopen (index_file, "w");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	714 if (fid == -1)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	715 error ("couldn't open %s for writing", index_file);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	716 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	717 fprintf (fid, "%s >> %s\n", desc.name, desc.title);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	718 fprintf (fid, "%s\n", categories{1});
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	719 fprintf (fid, " %s\n", functions{:});
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	720 fclose (fid);
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	721
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	722 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	723
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	724
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	725 function create_pkgadddel (desc, packdir, nm, global_install)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	726
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	727 instpkg = fullfile (desc.dir, nm);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	728 instfid = fopen (instpkg, "at"); # append to support PKG_ADD at inst/
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	729 ## If it is exists, most of the PKG_* file should go into the
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	730 ## architecture dependent directory so that the autoload/mfilename
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21634 diff changeset	731 ## commands work as expected. The only part that doesn't is the
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	732 ## part in the main directory.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	733 archdir = fullfile (getarchprefix (desc, global_install),
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	734 [desc.name "-" desc.version], getarch ());
28568 5a07c798eb08 avoid function call input or output argument number mismatch John W. Eaton <jwe@octave.org> parents: 28092 diff changeset	735 if (isfolder (getarchdir (desc)))
5a07c798eb08 avoid function call input or output argument number mismatch John W. Eaton <jwe@octave.org> parents: 28092 diff changeset	736 archpkg = fullfile (getarchdir (desc), nm);
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	737 archfid = fopen (archpkg, "at");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	738 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	739 archpkg = instpkg;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	740 archfid = instfid;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	741 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	742
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	743 if (archfid >= 0 && instfid >= 0)
29315 0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	744 if (ispc ())
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	745 oct_glob = @__wglob__;
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	746 else
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	747 oct_glob = @glob;
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	748 endif
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	749
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	750 ## Search all dot-m files for PKG commands.
29315 0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	751 lst = oct_glob (fullfile (packdir, "inst", "*.m"));
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	752 for i = 1:length (lst)
23125 ef0909c445df pkg: also search .cpp an .cxx files for PKG directives (bug #50199) John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	753 nam = lst{i};
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	754 fwrite (instfid, extract_pkg (nam, ['^[#%][#%]* ' nm ': (.*)$']));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	755 endfor
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	756
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	757 ## Search all C++ source files for PKG commands.
29315 0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	758 cc_lst = oct_glob (fullfile (packdir, "src", "*.cc"));
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	759 cpp_lst = oct_glob (fullfile (packdir, "src", "*.cpp"));
0fb5ba41a12a Use "__wglob__" instead of "glob" on Windows (bug #49628). Markus Mützel <markus.muetzel@gmx.de> parents: 29032 diff changeset	760 cxx_lst = oct_glob (fullfile (packdir, "src", "*.cxx"));
23125 ef0909c445df pkg: also search .cpp an .cxx files for PKG directives (bug #50199) John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	761 lst = [cc_lst; cpp_lst; cxx_lst];
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	762 for i = 1:length (lst)
23125 ef0909c445df pkg: also search .cpp an .cxx files for PKG directives (bug #50199) John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	763 nam = lst{i};
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	764 fwrite (archfid, extract_pkg (nam, ['^//* ' nm ': (.*)$']));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	765 fwrite (archfid, extract_pkg (nam, ['^/\** ' nm ': (.) \*/$']));
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	766 endfor
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	767
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	768 ## Add developer included PKG commands.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	769 packdirnm = fullfile (packdir, nm);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	770 if (exist (packdirnm, "file"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	771 fid = fopen (packdirnm, "rt");
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	772 if (fid >= 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	773 while (! feof (fid))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	774 ln = fgets (fid);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	775 if (ln > 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	776 fwrite (archfid, ln);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	777 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	778 endwhile
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	779 fclose (fid);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	780 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	781 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	782
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	783 ## If the files is empty remove it.
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	784 fclose (instfid);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	785 t = dir (instpkg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	786 if (t.bytes <= 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	787 unlink (instpkg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	788 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	789
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	790 if (instfid != archfid)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	791 fclose (archfid);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	792 t = dir (archpkg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	793 if (t.bytes <= 0)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	794 unlink (archpkg);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	795 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	796 endif
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	797 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	798
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	799 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	800
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	801
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	802 function archprefix = getarchprefix (desc, global_install)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	803
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	804 if (global_install)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	805 [~, archprefix] = default_prefix (global_install, desc);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	806 else
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	807 archprefix = desc.dir;
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	808 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	809
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	810 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	811
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	812
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	813 function finish_installation (desc, packdir, global_install)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	814
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	815 ## Is there a post-install to call?
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	816 if (exist (fullfile (packdir, "post_install.m"), "file"))
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	817 wd = pwd ();
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	818 try
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	819 cd (packdir);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	820 post_install (desc);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	821 cd (wd);
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	822 catch
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	823 cd (wd);
28092 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	824 sts = rmdir (desc.dir, "s");
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27928 diff changeset	825 sts = rmdir (getarchdir (desc), "s");
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	826 rethrow (lasterror ());
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	827 end_try_catch
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	828 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	829
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	830 endfunction
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	831
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	832
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	833 function generate_lookfor_cache (desc)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	834
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	835 dirs = strtrim (ostrsplit (genpath (desc.dir), pathsep ()));
27712 377f069841c1 Make packages installation dirs in global octave_packages file relative Philip Nienhuis <prnienhuis@users.sf.net> parents: 27578 diff changeset	836 if (ispc)
377f069841c1 Make packages installation dirs in global octave_packages file relative Philip Nienhuis <prnienhuis@users.sf.net> parents: 27578 diff changeset	837 dirs = cellfun (@canonicalize_file_name, dirs, "uniformoutput", false);
377f069841c1 Make packages installation dirs in global octave_packages file relative Philip Nienhuis <prnienhuis@users.sf.net> parents: 27578 diff changeset	838 endif
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	839 for i = 1 : length (dirs)
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	840 doc_cache_create (fullfile (dirs{i}, "doc-cache"), dirs{i});
9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	841 endfor
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	842
21615 9ccd64201b4d pkg: remove excessive number of private function files. Carnë Draug <carandraug@octave.org> parents: 21518 diff changeset	843 endfunction

Mercurial > jwe > octave

annotate scripts/pkg/private/install.m @ 31150:674e7bf1d630 stable