aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Monnier2010-08-30 22:34:52 +0200
committerStefan Monnier2010-08-30 22:34:52 +0200
commite17b68ed837cc835c46b4e518d05810a73997ac5 (patch)
tree72a9fb443a06e264878b9955b529317e1efee50c /test
parent42b6a73bc70429b7997fa18986a72341f98840f8 (diff)
downloademacs-e17b68ed837cc835c46b4e518d05810a73997ac5.tar.gz
emacs-e17b68ed837cc835c46b4e518d05810a73997ac5.zip
Use SMIE for octave-mode.
* test/indent/octave.m: New file. * lisp/progmodes/octave-mod.el (octave-font-lock-keywords): Use regexp-opt. (octave-mode-map): Remove special bindings for forward/backward-block and octave-backward-up-block. Use smie-close-block. (octave-continuation-marker-regexp): New var. (octave-continuation-regexp): Use it. (octave-operator-table, octave-smie-op-levels) (octave-operator-regexp, octave-smie-indent-rules): New vars. (octave-smie-backward-token, octave-smie-forward-token): New funs. (octave-mode): Use SMIE. (octave-close-block): Delete.
Diffstat (limited to 'test')
-rw-r--r--test/ChangeLog8
-rw-r--r--test/indent/Makefile6
-rw-r--r--test/indent/octave.m2318
3 files changed, 2327 insertions, 5 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index a226e88d883..cf709f01eec 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,6 +1,10 @@
12010-08-30 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * indent/octave.m: New file.
4
12010-08-08 Ulf Jasper <ulf.jasper@web.de> 52010-08-08 Ulf Jasper <ulf.jasper@web.de>
2 6
3 * icalendar-testsuite.el (icalendar-testsuite-run): Added internal tests. 7 * icalendar-testsuite.el (icalendar-testsuite-run): Add internal tests.
4 (icalendar-testsuite--trim, icalendar-testsuite--compare-strings) 8 (icalendar-testsuite--trim, icalendar-testsuite--compare-strings)
5 (icalendar-testsuite--run-internal-tests): New. 9 (icalendar-testsuite--run-internal-tests): New.
6 (icalendar-testsuite--test-convert-ordinary-to-ical) 10 (icalendar-testsuite--test-convert-ordinary-to-ical)
@@ -13,7 +17,7 @@
13 (icalendar-testsuite--do-test-cycle): Use icalendar-testsuite--compare-strings 17 (icalendar-testsuite--do-test-cycle): Use icalendar-testsuite--compare-strings
14 (icalendar-testsuite--run-import-tests): Comment added. 18 (icalendar-testsuite--run-import-tests): Comment added.
15 (icalendar-testsuite--run-import-tests) 19 (icalendar-testsuite--run-import-tests)
16 (icalendar-testsuite--run-real-world-tests): Fixed expected results. 20 (icalendar-testsuite--run-real-world-tests): Fix expected results.
17 21
182010-06-25 Chong Yidong <cyd@stupidchicken.com> 222010-06-25 Chong Yidong <cyd@stupidchicken.com>
19 23
diff --git a/test/indent/Makefile b/test/indent/Makefile
index 2a5b7f4c352..9e75f3dad57 100644
--- a/test/indent/Makefile
+++ b/test/indent/Makefile
@@ -8,8 +8,8 @@ clean:
8# - mark the places where the indentation is known to be incorrect, 8# - mark the places where the indentation is known to be incorrect,
9# and allow either ignoring those errors or not. 9# and allow either ignoring those errors or not.
10%.test: % 10%.test: %
11 -$(RM) $<.test 11 -$(RM) $<.new
12 $(EMACS) --batch $< \ 12 $(EMACS) --batch $< \
13 --eval '(indent-region (point-min) (point-max) nil)' \ 13 --eval '(indent-region (point-min) (point-max) nil)' \
14 --eval '(write-region (point-min) (point-max) "$<.test")' 14 --eval '(write-region (point-min) (point-max) "$<.new")'
15 diff -u -B $< $<.test 15 diff -u -B $< $<.new
diff --git a/test/indent/octave.m b/test/indent/octave.m
new file mode 100644
index 00000000000..830af96ed8e
--- /dev/null
+++ b/test/indent/octave.m
@@ -0,0 +1,2318 @@
1## -*- octave -*-
2
3function res = tcomp (fn)
4 %% res = tcomp (fn)
5 %% imports components and rearranges them.
6
7 if nargin ~= 1
8 print_usage()
9 endif
10
11 data = dlmread(fn, 3, 0);
12
13 x = data(:,2:end);
14 y = 'hello';
15 z = y';
16
17 cnty = repmat(x(:,1)(:), 10, 1);
18
19 pop = x(:,1:10)(:);
20 bir = x(:,11:20)(:);
21 dth = x(:,21:30)(:);
22 imig = x(:,31:40)(:);
23 dmig = x(:,41:50)(:);
24 gq = x(:,51:60)(:);
25
26 yrs = repmat(2000:2009, 39, 1)(:);
27
28 res = [yrs, cnty, pop, bir, dth, imig, dmig, gq];
29
30endfunction
31
32## Copyright (C) 2005, 2006, 2007, 2008, 2009 S�ren Hauberg
33##
34## This file is part of Octave.
35##
36## Octave is free software; you can redistribute it and/or modify it
37## under the terms of the GNU General Public License as published by
38## the Free Software Foundation; either version 3 of the License, or (at
39## your option) any later version.
40##
41## Octave is distributed in the hope that it will be useful, but
42## WITHOUT ANY WARRANTY; without even the implied warranty of
43## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
44## General Public License for more details.
45##
46## You should have received a copy of the GNU General Public License
47## along with Octave; see the file COPYING. If not, see
48## <http://www.gnu.org/licenses/>.
49
50## -*- texinfo -*-
51## @deftypefn {Command} pkg @var{command} @var{pkg_name}
52## @deftypefnx {Command} pkg @var{command} @var{option} @var{pkg_name}
53## This command interacts with the package manager. Different actions will
54## be taken depending on the value of @var{command}.
55##
56## @table @samp
57## @item install
58## Install named packages. For example,
59## @example
60## pkg install image-1.0.0.tar.gz
61## @end example
62## @noindent
63## installs the package found in the file @file{image-1.0.0.tar.gz}.
64##
65## The @var{option} variable can contain options that affect the manner
66## in which a package is installed. These options can be one or more of
67##
68## @table @code
69## @item -nodeps
70## The package manager will disable the dependency checking. That way it
71## is possible to install a package even if it depends on another package
72## that's not installed on the system. @strong{Use this option with care.}
73##
74## @item -noauto
75## The package manager will not automatically load the installed package
76## when starting Octave, even if the package requests that it is.
77##
78## @item -auto
79## The package manager will automatically load the installed package when
80## starting Octave, even if the package requests that it isn't.
81##
82## @item -local
83## A local installation is forced, even if the user has system privileges.
84##
85## @item -global
86## A global installation is forced, even if the user doesn't normally have
87## system privileges
88##
89## @item -verbose
90## The package manager will print the output of all of the commands that are
91## performed.
92## @end table
93##
94## @item uninstall
95## Uninstall named packages. For example,
96## @example
97## pkg uninstall image
98## @end example
99## @noindent
100## removes the @code{image} package from the system. If another installed
101## package depends on the @code{image} package an error will be issued.
102## The package can be uninstalled anyway by using the @code{-nodeps} option.
103## @item load
104## Add named packages to the path. After loading a package it is
105## possible to use the functions provided by the package. For example,
106## @example
107## pkg load image
108## @end example
109## @noindent
110## adds the @code{image} package to the path. It is possible to load all
111## installed packages at once with the command
112## @example
113## pkg load all
114## @end example
115## @item unload
116## Removes named packages from the path. After unloading a package it is
117## no longer possible to use the functions provided by the package.
118## This command behaves like the @code{load} command.
119## @item list
120## Show a list of the currently installed packages. By requesting one or two
121## output argument it is possible to get a list of the currently installed
122## packages. For example,
123## @example
124## installed_packages = pkg list;
125## @end example
126## @noindent
127## returns a cell array containing a structure for each installed package.
128## The command
129## @example
130## [@var{user_packages}, @var{system_packages}] = pkg list
131## @end example
132## @noindent
133## splits the list of installed packages into those who are installed by
134## the current user, and those installed by the system administrator.
135## @item describe
136## Show a short description of the named installed packages, with the option
137## '-verbose' also list functions provided by the package, e.g.:
138## @example
139## pkg describe -verbose all
140## @end example
141## @noindent
142## will describe all installed packages and the functions they provide.
143## If one output is requested a cell of structure containing the
144## description and list of functions of each package is returned as
145## output rather than printed on screen:
146## @example
147## desc = pkg ("describe", "secs1d", "image")
148## @end example
149## @noindent
150## If any of the requested packages is not installed, pkg returns an
151## error, unless a second output is requested:
152## @example
153## [ desc, flag] = pkg ("describe", "secs1d", "image")
154## @end example
155## @noindent
156## @var{flag} will take one of the values "Not installed", "Loaded" or
157## "Not loaded" for each of the named packages.
158## @item prefix
159## Set the installation prefix directory. For example,
160## @example
161## pkg prefix ~/my_octave_packages
162## @end example
163## @noindent
164## sets the installation prefix to @file{~/my_octave_packages}.
165## Packages will be installed in this directory.
166##
167## It is possible to get the current installation prefix by requesting an
168## output argument. For example,
169## @example
170## p = pkg prefix
171## @end example
172##
173## The location in which to install the architecture dependent files can be
174## independent specified with an addition argument. For example
175##
176## @example
177## pkg prefix ~/my_octave_packages ~/my_arch_dep_pkgs
178## @end example
179## @item local_list
180## Set the file in which to look for information on the locally
181## installed packages. Locally installed packages are those that are
182## typically available only to the current user. For example
183## @example
184## pkg local_list ~/.octave_packages
185## @end example
186## It is possible to get the current value of local_list with the following
187## @example
188## pkg local_list
189## @end example
190## @item global_list
191## Set the file in which to look for, for information on the globally
192## installed packages. Globally installed packages are those that are
193## typically available to all users. For example
194## @example
195## pkg global_list /usr/share/octave/octave_packages
196## @end example
197## It is possible to get the current value of global_list with the following
198## @example
199## pkg global_list
200## @end example
201## @item rebuild
202## Rebuilds the package database from the installed directories. This can
203## be used in cases where for some reason the package database is corrupted.
204## It can also take the @code{-auto} and @code{-noauto} options to allow the
205## autoloading state of a package to be changed. For example
206##
207## @example
208## pkg rebuild -noauto image
209## @end example
210##
211## will remove the autoloading status of the image package.
212## @item build
213## Builds a binary form of a package or packages. The binary file produced
214## will itself be an Octave package that can be installed normally with
215## @code{pkg}. The form of the command to build a binary package is
216##
217## @example
218## pkg build builddir image-1.0.0.tar.gz @dots{}
219## @end example
220##
221## @noindent
222## where @code{builddir} is the name of a directory where the temporary
223## installation will be produced and the binary packages will be found.
224## The options @code{-verbose} and @code{-nodeps} are respected, while
225## the other options are ignored.
226## @end table
227## @end deftypefn
228
229function [local_packages, global_packages] = pkg (varargin)
230 ## Installation prefix (FIXME: what should these be on windows?)
231 persistent user_prefix = false;
232 persistent prefix = -1;
233 persistent archprefix = -1;
234 persistent local_list = tilde_expand (fullfile ("~", ".octave_packages"));
235 persistent global_list = fullfile (OCTAVE_HOME (), "share", "octave",
236 "octave_packages");
237 mlock ();
238
239 global_install = issuperuser ();
240
241 if (prefix == -1)
242 if (global_install)
243 prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
244 archprefix = fullfile (octave_config_info ("libexecdir"),
245 "octave", "packages");
246 else
247 prefix = fullfile ("~", "octave");
248 archprefix = prefix;
249 endif
250 prefix = tilde_expand (prefix);
251 archprefix = tilde_expand (archprefix);
252 endif
253
254 available_actions = {"list", "install", "uninstall", "load", ...
255 "unload", "prefix", "local_list", ...
256 "global_list", "rebuild", "build","describe"};
257 ## Handle input
258 if (length (varargin) == 0 || ! iscellstr (varargin))
259 print_usage ();
260 endif
261 files = {};
262 deps = true;
263 auto = 0;
264 action = "none";
265 verbose = false;
266 for i = 1:length (varargin)
267 switch (varargin{i})
268 case "-nodeps"
269 deps = false;
270 case "-noauto"
271 auto = -1;
272 case "-auto"
273 auto = 1;
274 case "-verbose"
275 verbose = true;
276 case "-local"
277 global_install = false;
278 if (! user_prefix)
279 prefix = tilde_expand (fullfile ("~", "octave"));
280 archprefix = prefix;
281 endif
282 case "-global"
283 global_install = true;
284 if (! user_prefix)
285 prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
286 archprefix = fullfile (octave_config_info ("libexecdir"),
287 "octave", "packages");
288 endif
289 case available_actions
290 if (strcmp (action, "none"))
291 action = varargin{i};
292 else
293 error ("more than one action specified");
294 endif
295 otherwise
296 files{end+1} = varargin{i};
297 endswitch
298 endfor
299
300 ## Take action
301 switch (action)
302 case "list"
303 if (nargout == 0)
304 installed_packages (local_list, global_list);
305 elseif (nargout == 1)
306 local_packages = installed_packages (local_list, global_list);
307 elseif (nargout == 2)
308 [local_packages, global_packages] = installed_packages (local_list,
309 global_list);
310 else
311 error ("too many output arguments requested");
312 endif
313
314 case "install"
315 if (length (files) == 0)
316 error ("you must specify at least one filename when calling 'pkg install'");
317 endif
318 install (files, deps, auto, prefix, archprefix, verbose, local_list,
319 global_list, global_install);
320
321 case "uninstall"
322 if (length (files) == 0)
323 error ("you must specify at least one package when calling 'pkg uninstall'");
324 endif
325 uninstall (files, deps, verbose, local_list,
326 global_list, global_install);
327
328 case "load"
329 if (length (files) == 0)
330 error ("you must specify at least one package, 'all' or 'auto' when calling 'pkg load'");
331 endif
332 load_packages (files, deps, local_list, global_list);
333
334 case "unload"
335 if (length (files) == 0)
336 error ("you must specify at least one package or 'all' when calling 'pkg unload'");
337 endif
338 unload_packages (files, deps, local_list, global_list);
339
340 case "prefix"
341 if (length (files) == 0 && nargout == 0)
342 printf ("Installation prefix: %s\n", prefix);
343 printf ("Architecture dependent prefix: %s\n", archprefix);
344 elseif (length (files) == 0 && nargout >= 1)
345 local_packages = prefix;
346 global_packages = archprefix;
347 elseif (length (files) >= 1 && nargout <= 2 && ischar (files{1}))
348 prefix = files{1};
349 prefix = absolute_pathname (prefix);
350 local_packages = prefix;
351 user_prefix = true;
352 if (length (files) >= 2 && ischar (files{2}))
353 archprefix = files{2};
354 try
355 archprefix = absolute_pathname (archprefix);
356 catch
357 mkdir (archprefix);
358 warning ("creating the directory %s\n", archprefix);
359 archprefix = absolute_pathname (archprefix);
360 end_try_catch
361 global_packages = archprefix;
362 endif
363 else
364 error ("you must specify a prefix directory, or request an output argument");
365 endif
366
367 case "local_list"
368 if (length (files) == 0 && nargout == 0)
369 disp (local_list);
370 elseif (length (files) == 0 && nargout == 1)
371 local_packages = local_list;
372 elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
373 try
374 local_list = absolute_pathname (files{1});
375 catch
376 ## Force file to be created
377 fclose (fopen (files{1}, "wt"));
378 local_list = absolute_pathname (files{1});
379 end_try_catch
380 else
381 error ("you must specify a local_list file, or request an output argument");
382 endif
383
384 case "global_list"
385 if (length (files) == 0 && nargout == 0)
386 disp(global_list);
387 elseif (length (files) == 0 && nargout == 1)
388 local_packages = global_list;
389 elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
390 try
391 global_list = absolute_pathname (files{1});
392 catch
393 ## Force file to be created
394 fclose (fopen (files{1}, "wt"));
395 global_list = absolute_pathname (files{1});
396 end_try_catch
397 else
398 error ("you must specify a global_list file, or request an output argument");
399 endif
400
401 case "rebuild"
402 if (global_install)
403 global_packages = rebuild (prefix, archprefix, global_list, files,
404 auto, verbose);
405 global_packages = save_order (global_packages);
406 save (global_list, "global_packages");
407 if (nargout > 0)
408 local_packages = global_packages;
409 endif
410 else
411 local_packages = rebuild (prefix, archprefix, local_list, files, auto,
412 verbose);
413 local_packages = save_order (local_packages);
414 save (local_list, "local_packages");
415 if (nargout == 0)
416 clear ("local_packages");
417 endif
418 endif
419
420 case "build"
421 if (length (files) < 2)
422 error ("you must specify at least the build directory and one filename\nwhen calling 'pkg build'");
423 endif
424 build (files, deps, auto, verbose);
425
426 case "describe"
427 if (length (files) == 0)
428 error ("you must specify at least one package or 'all' when calling 'pkg describe'");
429 endif
430 ## FIXME: the name of the output variables is inconsistent
431 ## with their content
432 switch (nargout)
433 case 0
434 describe (files, verbose, local_list, global_list);
435 case 1
436 pkg_desc_list = describe (files, verbose, local_list, ...
437 global_list);
438 local_packages = pkg_desc_list;
439 case 2
440 [pkg_desc_list, flag] = describe (files, verbose, local_list, ...
441 global_list);
442 local_packages = pkg_desc_list;
443 global_packages = flag;
444 otherwise
445 error ("you can request at most two outputs when calling 'pkg describe'");
446 endswitch
447
448 otherwise
449 error ("you must specify a valid action for 'pkg'. See 'help pkg' for details");
450 endswitch
451endfunction
452
453function descriptions = rebuild (prefix, archprefix, list, files, auto, verbose)
454 if (isempty (files))
455 [dirlist, err, msg] = readdir (prefix);
456 if (err)
457 error ("couldn't read directory %s: %s", prefix, msg);
458 endif
459 ## the two first entries of dirlist are "." and ".."
460 dirlist([1,2]) = [];
461 else
462 old_descriptions = installed_packages (list, list);
463 wd = pwd ();
464 unwind_protect
465 cd (prefix);
466 dirlist = glob (cellfun(@(x) cstrcat(x, '-*'), files, 'UniformOutput', 0));
467 unwind_protect_cleanup
468 cd (wd);
469 end_unwind_protect
470 endif
471 descriptions = {};
472 for k = 1:length (dirlist)
473 descfile = fullfile (prefix, dirlist{k}, "packinfo", "DESCRIPTION");
474 if (verbose)
475 printf ("recreating package description from %s\n", dirlist{k});
476 endif
477 if (exist (descfile, "file"))
478 desc = get_description (descfile);
479 desc.dir = fullfile (prefix, dirlist{k});
480 desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-",
481 desc.version));
482 if (auto != 0)
483 if (exist (fullfile (desc.dir, "packinfo", ".autoload"), "file"))
484 unlink (fullfile (desc.dir, "packinfo", ".autoload"));
485 endif
486 if (auto < 0)
487 desc.autoload = 0;
488 elseif (auto > 0)
489 desc.autoload = 1;
490 fclose (fopen (fullfile (desc.dir, "packinfo", ".autoload"), "wt"));
491 endif
492 else
493 if (exist (fullfile (desc.dir, "packinfo", ".autoload"), "file"))
494 desc.autoload = 1;
495 else
496 desc.autoload = 0;
497 endif
498 endif
499 descriptions{end + 1} = desc;
500 elseif (verbose)
501 warning ("directory %s is not a valid package", dirlist{k});
502 endif
503 endfor
504
505 if (! isempty (files))
506 ## We are rebuilding for a particular package(s) so we should take
507 ## care to keep the other untouched packages in the descriptions
508 descriptions = {descriptions{:}, old_descriptions{:}};
509
510 dup = [];
511 for i = 1:length (descriptions)
512 if (find (dup, i))
513 continue;
514 endif
515 for j = (i+1):length (descriptions)
516 if (find (dup, j))
517 continue;
518 endif
519 if (strcmp (descriptions{i}.name, descriptions{j}.name))
520 dup = [dup, j];
521 endif
522 endfor
523 endfor
524 if (! isempty (dup))
525 descriptions (dup) = [];
526 endif
527 endif
528endfunction
529
530function build (files, handle_deps, autoload, verbose)
531 if (length (files) < 1)
532 error ("insufficient number of files");
533 endif
534 builddir = files{1};
535 if (! exist (builddir, "dir"))
536 warning ("creating build directory %s", builddir);
537 [status, msg] = mkdir (builddir);
538 if (status != 1)
539 error ("could not create installation directory: %s", msg);
540 endif
541 endif
542 builddir = absolute_pathname (builddir);
543 installdir = fullfile (builddir, "install");
544 if (! exist (installdir, "dir"))
545 [status, msg] = mkdir (installdir);
546 if (status != 1)
547 error ("could not create installation directory: %s", msg);
548 endif
549 endif
550 files(1) = [];
551 buildlist = fullfile (builddir, "octave_packages");
552 install (files, handle_deps, autoload, installdir, installdir, verbose,
553 buildlist, "", false);
554 unwind_protect
555 repackage (builddir, buildlist);
556 unwind_protect_cleanup
557 unload_packages ({"all"}, handle_deps, buildlist, "");
558 if (exist (installdir, "dir"))
559 rm_rf (installdir);
560 endif
561 if (exist (buildlist, "file"))
562 unlink (buildlist);
563 endif
564 end_unwind_protect
565endfunction
566
567function install (files, handle_deps, autoload, prefix, archprefix, verbose,
568 local_list, global_list, global_install)
569
570 ## Check that the directory in prefix exist. If it doesn't: create it!
571 if (! exist (prefix, "dir"))
572 warning ("creating installation directory %s", prefix);
573 [status, msg] = mkdir (prefix);
574 if (status != 1)
575 error ("could not create installation directory: %s", msg);
576 endif
577 endif
578
579 ## Get the list of installed packages.
580 [local_packages, global_packages] = installed_packages (local_list,
581 global_list);
582
583 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
584
585 if (global_install)
586 packages = global_packages;
587 else
588 packages = local_packages;
589 endif
590
591 ## Uncompress the packages and read the DESCRIPTION files.
592 tmpdirs = packdirs = descriptions = {};
593 try
594 ## Warn about non existent files.
595 for i = 1:length (files)
596 if (isempty (glob(files{i})))
597 warning ("file %s does not exist", files{i});
598 endif
599 endfor
600
601 ## Unpack the package files and read the DESCRIPTION files.
602 files = glob (files);
603 packages_to_uninstall = [];
604 for i = 1:length (files)
605 tgz = files{i};
606
607 if (exist (tgz, "file"))
608 ## Create a temporary directory.
609 tmpdir = tmpnam ();
610 tmpdirs{end+1} = tmpdir;
611 if (verbose)
612 printf ("mkdir (%s)\n", tmpdir);
613 endif
614 [status, msg] = mkdir (tmpdir);
615 if (status != 1)
616 error ("couldn't create temporary directory: %s", msg);
617 endif
618
619 ## Uncompress the package.
620 if (verbose)
621 printf ("untar (%s, %s)\n", tgz, tmpdir);
622 endif
623 untar (tgz, tmpdir);
624
625 ## Get the name of the directories produced by tar.
626 [dirlist, err, msg] = readdir (tmpdir);
627 if (err)
628 error ("couldn't read directory produced by tar: %s", msg);
629 endif
630
631 if (length (dirlist) > 3)
632 error ("bundles of packages are not allowed")
633 endif
634 endif
635
636 ## The filename pointed to an uncompressed package to begin with.
637 if (exist (tgz, "dir"))
638 dirlist = {".", "..", tgz};
639 endif
640
641 if (exist (tgz, "file") || exist (tgz, "dir"))
642 ## The two first entries of dirlist are "." and "..".
643 if (exist (tgz, "file"))
644 packdir = fullfile (tmpdir, dirlist{3});
645 else
646 packdir = fullfile (pwd(), dirlist{3});
647 endif
648 packdirs{end+1} = packdir;
649
650 ## Make sure the package contains necessary files.
651 verify_directory (packdir);
652
653 ## Read the DESCRIPTION file.
654 filename = fullfile (packdir, "DESCRIPTION");
655 desc = get_description (filename);
656
657 ## Verify that package name corresponds with filename.
658 [dummy, nm] = fileparts (tgz);
659 if ((length (nm) >= length (desc.name))
660 && ! strcmp (desc.name, nm(1:length(desc.name))))
661 error ("package name '%s' doesn't correspond to its filename '%s'",
662 desc.name, nm);
663 endif
664
665 ## Set default installation directory.
666 desc.dir = fullfile (prefix, cstrcat (desc.name, "-", desc.version));
667
668 ## Set default architectire dependent installation directory.
669 desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-",
670 desc.version));
671
672 ## Save desc.
673 descriptions{end+1} = desc;
674
675 ## Are any of the new packages already installed?
676 ## If so we'll remove the old version.
677 for j = 1:length (packages)
678 if (strcmp (packages{j}.name, desc.name))
679 packages_to_uninstall(end+1) = j;
680 endif
681 endfor
682 endif
683 endfor
684 catch
685 ## Something went wrong, delete tmpdirs.
686 for i = 1:length (tmpdirs)
687 rm_rf (tmpdirs{i});
688 endfor
689 rethrow (lasterror ());
690 end_try_catch
691
692 ## Check dependencies.
693 if (handle_deps)
694 ok = true;
695 error_text = "";
696 for i = 1:length (descriptions)
697 desc = descriptions{i};
698 idx2 = complement (i, 1:length(descriptions));
699 if (global_install)
700 ## Global installation is not allowed to have dependencies on locally
701 ## installed packages.
702 idx1 = complement (packages_to_uninstall,
703 1:length(global_packages));
704 pseudo_installed_packages = {global_packages{idx1}, ...
705 descriptions{idx2}};
706 else
707 idx1 = complement (packages_to_uninstall,
708 1:length(local_packages));
709 pseudo_installed_packages = {local_packages{idx1}, ...
710 global_packages{:}, ...
711 descriptions{idx2}};
712 endif
713 bad_deps = get_unsatisfied_deps (desc, pseudo_installed_packages);
714 ## Are there any unsatisfied dependencies?
715 if (! isempty (bad_deps))
716 ok = false;
717 for i = 1:length (bad_deps)
718 dep = bad_deps{i};
719 error_text = cstrcat (error_text, " ", desc.name, " needs ",
720 dep.package, " ", dep.operator, " ",
721 dep.version, "\n");
722 endfor
723 endif
724 endfor
725
726 ## Did we find any unsatisfied dependencies?
727 if (! ok)
728 error ("the following dependencies where unsatisfied:\n %s", error_text);
729 endif
730 endif
731
732 ## Prepare each package for installation.
733 try
734 for i = 1:length (descriptions)
735 desc = descriptions{i};
736 pdir = packdirs{i};
737 prepare_installation (desc, pdir);
738 configure_make (desc, pdir, verbose);
739 endfor
740 catch
741 ## Something went wrong, delete tmpdirs.
742 for i = 1:length (tmpdirs)
743 rm_rf (tmpdirs{i});
744 endfor
745 rethrow (lasterror ());
746 end_try_catch
747
748 ## Uninstall the packages that will be replaced.
749 try
750 for i = packages_to_uninstall
751 if (global_install)
752 uninstall ({global_packages{i}.name}, false, verbose, local_list,
753 global_list, global_install);
754 else
755 uninstall ({local_packages{i}.name}, false, verbose, local_list,
756 global_list, global_install);
757 endif
758 endfor
759 catch
760 ## Something went wrong, delete tmpdirs.
761 for i = 1:length (tmpdirs)
762 rm_rf (tmpdirs{i});
763 endfor
764 rethrow (lasterror ());
765 end_try_catch
766
767 ## Install each package.
768 try
769 for i = 1:length (descriptions)
770 desc = descriptions{i};
771 pdir = packdirs{i};
772 copy_files (desc, pdir, global_install);
773 create_pkgadddel (desc, pdir, "PKG_ADD", global_install);
774 create_pkgadddel (desc, pdir, "PKG_DEL", global_install);
775 finish_installation (desc, pdir, global_install);
776 generate_lookfor_cache (desc);
777 endfor
778 catch
779 ## Something went wrong, delete tmpdirs.
780 for i = 1:length (tmpdirs)
781 rm_rf (tmpdirs{i});
782 endfor
783 for i = 1:length (descriptions)
784 rm_rf (descriptions{i}.dir);
785 rm_rf (getarchdir (descriptions{i}));
786 endfor
787 rethrow (lasterror ());
788 end_try_catch
789
790 ## Check if the installed directory is empty. If it is remove it
791 ## from the list.
792 for i = length (descriptions):-1:1
793 if (dirempty (descriptions{i}.dir, {"packinfo", "doc"}) &&
794 dirempty (getarchdir (descriptions{i})))
795 warning ("package %s is empty\n", descriptions{i}.name);
796 rm_rf (descriptions{i}.dir);
797 rm_rf (getarchdir (descriptions{i}));
798 descriptions(i) = [];
799 endif
800 endfor
801
802 ## If the package requested that it is autoloaded, or the installer
803 ## requested that it is, then mark the package as autoloaded.
804 for i = length (descriptions):-1:1
805 if (autoload > 0 || (autoload == 0 && isautoload (descriptions(i))))
806 fclose (fopen (fullfile (descriptions{i}.dir, "packinfo",
807 ".autoload"), "wt"));
808 descriptions{i}.autoload = 1;
809 endif
810 endfor
811
812 ## Add the packages to the package list.
813 try
814 if (global_install)
815 idx = complement (packages_to_uninstall, 1:length(global_packages));
816 global_packages = save_order ({global_packages{idx}, descriptions{:}});
817 save (global_list, "global_packages");
818 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
819 else
820 idx = complement (packages_to_uninstall, 1:length(local_packages));
821 local_packages = save_order ({local_packages{idx}, descriptions{:}});
822 save (local_list, "local_packages");
823 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
824 endif
825 catch
826 ## Something went wrong, delete tmpdirs.
827 for i = 1:length (tmpdirs)
828 rm_rf (tmpdirs{i});
829 endfor
830 for i = 1:length (descriptions)
831 rm_rf (descriptions{i}.dir);
832 endfor
833 if (global_install)
834 printf ("error: couldn't append to %s\n", global_list);
835 else
836 printf ("error: couldn't append to %s\n", local_list);
837 endif
838 rethrow (lasterror ());
839 end_try_catch
840
841 ## All is well, let's clean up.
842 for i = 1:length (tmpdirs)
843 [status, msg] = rm_rf (tmpdirs{i});
844 if (status != 1)
845 warning ("couldn't clean up after my self: %s\n", msg);
846 endif
847 endfor
848
849 ## Add the newly installed packages to the path, so the user
850 ## can begin using them. Only load them if they are marked autoload.
851 if (length (descriptions) > 0)
852 idx = [];
853 for i = 1:length (descriptions)
854 if (isautoload (descriptions(i)))
855 nm = descriptions{i}.name;
856 for j = 1:length (installed_pkgs_lst)
857 if (strcmp (nm, installed_pkgs_lst{j}.name))
858 idx (end + 1) = j;
859 break;
860 endif
861 endfor
862 endif
863 endfor
864 load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst,
865 global_install);
866 endif
867endfunction
868
869function uninstall (pkgnames, handle_deps, verbose, local_list,
870 global_list, global_install)
871 ## Get the list of installed packages.
872 [local_packages, global_packages] = installed_packages(local_list,
873 global_list);
874 if (global_install)
875 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
876 else
877 installed_pkgs_lst = local_packages;
878 endif
879
880 num_packages = length (installed_pkgs_lst);
881 delete_idx = [];
882 for i = 1:num_packages
883 cur_name = installed_pkgs_lst{i}.name;
884 if (any (strcmp (cur_name, pkgnames)))
885 delete_idx(end+1) = i;
886 endif
887 endfor
888
889 ## Are all the packages that should be uninstalled already installed?
890 if (length (delete_idx) != length (pkgnames))
891 if (global_install)
892 ## Try again for a locally installed package.
893 installed_pkgs_lst = local_packages;
894
895 num_packages = length (installed_pkgs_lst);
896 delete_idx = [];
897 for i = 1:num_packages
898 cur_name = installed_pkgs_lst{i}.name;
899 if (any (strcmp (cur_name, pkgnames)))
900 delete_idx(end+1) = i;
901 endif
902 endfor
903 if (length (delete_idx) != length (pkgnames))
904 ## FIXME: We should have a better error message.
905 warning ("some of the packages you want to uninstall are not installed");
906 endif
907 else
908 ## FIXME: We should have a better error message.
909 warning ("some of the packages you want to uninstall are not installed");
910 endif
911 endif
912
913 ## Compute the packages that will remain installed.
914 idx = complement (delete_idx, 1:num_packages);
915 remaining_packages = {installed_pkgs_lst{idx}};
916
917 ## Check dependencies.
918 if (handle_deps)
919 error_text = "";
920 for i = 1:length (remaining_packages)
921 desc = remaining_packages{i};
922 bad_deps = get_unsatisfied_deps (desc, remaining_packages);
923
924 ## Will the uninstallation break any dependencies?
925 if (! isempty (bad_deps))
926 for i = 1:length (bad_deps)
927 dep = bad_deps{i};
928 error_text = cstrcat (error_text, " ", desc.name, " needs ",
929 dep.package, " ", dep.operator, " ",
930 dep.version, "\n");
931 endfor
932 endif
933 endfor
934
935 if (! isempty (error_text))
936 error ("the following dependencies where unsatisfied:\n %s", error_text);
937 endif
938 endif
939
940 ## Delete the directories containing the packages.
941 for i = delete_idx
942 desc = installed_pkgs_lst{i};
943 ## If an 'on_uninstall.m' exist, call it!
944 if (exist (fullfile (desc.dir, "packinfo", "on_uninstall.m"), "file"))
945 wd = pwd ();
946 cd (fullfile (desc.dir, "packinfo"));
947 on_uninstall (desc);
948 cd (wd);
949 endif
950 ## Do the actual deletion.
951 if (desc.loaded)
952 rmpath (desc.dir);
953 if (exist (getarchdir (desc)))
954 rmpath (getarchdir (desc));
955 endif
956 endif
957 if (exist (desc.dir, "dir"))
958 [status, msg] = rm_rf (desc.dir);
959 if (status != 1)
960 error ("couldn't delete directory %s: %s", desc.dir, msg);
961 endif
962 [status, msg] = rm_rf (getarchdir (desc));
963 if (status != 1)
964 error ("couldn't delete directory %s: %s", getarchdir (desc), msg);
965 endif
966 if (dirempty (desc.archprefix))
967 rm_rf (desc.archprefix);
968 endif
969 else
970 warning ("directory %s previously lost", desc.dir);
971 endif
972 endfor
973
974 ## Write a new ~/.octave_packages.
975 if (global_install)
976 if (length (remaining_packages) == 0)
977 unlink (global_list);
978 else
979 global_packages = save_order (remaining_packages);
980 save (global_list, "global_packages");
981 endif
982 else
983 if (length (remaining_packages) == 0)
984 unlink (local_list);
985 else
986 local_packages = save_order (remaining_packages);
987 save (local_list, "local_packages");
988 endif
989 endif
990
991endfunction
992
993function [pkg_desc_list, flag] = describe (pkgnames, verbose,
994 local_list, global_list)
995
996 ## Get the list of installed packages.
997 installed_pkgs_lst = installed_packages(local_list, global_list);
998 num_packages = length (installed_pkgs_lst);
999
1000
1001 describe_all = false;
1002 if (any (strcmp ("all", pkgnames)))
1003 describe_all = true;
1004 flag(1:num_packages) = {"Not Loaded"};
1005 num_pkgnames = num_packages;
1006 else
1007 num_pkgnames = length (pkgnames);
1008 flag(1:num_pkgnames) = {"Not installed"};
1009 endif
1010
1011 for i = 1:num_packages
1012 curr_name = installed_pkgs_lst{i}.name;
1013 if (describe_all)
1014 name_pos = i;
1015 else
1016 name_pos = find(strcmp (curr_name, pkgnames));
1017 endif
1018
1019 if (! isempty (name_pos))
1020 if (installed_pkgs_lst{i}.loaded)
1021 flag{name_pos} = "Loaded";
1022 else
1023 flag{name_pos} = "Not loaded";
1024 endif
1025
1026 pkg_desc_list{name_pos}.name = installed_pkgs_lst{i}.name;
1027 pkg_desc_list{name_pos}.version = installed_pkgs_lst{i}.version;
1028 pkg_desc_list{name_pos}.description = installed_pkgs_lst{i}.description;
1029 pkg_desc_list{name_pos}.provides = parse_pkg_idx (installed_pkgs_lst{i}.dir);
1030
1031 endif
1032 endfor
1033
1034 non_inst = find (strcmp (flag, "Not installed"));
1035 if (! isempty (non_inst))
1036 if (nargout < 2)
1037 non_inst_str = sprintf (" %s ", pkgnames{non_inst});
1038 error ("some packages are not installed: %s", non_inst_str);
1039 else
1040 pkg_desc_list{non_inst} = struct ("name", {}, "description",
1041 {}, "provides", {});
1042 endif
1043 endif
1044
1045 if (nargout == 0)
1046 for i = 1:num_pkgnames
1047 print_package_description (pkg_desc_list{i}.name,
1048 pkg_desc_list{i}.version,
1049 pkg_desc_list{i}.provides,
1050 pkg_desc_list{i}.description,
1051 flag{i}, verbose);
1052 endfor
1053 endif
1054
1055endfunction
1056
1057## AUXILIARY FUNCTIONS
1058
1059## Read an INDEX file.
1060function [pkg_idx_struct] = parse_pkg_idx (packdir)
1061
1062 index_file = fullfile (packdir, "packinfo", "INDEX");
1063
1064 if (! exist (index_file, "file"))
1065 error ("could not find any INDEX file in directory %s, try 'pkg rebuild all' to generate missing INDEX files", packdir);
1066 endif
1067
1068
1069 [fid, msg] = fopen (index_file, "r");
1070 if (fid == -1)
1071 error ("the INDEX file %s could not be read: %s",
1072 index_file, msg);
1073 endif
1074
1075 cat_num = 1;
1076 pkg_idx_struct{1}.category = "Uncategorized";
1077 pkg_idx_struct{1}.functions = {};
1078
1079 line = fgetl (fid);
1080 while (isempty (strfind (line, ">>")) && ! feof (fid))
1081 line = fgetl (fid);
1082 endwhile
1083
1084 while (! feof (fid) || line != -1)
1085 if (! any (! isspace (line)) || line(1) == "#" || any (line == "="))
1086 ## Comments, blank lines or comments about unimplemented
1087 ## functions: do nothing
1088 ## FIXME: probably comments and pointers to external functions
1089 ## could be treated better when printing to screen?
1090 elseif (! isempty (strfind (line, ">>")))
1091 ## Skip package name and description as they are in DESCRIPTION
1092 ## already.
1093 elseif (! isspace (line(1)))
1094 ## Category.
1095 if (! isempty (pkg_idx_struct{cat_num}.functions))
1096 pkg_idx_struct{++cat_num}.functions = {};
1097 endif
1098 pkg_idx_struct{cat_num}.category = deblank (line);
1099 else
1100 ## Function names.
1101 while (any (! isspace (line)))
1102 [fun_name, line] = strtok (line);
1103 pkg_idx_struct{cat_num}.functions{end+1} = deblank (fun_name);
1104 endwhile
1105 endif
1106 line = fgetl (fid);
1107 endwhile
1108 fclose (fid);
1109endfunction
1110
1111function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
1112 pkg_desc, status, verbose)
1113
1114 printf ("---\nPackage name:\n\t%s\n", pkg_name);
1115 printf ("Version:\n\t%s\n", pkg_ver);
1116 printf ("Short description:\n\t%s\n", pkg_desc);
1117 printf ("Status:\n\t%s\n", status);
1118 if (verbose)
1119 printf ("---\nProvides:\n");
1120 for i = 1:length(pkg_idx_struct)
1121 if (! isempty (pkg_idx_struct{i}.functions))
1122 printf ("%s\n", pkg_idx_struct{i}.category);
1123 for j = 1:length(pkg_idx_struct{i}.functions)
1124 printf ("\t%s\n", pkg_idx_struct{i}.functions{j});
1125 endfor
1126 endif
1127 endfor
1128 endif
1129
1130endfunction
1131
1132
1133function pth = absolute_pathname (pth)
1134 [status, msg, msgid] = fileattrib (pth);
1135 if (status != 1)
1136 error ("could not find the file or path %s", pth);
1137 else
1138 pth = msg.Name;
1139 endif
1140endfunction
1141
1142function repackage (builddir, buildlist)
1143 packages = installed_packages (buildlist, buildlist);
1144
1145 wd = pwd();
1146 for i = 1 : length(packages)
1147 pack = packages{i};
1148 unwind_protect
1149 cd (builddir);
1150 mkdir (pack.name);
1151 mkdir (fullfile (pack.name, "inst"));
1152 copyfile (fullfile (pack.dir, "*"), fullfile (pack.name, "inst"));
1153 movefile (fullfile (pack.name, "inst","packinfo", "*"), pack.name);
1154 if (exist (fullfile (pack.name, "inst","packinfo", ".autoload"), "file"))
1155 unlink (fullfile (pack.name, "inst","packinfo", ".autoload"));
1156 endif
1157 rmdir (fullfile (pack.name, "inst", "packinfo"));
1158 if (exist (fullfile (pack.name, "inst", "doc"), "dir"))
1159 movefile (fullfile (pack.name, "inst", "doc"), pack.name);
1160 endif
1161 if (exist (fullfile (pack.name, "inst", "bin"), "dir"))
1162 movefile (fullfile (pack.name, "inst", "bin"), pack.name);
1163 endif
1164 archdir = fullfile (pack.archprefix, cstrcat (pack.name, "-",
1165 pack.version), getarch ());
1166 if (exist (archdir, "dir"))
1167 if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
1168 unlink (fullfile (pack.name, "inst", "PKG_ADD"));
1169 endif
1170 if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
1171 unlink (fullfile (pack.name, "inst", "PKG_DEL"));
1172 endif
1173 if (exist (fullfile (archdir, "PKG_ADD"), "file"))
1174 movefile (fullfile (archdir, "PKG_ADD"),
1175 fullfile (pack.name, "PKG_ADD"));
1176 endif
1177 if (exist (fullfile (archdir, "PKG_DEL"), "file"))
1178 movefile (fullfile (archdir, "PKG_DEL"),
1179 fullfile (pack.name, "PKG_DEL"));
1180 endif
1181 else
1182 if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
1183 movefile (fullfile (pack.name, "inst", "PKG_ADD"),
1184 fullfile (pack.name, "PKG_ADD"));
1185 endif
1186 if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
1187 movefile (fullfile (pack.name, "inst", "PKG_DEL"),
1188 fullfile (pack.name, "PKG_DEL"));
1189 endif
1190 endif
1191 tfile = cstrcat (pack.name, "-", pack.version, ".tar");
1192 tar (tfile, pack.name);
1193 try
1194 gzip (tfile);
1195 unlink (tfile);
1196 catch
1197 warning ("failed to compress %s", tfile);
1198 end_try_catch
1199 unwind_protect_cleanup
1200 if (exist (pack.name, "dir"))
1201 rm_rf (pack.name);
1202 endif
1203 cd (wd);
1204 end_unwind_protect
1205 endfor
1206endfunction
1207
1208function auto = isautoload (desc)
1209 auto = false;
1210 if (isfield (desc{1}, "autoload"))
1211 a = desc{1}.autoload;
1212 if ((isnumeric (a) && a > 0)
1213 || (ischar (a) && (strcmpi (a, "true")
1214 || strcmpi (a, "on")
1215 || strcmpi (a, "yes")
1216 || strcmpi (a, "1"))))
1217 auto = true;
1218 endif
1219 endif
1220endfunction
1221
1222function prepare_installation (desc, packdir)
1223 ## Is there a pre_install to call?
1224 if (exist (fullfile (packdir, "pre_install.m"), "file"))
1225 wd = pwd ();
1226 try
1227 cd (packdir);
1228 pre_install (desc);
1229 cd (wd);
1230 catch
1231 cd (wd);
1232 rethrow (lasterror ());
1233 end_try_catch
1234 endif
1235
1236 ## If the directory "inst" doesn't exist, we create it.
1237 inst_dir = fullfile (packdir, "inst");
1238 if (! exist (inst_dir, "dir"))
1239 [status, msg] = mkdir (inst_dir);
1240 if (status != 1)
1241 rm_rf (desc.dir);
1242 error ("the 'inst' directory did not exist and could not be created: %s",
1243 msg);
1244 endif
1245 endif
1246endfunction
1247
1248function configure_make (desc, packdir, verbose)
1249 ## Perform ./configure, make, make install in "src".
1250 if (exist (fullfile (packdir, "src"), "dir"))
1251 src = fullfile (packdir, "src");
1252 ## Configure.
1253 if (exist (fullfile (src, "configure"), "file"))
1254 flags = "";
1255 if (isempty (getenv ("CC")))
1256 flags = cstrcat (flags, " CC=\"", octave_config_info ("CC"), "\"");
1257 endif
1258 if (isempty (getenv ("CXX")))
1259 flags = cstrcat (flags, " CXX=\"", octave_config_info ("CXX"), "\"");
1260 endif
1261 if (isempty (getenv ("AR")))
1262 flags = cstrcat (flags, " AR=\"", octave_config_info ("AR"), "\"");
1263 endif
1264 if (isempty (getenv ("RANLIB")))
1265 flags = cstrcat (flags, " RANLIB=\"", octave_config_info ("RANLIB"), "\"");
1266 endif
1267 [status, output] = shell (strcat ("cd '", src, "'; ./configure --prefix=\"",
1268 desc.dir, "\"", flags));
1269 if (status != 0)
1270 rm_rf (desc.dir);
1271 error ("the configure script returned the following error: %s", output);
1272 elseif (verbose)
1273 printf("%s", output);
1274 endif
1275
1276 endif
1277
1278 ## Make.
1279 if (exist (fullfile (src, "Makefile"), "file"))
1280 [status, output] = shell (cstrcat ("export INSTALLDIR=\"", desc.dir,
1281 "\"; make -C '", src, "'"));
1282 if (status != 0)
1283 rm_rf (desc.dir);
1284 error ("'make' returned the following error: %s", output);
1285 elseif (verbose)
1286 printf("%s", output);
1287 endif
1288 endif
1289
1290 ## Copy files to "inst" and "inst/arch" (this is instead of 'make
1291 ## install').
1292 files = fullfile (src, "FILES");
1293 instdir = fullfile (packdir, "inst");
1294 archdir = fullfile (packdir, "inst", getarch ());
1295
1296 ## Get file names.
1297 if (exist (files, "file"))
1298 [fid, msg] = fopen (files, "r");
1299 if (fid < 0)
1300 error ("couldn't open %s: %s", files, msg);
1301 endif
1302 filenames = char (fread (fid))';
1303 fclose (fid);
1304 if (filenames(end) == "\n")
1305 filenames(end) = [];
1306 endif
1307 filenames = split_by (filenames, "\n");
1308 delete_idx = [];
1309 for i = 1:length (filenames)
1310 if (! all (isspace (filenames{i})))
1311 filenames{i} = fullfile (src, filenames{i});
1312 else
1313 delete_idx(end+1) = i;
1314 endif
1315 endfor
1316 filenames(delete_idx) = [];
1317 else
1318 m = dir (fullfile (src, "*.m"));
1319 oct = dir (fullfile (src, "*.oct"));
1320 mex = dir (fullfile (src, "*.mex"));
1321
1322 filenames = cellfun (@(x) fullfile (src, x),
1323 {m.name, oct.name, mex.name},
1324 "UniformOutput", false);
1325 endif
1326
1327 ## Split into architecture dependent and independent files.
1328 if (isempty (filenames))
1329 idx = [];
1330 else
1331 idx = cellfun (@is_architecture_dependent, filenames);
1332 endif
1333 archdependent = filenames (idx);
1334 archindependent = filenames (!idx);
1335
1336 ## Copy the files.
1337 if (! all (isspace ([filenames{:}])))
1338 if (! exist (instdir, "dir")) # fixindent
1339 mkdir (instdir);
1340 endif
1341 if (! all (isspace ([archindependent{:}])))
1342 if (verbose)
1343 printf ("copyfile");
1344 printf (" %s", archindependent{:});
1345 printf ("%s\n", instdir);
1346 endif
1347 [status, output] = copyfile (archindependent, instdir);
1348 if (status != 1)
1349 rm_rf (desc.dir);
1350 error ("Couldn't copy files from 'src' to 'inst': %s", output);
1351 endif
1352 endif
1353 if (! all (isspace ([archdependent{:}])))
1354 if (verbose)
1355 printf ("copyfile");
1356 printf (" %s", archdependent{:});
1357 printf (" %s\n", archdir);
1358 endif
1359 if (! exist (archdir, "dir"))
1360 mkdir (archdir);
1361 endif
1362 [status, output] = copyfile (archdependent, archdir);
1363 if (status != 1)
1364 rm_rf (desc.dir);
1365 error ("Couldn't copy files from 'src' to 'inst': %s", output);
1366 endif
1367 endif
1368 endif
1369 endif
1370endfunction
1371
1372function pkg = extract_pkg (nm, pat)
1373 fid = fopen (nm, "rt");
1374 pkg = "";
1375 if (fid >= 0)
1376 while (! feof (fid))
1377 ln = fgetl (fid);
1378 if (ln > 0)
1379 t = regexp (ln, pat, "tokens");
1380 if (! isempty (t))
1381 pkg = cstrcat (pkg, "\n", t{1}{1});
1382 endif
1383 endif
1384 endwhile
1385 if (! isempty (pkg))
1386 pkg = cstrcat (pkg, "\n");
1387 endif
1388 fclose (fid);
1389 endif
1390endfunction
1391
1392function create_pkgadddel (desc, packdir, nm, global_install)
1393 instpkg = fullfile (desc.dir, nm);
1394 instfid = fopen (instpkg, "wt");
1395 ## If it is exists, most of the PKG_* file should go into the
1396 ## architecture dependent directory so that the autoload/mfilename
1397 ## commands work as expected. The only part that doesn't is the
1398 ## part in the main directory.
1399 archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-",
1400 desc.version), getarch ());
1401 if (exist (getarchdir (desc, global_install), "dir"))
1402 archpkg = fullfile (getarchdir (desc, global_install), nm);
1403 archfid = fopen (archpkg, "at");
1404 else
1405 archpkg = instpkg;
1406 archfid = instfid;
1407 endif
1408
1409 if (archfid >= 0 && instfid >= 0)
1410 ## Search all dot-m files for PKG commands.
1411 lst = dir (fullfile (packdir, "inst", "*.m"));
1412 for i = 1:length (lst)
1413 nam = fullfile (packdir, "inst", lst(i).name);
1414 fwrite (instfid, extract_pkg (nam, ['^[#%][#%]* *' nm ': *(.*)$']));
1415 endfor # fixindent
1416
1417 ## Search all C++ source files for PKG commands.
1418 lst = dir (fullfile (packdir, "src", "*.cc")); # fixindent
1419 for i = 1:length (lst)
1420 nam = fullfile (packdir, "src", lst(i).name);
1421 fwrite (archfid, extract_pkg (nam, ['^//* *' nm ': *(.*)$']));
1422 fwrite (archfid, extract_pkg (nam, ['^/\** *' nm ': *(.*) *\*/$']));
1423 endfor
1424
1425 ## Add developer included PKG commands.
1426 packdirnm = fullfile (packdir, nm);
1427 if (exist (packdirnm, "file"))
1428 fid = fopen (packdirnm, "rt");
1429 if (fid >= 0)
1430 while (! feof (fid))
1431 ln = fgets (fid);
1432 if (ln > 0)
1433 fwrite (archfid, ln);
1434 endif
1435 endwhile
1436 fclose (fid);
1437 endif
1438 endif
1439
1440 ## If the files is empty remove it.
1441 fclose (instfid);
1442 t = dir (instpkg);
1443 if (t.bytes <= 0)
1444 unlink (instpkg);
1445 endif
1446
1447 if (instfid != archfid)
1448 fclose (archfid);
1449 t = dir (archpkg);
1450 if (t.bytes <= 0)
1451 unlink (archpkg);
1452 endif
1453 endif
1454 endif # fixindent
1455endfunction # fixindent
1456
1457function copy_files (desc, packdir, global_install) # fixindent
1458 ## Create the installation directory.
1459 if (! exist (desc.dir, "dir"))
1460 [status, output] = mkdir (desc.dir);
1461 if (status != 1)
1462 error ("couldn't create installation directory %s : %s",
1463 desc.dir, output);
1464 endif
1465 endif
1466
1467 octfiledir = getarchdir (desc);
1468
1469 ## Copy the files from "inst" to installdir.
1470 instdir = fullfile (packdir, "inst");
1471 if (! dirempty (instdir))
1472 [status, output] = copyfile (fullfile (instdir, "*"), desc.dir);
1473 if (status != 1)
1474 rm_rf (desc.dir);
1475 error ("couldn't copy files to the installation directory");
1476 endif
1477 if (exist (fullfile (desc.dir, getarch ()), "dir") &&
1478 ! strcmp (fullfile (desc.dir, getarch ()), octfiledir))
1479 if (! exist (octfiledir, "dir"))
1480 ## Can be required to create upto three levels of dirs.
1481 octm1 = fileparts (octfiledir);
1482 if (! exist (octm1, "dir"))
1483 octm2 = fileparts (octm1);
1484 if (! exist (octm2, "dir"))
1485 octm3 = fileparts (octm2);
1486 if (! exist (octm3, "dir"))
1487 [status, output] = mkdir (octm3);
1488 if (status != 1)
1489 rm_rf (desc.dir);
1490 error ("couldn't create installation directory %s : %s",
1491 octm3, output);
1492 endif
1493 endif
1494 [status, output] = mkdir (octm2);
1495 if (status != 1)
1496 rm_rf (desc.dir);
1497 error ("couldn't create installation directory %s : %s",
1498 octm2, output);
1499 endif
1500 endif
1501 [status, output] = mkdir (octm1);
1502 if (status != 1)
1503 rm_rf (desc.dir);
1504 error ("couldn't create installation directory %s : %s",
1505 octm1, output);
1506 endif
1507 endif
1508 [status, output] = mkdir (octfiledir);
1509 if (status != 1)
1510 rm_rf (desc.dir);
1511 error ("couldn't create installation directory %s : %s",
1512 octfiledir, output);
1513 endif
1514 endif
1515 [status, output] = movefile (fullfile (desc.dir, getarch (), "*"),
1516 octfiledir);
1517 rm_rf (fullfile (desc.dir, getarch ()));
1518
1519 if (status != 1)
1520 rm_rf (desc.dir);
1521 rm_rf (octfiledir);
1522 error ("couldn't copy files to the installation directory");
1523 endif
1524 endif
1525
1526 endif
1527
1528 ## Create the "packinfo" directory.
1529 packinfo = fullfile (desc.dir, "packinfo");
1530 [status, msg] = mkdir (packinfo);
1531 if (status != 1)
1532 rm_rf (desc.dir);
1533 rm_rf (octfiledir);
1534 error ("couldn't create packinfo directory: %s", msg);
1535 endif
1536
1537 ## Copy DESCRIPTION.
1538 [status, output] = copyfile (fullfile (packdir, "DESCRIPTION"), packinfo);
1539 if (status != 1)
1540 rm_rf (desc.dir);
1541 rm_rf (octfiledir);
1542 error ("couldn't copy DESCRIPTION: %s", output);
1543 endif
1544
1545 ## Copy COPYING.
1546 [status, output] = copyfile (fullfile (packdir, "COPYING"), packinfo);
1547 if (status != 1)
1548 rm_rf (desc.dir);
1549 rm_rf (octfiledir);
1550 error ("couldn't copy COPYING: %s", output);
1551 endif
1552
1553 ## If the file ChangeLog exists, copy it.
1554 changelog_file = fullfile (packdir, "ChangeLog");
1555 if (exist (changelog_file, "file"))
1556 [status, output] = copyfile (changelog_file, packinfo);
1557 if (status != 1)
1558 rm_rf (desc.dir);
1559 rm_rf (octfiledir);
1560 error ("couldn't copy ChangeLog file: %s", output);
1561 endif
1562 endif
1563
1564 ## Is there an INDEX file to copy or should we generate one?
1565 index_file = fullfile (packdir, "INDEX");
1566 if (exist(index_file, "file"))
1567 [status, output] = copyfile (index_file, packinfo);
1568 if (status != 1)
1569 rm_rf (desc.dir);
1570 rm_rf (octfiledir);
1571 error ("couldn't copy INDEX file: %s", output);
1572 endif
1573 else
1574 try
1575 write_index (desc, fullfile (packdir, "inst"),
1576 fullfile (packinfo, "INDEX"), global_install);
1577 catch
1578 rm_rf (desc.dir);
1579 rm_rf (octfiledir);
1580 rethrow (lasterror ());
1581 end_try_catch
1582 endif
1583
1584 ## Is there an 'on_uninstall.m' to install?
1585 fon_uninstall = fullfile (packdir, "on_uninstall.m");
1586 if (exist (fon_uninstall, "file"))
1587 [status, output] = copyfile (fon_uninstall, packinfo);
1588 if (status != 1)
1589 rm_rf (desc.dir);
1590 rm_rf (octfiledir);
1591 error ("couldn't copy on_uninstall.m: %s", output);
1592 endif
1593 endif
1594
1595 ## Is there a doc/ directory that needs to be installed?
1596 docdir = fullfile (packdir, "doc");
1597 if (exist (docdir, "dir") && ! dirempty (docdir))
1598 [status, output] = copyfile (docdir, desc.dir);
1599 endif
1600
1601 ## Is there a bin/ directory that needs to be installed?
1602 ## FIXME: Need to treat architecture dependent files in bin/
1603 bindir = fullfile (packdir, "bin");
1604 if (exist (bindir, "dir") && ! dirempty (bindir))
1605 [status, output] = copyfile (bindir, desc.dir);
1606 endif
1607endfunction
1608
1609function finish_installation (desc, packdir, global_install)
1610 ## Is there a post-install to call?
1611 if (exist (fullfile (packdir, "post_install.m"), "file"))
1612 wd = pwd ();
1613 try
1614 cd (packdir);
1615 post_install (desc);
1616 cd (wd);
1617 catch
1618 cd (wd);
1619 rm_rf (desc.dir);
1620 rm_rf (getarchdir (desc), global_install);
1621 rethrow (lasterror ());
1622 end_try_catch
1623 endif
1624endfunction
1625
1626function generate_lookfor_cache (desc)
1627 dirs = split_by (genpath (desc.dir), pathsep ());
1628 for i = 1 : length (dirs)
1629 gen_doc_cache (fullfile (dirs{i}, "doc-cache"), dirs{i});
1630 endfor
1631endfunction
1632
1633## Make sure the package contains the essential files.
1634function verify_directory (dir)
1635 needed_files = {"COPYING", "DESCRIPTION"};
1636 for f = needed_files
1637 if (! exist (fullfile (dir, f{1}), "file"))
1638 error ("package is missing file: %s", f{1});
1639 endif
1640 endfor
1641endfunction
1642
1643## Parse the DESCRIPTION file.
1644function desc = get_description (filename)
1645 [fid, msg] = fopen (filename, "r");
1646 if (fid == -1)
1647 error ("the DESCRIPTION file %s could not be read: %s", filename, msg);
1648 endif
1649
1650 desc = struct ();
1651
1652 line = fgetl (fid);
1653 while (line != -1)
1654 if (line(1) == "#")
1655 ## Comments, do nothing.
1656 elseif (isspace(line(1)))
1657 ## Continuation lines
1658 if (exist ("keyword", "var") && isfield (desc, keyword))
1659 desc.(keyword) = cstrcat (desc.(keyword), " ", rstrip(line));
1660 endif
1661 else
1662 ## Keyword/value pair
1663 colon = find (line == ":");
1664 if (length (colon) == 0)
1665 disp ("skipping line");
1666 else
1667 colon = colon(1);
1668 keyword = tolower (strip (line(1:colon-1)));
1669 value = strip (line (colon+1:end));
1670 if (length (value) == 0)
1671 fclose (fid);
1672 error ("the keyword %s has an empty value", desc.keywords{end});
1673 endif
1674 desc.(keyword) = value;
1675 endif
1676 endif
1677 line = fgetl (fid);
1678 endwhile
1679 fclose (fid);
1680
1681 ## Make sure all is okay.
1682 needed_fields = {"name", "version", "date", "title", ...
1683 "author", "maintainer", "description"};
1684 for f = needed_fields
1685 if (! isfield (desc, f{1}))
1686 error ("description is missing needed field %s", f{1});
1687 endif
1688 endfor
1689 desc.version = fix_version (desc.version);
1690 if (isfield (desc, "depends"))
1691 desc.depends = fix_depends (desc.depends);
1692 else
1693 desc.depends = "";
1694 endif
1695 desc.name = tolower (desc.name);
1696endfunction
1697
1698## Make sure the version string v is a valid x.y.z version string
1699## Examples: "0.1" => "0.1.0", "monkey" => error(...).
1700function out = fix_version (v)
1701 dots = find (v == ".");
1702 if (length (dots) == 1)
1703 major = str2num (v(1:dots-1));
1704 minor = str2num (v(dots+1:end));
1705 if (length (major) != 0 && length (minor) != 0)
1706 out = sprintf ("%d.%d.0", major, minor);
1707 return;
1708 endif
1709 elseif (length (dots) == 2)
1710 major = str2num (v(1:dots(1)-1));
1711 minor = str2num (v(dots(1)+1:dots(2)-1));
1712 rev = str2num (v(dots(2)+1:end));
1713 if (length (major) != 0 && length (minor) != 0 && length (rev) != 0)
1714 out = sprintf ("%d.%d.%d", major, minor, rev);
1715 return;
1716 endif
1717 endif
1718 error ("bad version string: %s", v);
1719endfunction
1720
1721## Make sure the depends field is of the right format.
1722## This function returns a cell of structures with the following fields:
1723## package, version, operator
1724function deps_cell = fix_depends (depends)
1725 deps = split_by (tolower (depends), ",");
1726 deps_cell = cell (1, length (deps));
1727
1728 ## For each dependency.
1729 for i = 1:length (deps)
1730 dep = deps{i};
1731 lpar = find (dep == "(");
1732 rpar = find (dep == ")");
1733 ## Does the dependency specify a version
1734 ## Example: package(>= version).
1735 if (length (lpar) == 1 && length (rpar) == 1)
1736 package = tolower (strip (dep(1:lpar-1)));
1737 sub = dep(lpar(1)+1:rpar(1)-1);
1738 parts = strsplit (sub, " ", true);
1739 if (length (parts) != 2)
1740 error ("incorrect syntax for dependency `%s' in the DESCRIPTION file\n",
1741 dep);
1742 endif
1743 operator = parts{1};
1744 if (! any (strcmp (operator, {">", ">=", "<=", "<", "=="})))
1745 error ("unsupported operator: %s", operator);
1746 endif
1747 version = fix_version (parts{2});
1748
1749 ## If no version is specified for the dependency
1750 ## we say that the version should be greater than
1751 ## or equal to "0.0.0".
1752 else
1753 package = tolower (strip (dep));
1754 operator = ">=";
1755 version = "0.0.0";
1756 endif
1757 deps_cell{i} = struct ("package", package, "operator", operator,
1758 "version", version);
1759 endfor
1760endfunction
1761
1762## Strip the text of spaces from the right
1763## Example: " hello world " => " hello world"
1764## FIXME -- is this the same as deblank?
1765function text = rstrip (text)
1766 chars = find (! isspace (text));
1767 if (length (chars) > 0)
1768 ## FIXME: shouldn't it be text = text(1:chars(end));
1769 text = text (chars(1):end);
1770 else
1771 text = "";
1772 endif
1773endfunction
1774
1775## Strip the text of spaces from the left and the right.
1776## Example: " hello world " => "hello world"
1777function text = strip (text)
1778 chars = find (! isspace (text));
1779 if (length (chars) > 0)
1780 text = text(chars(1):chars(end));
1781 else
1782 text = "";
1783 endif
1784endfunction
1785
1786## Split the text into a cell array of strings by sep.
1787## Example: "A, B" => {"A", "B"} (with sep = ",")
1788function out = split_by (text, sep)
1789 out = strtrim (strsplit (text, sep));
1790endfunction
1791
1792## Create an INDEX file for a package that doesn't provide one.
1793## 'desc' describes the package.
1794## 'dir' is the 'inst' directory in temporary directory.
1795## 'index_file' is the name (including path) of resulting INDEX file.
1796function write_index (desc, dir, index_file, global_install)
1797 ## Get names of functions in dir
1798 [files, err, msg] = readdir (dir);
1799 if (err)
1800 error ("couldn't read directory %s: %s", dir, msg);
1801 endif
1802
1803 ## Check for architecture dependent files.
1804 tmpdir = getarchdir (desc);
1805 if (exist (tmpdir, "dir"))
1806 [files2, err, msg] = readdir (tmpdir);
1807 if (err)
1808 error ("couldn't read directory %s: %s", tmpdir, msg);
1809 endif
1810 files = [files; files2];
1811 endif
1812
1813 functions = {};
1814 for i = 1:length (files)
1815 file = files{i};
1816 lf = length (file);
1817 if (lf > 2 && strcmp (file(end-1:end), ".m"))
1818 functions{end+1} = file(1:end-2);
1819 elseif (lf > 4 && strcmp (file(end-3:end), ".oct"))
1820 functions{end+1} = file(1:end-4);
1821 endif
1822 endfor
1823
1824 ## Does desc have a categories field?
1825 if (! isfield (desc, "categories"))
1826 error ("the DESCRIPTION file must have a Categories field, when no INDEX file is given");
1827 endif
1828 categories = split_by (desc.categories, ",");
1829 if (length (categories) < 1)
1830 error ("the Category field is empty");
1831 endif
1832
1833 ## Write INDEX.
1834 fid = fopen (index_file, "w");
1835 if (fid == -1)
1836 error ("couldn't open %s for writing.", index_file);
1837 endif
1838 fprintf (fid, "%s >> %s\n", desc.name, desc.title);
1839 fprintf (fid, "%s\n", categories{1});
1840 fprintf (fid, " %s\n", functions{:});
1841 fclose (fid);
1842endfunction
1843
1844function bad_deps = get_unsatisfied_deps (desc, installed_pkgs_lst)
1845 bad_deps = {};
1846
1847 ## For each dependency.
1848 for i = 1:length (desc.depends)
1849 dep = desc.depends{i};
1850
1851 ## Is the current dependency Octave?
1852 if (strcmp (dep.package, "octave"))
1853 if (! compare_versions (OCTAVE_VERSION, dep.version, dep.operator))
1854 bad_deps{end+1} = dep;
1855 endif
1856 ## Is the current dependency not Octave?
1857 else
1858 ok = false;
1859 for i = 1:length (installed_pkgs_lst)
1860 cur_name = installed_pkgs_lst{i}.name;
1861 cur_version = installed_pkgs_lst{i}.version;
1862 if (strcmp (dep.package, cur_name)
1863 && compare_versions (cur_version, dep.version, dep.operator))
1864 ok = true;
1865 break;
1866 endif
1867 endfor
1868 if (! ok)
1869 bad_deps{end+1} = dep;
1870 endif
1871 endif
1872 endfor
1873endfunction
1874
1875function [out1, out2] = installed_packages (local_list, global_list)
1876 ## Get the list of installed packages.
1877 try
1878 local_packages = load (local_list).local_packages;
1879 catch
1880 local_packages = {};
1881 end_try_catch
1882 try
1883 global_packages = load (global_list).global_packages;
1884 catch
1885 global_packages = {};
1886 end_try_catch
1887 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
1888
1889 ## Eliminate duplicates in the installed package list.
1890 ## Locally installed packages take precedence.
1891 dup = [];
1892 for i = 1:length (installed_pkgs_lst)
1893 if (find (dup, i))
1894 continue;
1895 endif
1896 for j = (i+1):length (installed_pkgs_lst)
1897 if (find (dup, j))
1898 continue;
1899 endif
1900 if (strcmp (installed_pkgs_lst{i}.name, installed_pkgs_lst{j}.name))
1901 dup = [dup, j];
1902 endif
1903 endfor
1904 endfor
1905 if (! isempty(dup))
1906 installed_pkgs_lst(dup) = [];
1907 endif
1908
1909 ## Now check if the package is loaded.
1910 tmppath = strrep (path(), "\\", "/");
1911 for i = 1:length (installed_pkgs_lst)
1912 if (findstr (tmppath, strrep (installed_pkgs_lst{i}.dir, "\\", "/")))
1913 installed_pkgs_lst{i}.loaded = true;
1914 else
1915 installed_pkgs_lst{i}.loaded = false;
1916 endif
1917 endfor
1918 for i = 1:length (local_packages)
1919 if (findstr (tmppath, strrep (local_packages{i}.dir, "\\", "/")))
1920 local_packages{i}.loaded = true;
1921 else
1922 local_packages{i}.loaded = false;
1923 endif
1924 endfor
1925 for i = 1:length (global_packages)
1926 if (findstr (tmppath, strrep (global_packages{i}.dir, "\\", "/")))
1927 global_packages{i}.loaded = true;
1928 else
1929 global_packages{i}.loaded = false;
1930 endif
1931 endfor
1932
1933 ## Should we return something?
1934 if (nargout == 2)
1935 out1 = local_packages;
1936 out2 = global_packages;
1937 return;
1938 elseif (nargout == 1)
1939 out1 = installed_pkgs_lst;
1940 return;
1941 endif
1942
1943 ## We shouldn't return something, so we'll print something.
1944 num_packages = length (installed_pkgs_lst);
1945 if (num_packages == 0)
1946 printf ("no packages installed.\n");
1947 return;
1948 endif
1949
1950 ## Compute the maximal lengths of name, version, and dir.
1951 h1 = "Package Name";
1952 h2 = "Version";
1953 h3 = "Installation directory";
1954 max_name_length = length (h1);
1955 max_version_length = length (h2);
1956 names = cell (num_packages, 1);
1957 for i = 1:num_packages
1958 max_name_length = max (max_name_length,
1959 length (installed_pkgs_lst{i}.name));
1960 max_version_length = max (max_version_length,
1961 length (installed_pkgs_lst{i}.version));
1962 names{i} = installed_pkgs_lst{i}.name;
1963 endfor
1964 max_dir_length = terminal_size()(2) - max_name_length - ...
1965 max_version_length - 7;
1966 if (max_dir_length < 20)
1967 max_dir_length = Inf;
1968 endif
1969
1970 h1 = postpad (h1, max_name_length + 1, " ");
1971 h2 = postpad (h2, max_version_length, " ");;
1972
1973 ## Print a header.
1974 header = sprintf("%s | %s | %s\n", h1, h2, h3);
1975 printf (header);
1976 tmp = sprintf (repmat ("-", 1, length(header)-1));
1977 tmp(length(h1)+2) = "+";
1978 tmp(length(h1)+length(h2)+5) = "+";
1979 printf ("%s\n", tmp);
1980
1981 ## Print the packages.
1982 format = sprintf ("%%%ds %%1s| %%%ds | %%s\n", max_name_length,
1983 max_version_length);
1984 [dummy, idx] = sort (names);
1985 for i = 1:num_packages
1986 cur_name = installed_pkgs_lst{idx(i)}.name;
1987 cur_version = installed_pkgs_lst{idx(i)}.version;
1988 cur_dir = installed_pkgs_lst{idx(i)}.dir;
1989 if (length (cur_dir) > max_dir_length)
1990 first_char = length (cur_dir) - max_dir_length + 4;
1991 first_filesep = strfind (cur_dir(first_char:end), filesep());
1992 if (! isempty (first_filesep))
1993 cur_dir = cstrcat ("...",
1994 cur_dir((first_char + first_filesep(1) - 1):end));
1995 else
1996 cur_dir = cstrcat ("...", cur_dir(first_char:end));
1997 endif
1998 endif
1999 if (installed_pkgs_lst{idx(i)}.loaded)
2000 cur_loaded = "*";
2001 else
2002 cur_loaded = " ";
2003 endif
2004 printf (format, cur_name, cur_loaded, cur_version, cur_dir);
2005 endfor
2006endfunction
2007
2008function load_packages (files, handle_deps, local_list, global_list)
2009 installed_pkgs_lst = installed_packages (local_list, global_list);
2010 num_packages = length (installed_pkgs_lst);
2011
2012 ## Read package names and installdirs into a more convenient format.
2013 pnames = pdirs = cell (1, num_packages);
2014 for i = 1:num_packages
2015 pnames{i} = installed_pkgs_lst{i}.name;
2016 pdirs{i} = installed_pkgs_lst{i}.dir;
2017 endfor
2018
2019 ## Load all.
2020 if (length (files) == 1 && strcmp (files{1}, "all"))
2021 idx = [1:length(installed_pkgs_lst)];
2022 ## Load auto.
2023 elseif (length (files) == 1 && strcmp (files{1}, "auto"))
2024 idx = [];
2025 for i = 1:length (installed_pkgs_lst)
2026 if (exist (fullfile (pdirs{i}, "packinfo", ".autoload"), "file"))
2027 idx (end + 1) = i;
2028 endif
2029 endfor
2030 ## Load package_name1 ...
2031 else
2032 idx = [];
2033 for i = 1:length (files)
2034 idx2 = find (strcmp (pnames, files{i}));
2035 if (! any (idx2))
2036 error ("package %s is not installed", files{i});
2037 endif
2038 idx (end + 1) = idx2;
2039 endfor
2040 endif
2041
2042 ## Load the packages, but take care of the ordering of dependencies.
2043 load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst, true);
2044endfunction
2045
2046function unload_packages (files, handle_deps, local_list, global_list)
2047 installed_pkgs_lst = installed_packages (local_list, global_list);
2048 num_packages = length (installed_pkgs_lst);
2049
2050 ## Read package names and installdirs into a more convenient format.
2051 pnames = pdirs = cell (1, num_packages);
2052 for i = 1:num_packages
2053 pnames{i} = installed_pkgs_lst{i}.name;
2054 pdirs{i} = installed_pkgs_lst{i}.dir;
2055 pdeps{i} = installed_pkgs_lst{i}.depends;
2056 endfor
2057
2058 ## Get the current octave path.
2059 p = split_by (path(), pathsep ());
2060
2061 if (length (files) == 1 && strcmp (files{1}, "all"))
2062 ## Unload all.
2063 dirs = pdirs;
2064 desc = installed_pkgs_lst;
2065 else
2066 ## Unload package_name1 ...
2067 dirs = {};
2068 desc = {};
2069 for i = 1:length (files)
2070 idx = strcmp (pnames, files{i});
2071 if (! any (idx))
2072 error ("package %s is not installed", files{i});
2073 endif
2074 dirs{end+1} = pdirs{idx};
2075 desc{end+1} = installed_pkgs_lst{idx};
2076 endfor
2077 endif
2078
2079 ## Check for architecture dependent directories.
2080 archdirs = {};
2081 for i = 1:length (dirs)
2082 tmpdir = getarchdir (desc{i});
2083 if (exist (tmpdir, "dir"))
2084 archdirs{end+1} = dirs{i};
2085 archdirs{end+1} = tmpdir;
2086 else
2087 archdirs{end+1} = dirs{i};
2088 endif
2089 endfor
2090
2091 ## Unload the packages.
2092 for i = 1:length (archdirs)
2093 d = archdirs{i};
2094 idx = strcmp (p, d);
2095 if (any (idx))
2096 rmpath (d);
2097 ## FIXME: We should also check if we need to remove items from
2098 ## EXEC_PATH.
2099 endif
2100 endfor
2101endfunction
2102
2103function [status_out, msg_out] = rm_rf (dir)
2104 if (exist (dir))
2105 crr = confirm_recursive_rmdir ();
2106 unwind_protect
2107 confirm_recursive_rmdir (false);
2108 [status, msg] = rmdir (dir, "s");
2109 unwind_protect_cleanup
2110 confirm_recursive_rmdir (crr);
2111 end_unwind_protect
2112 else
2113 status = 1;
2114 msg = "";
2115 endif
2116 if (nargout > 0)
2117 status_out = status;
2118 endif
2119 if (nargout > 1)
2120 msg_out = msg;
2121 endif
2122endfunction
2123
2124function emp = dirempty (nm, ign)
2125 if (exist (nm, "dir"))
2126 if (nargin < 2)
2127 ign = {".", ".."};
2128 else
2129 ign = [{".", ".."}, ign];
2130 endif
2131 l = dir (nm);
2132 for i = 1:length (l)
2133 found = false;
2134 for j = 1:length (ign)
2135 if (strcmp (l(i).name, ign{j}))
2136 found = true;
2137 break;
2138 endif
2139 endfor
2140 if (! found)
2141 emp = false;
2142 return
2143 endif
2144 endfor
2145 emp = true;
2146 else
2147 emp = true;
2148 endif
2149endfunction
2150
2151function arch = getarch ()
2152 persistent _arch = cstrcat (octave_config_info("canonical_host_type"), ...
2153 "-", octave_config_info("api_version"));
2154 arch = _arch;
2155endfunction
2156
2157function archprefix = getarchprefix (desc, global_install)
2158 if ((nargin == 2 && global_install) || (nargin < 2 && issuperuser ()))
2159 archprefix = fullfile (octave_config_info ("libexecdir"), "octave",
2160 "packages", cstrcat(desc.name, "-", desc.version));
2161 else
2162 archprefix = desc.dir;
2163 endif
2164endfunction
2165
2166function archdir = getarchdir (desc)
2167 archdir = fullfile (desc.archprefix, getarch());
2168endfunction
2169
2170function s = issuperuser ()
2171 if ((ispc () && ! isunix ()) || (geteuid() == 0))
2172 s = true;
2173 else
2174 s = false;
2175 endif
2176endfunction
2177
2178function [status, output] = shell (cmd)
2179 persistent have_sh;
2180
2181 cmd = strrep (cmd, "\\", "/");
2182 if (ispc () && ! isunix ())
2183 if (isempty(have_sh))
2184 if (system("sh.exe -c \"exit\""))
2185 have_sh = false;
2186 else
2187 have_sh = true;
2188 endif
2189 endif
2190 if (have_sh)
2191 [status, output] = system (cstrcat ("sh.exe -c \"", cmd, "\""));
2192 else
2193 error ("Can not find the command shell")
2194 endif
2195 else
2196 [status, output] = system (cmd);
2197 endif
2198endfunction
2199
2200function newdesc = save_order (desc)
2201 newdesc = {};
2202 for i = 1 : length(desc)
2203 deps = desc{i}.depends;
2204 if (isempty (deps) || (length (deps) == 1 &&
2205 strcmp(deps{1}.package, "octave")))
2206 newdesc {end + 1} = desc{i};
2207 else
2208 tmpdesc = {};
2209 for k = 1 : length (deps)
2210 for j = 1 : length (desc)
2211 if (strcmp (desc{j}.name, deps{k}.package))
2212 tmpdesc{end+1} = desc{j};
2213 break;
2214 endif
2215 endfor
2216 endfor
2217 if (! isempty (tmpdesc))
2218 newdesc = {newdesc{:}, save_order(tmpdesc){:}, desc{i}};
2219 else
2220 newdesc{end+1} = desc{i};
2221 endif
2222 endif
2223 endfor
2224 ## Eliminate the duplicates.
2225 idx = [];
2226 for i = 1 : length (newdesc)
2227 for j = (i + 1) : length (newdesc)
2228 if (strcmp (newdesc{i}.name, newdesc{j}.name))
2229 idx (end + 1) = j;
2230 endif
2231 endfor
2232 endfor
2233 newdesc(idx) = [];
2234endfunction
2235
2236function load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst,
2237 global_install)
2238 idx = load_package_dirs (idx, [], handle_deps, installed_pkgs_lst);
2239 dirs = {};
2240 execpath = EXEC_PATH ();
2241 for i = idx;
2242 ndir = installed_pkgs_lst{i}.dir;
2243 dirs{end+1} = ndir;
2244 if (exist (fullfile (dirs{end}, "bin"), "dir"))
2245 execpath = cstrcat (fullfile (dirs{end}, "bin"), ":", execpath);
2246 endif
2247 tmpdir = getarchdir (installed_pkgs_lst{i});
2248 if (exist (tmpdir, "dir"))
2249 dirs{end + 1} = tmpdir;
2250 if (exist (fullfile (dirs{end}, "bin"), "dir"))
2251 execpath = cstrcat (fullfile (dirs{end}, "bin"), ":", execpath);
2252 endif
2253 endif
2254 endfor
2255
2256 ## Load the packages.
2257 if (length (dirs) > 0)
2258 addpath (dirs{:});
2259 endif
2260
2261 ## Add the binaries to exec_path.
2262 if (! strcmp (EXEC_PATH, execpath))
2263 EXEC_PATH (execpath);
2264 endif
2265endfunction
2266
2267function idx = load_package_dirs (lidx, idx, handle_deps, installed_pkgs_lst)
2268 for i = lidx
2269 if (isfield (installed_pkgs_lst{i}, "loaded") &&
2270 installed_pkgs_lst{i}.loaded)
2271 continue;
2272 else
2273 if (handle_deps)
2274 deps = installed_pkgs_lst{i}.depends;
2275 if ((length (deps) > 1) || (length (deps) == 1 &&
2276 ! strcmp(deps{1}.package, "octave")))
2277 tmplidx = [];
2278 for k = 1 : length (deps)
2279 for j = 1 : length (installed_pkgs_lst)
2280 if (strcmp (installed_pkgs_lst{j}.name, deps{k}.package))
2281 tmplidx (end + 1) = j;
2282 break;
2283 endif
2284 endfor
2285 endfor
2286 idx = load_package_dirs (tmplidx, idx, handle_deps,
2287 installed_pkgs_lst);
2288 endif
2289 endif
2290 if (isempty (find(idx == i)))
2291 idx (end + 1) = i;
2292 endif
2293 endif
2294 endfor
2295endfunction
2296
2297function dep = is_architecture_dependent (nm)
2298 persistent archdepsuffix = {".oct",".mex",".a",".lib",".so",".so.*",".dll","dylib"};
2299
2300 dep = false;
2301 for i = 1 : length (archdepsuffix)
2302 ext = archdepsuffix{i};
2303 if (ext(end) == "*")
2304 isglob = true;
2305 ext(end) = [];
2306 else
2307 isglob = false;
2308 endif
2309 pos = findstr (nm, ext);
2310 if (pos)
2311 if (! isglob && (length(nm) - pos(end) != length(ext) - 1))
2312 continue;
2313 endif
2314 dep = true;
2315 break;
2316 endif
2317 endfor
2318endfunction
generated by cgit v1.2.1 (git 2.18.0) at 2026-01-24 15:30:19 +0000