/usr/lib/x86_64-linux-gnu/octave/packages/geometry-1.7.0/x86_64-pc-linux-gnu-api-v49+/PKG_ADD is in octave-geometry 1.7.0-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | %1
dirlist = {"geom2d","io","polygons2d","shape2d","octclip", "graphs",...
"geom3d","meshes3d","polynomialCurves2d"};
dirname = fileparts (canonicalize_file_name (mfilename ("fullpath")));
%keyboard
pp = strsplit (dirname,filesep (), true);
arch = cstrcat (octave_config_info ("canonical_host_type"),
"-", octave_config_info ("api_version"));
%% Get the correct path
% Search installed packages
[local_packages, global_packages] = pkg("list");
installed_pkgs_lst = {local_packages{:}, global_packages{:}};
pkg_data = installed_pkgs_lst (cellfun(@(x) ismember (x.name, {"geometry"}), ...
installed_pkgs_lst, "unif", true));
if isempty(pkg_data)
% The package is not installed yet
[pkg_folder dep_folder] = pkg ("prefix");
pkg_folder = [pkg_folder strcat(filesep(),{pp{end}}){:} ];
if strcmp (arch , pp{end})
%% If we are in Architecture dependent folder add from outside
pkg_folder = strsplit (pkg_folder,filesep (), true);
pkg_folder = [strcat(filesep(),{pkg_folder{1:end-1}}){:}];
end
else
pkg_folder = pkg_data{1}.dir;
end
if (! exist (fullfile (dirname, "inst"), "dir"))
%% Installing
for ii=1:length (dirlist)
addpath ( [ pkg_folder filesep() dirlist{ii}],"-end")
endfor
else
%% Testing
warning("geometry:Devel","Adding path for testing.");
for ii=1:length(dirlist)
addpath ([ dirname "/inst/" dirlist{ii}])
endfor
endif
warning('off', 'Octave:fopen-file-in-path');
clear dirlist dirname pp arch pkg_folder dep_folder
clear global_packages ii installed_pkgs_lst local_packages pkg_data
|