#  Copyright (c) 1997-2024
#  Ewgenij Gawrilow, Michael Joswig, and the polymake team
#  Technische Universität Berlin, Germany
#  https://polymake.org
#
#  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, or (at your option) any
#  later version: http://www.gnu.org/licenses/gpl.txt.
#
#  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.
#-------------------------------------------------------------------------------
#
#  Creation and reading tarballs containing polymake Objects

use Archive::Tar;


# usage: pack_tarball("tarfilename", Object, ...);

sub pack_tarball {
   my $filename = shift;
   replace_special_paths($filename);
   my $compressed = true;
   if ($filename =~ /\.tar$/) {
      $compressed = false;
   } elsif ($filename !~ /\.(?:tar\.gz|tgz)$/) {
      $filename .= ".tar.gz";
   }

   my $ar = new Archive::Tar();
   my $unnamed = "unnamed_0";
   foreach my $object (@_) {
      $ar->add_data(($object->name // ++$unnamed) . "." . $object->default_file_suffix,
                    encode_json(Core::Serializer::serialize($object)));
   }
   $ar->write($filename, $compressed);
}


# usage: @object_list = unpack_tarball("tarfilename", "name", ...);
# "name" arguments are optional; they constrain the output to archive members matching the given names.

sub unpack_tarball {
   my $filename = shift;
   replace_special_paths($filename);
   my $compressed = $filename =~ /\.(?:tar\.gz|tgz)$/;
   my $ar = new Archive::Tar($filename, $compressed);

   if (my @files = $ar->get_files(@_)) {
      map { Core::Datafile::from_string($_->get_content) } @files;
   } else {
      die "no matching archive members found\n";
   }
}


# Local Variables:
# mode: perl
# cperl-indent-level:3
# indent-tabs-mode:nil
# End:
