source/tar.cpp

   1 /* $Id$
   2
   3 This file is part of builder
   4 Copyright © 2007-2009  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=FS::basename(tarball.get_path());
  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_path()));
  45
  46         IO::File out(tar.tarball.get_path().str(), 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                 FileTarget *ft=dynamic_cast<FileTarget *>(*i);
  51                 if(!ft)
  52                         continue;
  53
  54                 char buf[4096];
  55                 memset(buf, 0, 512);
  56
  57                 string rel_path=(basedir/relative(ft->get_path(), pkg_src)).str();
  58                 if(rel_path.size()>99)
  59                 {
  60                         cout<<"Can't store "<<rel_path<<" in tar archive - too long name\n";
  61                         error=true;
  62                         break;
  63                 }
  64
  65                 memcpy(buf, rel_path.data(), rel_path.size());
  66
  67                 struct stat st=FS::stat(ft->get_path());
  68                 store_number(buf+100, st.st_mode, 7);
  69                 store_number(buf+108, st.st_uid, 7);
  70                 store_number(buf+116, st.st_gid, 7);
  71                 store_number(buf+124, st.st_size, 11);
  72                 store_number(buf+136, st.st_mtime, 11);
  73                 buf[156]='0';
  74
  75                 memset(buf+148, ' ', 8);
  76                 unsigned chk=0;
  77                 for(unsigned j=0; j<512; ++j)
  78                         chk+=static_cast<unsigned char>(buf[j]);
  79                 store_number(buf+148, chk, 7);
  80                 buf[155]=0;
  81
  82                 out.write(buf, 512);
  83                 IO::File in(ft->get_path().str());
  84                 for(int j=0; j<st.st_size; j+=4096)
  85                 {
  86                         unsigned len=in.read(buf, 4096);
  87                         len+=((~len)+1)&0777;
  88                         out.write(buf, len);
  89                 }
  90         }
  91
  92         done=true;
  93 }
  94
  95 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
  96 {
  97         for(unsigned i=length; i--;)
  98         {
  99                 buf[i]='0'+value%8;
 100                 value/=8;
 101         }
 102 }