|
5801
|
1 ## Copyright (C) 2005 S�ren Hauberg |
|
|
2 ## |
|
|
3 ## This program is free software; you can redistribute it and/or modify |
|
|
4 ## it under the terms of the GNU General Public License as published by |
|
|
5 ## the Free Software Foundation; either version 2 of the License, or |
|
|
6 ## (at your option) any later version. |
|
|
7 ## |
|
|
8 ## This program is distributed in the hope that it will be useful, |
|
|
9 ## but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
10 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
11 ## GNU General Public License for more details. |
|
|
12 ## |
|
|
13 ## You should have received a copy of the GNU General Public License |
|
|
14 ## along with this program; if not, write to the Free Software |
|
|
15 ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
|
16 |
|
|
17 ## -*- texinfo -*- |
|
6032
|
18 ## @deftypefn {Command} pkg @var{command} @var{pkg_name} |
|
|
19 ## @deftypefnx {Command} pkg @var{command} @var{option} @var{pkg_name} |
|
|
20 ## This command interacts with the package manager. Different actions will |
|
|
21 ## be taking depending on the value of @var{command}. |
|
|
22 ## |
|
|
23 ## @table @samp |
|
|
24 ## @item install |
|
6033
|
25 ## Install named packages. For example, |
|
6032
|
26 ## @example |
|
|
27 ## pkg install image-1.0.0.tar.gz |
|
|
28 ## @end example |
|
|
29 ## @noindent |
|
6033
|
30 ## installs the package found in the file @code{image-1.0.0.tar.gz}. |
|
6032
|
31 ## |
|
|
32 ## If @var{option} is @code{-nodeps} the package manager will disable the |
|
|
33 ## dependency checking. That way it is possible to install a package even |
|
|
34 ## if it depends on another package that's not installed on the system. |
|
|
35 ## @strong{Use this option with care.} |
|
|
36 ## @item uninstall |
|
6033
|
37 ## Uninstall named packages. For example, |
|
6032
|
38 ## @example |
|
|
39 ## pkg uninstall image |
|
|
40 ## @end example |
|
|
41 ## @noindent |
|
6033
|
42 ## removes the @code{image} package from the system. If another installed |
|
6032
|
43 ## package depends on the @code{image} package an error will be issued. |
|
|
44 ## The package can be uninstalled anyway by using the @code{-nodeps} option. |
|
|
45 ## @item load |
|
6033
|
46 ## Add named packages to the path. After loading a package it is |
|
|
47 ## possible to use the functions provided by the package. For example, |
|
6032
|
48 ## @example |
|
|
49 ## pkg load image |
|
|
50 ## @end example |
|
|
51 ## @noindent |
|
6033
|
52 ## adds the @code{image} package to the path. It is possible to load all |
|
|
53 ## installed packages at once with the command |
|
6032
|
54 ## @example |
|
|
55 ## pkg load all |
|
|
56 ## @end example |
|
|
57 ## @item list |
|
6033
|
58 ## Show a list of the currently installed packages. By requesting one or two |
|
6032
|
59 ## output argument it is possible to get a list of the currently installed |
|
6033
|
60 ## packages. For example, |
|
6032
|
61 ## @example |
|
|
62 ## installed_packages = pkg list; |
|
|
63 ## @end example |
|
|
64 ## @noindent |
|
6033
|
65 ## returns a cell array containing a structure for each installed package. |
|
6032
|
66 ## The command |
|
|
67 ## @example |
|
|
68 ## [@var{user_packages}, @var{system_packages}] = pkg list |
|
|
69 ## @end example |
|
|
70 ## @noindent |
|
6033
|
71 ## splits the list of installed packages into those who are installed by |
|
6032
|
72 ## the current user, and those installed by the system administrator. |
|
|
73 ## @end table |
|
5801
|
74 ## @end deftypefn |
|
5947
|
75 |
|
|
76 ## PKG_ADD: mark_as_command pkg |
|
|
77 |
|
5801
|
78 function [local_packages, global_packages] = pkg(varargin) |
|
|
79 ## Handle input |
|
|
80 if (length(varargin) == 0 || !iscellstr(varargin)) |
|
5928
|
81 print_usage(); |
|
5801
|
82 endif |
|
|
83 files = {}; |
|
|
84 deps = true; |
|
|
85 action = "none"; |
|
|
86 for i = 1:length(varargin) |
|
|
87 switch (varargin{i}) |
|
|
88 case "-nodeps" |
|
|
89 deps = false; |
|
|
90 case {"list", "install", "uninstall", "load"} |
|
|
91 action = varargin{i}; |
|
|
92 otherwise |
|
|
93 files{end+1} = varargin{i}; |
|
|
94 endswitch |
|
|
95 endfor |
|
|
96 |
|
|
97 ## Take action |
|
|
98 switch (action) |
|
|
99 case "list" |
|
|
100 if (nargout == 0) |
|
|
101 installed_packages(); |
|
|
102 elseif (nargout == 1) |
|
|
103 local_packages = installed_packages(); |
|
|
104 elseif (nargout == 2) |
|
|
105 [local_packages, global_packages] = installed_packages(); |
|
|
106 else |
|
|
107 error("Too many output arguments requested.\n"); |
|
|
108 endif |
|
|
109 case "install" |
|
|
110 if (length(files) == 0) |
|
|
111 error("You must specify at least one filename when calling 'pkg install'\n"); |
|
|
112 endif |
|
|
113 install(files, deps); |
|
|
114 case "uninstall" |
|
|
115 if (length(files) == 0) |
|
|
116 error("You must specify at least one package when calling 'pkg uninstall'\n"); |
|
|
117 endif |
|
|
118 uninstall(files, deps); |
|
|
119 case "load" |
|
|
120 if (length(files) == 0) |
|
|
121 error("You must specify at least one package or 'all' when calling 'pkg load'\n"); |
|
|
122 endif |
|
|
123 load_packages(files, deps); |
|
|
124 otherwise |
|
|
125 error("You must specify a valid action for 'pkg'. See 'help pkg' for details\n"); |
|
|
126 endswitch |
|
|
127 endfunction |
|
|
128 |
|
|
129 function install(files, handle_deps) |
|
|
130 ## Set parameters depending on wether or not the installation |
|
|
131 ## is system-wide (global) or local. |
|
|
132 local_list = tilde_expand("~/.octave_packages"); |
|
5974
|
133 if (strcmp(OCTAVE_HOME()(end),"/")) |
|
|
134 global_list = [OCTAVE_HOME "share/octave/octave_packages"]; |
|
|
135 else |
|
|
136 global_list = [OCTAVE_HOME "/share/octave/octave_packages"]; |
|
|
137 endif |
|
5801
|
138 global OCTAVE_PACKAGE_PREFIX; |
|
|
139 prefix_exist = (length(OCTAVE_PACKAGE_PREFIX) != 0 && ischar(OCTAVE_PACKAGE_PREFIX)); |
|
|
140 |
|
|
141 if (issuperuser()) |
|
|
142 global_install = true; |
|
|
143 if (!prefix_exist) |
|
5947
|
144 if (strcmp(OCTAVE_HOME()(end),"/")) |
|
|
145 OCTAVE_PACKAGE_PREFIX = [OCTAVE_HOME "share/octave/packages/"]; |
|
|
146 else |
|
|
147 OCTAVE_PACKAGE_PREFIX = [OCTAVE_HOME "/share/octave/packages/"]; |
|
|
148 endif |
|
5801
|
149 endif |
|
|
150 else |
|
|
151 global_install = false; |
|
|
152 if (!prefix_exist) |
|
|
153 OCTAVE_PACKAGE_PREFIX = "~/octave/"; |
|
|
154 endif |
|
|
155 endif |
|
|
156 prefix = tilde_expand(OCTAVE_PACKAGE_PREFIX); |
|
|
157 if (!prefix_exist) |
|
|
158 warning(["You have not defined an installation prefix, " ... |
|
|
159 "so the following will be used: %s"], prefix); |
|
|
160 endif |
|
|
161 |
|
|
162 # Check that the directory in prefix exist. If it doesn't: create it! |
|
|
163 if (!exist(prefix, "dir")) |
|
|
164 warning("Creating installation directory %s", prefix); |
|
|
165 [status, msg] = mkdir(prefix); |
|
|
166 if (status != 1) |
|
|
167 error("Could not create installation directory: %s\n", msg); |
|
|
168 endif |
|
|
169 endif |
|
|
170 |
|
|
171 ## Get the list of installed packages |
|
|
172 [local_packages, global_packages] = installed_packages(); |
|
|
173 installed_packages = {local_packages{:} global_packages{:}}; |
|
|
174 |
|
|
175 if (global_install) |
|
|
176 packages = global_packages; |
|
|
177 else |
|
|
178 packages = local_packages; |
|
|
179 endif |
|
|
180 |
|
|
181 ## Uncompress the packages and read the DESCRIPTION files |
|
5947
|
182 tmpdirs = packdirs = descriptions = {}; |
|
5801
|
183 try |
|
|
184 ## Unpack the package files and read the DESCRIPTION files |
|
|
185 packages_to_uninstall = []; |
|
|
186 for i = 1:length(files) |
|
|
187 tgz = files{i}; |
|
|
188 |
|
|
189 ## Create a temporary directory |
|
|
190 tmpdir = tmpnam(); |
|
5947
|
191 tmpdirs{end+1} = tmpdir; |
|
5801
|
192 [status, msg] = mkdir(tmpdir); |
|
|
193 if (status != 1) |
|
|
194 error("Couldn't create temporary directory: %s\n", msg); |
|
|
195 endif |
|
|
196 |
|
|
197 ## Uncompress the package |
|
|
198 untar(tgz, tmpdir); |
|
5928
|
199 |
|
5947
|
200 ## Get the name of the directories produced by tar |
|
5801
|
201 [dirlist, err, msg] = readdir(tmpdir); |
|
|
202 if (err) |
|
|
203 error("Couldn't read directory produced by tar: %s\n", msg); |
|
|
204 endif |
|
5987
|
205 |
|
|
206 if (length(dirlist) > 3) |
|
|
207 error("Bundles of packages are not allowed") |
|
|
208 endif |
|
5947
|
209 |
|
|
210 for k = 3:length(dirlist) # the two first entries of dirlist are "." and ".." |
|
|
211 packdir = [tmpdir "/" dirlist{k} "/"]; |
|
|
212 packdirs{end+1} = packdir; |
|
5801
|
213 |
|
5947
|
214 ## Make sure the package contains necessary files |
|
|
215 verify_directory(packdir); |
|
5928
|
216 |
|
5947
|
217 ## Read the DESCRIPTION file |
|
|
218 filename = [packdir "DESCRIPTION"]; |
|
|
219 desc = get_description(filename); |
|
5928
|
220 |
|
5971
|
221 ## Verify that package name corresponds with filename |
|
|
222 [dummy, nm] = fileparts(tgz); |
|
|
223 if ((length(nm) >= length(desc.name)) && |
|
|
224 ! strcmp(desc.name,nm(1:length(desc.name)))) |
|
5987
|
225 error(["Package name '",desc.name,"' doesn't correspond", |
|
|
226 "to its filename '",nm,"'"]); |
|
5971
|
227 endif |
|
|
228 |
|
5947
|
229 ## Set default installation directory |
|
|
230 desc.dir = [prefix "/" desc.name "-" desc.version]; |
|
5801
|
231 |
|
5947
|
232 ## Save desc |
|
|
233 descriptions{end+1} = desc; |
|
5801
|
234 |
|
5947
|
235 ## Are any of the new packages already installed? |
|
|
236 ## If so we'll remove the old version. |
|
|
237 for j = 1:length(packages) |
|
|
238 if (strcmp(packages{j}.name, desc.name)) |
|
|
239 packages_to_uninstall(end+1) = j; |
|
|
240 endif |
|
|
241 endfor |
|
|
242 endfor |
|
5801
|
243 endfor |
|
|
244 catch |
|
|
245 ## Something went wrong, delete tmpdirs |
|
|
246 for i = 1:length(tmpdirs) |
|
5928
|
247 rm_rf(tmpdirs{i}); |
|
5801
|
248 endfor |
|
|
249 error(lasterr()(8:end)); |
|
|
250 end_try_catch |
|
|
251 |
|
|
252 ## Check dependencies |
|
|
253 if (handle_deps) |
|
|
254 ok = true; |
|
|
255 error_text = ""; |
|
|
256 for i = 1:length(descriptions) |
|
|
257 desc = descriptions{i}; |
|
|
258 idx1 = complement(packages_to_uninstall, 1:length(installed_packages)); |
|
|
259 idx2 = complement(i, 1:length(descriptions)); |
|
|
260 pseudo_installed_packages = {installed_packages{idx1} descriptions{idx2}}; |
|
|
261 bad_deps = get_unsatisfied_deps(desc, pseudo_installed_packages); |
|
|
262 ## Are there any unsatisfied dependencies? |
|
|
263 if (!isempty(bad_deps)) |
|
|
264 ok = false; |
|
|
265 for i = 1:length(bad_deps) |
|
|
266 dep = bad_deps{i}; |
|
|
267 error_text = [error_text " " desc.name " needs " ... |
|
|
268 dep.package " " dep.operator " " ... |
|
|
269 dep.version "\n"]; |
|
|
270 endfor |
|
|
271 endif |
|
|
272 endfor |
|
|
273 |
|
|
274 ## Did we find any unsatisfied dependencies? |
|
|
275 if (!ok) |
|
|
276 error("The following dependencies where unsatisfied:\n %s", error_text); |
|
|
277 endif |
|
|
278 endif |
|
|
279 |
|
|
280 ## Prepare each package for installation |
|
|
281 try |
|
|
282 for i = 1:length(descriptions) |
|
|
283 desc = descriptions{i}; |
|
|
284 pdir = packdirs{i}; |
|
|
285 prepare_installation (desc, pdir); |
|
|
286 configure_make (desc, pdir); |
|
|
287 endfor |
|
|
288 catch |
|
|
289 ## Something went wrong, delete tmpdirs |
|
|
290 for i = 1:length(tmpdirs) |
|
5928
|
291 rm_rf(tmpdirs{i}); |
|
5801
|
292 endfor |
|
|
293 error(lasterr()(8:end)); |
|
|
294 end_try_catch |
|
|
295 |
|
|
296 ## Uninstall the packages that will be replaced |
|
|
297 try |
|
|
298 for i = packages_to_uninstall |
|
|
299 uninstall({installed_packages{i}.name}, false); |
|
|
300 endfor |
|
|
301 catch |
|
|
302 ## Something went wrong, delete tmpdirs |
|
|
303 for i = 1:length(tmpdirs) |
|
5928
|
304 rm_rf(tmpdirs{i}); |
|
5801
|
305 endfor |
|
|
306 error(lasterr()(8:end)); |
|
|
307 end_try_catch |
|
|
308 |
|
|
309 ## Install each package |
|
|
310 try |
|
|
311 for i = 1:length(descriptions) |
|
|
312 desc = descriptions{i}; |
|
|
313 pdir = packdirs{i}; |
|
5971
|
314 copy_files(desc, pdir); |
|
|
315 create_pkgadddel(desc, pdir, "PKG_ADD"); |
|
|
316 create_pkgadddel(desc, pdir, "PKG_DEL"); |
|
5801
|
317 finish_installation (desc, pdir) |
|
|
318 endfor |
|
|
319 catch |
|
|
320 ## Something went wrong, delete tmpdirs |
|
|
321 for i = 1:length(tmpdirs) |
|
5928
|
322 rm_rf(tmpdirs{i}); |
|
5801
|
323 endfor |
|
5971
|
324 for i = 1:length(descriptions) |
|
|
325 rm_rf(descriptions{i}.dir); |
|
|
326 endfor |
|
5801
|
327 error(lasterr()(8:end)); |
|
|
328 end_try_catch |
|
|
329 |
|
5971
|
330 ## Check if the installed directory is empty. If it is remove it |
|
|
331 ## from the list |
|
|
332 for i = length(descriptions):-1:1 |
|
|
333 if (dirempty(descriptions{i}.dir,{"packinfo","doc"})) |
|
|
334 rm_rf(descriptions{i}.dir); |
|
|
335 descriptions(i) = []; |
|
|
336 endif |
|
|
337 endfor |
|
|
338 |
|
|
339 ## Add the packages to the package list |
|
5801
|
340 try |
|
|
341 if (global_install) |
|
|
342 idx = complement(packages_to_uninstall, 1:length(global_packages)); |
|
|
343 global_packages = {global_packages{idx} descriptions{:}}; |
|
|
344 save(global_list, "global_packages"); |
|
|
345 else |
|
|
346 idx = complement(packages_to_uninstall, 1:length(local_packages)); |
|
|
347 local_packages = {local_packages{idx} descriptions{:}}; |
|
|
348 save(local_list, "local_packages"); |
|
|
349 endif |
|
|
350 catch |
|
|
351 ## Something went wrong, delete tmpdirs |
|
|
352 for i = 1:length(tmpdirs) |
|
5928
|
353 rm_rf(tmpdirs{i}); |
|
5801
|
354 endfor |
|
|
355 for i = 1:length(descriptions) |
|
5928
|
356 rm_rf(descriptions{i}.dir); |
|
5801
|
357 endfor |
|
|
358 if (global_install) |
|
|
359 error("Couldn't append to %s: %s\n", global_list, lasterr()(8:end)); |
|
|
360 else |
|
|
361 error("Couldn't append to %s: %s\n", local_list, lasterr()(8:end)); |
|
|
362 endif |
|
|
363 end_try_catch |
|
|
364 |
|
|
365 ## All is well, let's clean up |
|
|
366 for i = 1:length(tmpdirs) |
|
5928
|
367 [status, msg] = rm_rf(tmpdirs{i}); |
|
5801
|
368 if (status != 1) |
|
|
369 warning("Couldn't clean up after my self: %s\n", msg); |
|
|
370 endif |
|
|
371 endfor |
|
|
372 |
|
|
373 ## Add the newly installed packages to the path, so the user |
|
5971
|
374 ## can begin usings them. |
|
|
375 if (length(descriptions) > 0) |
|
|
376 dirs = cell(1, length(descriptions)); |
|
|
377 for i = 1:length(descriptions) |
|
5801
|
378 dirs{i} = descriptions{i}.dir; |
|
5971
|
379 endfor |
|
|
380 addpath(dirs{:}); |
|
|
381 endif |
|
5801
|
382 endfunction |
|
|
383 |
|
|
384 function uninstall(pkgnames, handle_deps) |
|
|
385 local_list = tilde_expand("~/.octave_packages"); |
|
5974
|
386 if (strcmp(OCTAVE_HOME()(end),"/")) |
|
|
387 global_list = [OCTAVE_HOME "share/octave/octave_packages"]; |
|
|
388 else |
|
|
389 global_list = [OCTAVE_HOME "/share/octave/octave_packages"]; |
|
|
390 endif |
|
5801
|
391 ## Get the list of installed packages |
|
|
392 [local_packages, global_packages] = installed_packages(); |
|
|
393 if (issuperuser()) |
|
|
394 installed_packages = global_packages; |
|
|
395 else |
|
|
396 installed_packages = local_packages; |
|
|
397 endif |
|
|
398 |
|
|
399 num_packages = length(installed_packages); |
|
|
400 delete_idx = []; |
|
|
401 for i = 1:num_packages |
|
|
402 cur_name = installed_packages{i}.name; |
|
|
403 if (any(strcmp(cur_name, pkgnames))) |
|
|
404 delete_idx(end+1) = i; |
|
|
405 endif |
|
|
406 endfor |
|
|
407 |
|
|
408 ## Are all the packages that should be uninstalled already installed? |
|
|
409 if (length(delete_idx) != length(pkgnames)) |
|
|
410 # XXX: We should have a better error message |
|
|
411 error("Some of the packages you want to uninstall are not installed.\n"); |
|
|
412 endif |
|
|
413 |
|
|
414 ## Compute the packages that will remain installed |
|
|
415 idx = complement(delete_idx, 1:num_packages); |
|
|
416 remaining_packages = {installed_packages{idx}}; |
|
|
417 |
|
|
418 ## Check dependencies |
|
|
419 if (handle_deps) |
|
|
420 ok = true; |
|
|
421 error_text = ""; |
|
|
422 for i = 1:length(remaining_packages) |
|
|
423 desc = remaining_packages{i}; |
|
|
424 bad_deps = get_unsatisfied_deps(desc, remaining_packages); |
|
|
425 |
|
|
426 ## Will the uninstallation break any dependencies? |
|
|
427 if (!isempty(bad_deps)) |
|
|
428 ok = false; |
|
|
429 for i = 1:length(bad_deps) |
|
|
430 dep = bad_deps{i}; |
|
|
431 error_text = [error_text " " desc.name " needs " ... |
|
|
432 dep.package " " dep.operator " " ... |
|
|
433 dep.version "\n"]; |
|
|
434 endfor |
|
|
435 endif |
|
|
436 endfor |
|
|
437 |
|
|
438 if (!ok) |
|
|
439 error("The following dependencies where unsatisfied:\n %s", error_text); |
|
|
440 endif |
|
|
441 endif |
|
|
442 |
|
|
443 ## Delete the directories containing the packages |
|
|
444 for i = delete_idx |
|
|
445 desc = installed_packages{i}; |
|
|
446 ## If an 'on_uninstall.m' exist, call it! |
|
|
447 if (exist([desc.dir "/packinfo/on_uninstall.m"], "file")) |
|
|
448 try |
|
|
449 wd = pwd(); |
|
|
450 cd([desc.dir "/packinfo"]); |
|
|
451 on_uninstall(desc); |
|
|
452 cd(wd); |
|
|
453 catch |
|
|
454 # XXX: Should this rather be an error? |
|
|
455 warning("The 'on_uninstall' script returned the following error: %s", lasterr); |
|
|
456 cd(wd); |
|
|
457 end_try_catch |
|
|
458 endif |
|
|
459 ## Do the actual deletion |
|
5928
|
460 rmpath(desc.dir); |
|
|
461 [status, msg] = rm_rf(desc.dir); |
|
5801
|
462 if (status != 1) |
|
|
463 error("Couldn't delete directory %s: %s\n", desc.dir, msg); |
|
|
464 endif |
|
|
465 endfor |
|
|
466 |
|
|
467 ## Write a new ~/.octave_packages |
|
|
468 if (issuperuser()) |
|
|
469 if (length(remaining_packages) == 0) |
|
|
470 unlink(global_list); |
|
|
471 else |
|
|
472 global_packages = remaining_packages; |
|
|
473 save(global_list, "global_packages"); |
|
|
474 endif |
|
|
475 else |
|
|
476 if (length(remaining_packages) == 0) |
|
|
477 unlink(local_list); |
|
|
478 else |
|
|
479 local_packages = remaining_packages; |
|
|
480 save(local_list, "local_packages"); |
|
|
481 endif |
|
|
482 endif |
|
|
483 |
|
|
484 endfunction |
|
|
485 |
|
|
486 ########################################################## |
|
|
487 ## A U X I L A R Y F U N C T I O N S ## |
|
|
488 ########################################################## |
|
|
489 |
|
|
490 function prepare_installation(desc, packdir) |
|
|
491 ## Is there a pre_install to call? |
|
|
492 if (exist([packdir "pre_install.m"], "file")) |
|
|
493 wd = pwd(); |
|
|
494 try |
|
|
495 cd(packdir); |
|
|
496 pre_install(desc); |
|
|
497 cd(wd); |
|
|
498 catch |
|
|
499 cd(wd); |
|
|
500 error("The pre-install function returned the following error: %s\n", lasterr); |
|
|
501 end_try_catch |
|
|
502 endif |
|
|
503 |
|
5993
|
504 ## If the directory "inst" doesn't exist, we create it |
|
|
505 if (!exist([packdir "inst"], "dir")) |
|
5801
|
506 [status, msg] = mkdir([packdir "inst"]); |
|
|
507 if (status != 1) |
|
5928
|
508 rm_rf(desc.dir); |
|
5801
|
509 error("The 'inst' directory did not exist and could not be created: %s\n", msg); |
|
|
510 endif |
|
|
511 endif |
|
|
512 endfunction |
|
|
513 |
|
|
514 function configure_make (desc, packdir) |
|
|
515 ## Perform ./configure, make, make install in "src" |
|
|
516 if (exist([packdir "src"], "dir")) |
|
|
517 src = [packdir "src/"]; |
|
|
518 ## configure |
|
|
519 if (exist([src "configure"], "file")) |
|
5928
|
520 [status, output] = system(["cd " src " ;./configure --prefix=" desc.dir]); |
|
5801
|
521 if (status != 0) |
|
5928
|
522 rm_rf(desc.dir); |
|
5801
|
523 error("The configure script returned the following error: %s\n", output); |
|
|
524 endif |
|
|
525 endif |
|
|
526 |
|
|
527 ## make |
|
|
528 if (exist([src "Makefile"], "file")) |
|
5928
|
529 [status, output] = system(["export INSTALLDIR=" desc.dir "; make -C " src]); |
|
5801
|
530 if (status != 0) |
|
5928
|
531 rm_rf(desc.dir); |
|
5801
|
532 error("'make' returned the following error: %s\n", output); |
|
|
533 endif |
|
|
534 %# make install |
|
5928
|
535 %[status, output] = system(["export INSTALLDIR=" desc.dir "; make install -C " src]); |
|
5801
|
536 %if (status != 0) |
|
5928
|
537 % rm_rf(desc.dir); |
|
5801
|
538 % error("'make install' returned the following error: %s\n", output); |
|
|
539 %endif |
|
|
540 endif |
|
|
541 |
|
|
542 ## Copy files to "inst" (this is instead of 'make install') |
|
|
543 files = [src "FILES"]; |
|
|
544 if (exist(files, "file")) |
|
|
545 [fid, msg] = fopen(files, "r"); |
|
|
546 if (fid < 0) |
|
|
547 error("Couldn't open %s: %s\n", files, msg); |
|
|
548 endif |
|
5928
|
549 filenames = char(fread(fid))'; |
|
5801
|
550 filenames = strrep(filenames, "\n", " "); |
|
5928
|
551 [status, output] = system(["cd " src "; cp " filenames " " packdir "inst/"]); |
|
5801
|
552 fclose(fid); |
|
|
553 else |
|
|
554 m = dir([src "*.m"]); |
|
|
555 oct = dir([src "*.oct"]); |
|
|
556 f = ""; |
|
|
557 if (length(m) > 0) |
|
5928
|
558 f = sprintf([src "%s "], m.name); |
|
5801
|
559 endif |
|
|
560 if (length(oct) > 0) |
|
5928
|
561 f = [f " " sprintf([src "%s "], oct.name)]; |
|
5801
|
562 endif |
|
5928
|
563 |
|
|
564 if (!all(isspace(f))) |
|
|
565 [status, output] = system(["cp -R " f " " packdir "inst/"]); |
|
|
566 endif |
|
5801
|
567 endif |
|
|
568 if (status != 0) |
|
5928
|
569 rm_rf(desc.dir); |
|
5801
|
570 error("Couldn't copy files from 'src' to 'inst': %s\n", output); |
|
|
571 endif |
|
|
572 endif |
|
|
573 endfunction |
|
|
574 |
|
5971
|
575 function pkg = extract_pkg (nm, pat) |
|
5955
|
576 fid = fopen (nm, "rt"); |
|
5971
|
577 pkg = ""; |
|
5955
|
578 if (fid >= 0) |
|
|
579 while (! feof(fid)) |
|
|
580 ln = fgetl (fid); |
|
|
581 if (ln > 0) |
|
|
582 t = regexp(ln, pat, "tokens","dotexceptnewline"); |
|
|
583 if (!isempty(t)) |
|
5971
|
584 pkg = [pkg, "\n", t{1}{1}]; |
|
5955
|
585 endif |
|
|
586 endif |
|
|
587 endwhile |
|
5971
|
588 if (!isempty(pkg)) |
|
|
589 pkg = [pkg, "\n"]; |
|
5955
|
590 endif |
|
|
591 fclose (fid); |
|
|
592 endif |
|
|
593 endfunction |
|
|
594 |
|
5971
|
595 function create_pkgadddel (desc, packdir, nm) |
|
|
596 pkg = [desc.dir "/" nm]; |
|
|
597 fid = fopen(pkg, "wt"); |
|
5976
|
598 |
|
5955
|
599 if (fid >= 0) |
|
5971
|
600 ## Search all dot-m files for PKG commands |
|
5955
|
601 lst = dir ([packdir "inst/*.m"]); |
|
|
602 for i=1:length(lst) |
|
5976
|
603 nam = [packdir "inst/" lst(i).name]; |
|
|
604 fwrite (fid, extract_pkg (nam, ['^[#%][#%]* *' nm ': *(.*)$'])); |
|
5955
|
605 endfor |
|
|
606 |
|
5971
|
607 ## Search all C++ source files for PKG commands |
|
5955
|
608 lst = dir ([packdir "src/*.cc"]); |
|
|
609 for i=1:length(lst) |
|
5976
|
610 nam = [packdir "src/" lst(i).name]; |
|
|
611 fwrite (fid, extract_pkg (nam, ['^//* *' nm ': *(.*)$'])); |
|
|
612 fwrite (fid, extract_pkg (nam, ['^/\** *' nm ': *(.*) *\*/$'])); |
|
5955
|
613 endfor |
|
|
614 |
|
5971
|
615 ## Add developer included PKG commands |
|
|
616 if (exist([packdir nm],"file")) |
|
|
617 fid2 = fopen([packdir nm],"rt"); |
|
5955
|
618 if (fid2 >= 0) |
|
|
619 while (! feof(fid2)) |
|
|
620 ln = fgets (fid2); |
|
|
621 if (ln > 0) |
|
|
622 fwrite(fid, ln); |
|
|
623 endif |
|
|
624 endwhile |
|
5971
|
625 fclose(fid2); |
|
5955
|
626 endif |
|
|
627 endif |
|
|
628 fclose(fid); |
|
5971
|
629 |
|
|
630 ## If the file is empty remove it |
|
|
631 t = dir (pkg); |
|
|
632 if (t.bytes <= 0) |
|
|
633 unlink (pkg); |
|
|
634 endif |
|
5955
|
635 endif |
|
|
636 endfunction |
|
|
637 |
|
5971
|
638 function copy_files (desc, packdir, bindir) |
|
6020
|
639 ## Create the installation directory |
|
|
640 if (! exist (desc.dir, "dir")) |
|
|
641 [status, output] = mkdir (desc.dir); |
|
|
642 if (status != 1) |
|
|
643 error("Couldn't create installation directory %s : %s\n", |
|
|
644 desc.dir, output); |
|
|
645 endif |
|
|
646 endif |
|
|
647 |
|
5801
|
648 ## Copy the files from "inst" to installdir |
|
5971
|
649 if (! dirempty([packdir "inst"])) |
|
|
650 [status, output] = system(["cp -R " packdir "inst/* " desc.dir]); |
|
|
651 if (status != 0) |
|
|
652 rm_rf(desc.dir); |
|
|
653 error("Couldn't copy files to the installation directory\n"); |
|
|
654 endif |
|
5801
|
655 endif |
|
|
656 |
|
|
657 ## Create the "packinfo" directory |
|
|
658 packinfo = [desc.dir "/packinfo/"]; |
|
|
659 [status, msg] = mkdir (packinfo); |
|
|
660 if (status != 1) |
|
5928
|
661 rm_rf(desc.dir); |
|
5801
|
662 error("Couldn't create packinfo directory: %s\n", msg); |
|
|
663 endif |
|
|
664 |
|
|
665 ## Copy DESCRIPTION |
|
5928
|
666 [status, output] = system(["cp " packdir "DESCRIPTION " packinfo]); |
|
5801
|
667 if (status != 0) |
|
5928
|
668 rm_rf(desc.dir); |
|
5801
|
669 error("Couldn't copy DESCRIPTION: %s\n", output); |
|
|
670 endif |
|
|
671 |
|
5993
|
672 ## Copy COPYING |
|
|
673 [status, output] = system(["cp " packdir "COPYING " packinfo]); |
|
|
674 if (status != 0) |
|
|
675 rm_rf(desc.dir); |
|
|
676 error("Couldn't copy COPYING: %s\n", output); |
|
|
677 endif |
|
|
678 |
|
5801
|
679 ## Is there an INDEX file to copy or should we generate one? |
|
|
680 if (exist([packdir "INDEX"], "file")) |
|
5928
|
681 [status, output] = system(["cp " packdir "INDEX " packinfo]); |
|
5801
|
682 if (status != 0) |
|
5928
|
683 rm_rf(desc.dir); |
|
5801
|
684 error("Couldn't copy INDEX file: %s\n", output); |
|
|
685 endif |
|
|
686 else |
|
|
687 try |
|
|
688 write_INDEX(desc, [packdir "inst"], [packinfo "INDEX"]); |
|
|
689 catch |
|
5928
|
690 rm_rf(desc.dir); |
|
5801
|
691 error(lasterr); |
|
|
692 end_try_catch |
|
|
693 endif |
|
|
694 |
|
|
695 ## Is there an 'on_uninstall.m' to install? |
|
|
696 if (exist([packdir "on_uninstall.m"], "file")) |
|
5928
|
697 [status, output] = system(["cp " packdir "on_uninstall.m " packinfo]); |
|
5801
|
698 if (status != 0) |
|
5928
|
699 rm_rf(desc.dir); |
|
5801
|
700 error("Couldn't copy on_uninstall.m: %s\n", output); |
|
|
701 endif |
|
|
702 endif |
|
5971
|
703 |
|
|
704 ## Is there a doc/ directory that needs to be installed |
|
|
705 if (exist([packdir "doc"], "dir") && !dirempty([packdir "doc"])) |
|
|
706 [status, output] = system(["cp -pR " packdir "doc " desc.dir]); |
|
|
707 endif |
|
|
708 |
|
|
709 ## Is there a bin/ directory that needs to be installed |
|
|
710 if (exist([packdir "bin"], "dir") && !dirempty([packdir "bin"])) |
|
|
711 [status, output] = system(["cp -pR " packdir "bin " desc.dir]); |
|
|
712 endif |
|
5801
|
713 endfunction |
|
|
714 |
|
|
715 function finish_installation (desc, packdir) |
|
|
716 ## Is there a post-install to call? |
|
|
717 if (exist([packdir "post_install.m"], "file")) |
|
|
718 wd = pwd(); |
|
|
719 try |
|
|
720 cd(packdir); |
|
|
721 post_install(desc); |
|
|
722 cd(wd); |
|
|
723 catch |
|
|
724 cd(wd); |
|
5928
|
725 rm_rf(desc.dir); |
|
5801
|
726 error("The post_install function returned the following error: %s\n", lasterr); |
|
|
727 end_try_catch |
|
|
728 endif |
|
|
729 endfunction |
|
|
730 |
|
|
731 function out = issuperuser() |
|
|
732 out = strcmp(getenv("USER"), "root"); |
|
|
733 endfunction |
|
|
734 |
|
|
735 ## This function makes sure the package contains the |
|
|
736 ## essential files. |
|
|
737 function verify_directory(dir) |
|
|
738 needed_files = {"COPYING", "DESCRIPTION"}; |
|
|
739 for f = needed_files |
|
|
740 if (!exist([dir "/" f{1}], "file")) |
|
|
741 error("Package is missing file: %s", f{1}); |
|
|
742 endif |
|
|
743 endfor |
|
|
744 endfunction |
|
|
745 |
|
|
746 ## This function parses the DESCRIPTION file |
|
|
747 function desc = get_description(filename) |
|
|
748 fid = fopen(filename, "r"); |
|
|
749 if (fid == -1) |
|
|
750 error("The DESCRIPTION file %s could not be read\n", filename); |
|
|
751 endif |
|
|
752 |
|
|
753 desc = struct(); |
|
|
754 |
|
|
755 line = fgetl(fid); |
|
|
756 while (line != -1) |
|
|
757 ## Comments |
|
|
758 if (line(1) == "#") |
|
|
759 # Do nothing |
|
|
760 ## Continuation lines |
|
|
761 elseif (isspace(line(1))) |
|
|
762 if (exist("keyword", "var") && isfield(desc, keyword)) |
|
|
763 desc.(keyword) = [desc.(keyword) " " rstrip(line)]; |
|
|
764 endif |
|
|
765 ## Keyword/value pair |
|
|
766 else |
|
|
767 colon = find(line == ":"); |
|
|
768 if (length(colon) == 0) |
|
|
769 disp("Skipping line."); |
|
|
770 else |
|
|
771 colon = colon(1); |
|
|
772 keyword = tolower(strip(line(1:colon-1))); |
|
|
773 value = strip(line(colon+1:end)); |
|
|
774 if (length(value) == 0) |
|
|
775 fclose(fid); |
|
|
776 error("The keyword %s have empty value\n", desc.keywords{end}); |
|
|
777 endif |
|
|
778 desc.(keyword) = value; |
|
|
779 endif |
|
|
780 endif |
|
|
781 line = fgetl(fid); |
|
|
782 endwhile |
|
|
783 fclose(fid); |
|
|
784 |
|
|
785 ## Make sure all is okay |
|
|
786 needed_fields = {"name", "version", "date", "title", ... |
|
|
787 "author", "maintainer", "description"}; |
|
|
788 for f = needed_fields |
|
|
789 if (!isfield(desc, f{1})) |
|
|
790 error("Description is missing needed field %s\n", f{1}); |
|
|
791 endif |
|
|
792 endfor |
|
|
793 desc.version = fix_version(desc.version); |
|
|
794 if (isfield(desc, "depends")) |
|
|
795 desc.depends = fix_depends(desc.depends); |
|
|
796 else |
|
|
797 desc.depends = ""; |
|
|
798 endif |
|
|
799 desc.name = tolower(desc.name); |
|
|
800 endfunction |
|
|
801 |
|
|
802 ## Makes sure the version string v is a valid x.y.z version string |
|
|
803 ## Examples: "0.1" => "0.1.0", "monkey" => error(...) |
|
|
804 function out = fix_version(v) |
|
|
805 dots = find(v == "."); |
|
|
806 if (length(dots) == 1) |
|
|
807 major = str2num(v(1:dots-1)); |
|
|
808 minor = str2num(v(dots+1:end)); |
|
|
809 if (length(major) != 0 && length(minor) != 0) |
|
|
810 out = sprintf("%d.%d.0", major, minor); |
|
|
811 return |
|
|
812 endif |
|
|
813 elseif (length(dots) == 2) |
|
|
814 major = str2num(v(1:dots(1)-1)); |
|
|
815 minor = str2num(v(dots(1)+1:dots(2)-1)); |
|
|
816 rev = str2num(v(dots(2)+1:end)); |
|
|
817 if (length(major) != 0 && length(minor) != 0 && length(rev) != 0) |
|
|
818 out = sprintf("%d.%d.%d", major, minor, rev); |
|
|
819 return |
|
|
820 endif |
|
|
821 endif |
|
|
822 error("Bad version string: %s\n", v); |
|
|
823 endfunction |
|
|
824 |
|
|
825 ## Makes sure the depends field is of the right format. |
|
|
826 ## This function returns a cell of structures with the following fields: |
|
|
827 ## package, version, operator |
|
|
828 function deps_cell = fix_depends(depends) |
|
|
829 deps = split_by(tolower(depends), ","); |
|
|
830 deps_cell = cell(1, length(deps)); |
|
|
831 |
|
|
832 ## For each dependency |
|
|
833 for i = 1:length(deps) |
|
|
834 dep = deps{i}; |
|
|
835 lpar = find(dep == "("); |
|
|
836 rpar = find(dep == ")"); |
|
|
837 ## Does the dependency specify a version |
|
|
838 ## Example: package(>= version) |
|
|
839 if (length(lpar) == 1 && length(rpar) == 1) |
|
|
840 package = tolower(strip(dep(1:lpar-1))); |
|
|
841 sub = dep( lpar(1)+1:rpar(1)-1 ); |
|
|
842 parts = split_by(sub, " "); |
|
|
843 idx = []; |
|
|
844 for r = 1:size(parts,1) |
|
|
845 if (length(parts{r}) > 0) |
|
|
846 idx(end+1) = r; |
|
|
847 endif |
|
|
848 endfor |
|
|
849 |
|
|
850 if (length(idx) != 2) |
|
|
851 error(["There's something wrong with the DESCRIPTION file. " ... |
|
|
852 "The dependency %s has the wrong syntax.\n"], dep); |
|
|
853 endif |
|
|
854 operator = parts{idx(1)}; |
|
|
855 if (!any(strcmp(operator, {">=", "<=", "=="}))) ## XXX: I belive we also support ">" and "<" |
|
|
856 error("Unsupported operator: %s\n", operator); |
|
|
857 endif |
|
|
858 version = fix_version(parts{idx(2)}); |
|
|
859 |
|
|
860 ## If no version is specified for the dependency |
|
|
861 ## we say that the version should be greater than |
|
|
862 ## or equal to 0.0.0 |
|
|
863 else |
|
|
864 package = tolower(strip(dep)); |
|
|
865 operator = ">="; |
|
|
866 version = "0.0.0"; |
|
|
867 endif |
|
|
868 deps_cell{i} = struct("package", package, "operator", operator, "version", version); |
|
|
869 endfor |
|
|
870 endfunction |
|
|
871 |
|
|
872 ## Strips the text of spaces from the right |
|
|
873 ## Example: " hello world " => " hello world" (XXX: is this the same as deblank?) |
|
|
874 function text = rstrip(text) |
|
|
875 chars = find(!isspace(text)); |
|
|
876 if (length(chars) > 0) |
|
|
877 text = text(chars(1):end); # XXX: shouldn't it be text = text(1:chars(end)); |
|
|
878 else |
|
|
879 text = ""; |
|
|
880 endif |
|
|
881 endfunction |
|
|
882 |
|
|
883 ## Strips the text of spaces from the left and the right |
|
|
884 ## Example: " hello world " => "hello world" |
|
|
885 function text = strip(text) |
|
|
886 chars = find(!isspace(text)); |
|
|
887 if (length(chars) > 0) |
|
|
888 text = text(chars(1):chars(end)); |
|
|
889 else |
|
|
890 text = ""; |
|
|
891 endif |
|
|
892 endfunction |
|
|
893 |
|
|
894 ## Splits the text into a cell array of strings by sep |
|
|
895 ## Example: "A, B" => {"A", "B"} (with sep = ",") |
|
|
896 function out = split_by(text, sep) |
|
|
897 text_matrix = split(text, sep); |
|
|
898 num_words = size(text_matrix,1); |
|
|
899 out = cell(num_words, 1); |
|
|
900 for i = 1:num_words |
|
|
901 out{i} = strip(text_matrix(i, :)); |
|
|
902 endfor |
|
|
903 endfunction |
|
|
904 |
|
|
905 ## Creates an INDEX file for a package that doesn't provide one. |
|
|
906 ## 'desc' describes the package. |
|
|
907 ## 'dir' is the 'inst' direcotyr in temporary directory. |
|
|
908 ## 'INDEX' is the name (including path) of resulting INDEX file. |
|
|
909 function write_INDEX(desc, dir, INDEX) |
|
|
910 ## Get names of functions in dir |
|
|
911 [files, err, msg] = readdir(dir); |
|
|
912 if (err) |
|
|
913 error("Couldn't read directory %s: %s\n", dir, msg); |
|
|
914 endif |
|
|
915 |
|
|
916 functions = {}; |
|
|
917 for i = 1:length(files) |
|
|
918 file = files{i}; |
|
|
919 lf = length(file); |
|
|
920 if (lf > 2 && strcmp( file(end-1:end), ".m" )) |
|
|
921 functions{end+1} = file(1:end-2); |
|
|
922 elseif (lf > 4 && strcmp( file(end-3:end), ".oct" )) |
|
|
923 functions{end+1} = file(1:end-4); |
|
|
924 endif |
|
|
925 endfor |
|
|
926 |
|
|
927 ## Does desc have a categories field? |
|
|
928 if (!isfield(desc, "categories")) |
|
|
929 error("The DESCRIPTION file must have a Categories field, when no INDEX file is given.\n"); |
|
|
930 endif |
|
|
931 categories = split_by(desc.categories, ","); |
|
|
932 if (length(categories) < 1) |
|
|
933 error("The Category field is empty.\n"); |
|
|
934 endif |
|
|
935 |
|
|
936 ## Write INDEX |
|
|
937 fid = fopen(INDEX, "w"); |
|
|
938 if (fid == -1) |
|
|
939 error("Couldn't open %s for writing.\n", INDEX); |
|
|
940 endif |
|
|
941 fprintf(fid, "%s >> %s\n", desc.name, desc.title); |
|
|
942 fprintf(fid, "%s\n", categories{1}); |
|
|
943 fprintf(fid, " %s\n", functions{:}); |
|
|
944 fclose(fid); |
|
|
945 endfunction |
|
|
946 |
|
|
947 function bad_deps = get_unsatisfied_deps(desc, installed_packages) |
|
|
948 bad_deps = {}; |
|
|
949 |
|
|
950 ## For each dependency |
|
|
951 for i = 1:length(desc.depends) |
|
|
952 dep = desc.depends{i}; |
|
|
953 |
|
|
954 ## Is the current dependency Octave? |
|
|
955 if (strcmp(dep.package, "octave")) |
|
|
956 if (!compare_versions(OCTAVE_VERSION, dep.version, dep.operator)) |
|
|
957 bad_deps{end+1} = dep; |
|
|
958 endif |
|
|
959 ## Is the current dependency not Octave? |
|
|
960 else |
|
|
961 ok = false; |
|
|
962 for i = 1:length(installed_packages) |
|
|
963 cur_name = installed_packages{i}.name; |
|
|
964 cur_version = installed_packages{i}.version; |
|
|
965 if (strcmp(dep.package, cur_name) && compare_versions(cur_version, dep.version, dep.operator)) |
|
|
966 ok = true; |
|
|
967 break; |
|
|
968 endif |
|
|
969 endfor |
|
|
970 if (!ok) |
|
|
971 bad_deps{end+1} = dep; |
|
|
972 endif |
|
|
973 endif |
|
|
974 endfor |
|
|
975 endfunction |
|
|
976 |
|
|
977 ## Compares to version string using the given operator |
|
|
978 ## Example: v1="0.1.0", v2="0.0.9", operator=">=" => true |
|
|
979 ## TODO: This function is very long and complex! Can't it be simplified? |
|
|
980 function out = compare_versions(v1, v2, operator) |
|
|
981 dot1 = find(v1 == "."); |
|
|
982 dot2 = find(v2 == "."); |
|
|
983 if (length(dot1) != 2 || length(dot2) != 2) |
|
|
984 error("Given version strings are not valid: %s %s", v1, v2); |
|
|
985 endif |
|
|
986 |
|
|
987 major1 = str2num( v1( 1:dot1(1)-1 ) ); |
|
|
988 minor1 = str2num( v1( dot1(1)+1:dot1(2)-1 ) ); |
|
|
989 rev1 = str2num( v1( dot1(2)+1:end ) ); |
|
|
990 major2 = str2num( v2( 1:dot2(1)-1 ) ); |
|
|
991 minor2 = str2num( v2( dot2(1)+1:dot2(2)-1 ) ); |
|
|
992 rev2 = str2num( v2( dot2(2)+1:end) ); |
|
|
993 mmr = [sign(major1-major2), sign(minor1-minor2), sign(rev1-rev2)]; |
|
|
994 |
|
|
995 if (length(operator) > 1 && operator(2) == "=" && !any(mmr)) |
|
|
996 out = 1; |
|
|
997 return; |
|
|
998 elseif (operator(1) == "<") |
|
|
999 mmr = -mmr; |
|
|
1000 endif |
|
|
1001 |
|
|
1002 ## Now we ony need to decide if v1 > v2 |
|
|
1003 if (mmr(1) == 1) |
|
|
1004 out = 1; |
|
|
1005 elseif (mmr(1) == -1) |
|
|
1006 out = 0; |
|
|
1007 elseif (mmr(2) == 1) |
|
|
1008 out = 1; |
|
|
1009 elseif (mmr(2) == -1) |
|
|
1010 out = 0; |
|
|
1011 elseif (mmr(3) == 1) |
|
|
1012 out = 1; |
|
|
1013 else |
|
|
1014 out = 0; |
|
|
1015 endif |
|
|
1016 endfunction |
|
|
1017 |
|
|
1018 function [out1, out2] = installed_packages() |
|
|
1019 local_list = tilde_expand("~/.octave_packages"); |
|
5974
|
1020 if (strcmp(OCTAVE_HOME()(end),"/")) |
|
|
1021 global_list = [OCTAVE_HOME "share/octave/octave_packages"]; |
|
|
1022 else |
|
|
1023 global_list = [OCTAVE_HOME "/share/octave/octave_packages"]; |
|
|
1024 endif |
|
5801
|
1025 ## Get the list of installed packages |
|
|
1026 try |
|
|
1027 local_packages = load(local_list).local_packages; |
|
|
1028 catch |
|
|
1029 local_packages = {}; |
|
|
1030 end_try_catch |
|
|
1031 try |
|
|
1032 global_packages = load(global_list).global_packages; |
|
|
1033 catch |
|
|
1034 global_packages = {}; |
|
|
1035 end_try_catch |
|
|
1036 installed_packages = {local_packages{:} global_packages{:}}; |
|
|
1037 |
|
|
1038 ## Should we return something? |
|
|
1039 if (nargout == 2) |
|
|
1040 out1 = local_packages; |
|
|
1041 out2 = global_packages; |
|
|
1042 return; |
|
|
1043 elseif (nargout == 1) |
|
|
1044 out1 = installed_packages; |
|
|
1045 return; |
|
|
1046 endif |
|
|
1047 |
|
|
1048 ## We shouldn't return something, so we'll print something |
|
|
1049 num_packages = length(installed_packages); |
|
|
1050 if (num_packages == 0) |
|
|
1051 printf("No packages installed.\n"); |
|
|
1052 return; |
|
|
1053 endif |
|
|
1054 |
|
5987
|
1055 ## Compute the maximal lengths of name, version, and dir |
|
5801
|
1056 h1 = "Package Name"; |
|
|
1057 h2 = "Version"; |
|
|
1058 h3 = "Installation directory"; |
|
5987
|
1059 max_name_length = length(h1); |
|
|
1060 max_version_length = length(h2); |
|
|
1061 names = cell(num_packages,1); |
|
|
1062 for i = 1:num_packages |
|
|
1063 max_name_length = max(max_name_length, |
|
|
1064 length(installed_packages{i}.name)); |
|
|
1065 max_version_length = max(max_version_length, |
|
|
1066 length(installed_packages{i}.version)); |
|
|
1067 names{i} = installed_packages{i}.name; |
|
|
1068 endfor |
|
|
1069 h1 = postpad (h1, max_name_length,' '); |
|
|
1070 h2 = postpad (h2, max_version_length, ' ');; |
|
|
1071 |
|
|
1072 ## Print a header |
|
5801
|
1073 header = sprintf("%s | %s | %s\n", h1, h2, h3); |
|
|
1074 printf(header); |
|
|
1075 tmp = sprintf(repmat("-", 1, length(header)-1)); |
|
|
1076 tmp(length(h1)+2) = "+"; tmp(length(h1)+length(h2)+5) = "+"; |
|
|
1077 printf("%s\n", tmp); |
|
|
1078 |
|
|
1079 ## Print the packages |
|
|
1080 format = sprintf("%%%ds | %%%ds | %%s\n", max_name_length, max_version_length); |
|
5987
|
1081 [dummy, idx] = sort(names); |
|
5801
|
1082 for i = 1:num_packages |
|
5987
|
1083 cur_name = installed_packages{idx(i)}.name; |
|
|
1084 cur_version = installed_packages{idx(i)}.version; |
|
|
1085 cur_dir = installed_packages{idx(i)}.dir; |
|
5801
|
1086 printf(format, cur_name, cur_version, cur_dir); |
|
|
1087 endfor |
|
|
1088 endfunction |
|
|
1089 |
|
|
1090 function load_packages(files, handle_deps) |
|
|
1091 installed_packages = installed_packages(); |
|
|
1092 num_packages = length(installed_packages); |
|
|
1093 |
|
|
1094 if (length(files) == 1 && strcmp(files{1}, "all")) |
|
|
1095 dirs = cell(1, num_packages); |
|
|
1096 for i = 1:num_packages |
|
|
1097 dirs{i} = installed_packages{i}.dir; |
|
|
1098 endfor |
|
|
1099 elseif (handle_deps) |
|
|
1100 # XXX: implement this |
|
|
1101 error("Currently you need to call load_packages with 'all' or '-nodeps'. This is a bug!\n"); |
|
|
1102 else |
|
|
1103 dirs = cell(1, length(files)); |
|
|
1104 for j = 1:length(files) |
|
|
1105 for i = 1:num_packages |
|
|
1106 if (strcmp(installed_packages{i}.name, files{j})) |
|
|
1107 dirs{j} = installed_packages{i}.dir; |
|
5971
|
1108 break; |
|
5801
|
1109 endif |
|
|
1110 endfor |
|
5971
|
1111 if (isempty(dirs{j})) |
|
|
1112 error("Package %s is not installed\n", files{j}); |
|
|
1113 endif |
|
5801
|
1114 endfor |
|
|
1115 endif |
|
6025
|
1116 if (length(dirs) > 0) |
|
|
1117 addpath(dirs{:}); |
|
|
1118 endif |
|
5971
|
1119 |
|
|
1120 ## Add local binaries, if any, to the EXEC_PATH |
|
|
1121 for i = 1:length(dirs) |
|
|
1122 if (exist ([dirs{i} "/bin"],"dir")) |
|
|
1123 EXEC_PATH ([dirs{i} "/bin:" EXEC_PATH()]); |
|
|
1124 endif |
|
|
1125 endfor |
|
5801
|
1126 endfunction |
|
5928
|
1127 |
|
|
1128 function [status_out, msg_out] = rm_rf (dir) |
|
|
1129 crr = confirm_recursive_rmdir (); |
|
|
1130 unwind_protect |
|
|
1131 confirm_recursive_rmdir (false); |
|
|
1132 [status, msg] = rmdir (dir, "s"); |
|
|
1133 unwind_protect_cleanup |
|
|
1134 confirm_recursive_rmdir (crr); |
|
|
1135 end_unwind_protect |
|
|
1136 if (nargout > 0) |
|
|
1137 status_out = status; |
|
|
1138 endif |
|
|
1139 if (nargout > 1) |
|
|
1140 msg_out = msg; |
|
|
1141 endif |
|
|
1142 endfunction |
|
5971
|
1143 |
|
|
1144 function emp = dirempty (nm, ign) |
|
|
1145 if (nargin < 2) |
|
|
1146 ign = {".",".."}; |
|
|
1147 else |
|
|
1148 ign = [{".",".."},ign]; |
|
|
1149 endif |
|
|
1150 l = dir (nm); |
|
|
1151 for i=1:length(l) |
|
|
1152 found = false; |
|
|
1153 for j=1:length(ign) |
|
|
1154 if (strcmp(l(i).name,ign{j})) |
|
|
1155 found = true; |
|
|
1156 break; |
|
|
1157 endif |
|
|
1158 endfor |
|
|
1159 if (!found) |
|
|
1160 emp = false; |
|
|
1161 return |
|
|
1162 endif |
|
|
1163 endfor |
|
|
1164 emp = true; |
|
|
1165 return; |
|
|
1166 endfunction |
