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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
/**
* @file install.c
*/
#include "spm.h"
/**
* SPM packages contain metadata files that are not useful post-install and would amount to a lot of clutter.
* This function removes these data files from a directory tree
* @param _path
* @return success=0, error=-1
*/
int metadata_remove(const char *_path) {
char *metadata[] = {
SPM_META_DEPENDS,
SPM_META_PREFIX_BIN,
SPM_META_PREFIX_TEXT,
SPM_META_MANIFEST,
NULL,
};
if (exists(_path) != 0) {
perror(_path);
fprintf(SYSERROR);
return -1;
}
for (int i = 0; metadata[i] != NULL; i++) {
char path[PATH_MAX];
sprintf(path, "%s%c%s", _path, DIRSEP, metadata[i]);
if (exists(path) != 0) {
continue;
}
if (unlink(path) < 0) {
perror(path);
fprintf(SYSERROR);
return -1;
}
}
return 0;
}
/**
* Install a package and its dependencies into a destination root.
* The destination is created if it does not exist.
* @param destroot directory to install package
* @param _package name of archive to install (not a path)
* @return success=0, error=-1 (general), -2 (unable to create `destroot`)
*/
int install(const char *destroot, const char *_package) {
char *package = strdup(_package);
if (!package) {
fprintf(SYSERROR);
return -1;
}
if (exists(destroot) != 0) {
if (SPM_GLOBAL.verbose) {
printf("Creating destination root: %s\n", destroot);
}
if (mkdirs(destroot, 0755) != 0) {
fprintf(SYSERROR);
return -2;
}
}
char cwd[PATH_MAX];
char source[PATH_MAX];
char template[PATH_MAX];
// circumvent -Wformat-truncation
char *suffix = (char *) calloc(PATH_MAX, sizeof(char));
if (!suffix) {
perror("suffix");
fprintf(SYSERROR);
}
strcpy(suffix, "spm_destroot_XXXXXX");
snprintf(template, PATH_MAX, "%s%c%s", TMP_DIR, DIRSEP, suffix);
free(suffix);
// Create a new temporary directory and extract the requested package into it
char *tmpdir = mkdtemp(template);
if (exists(tmpdir) != 0) {
fprintf(stderr, "Failed to create temporary storage directory\n");
fprintf(SYSERROR);
exit(errno);
}
if (SPM_GLOBAL.verbose) {
printf("Extracting archive: %s\n", package);
}
tar_extract_archive(package, tmpdir);
getcwd(cwd, sizeof(cwd));
RelocationEntry **b_record = NULL;
RelocationEntry **t_record = NULL;
chdir(tmpdir);
{
// Rewrite binary prefixes
b_record = prefixes_read(SPM_META_PREFIX_BIN);
if (b_record) {
for (int i = 0; b_record[i] != NULL; i++) {
if (file_is_binexec(b_record[i]->path)) {
if (SPM_GLOBAL.verbose) {
printf("Relocate RPATH: %s\n", b_record[i]->path);
}
rpath_autoset(b_record[i]->path);
}
if (SPM_GLOBAL.verbose) {
printf("Relocate DATA : %s\n", b_record[i]->path);
}
relocate(b_record[i]->path, b_record[i]->prefix, destroot);
}
}
// Rewrite text prefixes
t_record = prefixes_read(SPM_META_PREFIX_TEXT);
if (t_record) {
for (int i = 0; t_record[i] != NULL; i++) {
if (SPM_GLOBAL.verbose) {
printf("Relocate TEXT : %s\n", t_record[i]->path);
}
file_replace_text(t_record[i]->path, t_record[i]->prefix, destroot);
}
}
prefixes_free(b_record);
prefixes_free(t_record);
}
chdir(cwd);
// Append a trailing slash to tmpdir to direct rsync to copy files, not the directory, into destroot
sprintf(source, "%s%c", tmpdir, DIRSEP);
// Remove metadata files before copying
if (SPM_GLOBAL.verbose) {
printf("Removing metadata\n");
}
metadata_remove(source);
// Copy temporary directory to destination
if (SPM_GLOBAL.verbose) {
printf("Installing tree: '%s' => '%s'\n", source, destroot);
}
if (rsync(NULL, source, destroot) != 0) {
exit(1);
}
if (SPM_GLOBAL.verbose) {
printf("Removing temporary storage: '%s'\n", tmpdir);
}
rmdirs(tmpdir);
free(package);
return 0;
}
|
