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