3 function res
= tcomp
(fn
)
5 %% imports components and rearranges them.
11 data
= dlmread(fn
, 3, 0);
17 cnty = repmat(x(:,1)(:), 10, 1);
20 ## Here and below, we test if the indentation aligns with a previous
21 ## fixindented line. This is important so as to make it easier for the
22 ## user to verride some indentation somewhere, and also because it
23 ## reflects the fact that the indentation decision is taken with a minimum
24 ## amount of work (i.e. in the present case, without having to walk back
25 ## until the `function' line).
26 bir
= x
(:,11:20)(:); # fixindent
32 yrs
= repmat
(2000:2009, 39, 1)(:);
34 res
= [yrs
, cnty
, pop
, bir
, dth
, imig
, dmig
, gq
];
38 ## Copyright
(C
) 2005, 2006, 2007, 2008, 2009 S�ren Hauberg
40 ## This file is part of Octave.
42 ## Octave is free software
; you can redistribute it and
/or modify it
43 ## under the terms of the GNU General Public License as published by
44 ## the Free Software Foundation
; either
version 3 of the License
, or
(at
45 ## your option
) any later
version.
47 ## Octave is distributed in the hope that it will be useful
, but
48 ## WITHOUT
ANY WARRANTY
; without even the implied warranty of
49 ## MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU
50 ## General Public License
for more details.
52 ## You should have received a copy of the GNU General Public License
53 ## along with Octave
; see the file COPYING.
If not
, see
54 ##
<http
://www.gnu.org
/licenses
/>.
57 ## @deftypefn
{Command
} pkg @var
{command
} @var
{pkg_name
}
58 ## @deftypefnx
{Command
} pkg @var
{command
} @var
{option
} @var
{pkg_name
}
59 ## This command interacts with the package manager. Different actions will
60 ## be taken depending on the value of @var
{command
}.
64 ## Install named packages.
For example
,
66 ## pkg install
image-1.0.0.tar.gz
69 ## installs the package found in the file @file
{image-1.0.0.tar.gz
}.
71 ## The @var
{option
} variable can contain options that affect the manner
72 ## in
which a package is installed. These options can be one or
more of
76 ## The package manager will disable the dependency checking. That way it
77 ## is possible to install a package even
if it depends on another package
78 ## that
's not installed on the system. @strong{Use this option with care.}
81 ## The package manager will not automatically load the installed package
82 ## when starting Octave, even if the package requests that it is.
85 ## The package manager will automatically load the installed package when
86 ## starting Octave, even if the package requests that it isn't.
89 ## A local installation is forced
, even
if the user has system privileges.
92 ## A
global installation is forced
, even
if the user doesn
't normally have
96 ## The package manager will print the output of all of the commands that are
101 ## Uninstall named packages. For example,
103 ## pkg uninstall image
106 ## removes the @code{image} package from the system. If another installed
107 ## package depends on the @code{image} package an error will be issued.
108 ## The package can be uninstalled anyway by using the @code{-nodeps} option.
110 ## Add named packages to the path. After loading a package it is
111 ## possible to use the functions provided by the package. For example,
116 ## adds the @code{image} package to the path. It is possible to load all
117 ## installed packages at once with the command
122 ## Removes named packages from the path. After unloading a package it is
123 ## no longer possible to use the functions provided by the package.
124 ## This command behaves like the @code{load} command.
126 ## Show a list of the currently installed packages. By requesting one or two
127 ## output argument it is possible to get a list of the currently installed
128 ## packages. For example,
130 ## installed_packages = pkg list;
133 ## returns a cell array containing a structure for each installed package.
136 ## [@var{user_packages}, @var{system_packages}] = pkg list
139 ## splits the list of installed packages into those who are installed by
140 ## the current user, and those installed by the system administrator.
142 ## Show a short description of the named installed packages, with the option
143 ## '-verbose
' also list functions provided by the package, e.g.:
145 ## pkg describe -verbose all
148 ## will describe all installed packages and the functions they provide.
149 ## If one output is requested a cell of structure containing the
150 ## description and list of functions of each package is returned as
151 ## output rather than printed on screen:
153 ## desc = pkg ("describe", "secs1d", "image")
156 ## If any of the requested packages is not installed, pkg returns an
157 ## error, unless a second output is requested:
159 ## [ desc, flag] = pkg ("describe", "secs1d", "image")
162 ## @var{flag} will take one of the values "Not installed", "Loaded" or
163 ## "Not loaded" for each of the named packages.
165 ## Set the installation prefix directory. For example,
167 ## pkg prefix ~/my_octave_packages
170 ## sets the installation prefix to @file{~/my_octave_packages}.
171 ## Packages will be installed in this directory.
173 ## It is possible to get the current installation prefix by requesting an
174 ## output argument. For example,
179 ## The location in which to install the architecture dependent files can be
180 ## independent specified with an addition argument. For example
183 ## pkg prefix ~/my_octave_packages ~/my_arch_dep_pkgs
186 ## Set the file in which to look for information on the locally
187 ## installed packages. Locally installed packages are those that are
188 ## typically available only to the current user. For example
190 ## pkg local_list ~/.octave_packages
192 ## It is possible to get the current value of local_list with the following
197 ## Set the file in which to look for, for information on the globally
198 ## installed packages. Globally installed packages are those that are
199 ## typically available to all users. For example
201 ## pkg global_list /usr/share/octave/octave_packages
203 ## It is possible to get the current value of global_list with the following
208 ## Rebuilds the package database from the installed directories. This can
209 ## be used in cases where for some reason the package database is corrupted.
210 ## It can also take the @code{-auto} and @code{-noauto} options to allow the
211 ## autoloading state of a package to be changed. For example
214 ## pkg rebuild -noauto image
217 ## will remove the autoloading status of the image package.
219 ## Builds a binary form of a package or packages. The binary file produced
220 ## will itself be an Octave package that can be installed normally with
221 ## @code{pkg}. The form of the command to build a binary package is
224 ## pkg build builddir image-1.0.0.tar.gz @dots{}
228 ## where @code{builddir} is the name of a directory where the temporary
229 ## installation will be produced and the binary packages will be found.
230 ## The options @code{-verbose} and @code{-nodeps} are respected, while
231 ## the other options are ignored.
235 function [local_packages, global_packages] = pkg (varargin)
236 ## Installation prefix (FIXME: what should these be on windows?)
237 persistent user_prefix = false;
238 persistent prefix = -1;
239 persistent archprefix = -1;
240 persistent local_list = tilde_expand (fullfile ("~", ".octave_packages"));
241 persistent global_list = fullfile (OCTAVE_HOME (), "share", "octave",
245 global_install = issuperuser ();
249 prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
250 archprefix = fullfile (octave_config_info ("libexecdir"),
251 "octave", "packages");
253 prefix = fullfile ("~", "octave");
256 prefix = tilde_expand (prefix);
257 archprefix = tilde_expand (archprefix);
260 available_actions = {"list", "install", "uninstall", "load", ...
261 "unload", "prefix", "local_list", ...
262 "global_list", "rebuild", "build","describe"};
264 if (length (varargin) == 0 || ! iscellstr (varargin))
272 for i = 1:length (varargin)
283 global_install = false;
285 prefix = tilde_expand (fullfile ("~", "octave"));
289 global_install = true;
291 prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
292 archprefix = fullfile (octave_config_info ("libexecdir"),
293 "octave", "packages");
295 case available_actions
296 if (strcmp (action, "none"))
297 action = varargin{i};
299 error ("more than one action specified");
302 files{end+1} = varargin{i};
310 installed_packages (local_list, global_list);
311 elseif (nargout == 1)
312 local_packages = installed_packages (local_list, global_list);
313 elseif (nargout == 2)
314 [local_packages, global_packages] = installed_packages (local_list,
317 error ("too many output arguments requested");
321 if (length (files) == 0)
322 error ("you must specify at least one filename when calling 'pkg install
'");
324 install (files, deps, auto, prefix, archprefix, verbose, local_list,
325 global_list, global_install);
328 if (length (files) == 0)
329 error ("you must specify at least one package when calling 'pkg uninstall
'");
331 uninstall (files, deps, verbose, local_list,
332 global_list, global_install);
335 if (length (files) == 0)
336 error ("you must specify at least one package, 'all' or 'auto
' when calling 'pkg
load'");
338 load_packages (files, deps, local_list, global_list);
341 if (length (files) == 0)
342 error ("you must specify at least one package or 'all' when calling 'pkg unload
'");
344 unload_packages (files, deps, local_list, global_list);
347 if (length (files) == 0 && nargout == 0)
348 printf ("Installation prefix: %s\n", prefix);
349 printf ("Architecture dependent prefix: %s\n", archprefix);
350 elseif (length (files) == 0 && nargout >= 1)
351 local_packages = prefix;
352 global_packages = archprefix;
353 elseif (length (files) >= 1 && nargout <= 2 && ischar (files{1}))
355 prefix = absolute_pathname (prefix);
356 local_packages = prefix;
358 if (length (files) >= 2 && ischar (files{2}))
359 archprefix = files{2};
361 archprefix = absolute_pathname (archprefix);
364 warning ("creating the directory %s\n", archprefix);
365 archprefix = absolute_pathname (archprefix);
367 global_packages = archprefix;
370 error ("you must specify a prefix directory, or request an output argument");
374 if (length (files) == 0 && nargout == 0)
376 elseif (length (files) == 0 && nargout == 1)
377 local_packages = local_list;
378 elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
380 local_list = absolute_pathname (files{1});
382 ## Force file to be created
383 fclose (fopen (files{1}, "wt"));
384 local_list = absolute_pathname (files{1});
387 error ("you must specify a local_list file, or request an output argument");
391 if (length (files) == 0 && nargout == 0)
393 elseif (length (files) == 0 && nargout == 1)
394 local_packages = global_list;
395 elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
397 global_list = absolute_pathname (files{1});
399 ## Force file to be created
400 fclose (fopen (files{1}, "wt"));
401 global_list = absolute_pathname (files{1});
404 error ("you must specify a global_list file, or request an output argument");
409 global_packages = rebuild (prefix, archprefix, global_list, files,
411 global_packages = save_order (global_packages);
412 save (global_list, "global_packages");
414 local_packages = global_packages;
417 local_packages = rebuild (prefix, archprefix, local_list, files, auto,
419 local_packages = save_order (local_packages);
420 save (local_list, "local_packages");
422 clear ("local_packages");
427 if (length (files) < 2)
428 error ("you must specify at least the build directory and one filename\nwhen calling 'pkg build
'");
430 build (files, deps, auto, verbose);
433 if (length (files) == 0)
434 error ("you must specify at least one package or 'all' when calling 'pkg describe
'");
436 ## FIXME: the name of the output variables is inconsistent
437 ## with their content
440 describe (files, verbose, local_list, global_list);
442 pkg_desc_list = describe (files, verbose, local_list, ...
444 local_packages = pkg_desc_list;
446 [pkg_desc_list, flag] = describe (files, verbose, local_list, ...
448 local_packages = pkg_desc_list;
449 global_packages = flag;
451 error ("you can request at most two outputs when calling 'pkg describe
'");
455 error ("you must specify a valid action for 'pkg
'. See 'help pkg
' for details");
459 function descriptions = rebuild (prefix, archprefix, list, files, auto, verbose)
461 [dirlist, err, msg] = readdir (prefix);
463 error ("couldn't read directory
%s: %s", prefix, msg);
465 ## the two first entries of dirlist are "." and ".."
468 old_descriptions
= installed_packages
(list
, list
);
472 dirlist
= glob
(cellfun
(@
(x
) cstrcat
(x
, '-*'), files
, 'UniformOutput', 0));
473 unwind_protect_cleanup
478 for k
= 1:length (dirlist
)
479 descfile
= fullfile (prefix
, dirlist
{k
}, "packinfo"
, "DESCRIPTION"
);
481 printf
("recreating package description from
%s\n", dirlist{k});
483 if (exist (descfile
, "file"
))
484 desc
= get_description
(descfile
);
485 desc.
dir = fullfile (prefix
, dirlist
{k
});
486 desc.archprefix
= fullfile (archprefix
, cstrcat
(desc.name
, "
-"
,
489 if (exist (fullfile (desc.
dir, "packinfo"
, ".autoload"
), "file"
))
490 unlink
(fullfile (desc.
dir, "packinfo"
, ".autoload"
));
496 fclose (fopen (fullfile (desc.
dir, "packinfo"
, ".autoload"
), "wt"
));
499 if (exist (fullfile (desc.
dir, "packinfo"
, ".autoload"
), "file"
))
505 descriptions
{end + 1} = desc
;
507 warning
("directory
%s is not a valid package", dirlist{k});
511 if (! isempty (files
))
512 ## We are rebuilding
for a particular package
(s
) so we should take
513 ## care to keep the other untouched packages in the descriptions
514 descriptions
= {descriptions
{:}, old_descriptions
{:}};
517 for i
= 1:length (descriptions
)
521 for j
= (i
+1):length (descriptions
)
525 if (strcmp (descriptions
{i
}.name
, descriptions
{j
}.name
))
531 descriptions
(dup
) = [];
536 function build
(files
, handle_deps
, autoload
, verbose
)
537 if (length (files
) < 1)
538 error ("insufficient number of files"
);
541 if (! exist (builddir
, "
dir"
))
542 warning
("creating build directory
%s", builddir);
543 [status
, msg
] = mkdir
(builddir
);
545 error ("could not create installation directory
: %s", msg);
548 builddir
= absolute_pathname
(builddir
);
549 installdir
= fullfile (builddir
, "install"
);
550 if (! exist (installdir
, "
dir"
))
551 [status
, msg
] = mkdir
(installdir
);
553 error ("could not create installation directory
: %s", msg);
557 buildlist
= fullfile (builddir
, "octave_packages"
);
558 install
(files
, handle_deps
, autoload
, installdir
, installdir
, verbose
,
559 buildlist
, ""
, false
);
561 repackage
(builddir
, buildlist
);
562 unwind_protect_cleanup
563 unload_packages
({"
all"
}, handle_deps
, buildlist
, ""
);
564 if (exist (installdir
, "
dir"
))
567 if (exist (buildlist
, "file"
))
573 function install
(files
, handle_deps
, autoload
, prefix
, archprefix
, verbose
,
574 local_list
, global_list
, global_install
)
576 ## Check that the directory in prefix
exist.
If it doesn
't: create it!
577 if (! exist (prefix, "dir"))
578 warning ("creating installation directory %s", prefix);
579 [status, msg] = mkdir (prefix);
581 error ("could not create installation directory: %s", msg);
585 ## Get the list of installed packages.
586 [local_packages, global_packages] = installed_packages (local_list,
589 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
592 packages = global_packages;
594 packages = local_packages;
597 ## Uncompress the packages and read the DESCRIPTION files.
598 tmpdirs = packdirs = descriptions = {};
600 ## Warn about non existent files.
601 for i = 1:length (files)
602 if (isempty (glob(files{i})))
603 warning ("file %s does not exist", files{i});
607 ## Unpack the package files and read the DESCRIPTION files.
608 files = glob (files);
609 packages_to_uninstall = [];
610 for i = 1:length (files)
613 if (exist (tgz, "file"))
614 ## Create a temporary directory.
616 tmpdirs{end+1} = tmpdir;
618 printf ("mkdir (%s)\n", tmpdir);
620 [status, msg] = mkdir (tmpdir);
622 error ("couldn't create temporary directory
: %s", msg);
625 ## Uncompress the package.
627 printf
("untar
(%s, %s)\n", tgz, tmpdir);
631 ##
Get the name of the directories produced by tar.
632 [dirlist
, err
, msg
] = readdir
(tmpdir
);
634 error ("couldn
't read directory produced by tar: %s", msg);
637 if (length (dirlist) > 3)
638 error ("bundles of packages are not allowed")
642 ## The filename pointed to an uncompressed package to begin with.
643 if (exist (tgz, "dir"))
644 dirlist = {".", "..", tgz};
647 if (exist (tgz, "file") || exist (tgz, "dir"))
648 ## The two first entries of dirlist are "." and "..".
649 if (exist (tgz, "file"))
650 packdir = fullfile (tmpdir, dirlist{3});
652 packdir = fullfile (pwd(), dirlist{3});
654 packdirs{end+1} = packdir;
656 ## Make sure the package contains necessary files.
657 verify_directory (packdir);
659 ## Read the DESCRIPTION file.
660 filename = fullfile (packdir, "DESCRIPTION");
661 desc = get_description (filename);
663 ## Verify that package name corresponds with filename.
664 [dummy, nm] = fileparts (tgz);
665 if ((length (nm) >= length (desc.name))
666 && ! strcmp (desc.name, nm(1:length(desc.name))))
667 error ("package name '%s' doesn't correspond to its filename '%s'",
671 ##
Set default installation directory.
672 desc.
dir = fullfile (prefix
, cstrcat
(desc.name
, "
-"
, desc.
version));
674 ##
Set default architectire dependent installation directory.
675 desc.archprefix
= fullfile (archprefix
, cstrcat
(desc.name
, "
-"
,
679 descriptions
{end+1} = desc
;
681 ## Are
any of the new packages already installed?
682 ##
If so we
'll remove the old version.
683 for j = 1:length (packages)
684 if (strcmp (packages{j}.name, desc.name))
685 packages_to_uninstall(end+1) = j;
691 ## Something went wrong, delete tmpdirs.
692 for i = 1:length (tmpdirs)
695 rethrow (lasterror ());
698 ## Check dependencies.
702 for i = 1:length (descriptions)
703 desc = descriptions{i};
704 idx2 = complement (i, 1:length(descriptions));
706 ## Global installation is not allowed to have dependencies on locally
707 ## installed packages.
708 idx1 = complement (packages_to_uninstall,
709 1:length(global_packages));
710 pseudo_installed_packages = {global_packages{idx1}, ...
713 idx1 = complement (packages_to_uninstall,
714 1:length(local_packages));
715 pseudo_installed_packages = {local_packages{idx1}, ...
716 global_packages{:}, ...
719 bad_deps = get_unsatisfied_deps (desc, pseudo_installed_packages);
720 ## Are there any unsatisfied dependencies?
721 if (! isempty (bad_deps))
723 for i = 1:length (bad_deps)
725 error_text = cstrcat (error_text, " ", desc.name, " needs ",
726 dep.package, " ", dep.operator, " ",
732 ## Did we find any unsatisfied dependencies?
734 error ("the following dependencies where unsatisfied:\n %s", error_text);
738 ## Prepare each package for installation.
740 for i = 1:length (descriptions)
741 desc = descriptions{i};
743 prepare_installation (desc, pdir);
744 configure_make (desc, pdir, verbose);
747 ## Something went wrong, delete tmpdirs.
748 for i = 1:length (tmpdirs)
751 rethrow (lasterror ());
754 ## Uninstall the packages that will be replaced.
756 for i = packages_to_uninstall
758 uninstall ({global_packages{i}.name}, false, verbose, local_list,
759 global_list, global_install);
761 uninstall ({local_packages{i}.name}, false, verbose, local_list,
762 global_list, global_install);
766 ## Something went wrong, delete tmpdirs.
767 for i = 1:length (tmpdirs)
770 rethrow (lasterror ());
773 ## Install each package.
775 for i = 1:length (descriptions)
776 desc = descriptions{i};
778 copy_files (desc, pdir, global_install);
779 create_pkgadddel (desc, pdir, "PKG_ADD", global_install);
780 create_pkgadddel (desc, pdir, "PKG_DEL", global_install);
781 finish_installation (desc, pdir, global_install);
782 generate_lookfor_cache (desc);
785 ## Something went wrong, delete tmpdirs.
786 for i = 1:length (tmpdirs)
789 for i = 1:length (descriptions)
790 rm_rf (descriptions{i}.dir);
791 rm_rf (getarchdir (descriptions{i}));
793 rethrow (lasterror ());
796 ## Check if the installed directory is empty. If it is remove it
798 for i = length (descriptions):-1:1
799 if (dirempty (descriptions{i}.dir, {"packinfo", "doc"}) &&
800 dirempty (getarchdir (descriptions{i})))
801 warning ("package %s is empty\n", descriptions{i}.name);
802 rm_rf (descriptions{i}.dir);
803 rm_rf (getarchdir (descriptions{i}));
804 descriptions(i) = [];
808 ## If the package requested that it is autoloaded, or the installer
809 ## requested that it is, then mark the package as autoloaded.
810 for i = length (descriptions):-1:1
811 if (autoload > 0 || (autoload == 0 && isautoload (descriptions(i))))
812 fclose (fopen (fullfile (descriptions{i}.dir, "packinfo",
813 ".autoload"), "wt"));
814 descriptions{i}.autoload = 1;
818 ## Add the packages to the package list.
821 idx = complement (packages_to_uninstall, 1:length(global_packages));
822 global_packages = save_order ({global_packages{idx}, descriptions{:}});
823 save (global_list, "global_packages");
824 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
826 idx = complement (packages_to_uninstall, 1:length(local_packages));
827 local_packages = save_order ({local_packages{idx}, descriptions{:}});
828 save (local_list, "local_packages");
829 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
832 ## Something went wrong, delete tmpdirs.
833 for i = 1:length (tmpdirs)
836 for i = 1:length (descriptions)
837 rm_rf (descriptions{i}.dir);
840 printf ("error: couldn't append to
%s\n", global_list);
842 printf
("
error: couldn
't append to %s\n", local_list);
844 rethrow (lasterror ());
847 ## All is well, let's clean up.
848 for i
= 1:length (tmpdirs
)
849 [status
, msg
] = rm_rf
(tmpdirs
{i
});
851 warning
("couldn
't clean up after my self: %s\n", msg);
855 ## Add the newly installed packages to the path, so the user
856 ## can begin using them. Only load them if they are marked autoload.
857 if (length (descriptions) > 0)
859 for i = 1:length (descriptions)
860 if (isautoload (descriptions(i)))
861 nm = descriptions{i}.name;
862 for j = 1:length (installed_pkgs_lst)
863 if (strcmp (nm, installed_pkgs_lst{j}.name))
870 load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst,
875 function uninstall (pkgnames, handle_deps, verbose, local_list,
876 global_list, global_install)
877 ## Get the list of installed packages.
878 [local_packages, global_packages] = installed_packages(local_list,
881 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
883 installed_pkgs_lst = local_packages;
886 num_packages = length (installed_pkgs_lst);
888 for i = 1:num_packages
889 cur_name = installed_pkgs_lst{i}.name;
890 if (any (strcmp (cur_name, pkgnames)))
891 delete_idx(end+1) = i;
895 ## Are all the packages that should be uninstalled already installed?
896 if (length (delete_idx) != length (pkgnames))
898 ## Try again for a locally installed package.
899 installed_pkgs_lst = local_packages;
901 num_packages = length (installed_pkgs_lst);
903 for i = 1:num_packages
904 cur_name = installed_pkgs_lst{i}.name;
905 if (any (strcmp (cur_name, pkgnames)))
906 delete_idx(end+1) = i;
909 if (length (delete_idx) != length (pkgnames))
910 ## FIXME: We should have a better error message.
911 warning ("some of the packages you want to uninstall are not installed");
914 ## FIXME: We should have a better error message.
915 warning ("some of the packages you want to uninstall are not installed");
919 ## Compute the packages that will remain installed.
920 idx = complement (delete_idx, 1:num_packages);
921 remaining_packages = {installed_pkgs_lst{idx}};
923 ## Check dependencies.
926 for i = 1:length (remaining_packages)
927 desc = remaining_packages{i};
928 bad_deps = get_unsatisfied_deps (desc, remaining_packages);
930 ## Will the uninstallation break any dependencies?
931 if (! isempty (bad_deps))
932 for i = 1:length (bad_deps)
934 error_text = cstrcat (error_text, " ", desc.name, " needs ",
935 dep.package, " ", dep.operator, " ",
941 if (! isempty (error_text))
942 error ("the following dependencies where unsatisfied:\n %s", error_text);
946 ## Delete the directories containing the packages.
948 desc = installed_pkgs_lst{i};
949 ## If an 'on_uninstall.m
' exist, call it!
950 if (exist (fullfile (desc.dir, "packinfo", "on_uninstall.m"), "file"))
952 cd (fullfile (desc.dir, "packinfo"));
956 ## Do the actual deletion.
959 if (exist (getarchdir (desc)))
960 rmpath (getarchdir (desc));
963 if (exist (desc.dir, "dir"))
964 [status, msg] = rm_rf (desc.dir);
966 error ("couldn't
delete directory
%s: %s", desc.dir, msg);
968 [status
, msg
] = rm_rf
(getarchdir
(desc
));
970 error ("couldn
't delete directory %s: %s", getarchdir (desc), msg);
972 if (dirempty (desc.archprefix))
973 rm_rf (desc.archprefix);
976 warning ("directory %s previously lost", desc.dir);
980 ## Write a new ~/.octave_packages.
982 if (length (remaining_packages) == 0)
983 unlink (global_list);
985 global_packages = save_order (remaining_packages);
986 save (global_list, "global_packages");
989 if (length (remaining_packages) == 0)
992 local_packages = save_order (remaining_packages);
993 save (local_list, "local_packages");
999 function [pkg_desc_list, flag] = describe (pkgnames, verbose,
1000 local_list, global_list)
1002 ## Get the list of installed packages.
1003 installed_pkgs_lst = installed_packages(local_list, global_list);
1004 num_packages = length (installed_pkgs_lst);
1007 describe_all = false;
1008 if (any (strcmp ("all", pkgnames)))
1009 describe_all = true;
1010 flag(1:num_packages) = {"Not Loaded"};
1011 num_pkgnames = num_packages;
1013 num_pkgnames = length (pkgnames);
1014 flag(1:num_pkgnames) = {"Not installed"};
1017 for i = 1:num_packages
1018 curr_name = installed_pkgs_lst{i}.name;
1022 name_pos = find(strcmp (curr_name, pkgnames));
1025 if (! isempty (name_pos))
1026 if (installed_pkgs_lst{i}.loaded)
1027 flag{name_pos} = "Loaded";
1029 flag{name_pos} = "Not loaded";
1032 pkg_desc_list{name_pos}.name = installed_pkgs_lst{i}.name;
1033 pkg_desc_list{name_pos}.version = installed_pkgs_lst{i}.version;
1034 pkg_desc_list{name_pos}.description = installed_pkgs_lst{i}.description;
1035 pkg_desc_list{name_pos}.provides = parse_pkg_idx (installed_pkgs_lst{i}.dir);
1040 non_inst = find (strcmp (flag, "Not installed"));
1041 if (! isempty (non_inst))
1043 non_inst_str = sprintf (" %s ", pkgnames{non_inst});
1044 error ("some packages are not installed: %s", non_inst_str);
1046 pkg_desc_list{non_inst} = struct ("name", {}, "description",
1047 {}, "provides", {});
1052 for i = 1:num_pkgnames
1053 print_package_description (pkg_desc_list{i}.name,
1054 pkg_desc_list{i}.version,
1055 pkg_desc_list{i}.provides,
1056 pkg_desc_list{i}.description,
1063 ## AUXILIARY FUNCTIONS
1065 ## Read an INDEX file.
1066 function [pkg_idx_struct] = parse_pkg_idx (packdir)
1068 index_file = fullfile (packdir, "packinfo", "INDEX");
1070 if (! exist (index_file, "file"))
1071 error ("could not find any INDEX file in directory %s, try 'pkg rebuild
all' to generate missing INDEX files", packdir);
1075 [fid, msg] = fopen (index_file, "r");
1077 error ("the INDEX file %s could not be read: %s",
1082 pkg_idx_struct{1}.category = "Uncategorized";
1083 pkg_idx_struct{1}.functions = {};
1086 while (isempty (strfind (line, ">>")) && ! feof (fid))
1090 while (! feof (fid) || line != -1)
1091 if (! any (! isspace (line)) || line(1) == "#" || any (line == "="))
1092 ## Comments, blank lines or comments about unimplemented
1093 ## functions: do nothing
1094 ## FIXME: probably comments and pointers to external functions
1095 ## could be treated better when printing to screen?
1096 elseif (! isempty (strfind (line, ">>")))
1097 ## Skip package name and description as they are in DESCRIPTION
1099 elseif (! isspace (line(1)))
1101 if (! isempty (pkg_idx_struct{cat_num}.functions))
1102 pkg_idx_struct{++cat_num}.functions = {};
1104 pkg_idx_struct{cat_num}.category = deblank (line);
1107 while (any (! isspace (line)))
1108 [fun_name, line] = strtok (line);
1109 pkg_idx_struct{cat_num}.functions{end+1} = deblank (fun_name);
1117 function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
1118 pkg_desc, status, verbose)
1120 printf ("---\nPackage name:\n\t%s\n", pkg_name);
1121 printf ("Version:\n\t%s\n", pkg_ver);
1122 printf ("Short description:\n\t%s\n", pkg_desc);
1123 printf ("Status:\n\t%s\n", status);
1125 printf ("---\nProvides:\n");
1126 for i = 1:length(pkg_idx_struct)
1127 if (! isempty (pkg_idx_struct{i}.functions))
1128 printf ("%s\n", pkg_idx_struct{i}.category);
1129 for j = 1:length(pkg_idx_struct{i}.functions)
1130 printf ("\t%s\n", pkg_idx_struct{i}.functions{j});
1139 function pth = absolute_pathname (pth)
1140 [status, msg, msgid] = fileattrib (pth);
1142 error ("could not find the file or path %s", pth);
1148 function repackage (builddir, buildlist)
1149 packages = installed_packages (buildlist, buildlist);
1152 for i = 1 : length(packages)
1157 mkdir (fullfile (pack.name, "inst"));
1158 copyfile (fullfile (pack.dir, "*"), fullfile (pack.name, "inst"));
1159 movefile (fullfile (pack.name, "inst","packinfo", "*"), pack.name);
1160 if (exist (fullfile (pack.name, "inst","packinfo", ".autoload"), "file"))
1161 unlink (fullfile (pack.name, "inst","packinfo", ".autoload"));
1163 rmdir (fullfile (pack.name, "inst", "packinfo"));
1164 if (exist (fullfile (pack.name, "inst", "doc"), "dir"))
1165 movefile (fullfile (pack.name, "inst", "doc"), pack.name);
1167 if (exist (fullfile (pack.name, "inst", "bin"), "dir"))
1168 movefile (fullfile (pack.name, "inst", "bin"), pack.name);
1170 archdir = fullfile (pack.archprefix, cstrcat (pack.name, "-",
1171 pack.version), getarch ());
1172 if (exist (archdir, "dir"))
1173 if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
1174 unlink (fullfile (pack.name, "inst", "PKG_ADD"));
1176 if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
1177 unlink (fullfile (pack.name, "inst", "PKG_DEL"));
1179 if (exist (fullfile (archdir, "PKG_ADD"), "file"))
1180 movefile (fullfile (archdir, "PKG_ADD"),
1181 fullfile (pack.name, "PKG_ADD"));
1183 if (exist (fullfile (archdir, "PKG_DEL"), "file"))
1184 movefile (fullfile (archdir, "PKG_DEL"),
1185 fullfile (pack.name, "PKG_DEL"));
1188 if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
1189 movefile (fullfile (pack.name, "inst", "PKG_ADD"),
1190 fullfile (pack.name, "PKG_ADD"));
1192 if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
1193 movefile (fullfile (pack.name, "inst", "PKG_DEL"),
1194 fullfile (pack.name, "PKG_DEL"));
1197 tfile = cstrcat (pack.name, "-", pack.version, ".tar");
1198 tar (tfile, pack.name);
1203 warning ("failed to compress %s", tfile);
1205 unwind_protect_cleanup
1206 if (exist (pack.name, "dir"))
1214 function auto = isautoload (desc)
1216 if (isfield (desc{1}, "autoload"))
1217 a = desc{1}.autoload;
1218 if ((isnumeric (a) && a > 0)
1219 || (ischar (a) && (strcmpi (a, "true")
1220 || strcmpi (a, "on")
1221 || strcmpi (a, "yes")
1222 || strcmpi (a, "1"))))
1228 function prepare_installation (desc, packdir)
1229 ## Is there a pre_install to call?
1230 if (exist (fullfile (packdir, "pre_install.m"), "file"))
1238 rethrow (lasterror ());
1242 ## If the directory "inst" doesn't
exist, we create it.
1243 inst_dir
= fullfile (packdir
, "inst"
);
1244 if (! exist (inst_dir
, "
dir"
))
1245 [status
, msg
] = mkdir
(inst_dir
);
1248 error ("the
'inst' directory did not
exist and could not be created
: %s",
1254 function configure_make
(desc
, packdir
, verbose
)
1255 ## Perform .
/configure
, make
, make install in "src".
1256 if (exist (fullfile (packdir
, "src"
), "
dir"
))
1257 src
= fullfile (packdir
, "src"
);
1259 if (exist (fullfile (src
, "configure"
), "file"
))
1261 if (isempty (getenv ("CC"
)))
1262 flags
= cstrcat
(flags
, " CC
=\""
, octave_config_info
("CC"
), "
\""
);
1264 if (isempty (getenv ("CXX"
)))
1265 flags
= cstrcat
(flags
, " CXX
=\""
, octave_config_info
("CXX"
), "
\""
);
1267 if (isempty (getenv ("AR"
)))
1268 flags
= cstrcat
(flags
, " AR
=\""
, octave_config_info
("AR"
), "
\""
);
1270 if (isempty (getenv ("RANLIB"
)))
1271 flags
= cstrcat
(flags
, " RANLIB
=\""
, octave_config_info
("RANLIB"
), "
\""
);
1273 [status
, output
] = shell
(strcat
("
cd '", src, "'; .
/configure
--prefix
=\""
,
1274 desc.
dir, "
\""
, flags
));
1277 error ("the configure
script returned the following
error: %s", output);
1279 printf
("
%s", output);
1285 if (exist (fullfile (src
, "Makefile"
), "file"
))
1286 [status
, output
] = shell
(cstrcat
("export INSTALLDIR
=\""
, desc.
dir,
1287 "
\"; make
-C
'", src, "'"
));
1290 error ("
'make' returned the following
error: %s", output);
1292 printf
("
%s", output);
1296 ## Copy files to "inst" and "inst
/arch"
(this is instead of
'make
1298 files
= fullfile (src
, "FILES"
);
1299 instdir
= fullfile (packdir
, "inst"
);
1300 archdir
= fullfile (packdir
, "inst"
, getarch
());
1303 if (exist (files
, "file"
))
1304 [fid
, msg
] = fopen (files
, "r"
);
1306 error ("couldn
't open %s: %s", files, msg);
1308 filenames = char (fread (fid))';
1310 if (filenames
(end) == "
\n"
)
1311 filenames
(end) = [];
1313 filenames
= split_by
(filenames
, "
\n"
);
1315 for i
= 1:length (filenames
)
1316 if (! all (isspace (filenames
{i
})))
1317 filenames
{i
} = fullfile (src
, filenames
{i
});
1319 delete_idx
(end+1) = i
;
1322 filenames
(delete_idx
) = [];
1324 m
= dir (fullfile (src
, "
*.m"
));
1325 oct
= dir (fullfile (src
, "
*.oct"
));
1326 mex
= dir (fullfile (src
, "
*.mex"
));
1328 filenames
= cellfun
(@
(x
) fullfile (src
, x
),
1329 {m.name
, oct.name
, mex.name
},
1330 "UniformOutput"
, false
);
1333 ## Split into architecture dependent and independent files.
1334 if (isempty (filenames
))
1337 idx
= cellfun
(@is_architecture_dependent
, filenames
);
1339 archdependent
= filenames
(idx
);
1340 archindependent
= filenames
(!idx
);
1343 if (! all (isspace ([filenames
{:}])))
1344 if (! exist (instdir
, "
dir"
)) # fixindent
1347 if (! all (isspace ([archindependent
{:}])))
1349 printf
("copyfile"
);
1350 printf
("
%s", archindependent{:});
1351 printf
("
%s\n", instdir);
1353 [status
, output
] = copyfile
(archindependent
, instdir
);
1356 error ("Couldn
't copy files from 'src
' to 'inst
': %s", output);
1359 if (! all (isspace ([archdependent{:}])))
1361 printf ("copyfile");
1362 printf (" %s", archdependent{:});
1363 printf (" %s\n", archdir);
1365 if (! exist (archdir, "dir"))
1368 [status, output] = copyfile (archdependent, archdir);
1371 error ("Couldn't copy files from
'src' to
'inst': %s", output);
1378 function pkg
= extract_pkg
(nm
, pat
)
1379 fid
= fopen (nm
, "rt"
);
1382 while (! feof (fid
))
1385 t
= regexp
(ln
, pat
, "tokens"
);
1387 pkg
= cstrcat
(pkg
, "
\n"
, t
{1}{1});
1391 if (! isempty (pkg
))
1392 pkg
= cstrcat
(pkg
, "
\n"
);
1398 function create_pkgadddel
(desc
, packdir
, nm
, global_install
)
1399 instpkg
= fullfile (desc.
dir, nm
);
1400 instfid
= fopen (instpkg
, "wt"
);
1401 ##
If it is exists
, most of the PKG_
* file should go into the
1402 ## architecture dependent directory so that the autoload
/mfilename
1403 ## commands work as expected. The only part that doesn
't is the
1404 ## part in the main directory.
1405 archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-",
1406 desc.version), getarch ());
1407 if (exist (getarchdir (desc, global_install), "dir"))
1408 archpkg = fullfile (getarchdir (desc, global_install), nm);
1409 archfid = fopen (archpkg, "at");
1415 if (archfid >= 0 && instfid >= 0)
1416 ## Search all dot-m files for PKG commands.
1417 lst = dir (fullfile (packdir, "inst", "*.m"));
1418 for i = 1:length (lst)
1419 nam = fullfile (packdir, "inst", lst(i).name);
1420 fwrite (instfid, extract_pkg (nam, ['^
[#
%][#%]* *' nm ': *(.*)$']));
1423 ## Search
all C
++ source files
for PKG commands.
1424 lst
= dir (fullfile (packdir
, "src"
, "
*.cc"
));
1425 for i
= 1:length (lst
)
1426 nam
= fullfile (packdir
, "src"
, lst
(i
).name
);
1427 fwrite (archfid
, extract_pkg
(nam
, ['^//* *' nm
': *(.*)$']));
1428 fwrite (archfid
, extract_pkg
(nam
, ['^/\** *' nm
': *(.*) *\*/$']));
1431 ## Add developer included PKG commands.
1432 packdirnm
= fullfile (packdir
, nm
);
1433 if (exist (packdirnm
, "file"
))
1434 fid
= fopen (packdirnm
, "rt"
);
1436 while (! feof (fid
))
1439 fwrite (archfid
, ln
);
1446 ##
If the files is empty remove it.
1453 if (instfid
!= archfid
)
1463 function copy_files
(desc
, packdir
, global_install
)
1464 ## Create the installation directory.
1465 if (! exist (desc.
dir, "
dir"
))
1466 [status
, output
] = mkdir
(desc.
dir);
1468 error ("couldn
't create installation directory %s : %s",
1473 octfiledir = getarchdir (desc);
1475 ## Copy the files from "inst" to installdir.
1476 instdir = fullfile (packdir, "inst");
1477 if (! dirempty (instdir))
1478 [status, output] = copyfile (fullfile (instdir, "*"), desc.dir);
1481 error ("couldn't copy files to the installation directory"
);
1483 if (exist (fullfile (desc.
dir, getarch
()), "
dir"
) &&
1484 ! strcmp (fullfile (desc.
dir, getarch
()), octfiledir
))
1485 if (! exist (octfiledir
, "
dir"
))
1486 ## Can be required to create upto three levels of dirs.
1487 octm1
= fileparts (octfiledir
);
1488 if (! exist (octm1
, "
dir"
))
1489 octm2
= fileparts (octm1
);
1490 if (! exist (octm2
, "
dir"
))
1491 octm3
= fileparts (octm2
);
1492 if (! exist (octm3
, "
dir"
))
1493 [status
, output
] = mkdir
(octm3
);
1496 error ("couldn
't create installation directory %s : %s",
1500 [status, output] = mkdir (octm2);
1503 error ("couldn't create installation directory
%s : %s",
1507 [status
, output
] = mkdir
(octm1
);
1510 error ("couldn
't create installation directory %s : %s",
1514 [status, output] = mkdir (octfiledir);
1517 error ("couldn't create installation directory
%s : %s",
1518 octfiledir
, output
);
1521 [status
, output
] = movefile
(fullfile (desc.
dir, getarch
(), "
*"
),
1523 rm_rf
(fullfile (desc.
dir, getarch
()));
1528 error ("couldn
't copy files to the installation directory");
1534 ## Create the "packinfo" directory.
1535 packinfo = fullfile (desc.dir, "packinfo");
1536 [status, msg] = mkdir (packinfo);
1540 error ("couldn't create packinfo directory
: %s", msg);
1543 ## Copy DESCRIPTION.
1544 [status
, output
] = copyfile
(fullfile (packdir
, "DESCRIPTION"
), packinfo
);
1548 error ("couldn
't copy DESCRIPTION: %s", output);
1552 [status, output] = copyfile (fullfile (packdir, "COPYING"), packinfo);
1556 error ("couldn't copy COPYING
: %s", output);
1559 ##
If the file ChangeLog exists
, copy it.
1560 changelog_file
= fullfile (packdir
, "ChangeLog"
);
1561 if (exist (changelog_file
, "file"
))
1562 [status
, output
] = copyfile
(changelog_file
, packinfo
);
1566 error ("couldn
't copy ChangeLog file: %s", output);
1570 ## Is there an INDEX file to copy or should we generate one?
1571 index_file = fullfile (packdir, "INDEX");
1572 if (exist(index_file, "file"))
1573 [status, output] = copyfile (index_file, packinfo);
1577 error ("couldn't copy INDEX file
: %s", output);
1581 write_index
(desc
, fullfile (packdir
, "inst"
),
1582 fullfile (packinfo
, "INDEX"
), global_install
);
1586 rethrow
(lasterror
());
1590 ## Is there an
'on_uninstall.m' to install?
1591 fon_uninstall
= fullfile (packdir
, "on_uninstall.m"
);
1592 if (exist (fon_uninstall
, "file"
))
1593 [status
, output
] = copyfile
(fon_uninstall
, packinfo
);
1597 error ("couldn
't copy on_uninstall.m: %s", output);
1601 ## Is there a doc/ directory that needs to be installed?
1602 docdir = fullfile (packdir, "doc");
1603 if (exist (docdir, "dir") && ! dirempty (docdir))
1604 [status, output] = copyfile (docdir, desc.dir);
1607 ## Is there a bin/ directory that needs to be installed?
1608 ## FIXME: Need to treat architecture dependent files in bin/
1609 bindir = fullfile (packdir, "bin");
1610 if (exist (bindir, "dir") && ! dirempty (bindir))
1611 [status, output] = copyfile (bindir, desc.dir);
1615 function finish_installation (desc, packdir, global_install)
1616 ## Is there a post-install to call?
1617 if (exist (fullfile (packdir, "post_install.m"), "file"))
1621 post_install (desc);
1626 rm_rf (getarchdir (desc), global_install);
1627 rethrow (lasterror ());
1632 function generate_lookfor_cache (desc)
1633 dirs = split_by (genpath (desc.dir), pathsep ());
1634 for i = 1 : length (dirs)
1635 gen_doc_cache (fullfile (dirs{i}, "doc-cache"), dirs{i});
1639 ## Make sure the package contains the essential files.
1640 function verify_directory (dir)
1641 needed_files = {"COPYING", "DESCRIPTION"};
1642 for f = needed_files
1643 if (! exist (fullfile (dir, f{1}), "file"))
1644 error ("package is missing file: %s", f{1});
1649 ## Parse the DESCRIPTION file.
1650 function desc = get_description (filename)
1651 [fid, msg] = fopen (filename, "r");
1653 error ("the DESCRIPTION file %s could not be read: %s", filename, msg);
1661 ## Comments, do nothing.
1662 elseif (isspace(line(1)))
1663 ## Continuation lines
1664 if (exist ("keyword", "var") && isfield (desc, keyword))
1665 desc.(keyword) = cstrcat (desc.(keyword), " ", rstrip(line));
1668 ## Keyword/value pair
1669 colon = find (line == ":");
1670 if (length (colon) == 0)
1671 disp ("skipping line");
1674 keyword = tolower (strip (line(1:colon-1)));
1675 value = strip (line (colon+1:end));
1676 if (length (value) == 0)
1678 error ("the keyword %s has an empty value", desc.keywords{end});
1680 desc.(keyword) = value;
1687 ## Make sure all is okay.
1688 needed_fields = {"name", "version", "date", "title", ...
1689 "author", "maintainer", "description"};
1690 for f = needed_fields
1691 if (! isfield (desc, f{1}))
1692 error ("description is missing needed field %s", f{1});
1695 desc.version = fix_version (desc.version);
1696 if (isfield (desc, "depends"))
1697 desc.depends = fix_depends (desc.depends);
1701 desc.name = tolower (desc.name);
1704 ## Make sure the version string v is a valid x.y.z version string
1705 ## Examples: "0.1" => "0.1.0", "monkey" => error(...).
1706 function out = fix_version (v)
1707 dots = find (v == ".");
1708 if (length (dots) == 1)
1709 major = str2num (v(1:dots-1));
1710 minor = str2num (v(dots+1:end));
1711 if (length (major) != 0 && length (minor) != 0)
1712 out = sprintf ("%d.%d.0", major, minor);
1715 elseif (length (dots) == 2)
1716 major = str2num (v(1:dots(1)-1));
1717 minor = str2num (v(dots(1)+1:dots(2)-1));
1718 rev = str2num (v(dots(2)+1:end));
1719 if (length (major) != 0 && length (minor) != 0 && length (rev) != 0)
1720 out = sprintf ("%d.%d.%d", major, minor, rev);
1724 error ("bad version string: %s", v);
1727 ## Make sure the depends field is of the right format.
1728 ## This function returns a cell of structures with the following fields:
1729 ## package, version, operator
1730 function deps_cell = fix_depends (depends)
1731 deps = split_by (tolower (depends), ",");
1732 deps_cell = cell (1, length (deps));
1734 ## For each dependency.
1735 for i = 1:length (deps)
1737 lpar = find (dep == "(");
1738 rpar = find (dep == ")");
1739 ## Does the dependency specify a version
1740 ## Example: package(>= version).
1741 if (length (lpar) == 1 && length (rpar) == 1)
1742 package = tolower (strip (dep(1:lpar-1)));
1743 sub = dep(lpar(1)+1:rpar(1)-1);
1744 parts = strsplit (sub, " ", true);
1745 if (length (parts) != 2)
1746 error ("incorrect syntax for dependency `%s' in the DESCRIPTION file
\n"
,
1749 operator
= parts
{1};
1750 if (! any (strcmp (operator
, {"
>"
, "
>="
, "
<="
, "
<"
, "
=="
})))
1751 error ("unsupported operator
: %s", operator);
1753 version = fix_version
(parts
{2});
1755 ##
If no
version is specified
for the dependency
1756 ## we say that the
version should be greater than
1757 ## or equal to "
0.0.0".
1759 package
= tolower
(strip
(dep
));
1763 deps_cell
{i
} = struct ("package"
, package
, "operator"
, operator
,
1764 "
version"
, version);
1768 ## Strip the
text of spaces from the right
1769 ## Example
: " hello world "
=> " hello world"
1770 ## FIXME
-- is this the same as
deblank?
1771 function text = rstrip
(text)
1772 chars
= find (! isspace (text));
1773 if (length (chars
) > 0)
1774 ## FIXME
: shouldn
't it be text = text(1:chars(end));
1775 text = text (chars(1):end);
1781 ## Strip the text of spaces from the left and the right.
1782 ## Example: " hello world " => "hello world"
1783 function text = strip (text)
1784 chars = find (! isspace (text));
1785 if (length (chars) > 0)
1786 text = text(chars(1):chars(end));
1792 ## Split the text into a cell array of strings by sep.
1793 ## Example: "A, B" => {"A", "B"} (with sep = ",")
1794 function out = split_by (text, sep)
1795 out = strtrim (strsplit (text, sep));
1798 ## Create an INDEX file for a package that doesn't provide one.
1799 ##
'desc' describes the package.
1800 ##
'dir' is the
'inst' directory in temporary directory.
1801 ##
'index_file' is the name
(including
path) of resulting INDEX file.
1802 function write_index
(desc
, dir, index_file
, global_install
)
1803 ##
Get names of functions in
dir
1804 [files
, err
, msg
] = readdir
(dir);
1806 error ("couldn
't read directory %s: %s", dir, msg);
1809 ## Check for architecture dependent files.
1810 tmpdir = getarchdir (desc);
1811 if (exist (tmpdir, "dir"))
1812 [files2, err, msg] = readdir (tmpdir);
1814 error ("couldn't read directory
%s: %s", tmpdir, msg);
1816 files
= [files
; files2
];
1820 for i
= 1:length (files
)
1823 if (lf
> 2 && strcmp (file
(end-1:end), ".m"
))
1824 functions
{end+1} = file
(1:end-2);
1825 elseif (lf
> 4 && strcmp (file
(end-3:end), ".oct"
))
1826 functions
{end+1} = file
(1:end-4);
1830 ## Does desc have a categories field?
1831 if (! isfield (desc
, "categories"
))
1832 error ("the DESCRIPTION file must have a Categories field
, when no INDEX file is given"
);
1834 categories
= split_by
(desc.categories
, "
,"
);
1835 if (length (categories
) < 1)
1836 error ("the Category field is empty"
);
1840 fid
= fopen (index_file
, "w"
);
1842 error ("couldn
't open %s for writing.", index_file);
1844 fprintf (fid, "%s >> %s\n", desc.name, desc.title);
1845 fprintf (fid, "%s\n", categories{1});
1846 fprintf (fid, " %s\n", functions{:});
1850 function bad_deps = get_unsatisfied_deps (desc, installed_pkgs_lst)
1853 ## For each dependency.
1854 for i = 1:length (desc.depends)
1855 dep = desc.depends{i};
1857 ## Is the current dependency Octave?
1858 if (strcmp (dep.package, "octave"))
1859 if (! compare_versions (OCTAVE_VERSION, dep.version, dep.operator))
1860 bad_deps{end+1} = dep;
1862 ## Is the current dependency not Octave?
1865 for i = 1:length (installed_pkgs_lst)
1866 cur_name = installed_pkgs_lst{i}.name;
1867 cur_version = installed_pkgs_lst{i}.version;
1868 if (strcmp (dep.package, cur_name)
1869 && compare_versions (cur_version, dep.version, dep.operator))
1875 bad_deps{end+1} = dep;
1881 function [out1, out2] = installed_packages (local_list, global_list)
1882 ## Get the list of installed packages.
1884 local_packages = load (local_list).local_packages;
1886 local_packages = {};
1889 global_packages = load (global_list).global_packages;
1891 global_packages = {};
1893 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
1895 ## Eliminate duplicates in the installed package list.
1896 ## Locally installed packages take precedence.
1898 for i = 1:length (installed_pkgs_lst)
1902 for j = (i+1):length (installed_pkgs_lst)
1906 if (strcmp (installed_pkgs_lst{i}.name, installed_pkgs_lst{j}.name))
1912 installed_pkgs_lst(dup) = [];
1915 ## Now check if the package is loaded.
1916 tmppath = strrep (path(), "\\", "/");
1917 for i = 1:length (installed_pkgs_lst)
1918 if (findstr (tmppath, strrep (installed_pkgs_lst{i}.dir, "\\", "/")))
1919 installed_pkgs_lst{i}.loaded = true;
1921 installed_pkgs_lst{i}.loaded = false;
1924 for i = 1:length (local_packages)
1925 if (findstr (tmppath, strrep (local_packages{i}.dir, "\\", "/")))
1926 local_packages{i}.loaded = true;
1928 local_packages{i}.loaded = false;
1931 for i = 1:length (global_packages)
1932 if (findstr (tmppath, strrep (global_packages{i}.dir, "\\", "/")))
1933 global_packages{i}.loaded = true;
1935 global_packages{i}.loaded = false;
1939 ## Should we return something?
1941 out1 = local_packages;
1942 out2 = global_packages;
1944 elseif (nargout == 1)
1945 out1 = installed_pkgs_lst;
1949 ## We shouldn't
return something
, so we
'll print something.
1950 num_packages = length (installed_pkgs_lst);
1951 if (num_packages == 0)
1952 printf ("no packages installed.\n");
1956 ## Compute the maximal lengths of name, version, and dir.
1957 h1 = "Package Name";
1959 h3 = "Installation directory";
1960 max_name_length = length (h1);
1961 max_version_length = length (h2);
1962 names = cell (num_packages, 1);
1963 for i = 1:num_packages
1964 max_name_length = max (max_name_length,
1965 length (installed_pkgs_lst{i}.name));
1966 max_version_length = max (max_version_length,
1967 length (installed_pkgs_lst{i}.version));
1968 names{i} = installed_pkgs_lst{i}.name;
1970 max_dir_length = terminal_size()(2) - max_name_length - ...
1971 max_version_length - 7;
1972 if (max_dir_length < 20)
1973 max_dir_length = Inf;
1976 h1 = postpad (h1, max_name_length + 1, " ");
1977 h2 = postpad (h2, max_version_length, " ");;
1980 header = sprintf("%s | %s | %s\n", h1, h2, h3);
1982 tmp = sprintf (repmat ("-", 1, length(header)-1));
1983 tmp(length(h1)+2) = "+";
1984 tmp(length(h1)+length(h2)+5) = "+";
1985 printf ("%s\n", tmp);
1987 ## Print the packages.
1988 format = sprintf ("%%%ds %%1s| %%%ds | %%s\n", max_name_length,
1989 max_version_length);
1990 [dummy, idx] = sort (names);
1991 for i = 1:num_packages
1992 cur_name = installed_pkgs_lst{idx(i)}.name;
1993 cur_version = installed_pkgs_lst{idx(i)}.version;
1994 cur_dir = installed_pkgs_lst{idx(i)}.dir;
1995 if (length (cur_dir) > max_dir_length)
1996 first_char = length (cur_dir) - max_dir_length + 4;
1997 first_filesep = strfind (cur_dir(first_char:end), filesep());
1998 if (! isempty (first_filesep))
1999 cur_dir = cstrcat ("...",
2000 cur_dir((first_char + first_filesep(1) - 1):end));
2002 cur_dir = cstrcat ("...", cur_dir(first_char:end));
2005 if (installed_pkgs_lst{idx(i)}.loaded)
2010 printf (format, cur_name, cur_loaded, cur_version, cur_dir);
2014 function load_packages (files, handle_deps, local_list, global_list)
2015 installed_pkgs_lst = installed_packages (local_list, global_list);
2016 num_packages = length (installed_pkgs_lst);
2018 ## Read package names and installdirs into a more convenient format.
2019 pnames = pdirs = cell (1, num_packages);
2020 for i = 1:num_packages
2021 pnames{i} = installed_pkgs_lst{i}.name;
2022 pdirs{i} = installed_pkgs_lst{i}.dir;
2026 if (length (files) == 1 && strcmp (files{1}, "all"))
2027 idx = [1:length(installed_pkgs_lst)];
2029 elseif (length (files) == 1 && strcmp (files{1}, "auto"))
2031 for i = 1:length (installed_pkgs_lst)
2032 if (exist (fullfile (pdirs{i}, "packinfo", ".autoload"), "file"))
2036 ## Load package_name1 ...
2039 for i = 1:length (files)
2040 idx2 = find (strcmp (pnames, files{i}));
2042 error ("package %s is not installed", files{i});
2044 idx (end + 1) = idx2;
2048 ## Load the packages, but take care of the ordering of dependencies.
2049 load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst, true);
2052 function unload_packages (files, handle_deps, local_list, global_list)
2053 installed_pkgs_lst = installed_packages (local_list, global_list);
2054 num_packages = length (installed_pkgs_lst);
2056 ## Read package names and installdirs into a more convenient format.
2057 pnames = pdirs = cell (1, num_packages);
2058 for i = 1:num_packages
2059 pnames{i} = installed_pkgs_lst{i}.name;
2060 pdirs{i} = installed_pkgs_lst{i}.dir;
2061 pdeps{i} = installed_pkgs_lst{i}.depends;
2064 ## Get the current octave path.
2065 p = split_by (path(), pathsep ());
2067 if (length (files) == 1 && strcmp (files{1}, "all"))
2070 desc = installed_pkgs_lst;
2072 ## Unload package_name1 ...
2075 for i = 1:length (files)
2076 idx = strcmp (pnames, files{i});
2078 error ("package %s is not installed", files{i});
2080 dirs{end+1} = pdirs{idx};
2081 desc{end+1} = installed_pkgs_lst{idx};
2085 ## Check for architecture dependent directories.
2087 for i = 1:length (dirs)
2088 tmpdir = getarchdir (desc{i});
2089 if (exist (tmpdir, "dir"))
2090 archdirs{end+1} = dirs{i};
2091 archdirs{end+1} = tmpdir;
2093 archdirs{end+1} = dirs{i};
2097 ## Unload the packages.
2098 for i = 1:length (archdirs)
2100 idx = strcmp (p, d);
2103 ## FIXME: We should also check if we need to remove items from
2109 function [status_out, msg_out] = rm_rf (dir)
2111 crr = confirm_recursive_rmdir ();
2113 confirm_recursive_rmdir (false);
2114 [status, msg] = rmdir (dir, "s");
2115 unwind_protect_cleanup
2116 confirm_recursive_rmdir (crr);
2123 status_out = status;
2130 function emp = dirempty (nm, ign)
2131 if (exist (nm, "dir"))
2135 ign = [{".", ".."}, ign];
2138 for i = 1:length (l)
2140 for j = 1:length (ign)
2141 if (strcmp (l(i).name, ign{j}))
2157 function arch = getarch ()
2158 persistent _arch = cstrcat (octave_config_info("canonical_host_type"), ...
2159 "-", octave_config_info("api_version"));
2163 function archprefix = getarchprefix (desc, global_install)
2164 if ((nargin == 2 && global_install) || (nargin < 2 && issuperuser ()))
2165 archprefix = fullfile (octave_config_info ("libexecdir"), "octave",
2166 "packages", cstrcat(desc.name, "-", desc.version));
2168 archprefix = desc.dir;
2172 function archdir = getarchdir (desc)
2173 archdir = fullfile (desc.archprefix, getarch());
2176 function s = issuperuser ()
2177 if ((ispc () && ! isunix ()) || (geteuid() == 0))
2184 function [status, output] = shell (cmd)
2187 cmd = strrep (cmd, "\\", "/");
2188 if (ispc () && ! isunix ())
2189 if (isempty(have_sh))
2190 if (system("sh.exe -c \"exit\""))
2197 [status, output] = system (cstrcat ("sh.exe -c \"", cmd, "\""));
2199 error ("Can not find the command shell")
2202 [status, output] = system (cmd);
2206 function newdesc = save_order (desc)
2208 for i = 1 : length(desc)
2209 deps = desc{i}.depends;
2210 if (isempty (deps) || (length (deps) == 1 &&
2211 strcmp(deps{1}.package, "octave")))
2212 newdesc {end + 1} = desc{i};
2215 for k = 1 : length (deps)
2216 for j = 1 : length (desc)
2217 if (strcmp (desc{j}.name, deps{k}.package))
2218 tmpdesc{end+1} = desc{j};
2223 if (! isempty (tmpdesc))
2224 newdesc = {newdesc{:}, save_order(tmpdesc){:}, desc{i}};
2226 newdesc{end+1} = desc{i};
2230 ## Eliminate the duplicates.
2232 for i = 1 : length (newdesc)
2233 for j = (i + 1) : length (newdesc)
2234 if (strcmp (newdesc{i}.name, newdesc{j}.name))
2242 function load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst,
2244 idx = load_package_dirs (idx, [], handle_deps, installed_pkgs_lst);
2246 execpath = EXEC_PATH ();
2248 ndir = installed_pkgs_lst{i}.dir;
2250 if (exist (fullfile (dirs{end}, "bin"), "dir"))
2251 execpath = cstrcat (fullfile (dirs{end}, "bin"), ":", execpath);
2253 tmpdir = getarchdir (installed_pkgs_lst{i});
2254 if (exist (tmpdir, "dir"))
2255 dirs{end + 1} = tmpdir;
2256 if (exist (fullfile (dirs{end}, "bin"), "dir"))
2257 execpath = cstrcat (fullfile (dirs{end}, "bin"), ":", execpath);
2262 ## Load the packages.
2263 if (length (dirs) > 0)
2267 ## Add the binaries to exec_path.
2268 if (! strcmp (EXEC_PATH, execpath))
2269 EXEC_PATH (execpath);
2273 function idx = load_package_dirs (lidx, idx, handle_deps, installed_pkgs_lst)
2275 if (isfield (installed_pkgs_lst{i}, "loaded") &&
2276 installed_pkgs_lst{i}.loaded)
2280 deps = installed_pkgs_lst{i}.depends;
2281 if ((length (deps) > 1) || (length (deps) == 1 &&
2282 ! strcmp(deps{1}.package, "octave")))
2284 for k = 1 : length (deps)
2285 for j = 1 : length (installed_pkgs_lst)
2286 if (strcmp (installed_pkgs_lst{j}.name, deps{k}.package))
2287 tmplidx (end + 1) = j;
2292 idx = load_package_dirs (tmplidx, idx, handle_deps,
2293 installed_pkgs_lst);
2296 if (isempty (find(idx == i)))
2303 function dep = is_architecture_dependent (nm)
2304 persistent archdepsuffix = {".oct",".mex",".a",".lib",".so",".so.*",".dll","dylib"};
2307 for i = 1 : length (archdepsuffix)
2308 ext = archdepsuffix{i};
2309 if (ext(end) == "*")
2315 pos = findstr (nm, ext);
2317 if (! isglob && (length(nm) - pos(end) != length(ext) - 1))