source/tar.cpp

   1 /* $Id$
   2
   3 This file is part of builder
   4 Copyright © 2007 Mikko Rasa, Mikkosoft Productions
   5 Distributed under the LGPL
   6 */
   7
   8 #include <iostream>
   9 #include <msp/path/utils.h>
  10 #include "builder.h"
  11 #include "sourcepackage.h"
  12 #include "tar.h"
  13 #include "tarball.h"
  14
  15 using namespace std;
  16 using namespace Msp;
  17
  18 Tar::Tar(Builder &b, const TarBall &t):
  19         InternalAction(b),
  20         tarball(t)
  21 {
  22         string basename=tarball.get_name().substr(tarball.get_name().rfind('/')+1);
  23         announce(tarball.get_package()->get_name(), "TAR ", basename);
  24         if(builder.get_verbose()>=2)
  25                 cout<<"Create "<<basename<<'\n';
  26
  27         if(!builder.get_dry_run())
  28                 worker=new Worker(*this);
  29 }
  30
  31
  32 Tar::Worker::Worker(Tar &t):
  33         tar(t)
  34 {
  35         launch();
  36 }
  37
  38 void Tar::Worker::main()
  39 {
  40         const Path &pkg_src=tar.tarball.get_package()->get_source();
  41         Path basedir=splitext(basename(tar.tarball.get_name())).base;
  42
  43         ofstream out(tar.tarball.get_name().c_str());
  44         const TargetList &deps=tar.tarball.get_depends();
  45         for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
  46         {
  47                 char buf[4096];
  48                 memset(buf, 0, 512);
  49
  50                 string rel_path=(basedir/relative((*i)->get_name(), pkg_src)).str();
  51                 if(rel_path.size()>99)
  52                 {
  53                         cout<<"Can't store "<<rel_path<<" in tar archive - too long name\n";
  54                         error=true;
  55                         break;
  56                 }
  57
  58                 memcpy(buf, rel_path.data(), rel_path.size());
  59
  60                 struct stat st=stat((*i)->get_name());
  61                 store_number(buf+100, st.st_mode, 7);
  62                 store_number(buf+108, st.st_uid, 7);
  63                 store_number(buf+116, st.st_gid, 7);
  64                 store_number(buf+124, st.st_size, 11);
  65                 store_number(buf+136, st.st_mtime, 11);
  66                 buf[156]='0';
  67
  68                 memset(buf+148, ' ', 8);
  69                 unsigned chk=0;
  70                 for(unsigned j=0; j<512; ++j)
  71                         chk+=static_cast<unsigned char>(buf[j]);
  72                 store_number(buf+148, chk, 7);
  73                 buf[155]=0;
  74
  75                 out.write(buf, 512);
  76                 ifstream in((*i)->get_name().c_str());
  77                 for(int j=0; j<st.st_size; j+=4096)
  78                 {
  79                         in.read(buf, 4096);
  80                         unsigned len=in.gcount();
  81                         len+=((~len)+1)&0777;
  82                         out.write(buf, len);
  83                 }
  84         }
  85
  86         done=true;
  87 }
  88
  89 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
  90 {
  91         for(unsigned i=length; i--;)
  92         {
  93                 buf[i]='0'+value%8;
  94                 value/=8;
  95         }
  96 }