+/* $Id$
+
+This file is part of builder
+Copyright © 2007 Mikko Rasa, Mikkosoft Productions
+Distributed under the LGPL
+*/
+
+#include <iostream>
+#include <msp/path/utils.h>
+#include "builder.h"
+#include "package.h"
+#include "tar.h"
+#include "tarball.h"
+
+using namespace std;
+using namespace Msp;
+
+Tar::Tar(Builder &b, const TarBall &t):
+ Action(b),
+ tarball(t),
+ worker(0)
+{
+ string basename=tarball.get_name().substr(tarball.get_name().rfind('/')+1);
+ announce(tarball.get_package()->get_name(), "TAR ", basename);
+ if(builder.get_verbose()>=2)
+ cout<<"Create "<<basename<<'\n';
+
+ if(!builder.get_dry_run())
+ worker=new Worker(*this);
+}
+
+Tar::~Tar()
+{
+ delete worker;
+}
+
+int Tar::check()
+{
+ if(!worker) // True for dry run
+ {
+ signal_done.emit();
+ return 0;
+ }
+
+ if(worker->get_done())
+ {
+ signal_done.emit();
+ worker->join();
+ return worker->get_error()?1:0;
+ }
+
+ return -1;
+}
+
+
+Tar::Worker::Worker(Tar &t):
+ tar(t),
+ done(false),
+ error(false)
+{
+ launch();
+}
+
+void Tar::Worker::main()
+{
+ const Path::Path &pkg_src=tar.tarball.get_package()->get_source();
+ Path::Path basedir=Path::splitext(Path::basename(tar.tarball.get_name())).base;
+
+ ofstream out(tar.tarball.get_name().c_str());
+ const TargetList &deps=tar.tarball.get_depends();
+ for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
+ {
+ char buf[4096];
+ memset(buf, 0, 512);
+
+ string rel_path=(basedir/relative((*i)->get_name(), pkg_src)).str();
+ if(rel_path.size()>99)
+ {
+ cout<<"Can't store "<<rel_path<<" in tar archive - too long name\n";
+ error=true;
+ break;
+ }
+
+ memcpy(buf, rel_path.data(), rel_path.size());
+
+ struct stat st;
+ Path::stat((*i)->get_name(), st);
+ store_number(buf+100, st.st_mode, 7);
+ store_number(buf+108, st.st_uid, 7);
+ store_number(buf+116, st.st_gid, 7);
+ store_number(buf+124, st.st_size, 11);
+ store_number(buf+136, st.st_mtime, 11);
+ buf[156]='0';
+
+ memset(buf+148, ' ', 8);
+ unsigned chk=0;
+ for(unsigned j=0; j<512; ++j)
+ chk+=static_cast<unsigned char>(buf[j]);
+ store_number(buf+148, chk, 7);
+ buf[155]=0;
+
+ out.write(buf, 512);
+ ifstream in((*i)->get_name().c_str());
+ for(int j=0; j<st.st_size; j+=4096)
+ {
+ in.read(buf, 4096);
+ unsigned len=in.gcount();
+ len+=((~len)+1)&0777;
+ out.write(buf, len);
+ }
+ }
+
+ done=true;
+}
+
+void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
+{
+ for(unsigned i=length; i--;)
+ {
+ buf[i]='0'+value%8;
+ value/=8;
+ }
+}