summaryrefslogtreecommitdiff
path: root/src/fr-command-tar.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/fr-command-tar.c')
-rw-r--r--src/fr-command-tar.c1233
1 files changed, 1233 insertions, 0 deletions
diff --git a/src/fr-command-tar.c b/src/fr-command-tar.c
new file mode 100644
index 0000000..4c214f4
--- /dev/null
+++ b/src/fr-command-tar.c
@@ -0,0 +1,1233 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
+
+/*
+ * File-Roller
+ *
+ * Copyright (C) 2001, 2003, 2004 Free Software Foundation, Inc.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Street #330, Boston, MA 02111-1307, USA.
+ */
+
+#include <config.h>
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include <time.h>
+
+#include <glib.h>
+#include <glib/gi18n.h>
+
+#include "file-data.h"
+#include "file-utils.h"
+#include "glib-utils.h"
+#include "fr-command.h"
+#include "fr-command-tar.h"
+
+#define ACTIVITY_DELAY 20
+
+static void fr_command_tar_class_init (FrCommandTarClass *class);
+static void fr_command_tar_init (FrCommand *afile);
+static void fr_command_tar_finalize (GObject *object);
+
+/* Parent Class */
+
+static FrCommandClass *parent_class = NULL;
+
+
+/* -- list -- */
+
+static time_t
+mktime_from_string (char *date_s,
+ char *time_s)
+{
+ struct tm tm = {0, };
+ char **fields;
+
+ tm.tm_isdst = -1;
+
+ /* date */
+
+ fields = g_strsplit (date_s, "-", 3);
+ if (fields[0] != NULL) {
+ tm.tm_year = atoi (fields[0]) - 1900;
+ if (fields[1] != NULL) {
+ tm.tm_mon = atoi (fields[1]) - 1;
+ if (fields[2] != NULL)
+ tm.tm_mday = atoi (fields[2]);
+ }
+ }
+ g_strfreev (fields);
+
+ /* time */
+
+ fields = g_strsplit (time_s, ":", 3);
+ if (fields[0] != NULL) {
+ tm.tm_hour = atoi (fields[0]);
+ if (fields[1] != NULL) {
+ tm.tm_min = atoi (fields[1]);
+ if (fields[2] != NULL)
+ tm.tm_sec = atoi (fields[2]);
+ }
+ }
+ g_strfreev (fields);
+
+ return mktime (&tm);
+}
+
+
+static char*
+tar_get_last_field (const char *line,
+ int start_from,
+ int field_n)
+{
+ const char *f_start, *f_end;
+
+ line = line + start_from;
+
+ f_start = line;
+ while ((*f_start == ' ') && (*f_start != *line))
+ f_start++;
+ f_end = f_start;
+
+ while ((field_n > 0) && (*f_end != 0)) {
+ if (*f_end == ' ') {
+ field_n--;
+ if (field_n != 0) {
+ while ((*f_end == ' ') && (*f_end != *line))
+ f_end++;
+ f_start = f_end;
+ }
+ } else
+ f_end++;
+ }
+
+ return g_strdup (f_start);
+}
+
+
+static void
+process_line (char *line,
+ gpointer data)
+{
+ FileData *fdata;
+ FrCommand *comm = FR_COMMAND (data);
+ char **fields;
+ int date_idx;
+ char *field_date, *field_time, *field_size, *field_name;
+ char *name;
+
+ g_return_if_fail (line != NULL);
+
+ date_idx = file_list__get_index_from_pattern (line, "%n%n%n%n-%n%n-%n%n %n%n:%n%n");
+ if (date_idx < 0)
+ return;
+
+ fdata = file_data_new ();
+
+ field_size = file_list__get_prev_field (line, date_idx, 1);
+ fdata->size = g_ascii_strtoull (field_size, NULL, 10);
+ g_free (field_size);
+
+ field_date = file_list__get_next_field (line, date_idx, 1);
+ field_time = file_list__get_next_field (line, date_idx, 2);
+ fdata->modified = mktime_from_string (field_date, field_time);
+ g_free (field_date);
+ g_free (field_time);
+
+ /* Full path */
+
+ field_name = tar_get_last_field (line, date_idx, 3);
+ fields = g_strsplit (field_name, " -> ", 2);
+
+ if (fields[1] == NULL) {
+ g_strfreev (fields);
+ fields = g_strsplit (field_name, " link to ", 2);
+ }
+
+ name = g_strcompress (fields[0]);
+ if (*name == '/') {
+ fdata->full_path = g_strdup (name);
+ fdata->original_path = fdata->full_path;
+ } else {
+ fdata->full_path = g_strconcat ("/", name, NULL);
+ fdata->original_path = fdata->full_path + 1;
+ }
+ g_free (name);
+ name = g_filename_from_utf8 (fdata->original_path, -1, NULL, NULL, NULL);
+ if (name)
+ fdata->original_path = name;
+
+ if (fields[1] != NULL)
+ fdata->link = g_strdup (fields[1]);
+ g_strfreev (fields);
+ g_free (field_name);
+
+ fdata->dir = line[0] == 'd';
+ if (fdata->dir)
+ fdata->name = dir_name_from_path (fdata->full_path);
+ else
+ fdata->name = g_strdup (file_name_from_path (fdata->full_path));
+ fdata->path = remove_level_from_path (fdata->full_path);
+
+ if (*fdata->name == 0)
+ file_data_free (fdata);
+ else
+ fr_command_add_file (comm, fdata);
+}
+
+
+static void
+add_compress_arg (FrCommand *comm)
+{
+ if (is_mime_type (comm->mime_type, "application/x-compressed-tar"))
+ fr_process_add_arg (comm->process, "-z");
+
+ else if (is_mime_type (comm->mime_type, "application/x-bzip-compressed-tar"))
+ fr_process_add_arg (comm->process, "--use-compress-program=bzip2");
+
+ else if (is_mime_type (comm->mime_type, "application/x-tarz")) {
+ if (is_program_in_path ("gzip"))
+ fr_process_add_arg (comm->process, "-z");
+ else
+ fr_process_add_arg (comm->process, "-Z");
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lrzip-compressed-tar"))
+ fr_process_add_arg (comm->process, "--use-compress-program=lrzip");
+
+ else if (is_mime_type (comm->mime_type, "application/x-lzip-compressed-tar"))
+ fr_process_add_arg (comm->process, "--use-compress-program=lzip");
+
+ else if (is_mime_type (comm->mime_type, "application/x-lzma-compressed-tar"))
+ fr_process_add_arg (comm->process, "--use-compress-program=lzma");
+
+ else if (is_mime_type (comm->mime_type, "application/x-xz-compressed-tar"))
+ fr_process_add_arg (comm->process, "--use-compress-program=xz");
+
+ else if (is_mime_type (comm->mime_type, "application/x-lzop-compressed-tar"))
+ fr_process_add_arg (comm->process, "--use-compress-program=lzop");
+
+ else if (is_mime_type (comm->mime_type, "application/x-7z-compressed-tar")) {
+ FrCommandTar *comm_tar = (FrCommandTar*) comm;
+ char *option;
+
+ option = g_strdup_printf ("--use-compress-program=%s", comm_tar->compress_command);
+ fr_process_add_arg (comm->process, option);
+ g_free (option);
+ }
+}
+
+
+static void
+begin_tar_command (FrCommand *comm)
+{
+ char *command = NULL;
+
+ /* In solaris gtar is present under /usr/sfw/bin */
+
+ command = g_find_program_in_path ("gtar");
+#if defined (__SVR4) && defined (__sun)
+ if (g_file_test ("/usr/sfw/bin/gtar", G_FILE_TEST_IS_EXECUTABLE))
+ command = g_strdup ("/usr/sfw/bin/gtar");
+#endif
+ if (command != NULL)
+ fr_process_begin_command (comm->process, command);
+ else
+ fr_process_begin_command (comm->process, "tar");
+ g_free (command);
+}
+
+
+static void
+fr_command_tar_list (FrCommand *comm)
+{
+ fr_process_set_out_line_func (comm->process, process_line, comm);
+
+ begin_tar_command (comm);
+ fr_process_add_arg (comm->process, "--force-local");
+ fr_process_add_arg (comm->process, "--no-wildcards");
+ fr_process_add_arg (comm->process, "-tvf");
+ fr_process_add_arg (comm->process, comm->filename);
+ add_compress_arg (comm);
+ fr_process_end_command (comm->process);
+ fr_process_start (comm->process);
+}
+
+
+static gboolean
+can_create_a_compressed_archive (FrCommand *comm)
+{
+ return comm->creating_archive && ! is_mime_type (comm->mime_type, "application/x-7z-compressed-tar");
+}
+
+
+static void
+process_line__generic (char *line,
+ gpointer data,
+ char *action_msg)
+{
+ FrCommand *comm = FR_COMMAND (data);
+ char *msg;
+
+ if (line == NULL)
+ return;
+
+ if (line[strlen (line) - 1] == '/') /* ignore directories */
+ return;
+
+ msg = g_strconcat (action_msg, file_name_from_path (line), NULL);
+ fr_command_message (comm, msg);
+ g_free (msg);
+
+ if (comm->n_files != 0) {
+ double fraction = (double) ++comm->n_file / (comm->n_files + 1);
+ fr_command_progress (comm, fraction);
+ }
+}
+
+
+static void
+process_line__add (char *line,
+ gpointer data)
+{
+ /* Translators: after the colon there is a filename. */
+ process_line__generic (line, data, _("Adding file: "));
+}
+
+
+static void
+fr_command_tar_add (FrCommand *comm,
+ const char *from_file,
+ GList *file_list,
+ const char *base_dir,
+ gboolean update,
+ gboolean recursive)
+{
+ FrCommandTar *c_tar = FR_COMMAND_TAR (comm);
+ GList *scan;
+
+ fr_process_set_out_line_func (FR_COMMAND (comm)->process,
+ process_line__add,
+ comm);
+
+ begin_tar_command (comm);
+ fr_process_add_arg (comm->process, "--force-local");
+ if (! recursive)
+ fr_process_add_arg (comm->process, "--no-recursion");
+ fr_process_add_arg (comm->process, "--no-wildcards");
+ fr_process_add_arg (comm->process, "-v");
+ fr_process_add_arg (comm->process, "-p");
+
+ if (base_dir != NULL) {
+ fr_process_add_arg (comm->process, "-C");
+ fr_process_add_arg (comm->process, base_dir);
+ }
+
+ if (can_create_a_compressed_archive (comm)) {
+ fr_process_add_arg (comm->process, "-cf");
+ fr_process_add_arg (comm->process, comm->filename);
+ add_compress_arg (comm);
+ }
+ else {
+ if (comm->creating_archive)
+ fr_process_add_arg (comm->process, "-cf");
+ else
+ fr_process_add_arg (comm->process, "-rf");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ }
+
+ if (from_file != NULL) {
+ fr_process_add_arg (comm->process, "-T");
+ fr_process_add_arg (comm->process, from_file);
+ }
+
+ fr_process_add_arg (comm->process, "--");
+
+ if (from_file == NULL)
+ for (scan = file_list; scan; scan = scan->next)
+ fr_process_add_arg (comm->process, scan->data);
+
+ fr_process_end_command (comm->process);
+}
+
+
+static void
+process_line__delete (char *line,
+ gpointer data)
+{
+ /* Translators: after the colon there is a filename. */
+ process_line__generic (line, data, _("Removing file: "));
+}
+
+
+static void
+begin_func__delete (gpointer data)
+{
+ FrCommand *comm = data;
+ fr_command_progress (comm, -1.0);
+ fr_command_message (comm, _("Deleting files from archive"));
+}
+
+
+static void
+fr_command_tar_delete (FrCommand *comm,
+ const char *from_file,
+ GList *file_list)
+{
+ FrCommandTar *c_tar = FR_COMMAND_TAR (comm);
+ GList *scan;
+
+ fr_process_set_out_line_func (comm->process,
+ process_line__delete,
+ comm);
+
+ begin_tar_command (comm);
+ fr_process_set_begin_func (comm->process, begin_func__delete, comm);
+ fr_process_add_arg (comm->process, "--force-local");
+ fr_process_add_arg (comm->process, "--no-wildcards");
+ fr_process_add_arg (comm->process, "-v");
+ fr_process_add_arg (comm->process, "--delete");
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+
+ if (from_file != NULL) {
+ fr_process_add_arg (comm->process, "-T");
+ fr_process_add_arg (comm->process, from_file);
+ }
+
+ fr_process_add_arg (comm->process, "--");
+
+ if (from_file == NULL)
+ for (scan = file_list; scan; scan = scan->next)
+ fr_process_add_arg (comm->process, scan->data);
+
+ fr_process_end_command (comm->process);
+}
+
+
+static void
+process_line__extract (char *line,
+ gpointer data)
+{
+ /* Translators: after the colon there is a filename. */
+ process_line__generic (line, data, _("Extracting file: "));
+}
+
+
+static void
+fr_command_tar_extract (FrCommand *comm,
+ const char *from_file,
+ GList *file_list,
+ const char *dest_dir,
+ gboolean overwrite,
+ gboolean skip_older,
+ gboolean junk_paths)
+{
+ GList *scan;
+
+ fr_process_set_out_line_func (comm->process,
+ process_line__extract,
+ comm);
+
+ begin_tar_command (comm);
+ fr_process_add_arg (comm->process, "--force-local");
+ fr_process_add_arg (comm->process, "--no-wildcards");
+ fr_process_add_arg (comm->process, "-v");
+ fr_process_add_arg (comm->process, "-p");
+
+ if (! overwrite)
+ fr_process_add_arg (comm->process, "-k");
+ if (skip_older)
+ fr_process_add_arg (comm->process, "--keep-newer-files");
+
+ fr_process_add_arg (comm->process, "-xf");
+ fr_process_add_arg (comm->process, comm->filename);
+ add_compress_arg (comm);
+
+ if (dest_dir != NULL) {
+ fr_process_add_arg (comm->process, "-C");
+ fr_process_add_arg (comm->process, dest_dir);
+ }
+
+ if (from_file != NULL) {
+ fr_process_add_arg (comm->process, "-T");
+ fr_process_add_arg (comm->process, from_file);
+ }
+
+ fr_process_add_arg (comm->process, "--");
+
+ if (from_file == NULL)
+ for (scan = file_list; scan; scan = scan->next)
+ fr_process_add_arg (comm->process, scan->data);
+
+ fr_process_end_command (comm->process);
+}
+
+
+static void
+begin_func__recompress (gpointer data)
+{
+ FrCommand *comm = data;
+ fr_command_progress (comm, -1.0);
+ fr_command_message (comm, _("Recompressing archive"));
+}
+
+
+static gboolean
+gzip_continue_func (gpointer user_data)
+{
+ FrCommand *comm = user_data;
+
+ /* ignore gzip warnings */
+
+ if (comm->process->error.status == 2) {
+ comm->process->error.type = FR_PROC_ERROR_NONE;
+ comm->process->error.status = 0;
+ g_clear_error (&comm->process->error.gerror);
+ }
+
+ return comm->process->error.status == 0;
+}
+
+
+static void
+fr_command_tar_recompress (FrCommand *comm)
+{
+ FrCommandTar *c_tar = FR_COMMAND_TAR (comm);
+ char *new_name = NULL;
+
+ if (can_create_a_compressed_archive (comm))
+ return;
+
+ if (is_mime_type (comm->mime_type, "application/x-compressed-tar")) {
+ fr_process_begin_command (comm->process, "gzip");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ fr_process_set_continue_func (comm->process, gzip_continue_func, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-3"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-6"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-9"); break;
+ }
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".gz", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-bzip-compressed-tar")) {
+ fr_process_begin_command (comm->process, "bzip2");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-3"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-6"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-9"); break;
+ }
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".bz2", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-tarz")) {
+ fr_process_begin_command (comm->process, "compress");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".Z", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lrzip-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lrzip");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-l"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-g"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-b"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-z"); break;
+ }
+ fr_process_add_arg (comm->process, "-o");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".lrz", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzip-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lzip");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-3"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-6"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-9"); break;
+ }
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".lz", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzma-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lzma");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-3"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-6"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-9"); break;
+ }
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".lzma", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-xz-compressed-tar")) {
+ fr_process_begin_command (comm->process, "xz");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-3"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-6"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-9"); break;
+ }
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".xz", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzop-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lzop");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-3"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-6"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-9"); break;
+ }
+ fr_process_add_arg (comm->process, "-fU");
+ fr_process_add_arg (comm->process, "--no-stdin");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".lzo", NULL);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-7z-compressed-tar")) {
+ FrCommandTar *comm_tar = (FrCommandTar*) comm;
+
+ fr_process_begin_command (comm->process, comm_tar->compress_command);
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_set_begin_func (comm->process, begin_func__recompress, comm);
+ switch (comm->compression) {
+ case FR_COMPRESSION_VERY_FAST:
+ fr_process_add_arg (comm->process, "-mx=1"); break;
+ case FR_COMPRESSION_FAST:
+ fr_process_add_arg (comm->process, "-mx=5"); break;
+ case FR_COMPRESSION_NORMAL:
+ fr_process_add_arg (comm->process, "-mx=5"); break;
+ case FR_COMPRESSION_MAXIMUM:
+ fr_process_add_arg (comm->process, "-mx=7"); break;
+ }
+ fr_process_add_arg (comm->process, "a");
+ fr_process_add_arg (comm->process, "-bd");
+ fr_process_add_arg (comm->process, "-y");
+ fr_process_add_arg (comm->process, "-l");
+
+ new_name = g_strconcat (c_tar->uncomp_filename, ".7z", NULL);
+ fr_process_add_arg_concat (comm->process, new_name, NULL);
+
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+
+ /* remove the uncompressed tar */
+
+ fr_process_begin_command (comm->process, "rm");
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, c_tar->uncomp_filename);
+ fr_process_end_command (comm->process);
+ }
+
+ if (c_tar->name_modified) {
+ char *tmp_dir;
+
+ /* Restore original name. */
+
+ fr_process_begin_command (comm->process, "mv");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, new_name);
+ fr_process_add_arg (comm->process, comm->filename);
+ fr_process_end_command (comm->process);
+
+ tmp_dir = remove_level_from_path (new_name);
+
+ fr_process_begin_command (comm->process, "rm");
+ fr_process_set_sticky (comm->process, TRUE);
+ fr_process_add_arg (comm->process, "-fr");
+ fr_process_add_arg (comm->process, tmp_dir);
+ fr_process_end_command (comm->process);
+
+ g_free (tmp_dir);
+ }
+
+ g_free (new_name);
+ g_free (c_tar->uncomp_filename);
+ c_tar->uncomp_filename = NULL;
+}
+
+
+static void
+begin_func__uncompress (gpointer data)
+{
+ FrCommand *comm = data;
+ fr_command_progress (comm, -1.0);
+ fr_command_message (comm, _("Decompressing archive"));
+}
+
+
+static char *
+get_uncompressed_name (FrCommandTar *c_tar,
+ const char *e_filename)
+{
+ FrCommand *comm = FR_COMMAND (c_tar);
+ char *new_name = g_strdup (e_filename);
+ int l = strlen (new_name);
+
+ if (is_mime_type (comm->mime_type, "application/x-compressed-tar")) {
+ /* X.tgz --> X.tar
+ * X.tar.gz --> X.tar */
+ if (file_extension_is (e_filename, ".tgz")) {
+ new_name[l - 2] = 'a';
+ new_name[l - 1] = 'r';
+ }
+ else if (file_extension_is (e_filename, ".tar.gz"))
+ new_name[l - 3] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-bzip-compressed-tar")) {
+ /* X.tbz2 --> X.tar
+ * X.tar.bz2 --> X.tar */
+ if (file_extension_is (e_filename, ".tbz2")) {
+ new_name[l - 3] = 'a';
+ new_name[l - 2] = 'r';
+ new_name[l - 1] = 0;
+ }
+ else if (file_extension_is (e_filename, ".tar.bz2"))
+ new_name[l - 4] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-tarz")) {
+ /* X.taz --> X.tar
+ * X.tar.Z --> X.tar */
+ if (file_extension_is (e_filename, ".taz"))
+ new_name[l - 1] = 'r';
+ else if (file_extension_is (e_filename, ".tar.Z"))
+ new_name[l - 2] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lrzip-compressed-tar")) {
+ /* X.tlrz --> X.tar
+ * X.tar.lrz --> X.tar */
+ if (file_extension_is (e_filename, ".tlrz")) {
+ new_name[l - 3] = 'a';
+ new_name[l - 2] = 'r';
+ new_name[l - 1] = 0;
+ }
+ else if (file_extension_is (e_filename, ".tar.lrz"))
+ new_name[l - 4] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzip-compressed-tar")) {
+ /* X.tlz --> X.tar
+ * X.tar.lz --> X.tar */
+ if (file_extension_is (e_filename, ".tlz")) {
+ new_name[l - 2] = 'a';
+ new_name[l - 1] = 'r';
+ }
+ else if (file_extension_is (e_filename, ".tar.lz"))
+ new_name[l - 3] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzma-compressed-tar")) {
+ /* X.tar.lzma --> X.tar
+ * (There doesn't seem to be a shorthand suffix) */
+ if (file_extension_is (e_filename, ".tar.lzma"))
+ new_name[l - 5] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-xz-compressed-tar")) {
+ /* X.tar.xz --> X.tar
+ * (There doesn't seem to be a shorthand suffix) */
+ if (file_extension_is (e_filename, ".tar.xz"))
+ new_name[l - 3] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzop-compressed-tar")) {
+ /* X.tzo --> X.tar
+ * X.tar.lzo --> X.tar */
+ if (file_extension_is (e_filename, ".tzo")) {
+ new_name[l - 2] = 'a';
+ new_name[l - 1] = 'r';
+ }
+ else if (file_extension_is (e_filename, ".tar.lzo"))
+ new_name[l - 4] = 0;
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-7z-compressed-tar")) {
+ /* X.tar.7z --> X.tar */
+ if (file_extension_is (e_filename, ".tar.7z"))
+ new_name[l - 3] = 0;
+ }
+
+ return new_name;
+}
+
+
+#define MAX_TRIES 50
+
+
+static char *
+get_temp_name (FrCommandTar *c_tar,
+ const char *filepath)
+{
+ char *dirname = remove_level_from_path (filepath);
+ char *template;
+ char *result = NULL;
+ char *temp_name = NULL;
+
+ template = g_strconcat (dirname, "/.fr-XXXXXX", NULL);
+ result = mkdtemp (template);
+ temp_name = g_build_filename (result, file_name_from_path (filepath), NULL);
+ g_free (template);
+
+ return temp_name;
+}
+
+
+static void
+fr_command_tar_uncompress (FrCommand *comm)
+{
+ FrCommandTar *c_tar = FR_COMMAND_TAR (comm);
+ char *tmp_name;
+ gboolean archive_exists;
+
+ if (can_create_a_compressed_archive (comm))
+ return;
+
+ if (c_tar->uncomp_filename != NULL) {
+ g_free (c_tar->uncomp_filename);
+ c_tar->uncomp_filename = NULL;
+ }
+
+ {
+ char *uri = g_filename_to_uri (comm->filename, NULL, NULL);
+ archive_exists = uri_exists (uri);
+ g_free (uri);
+ }
+
+ c_tar->name_modified = ! is_mime_type (comm->mime_type, "application/x-tar");
+ if (c_tar->name_modified) {
+ tmp_name = get_temp_name (c_tar, comm->filename);
+ if (archive_exists) {
+ fr_process_begin_command (comm->process, "mv");
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, comm->filename);
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ }
+ else
+ tmp_name = g_strdup (comm->filename);
+
+ if (archive_exists) {
+ if (is_mime_type (comm->mime_type, "application/x-compressed-tar")) {
+ fr_process_begin_command (comm->process, "gzip");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_set_continue_func (comm->process, gzip_continue_func, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, "-d");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-bzip-compressed-tar")) {
+ fr_process_begin_command (comm->process, "bzip2");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, "-d");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-tarz")) {
+ if (is_program_in_path ("gzip")) {
+ fr_process_begin_command (comm->process, "gzip");
+ fr_process_set_continue_func (comm->process, gzip_continue_func, comm);
+ }
+ else
+ fr_process_begin_command (comm->process, "uncompress");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lrzip-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lrzip");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, "-d");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzip-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lzip");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, "-d");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzma-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lzma");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, "-d");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-xz-compressed-tar")) {
+ fr_process_begin_command (comm->process, "xz");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, "-d");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-lzop-compressed-tar")) {
+ fr_process_begin_command (comm->process, "lzop");
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "-dfU");
+ fr_process_add_arg (comm->process, "--no-stdin");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ else if (is_mime_type (comm->mime_type, "application/x-7z-compressed-tar")) {
+ FrCommandTar *comm_tar = (FrCommandTar*) comm;
+
+ fr_process_begin_command (comm->process, comm_tar->compress_command);
+ fr_process_set_begin_func (comm->process, begin_func__uncompress, comm);
+ fr_process_add_arg (comm->process, "e");
+ fr_process_add_arg (comm->process, "-bd");
+ fr_process_add_arg (comm->process, "-y");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+
+ /* remove the compressed tar */
+
+ fr_process_begin_command (comm->process, "rm");
+ fr_process_add_arg (comm->process, "-f");
+ fr_process_add_arg (comm->process, tmp_name);
+ fr_process_end_command (comm->process);
+ }
+ }
+
+ c_tar->uncomp_filename = get_uncompressed_name (c_tar, tmp_name);
+ g_free (tmp_name);
+}
+
+
+static void
+fr_command_tar_handle_error (FrCommand *comm,
+ FrProcError *error)
+{
+ if (error->type != FR_PROC_ERROR_NONE) {
+ if (error->status <= 1)
+ error->type = FR_PROC_ERROR_NONE;
+ }
+}
+
+
+const char *tar_mime_types[] = { "application/x-compressed-tar",
+ "application/x-bzip-compressed-tar",
+ "application/x-tar",
+ "application/x-7z-compressed-tar",
+ "application/x-lrzip-compressed-tar",
+ "application/x-lzip-compressed-tar",
+ "application/x-lzma-compressed-tar",
+ "application/x-lzop-compressed-tar",
+ "application/x-tarz",
+ "application/x-xz-compressed-tar",
+ NULL };
+
+
+const char **
+fr_command_tar_get_mime_types (FrCommand *comm)
+{
+ return tar_mime_types;
+}
+
+
+FrCommandCap
+fr_command_tar_get_capabilities (FrCommand *comm,
+ const char *mime_type,
+ gboolean check_command)
+{
+ FrCommandCap capabilities;
+
+ capabilities = FR_COMMAND_CAN_ARCHIVE_MANY_FILES;
+
+ /* In solaris gtar is present under /usr/sfw/bin */
+ if (! is_program_available ("tar", check_command) && ! is_program_available ("/usr/sfw/bin/gtar", check_command))
+ return capabilities;
+
+ if (is_mime_type (mime_type, "application/x-tar")) {
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-compressed-tar")) {
+ if (is_program_available ("gzip", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-bzip-compressed-tar")) {
+ if (is_program_available ("bzip2", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-tarz")) {
+ if (is_program_available ("compress", check_command) && is_program_available ("uncompress", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ else if (is_program_available ("gzip", check_command))
+ capabilities |= FR_COMMAND_CAN_READ;
+ }
+ else if (is_mime_type (mime_type, "application/x-lrzip-compressed-tar")) {
+ if (is_program_available ("lrzip", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-lzip-compressed-tar")) {
+ if (is_program_available ("lzip", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-lzma-compressed-tar")) {
+ if (is_program_available ("lzma", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-xz-compressed-tar")) {
+ if (is_program_available ("xz", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-lzop-compressed-tar")) {
+ if (is_program_available ("lzop", check_command))
+ capabilities |= FR_COMMAND_CAN_READ_WRITE;
+ }
+ else if (is_mime_type (mime_type, "application/x-7z-compressed-tar")) {
+ char *try_command[3] = { "7za", "7zr", "7z" };
+ int i;
+
+ for (i = 0; i < G_N_ELEMENTS (try_command); i++) {
+ if (is_program_available (try_command[i], check_command)) {
+ capabilities |= FR_COMMAND_CAN_WRITE;
+ break;
+ }
+ }
+ }
+
+ return capabilities;
+}
+
+
+static void
+fr_command_tar_set_mime_type (FrCommand *comm,
+ const char *mime_type)
+{
+ FrCommandTar *comm_tar = FR_COMMAND_TAR (comm);
+
+ FR_COMMAND_CLASS (parent_class)->set_mime_type (comm, mime_type);
+
+ if (is_mime_type (mime_type, "application/x-7z-compressed-tar")) {
+ char *try_command[3] = { "7za", "7zr", "7z" };
+ int i;
+
+ for (i = 0; i < G_N_ELEMENTS (try_command); i++) {
+ if (is_program_in_path (try_command[i])) {
+ comm_tar->compress_command = g_strdup (try_command[i]);
+ break;
+ }
+ }
+ }
+}
+
+
+static const char *
+fr_command_tar_get_packages (FrCommand *comm,
+ const char *mime_type)
+{
+ if (is_mime_type (mime_type, "application/x-tar"))
+ return PACKAGES ("tar");
+ else if (is_mime_type (mime_type, "application/x-compressed-tar"))
+ return PACKAGES ("tar,gzip");
+ else if (is_mime_type (mime_type, "application/x-bzip-compressed-tar"))
+ return PACKAGES ("tar,bzip2");
+ else if (is_mime_type (mime_type, "application/x-tarz"))
+ return PACKAGES ("tar,gzip,ncompress");
+ else if (is_mime_type (mime_type, "application/x-lrzip-compressed-tar"))
+ return PACKAGES ("tar,lrzip");
+ else if (is_mime_type (mime_type, "application/x-lzip-compressed-tar"))
+ return PACKAGES ("tar,lzip");
+ else if (is_mime_type (mime_type, "application/x-lzma-compressed-tar"))
+ return PACKAGES ("tar,lzma");
+ else if (is_mime_type (mime_type, "application/x-xz-compressed-tar"))
+ return PACKAGES ("tar,xz");
+ else if (is_mime_type (mime_type, "application/x-lzop-compressed-tar"))
+ return PACKAGES ("tar,lzop");
+ else if (is_mime_type (mime_type, "application/x-7z-compressed-tar"))
+ return PACKAGES ("tar,p7zip");
+
+ return NULL;
+}
+
+
+static void
+fr_command_tar_class_init (FrCommandTarClass *class)
+{
+ GObjectClass *gobject_class = G_OBJECT_CLASS (class);
+ FrCommandClass *afc;
+
+ parent_class = g_type_class_peek_parent (class);
+ afc = (FrCommandClass*) class;
+
+ gobject_class->finalize = fr_command_tar_finalize;
+
+ afc->list = fr_command_tar_list;
+ afc->add = fr_command_tar_add;
+ afc->delete = fr_command_tar_delete;
+ afc->extract = fr_command_tar_extract;
+ afc->handle_error = fr_command_tar_handle_error;
+ afc->get_mime_types = fr_command_tar_get_mime_types;
+ afc->get_capabilities = fr_command_tar_get_capabilities;
+ afc->set_mime_type = fr_command_tar_set_mime_type;
+ afc->recompress = fr_command_tar_recompress;
+ afc->uncompress = fr_command_tar_uncompress;
+ afc->get_packages = fr_command_tar_get_packages;
+}
+
+
+static void
+fr_command_tar_init (FrCommand *comm)
+{
+ FrCommandTar *comm_tar = (FrCommandTar*) comm;
+
+ comm->propAddCanUpdate = FALSE;
+ comm->propAddCanReplace = FALSE;
+ comm->propAddCanStoreFolders = TRUE;
+ comm->propExtractCanAvoidOverwrite = FALSE;
+ comm->propExtractCanSkipOlder = TRUE;
+ comm->propExtractCanJunkPaths = FALSE;
+ comm->propPassword = FALSE;
+ comm->propTest = FALSE;
+ comm->propCanDeleteNonEmptyFolders = FALSE;
+ comm->propCanExtractNonEmptyFolders = FALSE;
+ comm->propListFromFile = TRUE;
+
+ comm_tar->msg = NULL;
+ comm_tar->uncomp_filename = NULL;
+}
+
+
+static void
+fr_command_tar_finalize (GObject *object)
+{
+ FrCommandTar *comm_tar;
+
+ g_return_if_fail (object != NULL);
+ g_return_if_fail (FR_IS_COMMAND_TAR (object));
+
+ comm_tar = FR_COMMAND_TAR (object);
+
+ if (comm_tar->uncomp_filename != NULL) {
+ g_free (comm_tar->uncomp_filename);
+ comm_tar->uncomp_filename = NULL;
+ }
+
+ if (comm_tar->msg != NULL) {
+ g_free (comm_tar->msg);
+ comm_tar->msg = NULL;
+ }
+
+ if (comm_tar->compress_command != NULL) {
+ g_free (comm_tar->compress_command);
+ comm_tar->compress_command = NULL;
+ }
+
+ /* Chain up */
+ if (G_OBJECT_CLASS (parent_class)->finalize)
+ G_OBJECT_CLASS (parent_class)->finalize (object);
+}
+
+
+GType
+fr_command_tar_get_type ()
+{
+ static GType type = 0;
+
+ if (! type) {
+ GTypeInfo type_info = {
+ sizeof (FrCommandTarClass),
+ NULL,
+ NULL,
+ (GClassInitFunc) fr_command_tar_class_init,
+ NULL,
+ NULL,
+ sizeof (FrCommandTar),
+ 0,
+ (GInstanceInitFunc) fr_command_tar_init
+ };
+
+ type = g_type_register_static (FR_TYPE_COMMAND,
+ "FRCommandTar",
+ &type_info,
+ 0);
+ }
+
+ return type;
+}