1 /*
2  * Copyright (c) 2019 Stefan Sperling <stsp@openbsd.org>
3  *
4  * Permission to use, copy, modify, and distribute this software for any
5  * purpose with or without fee is hereby granted, provided that the above
6  * copyright notice and this permission notice appear in all copies.
7  *
8  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
15  */
16 
17 #include <sys/types.h>
18 #include <sys/stat.h>
19 #include <sys/queue.h>
20 
21 #include <errno.h>
22 #include <fcntl.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <stdint.h>
27 #include <sha1.h>
28 #include <unistd.h>
29 #include <zlib.h>
30 
31 #include "got_error.h"
32 #include "got_object.h"
33 #include "got_repository.h"
34 #include "got_opentemp.h"
35 
36 #include "got_lib_sha1.h"
37 #include "got_lib_deflate.h"
38 #include "got_lib_delta.h"
39 #include "got_lib_object.h"
40 #include "got_lib_lockfile.h"
41 #include "got_lib_path.h"
42 
43 #ifndef nitems
44 #define nitems(_a) (sizeof(_a) / sizeof((_a)[0]))
45 #endif
46 
47 static const struct got_error *
48 create_loose_object(struct got_object_id *id, FILE *content,
49     struct got_repository *repo)
50 {
51 	const struct got_error *err = NULL, *unlock_err = NULL;
52 	char *objpath = NULL, *tmppath = NULL;
53 	FILE *tmpfile = NULL;
54 	struct got_lockfile *lf = NULL;
55 	size_t tmplen = 0;
56 
57 	err = got_object_get_path(&objpath, id, repo);
58 	if (err)
59 		return err;
60 
61 	err = got_opentemp_named(&tmppath, &tmpfile, objpath);
62 	if (err) {
63 		char *parent_path;
64 		if (!(err->code == GOT_ERR_ERRNO && errno == ENOENT))
65 			goto done;
66 		err = got_path_dirname(&parent_path, objpath);
67 		if (err)
68 			goto done;
69 		err = got_path_mkdir(parent_path);
70 		free(parent_path);
71 		if (err)
72 			goto done;
73 		err = got_opentemp_named(&tmppath, &tmpfile, objpath);
74 		if (err)
75 			goto done;
76 	}
77 
78 	err = got_deflate_to_file(&tmplen, content, tmpfile);
79 	if (err)
80 		goto done;
81 
82 	err = got_lockfile_lock(&lf, objpath);
83 	if (err)
84 		goto done;
85 
86 	if (rename(tmppath, objpath) != 0) {
87 		err = got_error_from_errno();
88 		goto done;
89 	}
90 	free(tmppath);
91 	tmppath = NULL;
92 
93 	if (chmod(objpath, GOT_DEFAULT_FILE_MODE) != 0) {
94 		err = got_error_from_errno();
95 		goto done;
96 	}
97 done:
98 	free(objpath);
99 	if (tmppath) {
100 		if (unlink(tmppath) != 0 && err == NULL)
101 			err = got_error_from_errno();
102 		free(tmppath);
103 	}
104 	if (tmpfile && fclose(tmpfile) != 0 && err == NULL)
105 		err = got_error_from_errno();
106 	if (lf)
107 		unlock_err = got_lockfile_unlock(lf);
108 	return err ? err : unlock_err;
109 }
110 
111 const struct got_error *
112 got_object_blob_create(struct got_object_id **id, const char *ondisk_path,
113     struct got_repository *repo)
114 {
115 	const struct got_error *err = NULL;
116 	char *header = NULL;
117 	FILE *blobfile = NULL;
118 	int fd = -1;
119 	struct stat sb;
120 	SHA1_CTX sha1_ctx;
121 	uint8_t digest[SHA1_DIGEST_LENGTH];
122 	size_t headerlen = 0, n;
123 
124 	*id = NULL;
125 
126 	SHA1Init(&sha1_ctx);
127 
128 	fd = open(ondisk_path, O_RDONLY | O_NOFOLLOW);
129 	if (fd == -1)
130 		return got_error_from_errno();
131 
132 	if (fstat(fd, &sb) == -1) {
133 		err = got_error_from_errno();
134 		goto done;
135 	}
136 
137 	if (asprintf(&header, "%s %lld", GOT_OBJ_LABEL_BLOB,
138 		sb.st_size) == -1) {
139 		err = got_error_from_errno();
140 		goto done;
141 	}
142 	headerlen = strlen(header) + 1;
143 	SHA1Update(&sha1_ctx, header, headerlen);
144 
145 	blobfile = got_opentemp();
146 	if (blobfile == NULL) {
147 		err = got_error_from_errno();
148 		goto done;
149 	}
150 
151 	n = fwrite(header, 1, headerlen, blobfile);
152 	if (n != headerlen) {
153 		err = got_ferror(blobfile, GOT_ERR_IO);
154 		goto done;
155 	}
156 	while (1) {
157 		char buf[8192];
158 		ssize_t inlen;
159 
160 		inlen = read(fd, buf, sizeof(buf));
161 		if (inlen == -1) {
162 			err = got_error_from_errno();
163 			goto done;
164 		}
165 		if (inlen == 0)
166 			break; /* EOF */
167 		SHA1Update(&sha1_ctx, buf, inlen);
168 		n = fwrite(buf, 1, inlen, blobfile);
169 		if (n != inlen) {
170 			err = got_ferror(blobfile, GOT_ERR_IO);
171 			goto done;
172 		}
173 	}
174 
175 	SHA1Final(digest, &sha1_ctx);
176 	*id = malloc(sizeof(**id));
177 	if (*id == NULL) {
178 		err = got_error_from_errno();
179 		goto done;
180 	}
181 	memcpy((*id)->sha1, digest, SHA1_DIGEST_LENGTH);
182 
183 	if (fflush(blobfile) != 0) {
184 		err = got_error_from_errno();
185 		goto done;
186 	}
187 	rewind(blobfile);
188 
189 	err = create_loose_object(*id, blobfile, repo);
190 done:
191 	free(header);
192 	if (fd != -1 && close(fd) != 0 && err == NULL)
193 		err = got_error_from_errno();
194 	if (blobfile && fclose(blobfile) != 0 && err == NULL)
195 		err = got_error_from_errno();
196 	if (err) {
197 		free(*id);
198 		*id = NULL;
199 	}
200 	return err;
201 }