-/* $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):
- InternalAction(b),
- tarball(t)
-{
- 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::Worker::Worker(Tar &t):
- tar(t)
-{
- 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;
- }
-}