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