1 /* ------------------------------------------------------------------------ */
3 /* lhadd.c -- LHarc Add Command */
5 /* Copyright (C) MCMLXXXIX Yooichi.Tagawa */
6 /* Modified Nobutaka Watazaki */
8 /* Ver. 1.14 Source All chagned 1995.01.14 N.Watazaki */
9 /* ------------------------------------------------------------------------ */
11 /* ------------------------------------------------------------------------ */
12 static void remove_files();
14 static char new_archive_name_buffer[FILENAME_LENGTH];
15 static char *new_archive_name;
16 /* ------------------------------------------------------------------------ */
18 add_one(fp, nafp, hdr)
22 off_t header_pos, next_pos, org_pos, data_pos;
23 size_t v_original_size, v_packed_size;
25 reading_filename = hdr->name;
26 writing_filename = temporary_name;
28 if (!fp && generic_format) /* [generic] doesn't need directory info. */
30 header_pos = ftello(nafp);
31 write_header(nafp, hdr);/* DUMMY */
33 if ((hdr->unix_mode & UNIX_FILE_SYMLINK) == UNIX_FILE_SYMLINK) {
35 printf("%s -> %s\t- Symbolic Link\n", hdr->name, hdr->realname);
38 if (hdr->original_size == 0) { /* empty file, symlink or directory */
39 finish_indicator2(hdr->name, "Frozen", 0);
40 return; /* previous write_header is not DUMMY. (^_^) */
43 data_pos = ftello(nafp);
45 hdr->crc = encode_lzhuf(fp, nafp, hdr->original_size,
46 &v_original_size, &v_packed_size, hdr->name, hdr->method);
48 if (v_packed_size < v_original_size) {
49 next_pos = ftello(nafp);
51 else { /* retry by stored method */
52 fseeko(fp, org_pos, SEEK_SET);
53 fseeko(nafp, data_pos, SEEK_SET);
54 hdr->crc = encode_stored_crc(fp, nafp, hdr->original_size,
55 &v_original_size, &v_packed_size);
57 next_pos = ftello(nafp);
59 if (ftruncate(fileno(nafp), next_pos) == -1)
60 error("cannot truncate archive");
62 if (chsize(fileno(nafp), next_pos) == -1)
63 error("cannot truncate archive");
67 memcpy(hdr->method, LZHUFF0_METHOD, METHOD_TYPE_STORAGE);
69 hdr->original_size = v_original_size;
70 hdr->packed_size = v_packed_size;
71 fseeko(nafp, header_pos, SEEK_SET);
72 write_header(nafp, hdr);
73 fseeko(nafp, next_pos, SEEK_SET);
77 append_it(name, oafp, nafp)
90 boolean directory, symlink;
92 if (GETSTAT(name, &stbuf) < 0) {
93 error("Cannot access file \"%s\"", name); /* See cleaning_files, Why? */
97 directory = is_directory(&stbuf);
99 symlink = is_symlink(&stbuf);
105 if (!directory && !symlink && !noexec) {
106 fp = fopen(name, READ_BINARY);
108 error("Cannot open file \"%s\": %s", name, strerror(errno));
113 init_header(name, &stbuf, &hdr);
115 cmp = 0; /* avoid compiler warnings `uninitialized' */
117 old_header = ftello(oafp);
118 if (!get_header(oafp, &ahdr)) {
119 /* end of archive or error occurred */
125 cmp = strcmp(ahdr.name, hdr.name);
126 if (cmp < 0) { /* SKIP */
127 /* copy old to new */
129 fseeko(oafp, old_header, SEEK_SET);
130 copy_old_one(oafp, nafp, &ahdr);
133 fseeko(oafp, ahdr.packed_size, SEEK_CUR);
134 } else if (cmp == 0) { /* REPLACE */
135 /* drop old archive's */
136 fseeko(oafp, ahdr.packed_size, SEEK_CUR);
138 } else { /* cmp > 0, INSERT */
139 fseeko(oafp, old_header, SEEK_SET);
144 if (!oafp || cmp > 0) { /* not in archive */
146 printf("ADD %s\n", name);
148 add_one(fp, nafp, &hdr);
150 else { /* cmp == 0 */
151 if (!update_if_newer ||
152 ahdr.unix_last_modified_stamp < hdr.unix_last_modified_stamp) {
153 /* newer than archive's */
155 printf("REPLACE %s\n", name);
157 add_one(fp, nafp, &hdr);
159 else { /* copy old to new */
161 fseeko(oafp, old_header, SEEK_SET);
162 copy_old_one(oafp, nafp, &ahdr);
169 if (directory) { /* recursive call */
170 if (find_files(name, &filec, &filev)) {
171 for (i = 0; i < filec; i++)
172 oafp = append_it(filev[i], oafp, nafp);
173 free_files(filec, filev);
179 /* ------------------------------------------------------------------------ */
181 find_update_files(oafp)
182 FILE *oafp; /* old archive */
184 char name[FILENAME_LENGTH];
185 struct string_pool sp;
194 while (get_header(oafp, &hdr)) {
195 if ((hdr.unix_mode & UNIX_FILE_TYPEMASK) == UNIX_FILE_REGULAR) {
196 if (stat(hdr.name, &stbuf) >= 0) /* exist ? */
197 add_sp(&sp, hdr.name, strlen(hdr.name) + 1);
199 else if ((hdr.unix_mode & UNIX_FILE_TYPEMASK) == UNIX_FILE_DIRECTORY) {
200 strcpy(name, hdr.name); /* ok */
202 if (len > 0 && name[len - 1] == '/')
203 name[--len] = '\0'; /* strip tail '/' */
204 if (stat(name, &stbuf) >= 0) /* exist ? */
205 add_sp(&sp, name, len + 1);
207 fseeko(oafp, hdr.packed_size, SEEK_CUR);
210 fseeko(oafp, pos, SEEK_SET);
212 finish_sp(&sp, &cmd_filec, &cmd_filev);
215 /* ------------------------------------------------------------------------ */
221 off_t old_header_pos;
223 old_header_pos = ftello(oafp);
224 while (get_header(oafp, &ahdr)) {
225 if (need_file(ahdr.name)) { /* skip */
226 fseeko(oafp, ahdr.packed_size, SEEK_CUR);
227 if (noexec || !quiet) {
228 if ((ahdr.unix_mode & UNIX_FILE_TYPEMASK) == UNIX_FILE_SYMLINK)
229 message("delete %s -> %s", ahdr.name, ahdr.realname);
231 message("delete %s", ahdr.name);
236 fseeko(oafp, ahdr.packed_size, SEEK_CUR);
239 fseeko(oafp, old_header_pos, SEEK_SET);
240 copy_old_one(oafp, nafp, &ahdr);
243 old_header_pos = ftello(oafp);
248 /* ------------------------------------------------------------------------ */
250 /* ------------------------------------------------------------------------ */
252 build_temporary_file()
256 signal(SIGINT, interrupt);
258 signal(SIGHUP, interrupt);
261 temporary_fd = build_temporary_name();
262 if (temporary_fd == -1)
263 fatal_error("Cannot open temporary file \"%s\"", temporary_name);
265 afp = fdopen(temporary_fd, WRITE_BINARY);
267 fatal_error("Cannot open temporary file \"%s\"", temporary_name);
272 /* ------------------------------------------------------------------------ */
277 build_backup_name(backup_archive_name, archive_name,
278 sizeof(backup_archive_name));
280 signal(SIGINT, SIG_IGN);
282 signal(SIGHUP, SIG_IGN);
284 if (rename(archive_name, backup_archive_name) < 0) {
286 /* On MinGW, cannot rename when
287 newfile (backup_archive_name) already exists */
288 if (unlink(backup_archive_name) < 0 ||
289 rename(archive_name, backup_archive_name) < 0)
291 fatal_error("Cannot make backup file \"%s\"", archive_name);
293 recover_archive_when_interrupt = TRUE;
294 signal(SIGINT, interrupt);
296 signal(SIGHUP, interrupt);
301 /* ------------------------------------------------------------------------ */
303 report_archive_name_if_different()
305 if (!quiet && new_archive_name == new_archive_name_buffer) {
306 /* warning at old archive is SFX */
307 message("New archive file is \"%s\"", new_archive_name);
311 /* ------------------------------------------------------------------------ */
313 temporary_to_new_archive_file(new_archive_size)
314 size_t new_archive_size;
318 if (!strcmp(new_archive_name, "-")) {
320 writing_filename = "standard output";
321 #if defined(__MINGW32__) || defined(__DJGPP__)
322 setmode(fileno(stdout), O_BINARY);
326 unlink(new_archive_name);
327 if (rename(temporary_name, new_archive_name) == 0)
329 nafp = xfopen(new_archive_name, WRITE_BINARY);
330 writing_filename = archive_name;
333 oafp = xfopen(temporary_name, READ_BINARY);
334 reading_filename = temporary_name;
335 copyfile(oafp, nafp, new_archive_size, 0, 0);
340 recover_archive_when_interrupt = FALSE;
341 unlink(temporary_name);
344 /* ------------------------------------------------------------------------ */
346 set_archive_file_mode()
351 if (archive_file_gid < 0) {
352 umask(umask_value = umask(0));
353 archive_file_mode = (~umask_value) & 0666; /* rw-rw-rw- */
354 if (stat(".", &stbuf) >= 0)
355 archive_file_gid = stbuf.st_gid;
357 if (archive_file_gid >= 0)
358 chown(new_archive_name, getuid(), archive_file_gid);
360 chmod(new_archive_name, archive_file_mode);
363 /* ------------------------------------------------------------------------ */
364 /* REMOVE FILE/DIRECTORY */
365 /* ------------------------------------------------------------------------ */
374 if (GETSTAT(name, &stbuf) < 0) {
375 warning("Cannot access \"%s\": %s", name, strerror(errno));
377 else if (is_directory(&stbuf)) {
378 if (find_files(name, &filec, &filev)) {
379 remove_files(filec, filev);
380 free_files(filec, filev);
383 warning("Cannot open directory \"%s\"", name);
386 message("REMOVE DIRECTORY %s", name);
387 else if (rmdir(name) < 0)
388 warning("Cannot remove directory \"%s\"", name);
390 message("Removed %s.", name);
392 else if (is_regularfile(&stbuf)) {
394 message("REMOVE FILE %s.", name);
395 else if (unlink(name) < 0)
396 warning("Cannot remove \"%s\"", name);
398 message("Removed %s.", name);
401 else if (is_symlink(&stbuf)) {
403 printf("REMOVE SYMBOLIC LINK %s.\n", name);
404 else if (unlink(name) < 0)
405 warning("Cannot remove", name);
407 message("Removed %s.", name);
411 error("Cannot remove file \"%s\" (not a file or directory)", name);
416 remove_files(filec, filev)
422 for (i = 0; i < filec; i++)
423 remove_one(filev[i]);
426 /* ------------------------------------------------------------------------ */
428 /* ------------------------------------------------------------------------ */
436 boolean old_archive_exist;
437 size_t new_archive_size;
439 /* exit if no operation */
440 if (!update_if_newer && cmd_filec == 0) {
441 error("No files given in argument, do nothing.");
445 /* open old archive if exist */
446 if ((oafp = open_old_archive()) == NULL)
447 old_archive_exist = FALSE;
449 old_archive_exist = TRUE;
451 if (update_if_newer && cmd_filec == 0) {
452 warning("No files given in argument");
454 error("archive file \"%s\" does not exists.",
460 if (new_archive && old_archive_exist) {
465 if (oafp && archive_is_msdos_sfx1(archive_name)) {
466 seek_lha_header(oafp);
467 build_standard_archive_name(new_archive_name_buffer,
469 sizeof(new_archive_name_buffer));
470 new_archive_name = new_archive_name_buffer;
473 new_archive_name = archive_name;
476 /* build temporary file */
477 nafp = NULL; /* avoid compiler warnings `uninitialized' */
479 nafp = build_temporary_file();
481 /* find needed files when automatic update */
482 if (update_if_newer && cmd_filec == 0)
483 find_update_files(oafp);
485 /* build new archive file */
486 /* cleaning arguments */
487 cleaning_files(&cmd_filec, &cmd_filev);
488 if (cmd_filec == 0) {
496 for (i = 0; i < cmd_filec; i++) {
499 if (strcmp(cmd_filev[i], archive_name) == 0) {
500 /* exclude target archive */
501 warning("specified file \"%s\" is the generating archive. skip",
503 for (j = i; j < cmd_filec-1; j++)
504 cmd_filev[j] = cmd_filev[j+1];
510 /* exclude files specified by -x option */
511 for (j = 0; exclude_files && exclude_files[j]; j++) {
512 if (fnmatch(exclude_files[j], basename(cmd_filev[i]),
513 FNM_PATHNAME|FNM_NOESCAPE|FNM_PERIOD) == 0)
517 oafp = append_it(cmd_filev[i], oafp, nafp);
523 old_header = ftello(oafp);
524 while (get_header(oafp, &ahdr)) {
526 fseeko(oafp, ahdr.packed_size, SEEK_CUR);
528 fseeko(oafp, old_header, SEEK_SET);
529 copy_old_one(oafp, nafp, &ahdr);
531 old_header = ftello(oafp);
536 new_archive_size = 0; /* avoid compiler warnings `uninitialized' */
540 write_archive_tail(nafp);
543 warning("ftello(): %s", strerror(errno));
544 new_archive_size = 0;
547 new_archive_size = tmp;
552 /* build backup archive file */
553 if (old_archive_exist && backup_old_archive)
556 report_archive_name_if_different();
558 /* copy temporary file to new archive file */
560 if (strcmp(new_archive_name, "-") == 0 ||
561 rename(temporary_name, new_archive_name) < 0) {
563 temporary_to_new_archive_file(new_archive_size);
567 /* set new archive file mode/group */
568 set_archive_file_mode();
570 /* remove archived files */
571 if (delete_after_append)
572 remove_files(cmd_filec, cmd_filev);
577 /* ------------------------------------------------------------------------ */
582 size_t new_archive_size;
584 /* open old archive if exist */
585 if ((oafp = open_old_archive()) == NULL)
586 fatal_error("Cannot open archive file \"%s\"", archive_name);
588 /* exit if no operation */
589 if (cmd_filec == 0) {
591 warning("No files given in argument, do nothing.");
595 if (archive_is_msdos_sfx1(archive_name)) {
596 seek_lha_header(oafp);
597 build_standard_archive_name(new_archive_name_buffer,
599 sizeof(new_archive_name_buffer));
600 new_archive_name = new_archive_name_buffer;
603 new_archive_name = archive_name;
606 /* build temporary file */
607 nafp = NULL; /* avoid compiler warnings `uninitialized' */
609 nafp = build_temporary_file();
611 /* build new archive file */
615 new_archive_size = 0; /* avoid compiler warnings `uninitialized' */
619 write_archive_tail(nafp);
622 warning("ftello(): %s", strerror(errno));
623 new_archive_size = 0;
626 new_archive_size = tmp;
631 /* build backup archive file */
632 if (backup_old_archive)
635 /* 1999.5.24 t.oka */
636 if(!noexec && new_archive_size <= 1){
637 unlink(temporary_name);
638 if (!backup_old_archive)
639 unlink(archive_name);
640 warning("The archive file \"%s\" was removed because it would be empty.", new_archive_name);
644 report_archive_name_if_different();
646 /* copy temporary file to new archive file */
648 if (rename(temporary_name, new_archive_name) < 0)
649 temporary_to_new_archive_file(new_archive_size);
652 /* set new archive file mode/group */
653 set_archive_file_mode();