<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en_US" xml:lang="en_US">
<head>
<title>kio/kio: ktar.cpp Source File (kio/kio)</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="pics-label" content='(pics-1.1 "http://www.icra.org/ratingsv02.html" comment "ICRAonline DE v2.0" l gen true for "http://www.kde.org" r (nz 1 vz 1 lz 1 oz 1 cb 1) "http://www.rsac.org/ratingsv01.html" l gen true for "http://www.kde.org" r (n 0 s 0 v 0 l 0))' />
<meta name="trademark" content="KDE e.V." />
<meta name="description" content="K Desktop Environment Homepage, KDE.org" />
<meta name="MSSmartTagsPreventParsing" content="true" />
<meta name="robots" content="all" />
<link rel="shortcut icon" href="../../../favicon.ico" />
<link rel="stylesheet" media="screen" type="text/css" title="APIDOX" href="doxygen.css" />
</head>
<body>
<div id="nav_header_top" align="right">
<a href="#content" class="doNotDisplay" accesskey="2">Skip to main content ::</a>
<a href="../../.."><img id="nav_header_logo" alt="Home" align="left" src="../../../kde_gear_64.png" border="0" /></a>
<span class="doNotDisplay">::</span>
<div id="nav_header_title" align="left">KDE API Reference</div>
</div>
<div id="nav_header_bottom" align="right">
<span class="doNotDisplay">:: <a href="#navigation" accesskey="5">Skip to Link Menu</a><br/></span>
<div id="nav_header_bottom_right" style="text-align: left;">
/ <a href="../../..">API Reference</a>
/ <a href="../../html/index.html">kio</a> / <a href=".">kio</a>
</div>
</div>
<table id="main" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="top" class="menuheader" height="0"></td>
<td id="contentcolumn" valign="top" rowspan="2" >
<div id="content" style="padding-top: 0px;"><div style="width:100%; margin: 0px; padding: 0px;">
<a name="content"></a>
<!-- Generated by Doxygen 1.7.4 -->
<div class="header">
<div class="headertitle">
<div class="title">ktar.cpp</div> </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/* This file is part of the KDE libraries</span>
<a name="l00002"></a>00002 <span class="comment"> Copyright (C) 2000 David Faure <faure@kde.org></span>
<a name="l00003"></a>00003 <span class="comment"> Copyright (C) 2003 Leo Savernik <l.savernik@aon.at></span>
<a name="l00004"></a>00004 <span class="comment"></span>
<a name="l00005"></a>00005 <span class="comment"> This library is free software; you can redistribute it and/or</span>
<a name="l00006"></a>00006 <span class="comment"> modify it under the terms of the GNU Library General Public</span>
<a name="l00007"></a>00007 <span class="comment"> License version 2 as published by the Free Software Foundation.</span>
<a name="l00008"></a>00008 <span class="comment"></span>
<a name="l00009"></a>00009 <span class="comment"> This library is distributed in the hope that it will be useful,</span>
<a name="l00010"></a>00010 <span class="comment"> but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="l00011"></a>00011 <span class="comment"> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span>
<a name="l00012"></a>00012 <span class="comment"> Library General Public License for more details.</span>
<a name="l00013"></a>00013 <span class="comment"></span>
<a name="l00014"></a>00014 <span class="comment"> You should have received a copy of the GNU Library General Public License</span>
<a name="l00015"></a>00015 <span class="comment"> along with this library; see the file COPYING.LIB. If not, write to</span>
<a name="l00016"></a>00016 <span class="comment"> the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,</span>
<a name="l00017"></a>00017 <span class="comment"> Boston, MA 02110-1301, USA.</span>
<a name="l00018"></a>00018 <span class="comment">*/</span>
<a name="l00019"></a>00019
<a name="l00020"></a>00020 <span class="comment">//#include <stdio.h></span>
<a name="l00021"></a>00021 <span class="preprocessor">#include <stdlib.h></span> <span class="comment">// strtol</span>
<a name="l00022"></a>00022 <span class="preprocessor">#include <time.h></span> <span class="comment">// time()</span>
<a name="l00023"></a>00023 <span class="comment">/*#include <unistd.h></span>
<a name="l00024"></a>00024 <span class="comment">#include <grp.h></span>
<a name="l00025"></a>00025 <span class="comment">#include <pwd.h>*/</span>
<a name="l00026"></a>00026 <span class="preprocessor">#include <assert.h></span>
<a name="l00027"></a>00027
<a name="l00028"></a>00028 <span class="preprocessor">#include <qcstring.h></span>
<a name="l00029"></a>00029 <span class="preprocessor">#include <qdir.h></span>
<a name="l00030"></a>00030 <span class="preprocessor">#include <qfile.h></span>
<a name="l00031"></a>00031 <span class="preprocessor">#include <kdebug.h></span>
<a name="l00032"></a>00032 <span class="preprocessor">#include <kmimetype.h></span>
<a name="l00033"></a>00033 <span class="preprocessor">#include <ktempfile.h></span>
<a name="l00034"></a>00034
<a name="l00035"></a>00035 <span class="preprocessor">#include <kfilterdev.h></span>
<a name="l00036"></a>00036 <span class="preprocessor">#include <kfilterbase.h></span>
<a name="l00037"></a>00037
<a name="l00038"></a>00038 <span class="preprocessor">#include "ktar.h"</span>
<a name="l00039"></a>00039 <span class="preprocessor">#include <kstandarddirs.h></span>
<a name="l00040"></a>00040
<a name="l00044"></a>00044
<a name="l00045"></a>00045 <span class="keyword">class </span>KTar::KTarPrivate
<a name="l00046"></a>00046 {
<a name="l00047"></a>00047 <span class="keyword">public</span>:
<a name="l00048"></a>00048 KTarPrivate() : tarEnd( 0 ), tmpFile( 0 ) {}
<a name="l00049"></a>00049 <a class="codeRef" href="qstringlist.html">QStringList</a> dirList;
<a name="l00050"></a>00050 <span class="keywordtype">int</span> tarEnd;
<a name="l00051"></a>00051 KTempFile* tmpFile;
<a name="l00052"></a>00052 <a class="codeRef" href="qstring.html">QString</a> <a class="code" href="namespaceKIO.html#a612253f480b1c383e6c803f6092a6440" title="Find mimetype for one file or directory.">mimetype</a>;
<a name="l00053"></a>00053 <a class="codeRef" href="qcstring.html">QCString</a> origFileName;
<a name="l00054"></a>00054
<a name="l00055"></a>00055 <span class="keywordtype">bool</span> fillTempFile(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & filename);
<a name="l00056"></a>00056 <span class="keywordtype">bool</span> writeBackTempFile( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & filename );
<a name="l00057"></a>00057 };
<a name="l00058"></a>00058
<a name="l00059"></a><a class="code" href="classKTar.html#a6870fb584d069eb8d7001d93565cfb22">00059</a> <a class="code" href="classKTar.html#a6870fb584d069eb8d7001d93565cfb22" title="Creates an instance that operates on the given filename using the compression filter associated to gi...">KTar::KTar</a>( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& filename, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & _mimetype )
<a name="l00060"></a>00060 : <a class="code" href="classKArchive.html" title="KArchive is a base class for reading and writing archives.">KArchive</a>( 0 )
<a name="l00061"></a>00061 {
<a name="l00062"></a>00062 m_filename = filename;
<a name="l00063"></a>00063 d = <span class="keyword">new</span> KTarPrivate;
<a name="l00064"></a>00064 <a class="codeRef" href="qstring.html">QString</a> mimetype( _mimetype );
<a name="l00065"></a>00065 <span class="keywordtype">bool</span> forced = <span class="keyword">true</span>;
<a name="l00066"></a>00066 <span class="keywordflow">if</span> ( mimetype.<a class="codeRef" href="qstring.html#isEmpty">isEmpty</a>() ) <span class="comment">// Find out mimetype manually</span>
<a name="l00067"></a>00067 {
<a name="l00068"></a>00068 <span class="keywordflow">if</span> ( <a class="codeRef" href="qfile.html#exists-2">QFile::exists</a>( filename ) )
<a name="l00069"></a>00069 mimetype = <a class="code" href="classKMimeType.html#a6f7b66e69ab05e54c47d81e6912018e2" title="Tries to find out the MIME type of a file by looking for certain magic numbers and characteristic str...">KMimeType::findByFileContent</a>( filename )->name();
<a name="l00070"></a>00070 <span class="keywordflow">else</span>
<a name="l00071"></a>00071 mimetype = <a class="code" href="classKMimeType.html#a08a491a75215e970bccc869a2b408c82" title="Finds a KMimeType with the given _url.">KMimeType::findByPath</a>( filename, 0, <span class="keyword">true</span> )->name();
<a name="l00072"></a>00072 kdDebug(7041) << <span class="stringliteral">"KTar::KTar mimetype = "</span> << mimetype << endl;
<a name="l00073"></a>00073
<a name="l00074"></a>00074 <span class="comment">// Don't move to prepareDevice - the other constructor theoretically allows ANY filter</span>
<a name="l00075"></a>00075 <span class="keywordflow">if</span> ( mimetype == <span class="stringliteral">"application/x-tgz"</span> || mimetype == <span class="stringliteral">"application/x-targz"</span> || <span class="comment">// the latter is deprecated but might still be around</span>
<a name="l00076"></a>00076 mimetype == <span class="stringliteral">"application/x-webarchive"</span> )
<a name="l00077"></a>00077 {
<a name="l00078"></a>00078 <span class="comment">// that's a gzipped tar file, so ask for gzip filter</span>
<a name="l00079"></a>00079 mimetype = <span class="stringliteral">"application/x-gzip"</span>;
<a name="l00080"></a>00080 }
<a name="l00081"></a>00081 <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( mimetype == <span class="stringliteral">"application/x-tbz"</span> ) <span class="comment">// that's a bzipped2 tar file, so ask for bz2 filter</span>
<a name="l00082"></a>00082 {
<a name="l00083"></a>00083 mimetype = <span class="stringliteral">"application/x-bzip2"</span>;
<a name="l00084"></a>00084 }
<a name="l00085"></a>00085 <span class="keywordflow">else</span>
<a name="l00086"></a>00086 {
<a name="l00087"></a>00087 <span class="comment">// Something else. Check if it's not really gzip though (e.g. for KOffice docs)</span>
<a name="l00088"></a>00088 <a class="codeRef" href="qfile.html">QFile</a> file( filename );
<a name="l00089"></a>00089 <span class="keywordflow">if</span> ( file.<a class="codeRef" href="qfile.html#open">open</a>( IO_ReadOnly ) )
<a name="l00090"></a>00090 {
<a name="l00091"></a>00091 <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> firstByte = file.<a class="codeRef" href="qfile.html#getch">getch</a>();
<a name="l00092"></a>00092 <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> secondByte = file.<a class="codeRef" href="qfile.html#getch">getch</a>();
<a name="l00093"></a>00093 <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> thirdByte = file.<a class="codeRef" href="qfile.html#getch">getch</a>();
<a name="l00094"></a>00094 <span class="keywordflow">if</span> ( firstByte == 0037 && secondByte == 0213 )
<a name="l00095"></a>00095 mimetype = <span class="stringliteral">"application/x-gzip"</span>;
<a name="l00096"></a>00096 <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( firstByte == <span class="charliteral">'B'</span> && secondByte == <span class="charliteral">'Z'</span> && thirdByte == <span class="charliteral">'h'</span> )
<a name="l00097"></a>00097 mimetype = <span class="stringliteral">"application/x-bzip2"</span>;
<a name="l00098"></a>00098 <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( firstByte == <span class="charliteral">'P'</span> && secondByte == <span class="charliteral">'K'</span> && thirdByte == 3 )
<a name="l00099"></a>00099 {
<a name="l00100"></a>00100 <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> fourthByte = file.<a class="codeRef" href="qfile.html#getch">getch</a>();
<a name="l00101"></a>00101 <span class="keywordflow">if</span> ( fourthByte == 4 )
<a name="l00102"></a>00102 mimetype = <span class="stringliteral">"application/x-zip"</span>;
<a name="l00103"></a>00103 }
<a name="l00104"></a>00104 }
<a name="l00105"></a>00105 file.<a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00106"></a>00106 }
<a name="l00107"></a>00107 forced = <span class="keyword">false</span>;
<a name="l00108"></a>00108 }
<a name="l00109"></a>00109 d->mimetype = mimetype;
<a name="l00110"></a>00110
<a name="l00111"></a>00111 prepareDevice( filename, mimetype, forced );
<a name="l00112"></a>00112 }
<a name="l00113"></a>00113
<a name="l00114"></a>00114 <span class="keywordtype">void</span> KTar::prepareDevice( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & filename,
<a name="l00115"></a>00115 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & mimetype, <span class="keywordtype">bool</span> <span class="comment">/*forced*/</span> )
<a name="l00116"></a>00116 {
<a name="l00117"></a>00117 <span class="keywordflow">if</span>( <span class="stringliteral">"application/x-tar"</span> == mimetype )
<a name="l00118"></a>00118 setDevice( <span class="keyword">new</span> <a class="codeRef" href="qfile.html">QFile</a>( filename ) );
<a name="l00119"></a>00119 <span class="keywordflow">else</span>
<a name="l00120"></a>00120 {
<a name="l00121"></a>00121 <span class="comment">// The compression filters are very slow with random access.</span>
<a name="l00122"></a>00122 <span class="comment">// So instead of applying the filter to the device,</span>
<a name="l00123"></a>00123 <span class="comment">// the file is completly extracted instead,</span>
<a name="l00124"></a>00124 <span class="comment">// and we work on the extracted tar file.</span>
<a name="l00125"></a>00125 <span class="comment">// This improves the extraction speed by the tar ioslave dramatically,</span>
<a name="l00126"></a>00126 <span class="comment">// if the archive file contains many files.</span>
<a name="l00127"></a>00127 <span class="comment">// This is because the tar ioslave extracts one file after the other and normally</span>
<a name="l00128"></a>00128 <span class="comment">// has to walk through the decompression filter each time.</span>
<a name="l00129"></a>00129 <span class="comment">// Which is in fact nearly as slow as a complete decompression for each file.</span>
<a name="l00130"></a>00130 d->tmpFile = <span class="keyword">new</span> KTempFile(locateLocal(<span class="stringliteral">"tmp"</span>, <span class="stringliteral">"ktar-"</span>),<span class="stringliteral">".tar"</span>);
<a name="l00131"></a>00131 kdDebug( 7041 ) << <span class="stringliteral">"KTar::prepareDevice creating TempFile: "</span> << d->tmpFile->name() << endl;
<a name="l00132"></a>00132 d->tmpFile->setAutoDelete(<span class="keyword">true</span>);
<a name="l00133"></a>00133
<a name="l00134"></a>00134 <span class="comment">// KTempFile opens the file automatically,</span>
<a name="l00135"></a>00135 <span class="comment">// the device must be closed, however, for KArchive.setDevice()</span>
<a name="l00136"></a>00136 <a class="codeRef" href="qfile.html">QFile</a>* file = d->tmpFile->file();
<a name="l00137"></a>00137 file-><a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00138"></a>00138 setDevice(file);
<a name="l00139"></a>00139 }
<a name="l00140"></a>00140 }
<a name="l00141"></a>00141
<a name="l00142"></a><a class="code" href="classKTar.html#a93e7ce44e3438619e7cfb91bc879f688">00142</a> <a class="code" href="classKTar.html#a6870fb584d069eb8d7001d93565cfb22" title="Creates an instance that operates on the given filename using the compression filter associated to gi...">KTar::KTar</a>( <a class="codeRef" href="qiodevice.html">QIODevice</a> * dev )
<a name="l00143"></a>00143 : <a class="code" href="classKArchive.html" title="KArchive is a base class for reading and writing archives.">KArchive</a>( dev )
<a name="l00144"></a>00144 {
<a name="l00145"></a>00145 Q_ASSERT( dev );
<a name="l00146"></a>00146 d = <span class="keyword">new</span> KTarPrivate;
<a name="l00147"></a>00147 }
<a name="l00148"></a>00148
<a name="l00149"></a><a class="code" href="classKTar.html#a8388c1acf8491f32ea04a9bc298f2d36">00149</a> <a class="code" href="classKTar.html#a8388c1acf8491f32ea04a9bc298f2d36" title="If the tar ball is still opened, then it will be closed automatically by the destructor.">KTar::~KTar</a>()
<a name="l00150"></a>00150 {
<a name="l00151"></a>00151 <span class="comment">// mjarrett: Closes to prevent ~KArchive from aborting w/o device</span>
<a name="l00152"></a>00152 <span class="keywordflow">if</span>( <a class="code" href="classKArchive.html#ace294a6f5bf3f46019ab59a346287149" title="Checks whether the archive is open.">isOpened</a>() )
<a name="l00153"></a>00153 <a class="code" href="classKArchive.html#a434df272f32f3c9ca69134488804e9c9" title="Closes the archive.">close</a>();
<a name="l00154"></a>00154
<a name="l00155"></a>00155 <span class="keywordflow">if</span> (d->tmpFile)
<a name="l00156"></a>00156 <span class="keyword">delete</span> d->tmpFile; <span class="comment">// will delete the device</span>
<a name="l00157"></a>00157 <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( !m_filename.<a class="codeRef" href="qstring.html#isEmpty">isEmpty</a>() )
<a name="l00158"></a>00158 <span class="keyword">delete</span> <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>(); <span class="comment">// we created it ourselves</span>
<a name="l00159"></a>00159
<a name="l00160"></a>00160
<a name="l00161"></a>00161 <span class="keyword">delete</span> d;
<a name="l00162"></a>00162 }
<a name="l00163"></a>00163
<a name="l00164"></a><a class="code" href="classKTar.html#aee050c5380d7be797deb5bc4be44eadb">00164</a> <span class="keywordtype">void</span> <a class="code" href="classKTar.html#aee050c5380d7be797deb5bc4be44eadb" title="Special function for setting the "original file name" in the gzip header, when writing a tar...">KTar::setOrigFileName</a>( <span class="keyword">const</span> <a class="codeRef" href="qcstring.html">QCString</a> & fileName )
<a name="l00165"></a>00165 {
<a name="l00166"></a>00166 <span class="keywordflow">if</span> ( !<a class="code" href="classKArchive.html#ace294a6f5bf3f46019ab59a346287149" title="Checks whether the archive is open.">isOpened</a>() || !(<a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_WriteOnly) )
<a name="l00167"></a>00167 {
<a name="l00168"></a>00168 kdWarning(7041) << <span class="stringliteral">"KTar::setOrigFileName: File must be opened for writing first.\n"</span>;
<a name="l00169"></a>00169 <span class="keywordflow">return</span>;
<a name="l00170"></a>00170 }
<a name="l00171"></a>00171 d->origFileName = <a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a>;
<a name="l00172"></a>00172 }
<a name="l00173"></a>00173
<a name="l00174"></a>00174 Q_LONG KTar::readRawHeader(<span class="keywordtype">char</span> *buffer) {
<a name="l00175"></a>00175 <span class="comment">// Read header</span>
<a name="l00176"></a>00176 Q_LONG n = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#readBlock">readBlock</a>( buffer, 0x200 );
<a name="l00177"></a>00177 <span class="keywordflow">if</span> ( n == 0x200 && buffer[0] != 0 ) {
<a name="l00178"></a>00178 <span class="comment">// Make sure this is actually a tar header</span>
<a name="l00179"></a>00179 <span class="keywordflow">if</span> (strncmp(buffer + 257, <span class="stringliteral">"ustar"</span>, 5)) {
<a name="l00180"></a>00180 <span class="comment">// The magic isn't there (broken/old tars), but maybe a correct checksum?</span>
<a name="l00181"></a>00181 <a class="codeRef" href="qcstring.html">QCString</a> s;
<a name="l00182"></a>00182
<a name="l00183"></a>00183 <span class="keywordtype">int</span> check = 0;
<a name="l00184"></a>00184 <span class="keywordflow">for</span>( uint j = 0; j < 0x200; ++j )
<a name="l00185"></a>00185 check += buffer[j];
<a name="l00186"></a>00186
<a name="l00187"></a>00187 <span class="comment">// adjust checksum to count the checksum fields as blanks</span>
<a name="l00188"></a>00188 <span class="keywordflow">for</span>( uint j = 0; j < 8 <span class="comment">/*size of the checksum field including the \0 and the space*/</span>; j++ )
<a name="l00189"></a>00189 check -= buffer[148 + j];
<a name="l00190"></a>00190 check += 8 * <span class="charliteral">' '</span>;
<a name="l00191"></a>00191
<a name="l00192"></a>00192 s.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%o"</span>, check );
<a name="l00193"></a>00193
<a name="l00194"></a>00194 <span class="comment">// only compare those of the 6 checksum digits that mean something,</span>
<a name="l00195"></a>00195 <span class="comment">// because the other digits are filled with all sorts of different chars by different tars ...</span>
<a name="l00196"></a>00196 <span class="comment">// Some tars right-justify the checksum so it could start in one of three places - we have to check each.</span>
<a name="l00197"></a>00197 <span class="keywordflow">if</span>( strncmp( buffer + 148 + 6 - s.<a class="codeRef" href="qcstring.html#length">length</a>(), s.data(), s.<a class="codeRef" href="qcstring.html#length">length</a>() )
<a name="l00198"></a>00198 && strncmp( buffer + 148 + 7 - s.<a class="codeRef" href="qcstring.html#length">length</a>(), s.data(), s.<a class="codeRef" href="qcstring.html#length">length</a>() )
<a name="l00199"></a>00199 && strncmp( buffer + 148 + 8 - s.<a class="codeRef" href="qcstring.html#length">length</a>(), s.data(), s.<a class="codeRef" href="qcstring.html#length">length</a>() ) ) {
<a name="l00200"></a>00200 kdWarning(7041) << <span class="stringliteral">"KTar: invalid TAR file. Header is: "</span> << <a class="codeRef" href="qcstring.html">QCString</a>( buffer+257, 5 ) << endl;
<a name="l00201"></a>00201 <span class="keywordflow">return</span> -1;
<a name="l00202"></a>00202 }
<a name="l00203"></a>00203 }<span class="comment">/*end if*/</span>
<a name="l00204"></a>00204 } <span class="keywordflow">else</span> {
<a name="l00205"></a>00205 <span class="comment">// reset to 0 if 0x200 because logical end of archive has been reached</span>
<a name="l00206"></a>00206 <span class="keywordflow">if</span> (n == 0x200) n = 0;
<a name="l00207"></a>00207 }<span class="comment">/*end if*/</span>
<a name="l00208"></a>00208 <span class="keywordflow">return</span> n;
<a name="l00209"></a>00209 }
<a name="l00210"></a>00210
<a name="l00211"></a>00211 <span class="keywordtype">bool</span> KTar::readLonglink(<span class="keywordtype">char</span> *buffer,<a class="codeRef" href="qcstring.html">QCString</a> &longlink) {
<a name="l00212"></a>00212 Q_LONG n = 0;
<a name="l00213"></a>00213 <a class="codeRef" href="qiodevice.html">QIODevice</a> *dev = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>();
<a name="l00214"></a>00214 <span class="comment">// read size of longlink from size field in header</span>
<a name="l00215"></a>00215 <span class="comment">// size is in bytes including the trailing null (which we ignore)</span>
<a name="l00216"></a>00216 buffer[ 0x88 ] = 0; <span class="comment">// was 0x87, but 0x88 fixes BR #26437</span>
<a name="l00217"></a>00217 <span class="keywordtype">char</span> *dummy;
<a name="l00218"></a>00218 <span class="keyword">const</span> <span class="keywordtype">char</span>* p = buffer + 0x7c;
<a name="l00219"></a>00219 <span class="keywordflow">while</span>( *p == <span class="charliteral">' '</span> ) ++p;
<a name="l00220"></a>00220 <span class="keywordtype">int</span> size = (int)strtol( p, &dummy, 8 );
<a name="l00221"></a>00221
<a name="l00222"></a>00222 longlink.<a class="codeRef" href="qcstring.html#resize">resize</a>(size);
<a name="l00223"></a>00223 size--; <span class="comment">// ignore trailing null</span>
<a name="l00224"></a>00224 dummy = longlink.data();
<a name="l00225"></a>00225 <span class="keywordtype">int</span> offset = 0;
<a name="l00226"></a>00226 <span class="keywordflow">while</span> (size > 0) {
<a name="l00227"></a>00227 <span class="keywordtype">int</span> chunksize = QMIN(size, 0x200);
<a name="l00228"></a>00228 n = dev-><a class="codeRef" href="qiodevice.html#readBlock">readBlock</a>( dummy + offset, chunksize );
<a name="l00229"></a>00229 <span class="keywordflow">if</span> (n == -1) <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00230"></a>00230 size -= chunksize;
<a name="l00231"></a>00231 offset += 0x200;
<a name="l00232"></a>00232 }<span class="comment">/*wend*/</span>
<a name="l00233"></a>00233 <span class="comment">// jump over the rest</span>
<a name="l00234"></a>00234 <span class="keywordtype">int</span> skip = 0x200 - (n % 0x200);
<a name="l00235"></a>00235 <span class="keywordflow">if</span> (skip < 0x200) {
<a name="l00236"></a>00236 <span class="keywordflow">if</span> (dev-><a class="codeRef" href="qiodevice.html#readBlock">readBlock</a>(buffer,skip) != skip) <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00237"></a>00237 }
<a name="l00238"></a>00238 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00239"></a>00239 }
<a name="l00240"></a>00240
<a name="l00241"></a>00241 Q_LONG KTar::readHeader(<span class="keywordtype">char</span> *buffer,<a class="codeRef" href="qstring.html">QString</a> &name,<a class="codeRef" href="qstring.html">QString</a> &symlink) {
<a name="l00242"></a>00242 name.<a class="codeRef" href="qstring.html#truncate">truncate</a>(0);
<a name="l00243"></a>00243 symlink.<a class="codeRef" href="qstring.html#truncate">truncate</a>(0);
<a name="l00244"></a>00244 <span class="keywordflow">while</span> (<span class="keyword">true</span>) {
<a name="l00245"></a>00245 Q_LONG n = readRawHeader(buffer);
<a name="l00246"></a>00246 <span class="keywordflow">if</span> (n != 0x200) <span class="keywordflow">return</span> n;
<a name="l00247"></a>00247
<a name="l00248"></a>00248 <span class="comment">// is it a longlink?</span>
<a name="l00249"></a>00249 <span class="keywordflow">if</span> (strcmp(buffer,<span class="stringliteral">"././@LongLink"</span>) == 0) {
<a name="l00250"></a>00250 <span class="keywordtype">char</span> typeflag = buffer[0x9c];
<a name="l00251"></a>00251 <a class="codeRef" href="qcstring.html">QCString</a> longlink;
<a name="l00252"></a>00252 readLonglink(buffer,longlink);
<a name="l00253"></a>00253 <span class="keywordflow">switch</span> (typeflag) {
<a name="l00254"></a>00254 <span class="keywordflow">case</span> <span class="charliteral">'L'</span>: name = <a class="codeRef" href="qfile.html#decodeName">QFile::decodeName</a>(longlink); <span class="keywordflow">break</span>;
<a name="l00255"></a>00255 <span class="keywordflow">case</span> <span class="charliteral">'K'</span>: symlink = <a class="codeRef" href="qfile.html#decodeName">QFile::decodeName</a>(longlink); <span class="keywordflow">break</span>;
<a name="l00256"></a>00256 }<span class="comment">/*end switch*/</span>
<a name="l00257"></a>00257 } <span class="keywordflow">else</span> {
<a name="l00258"></a>00258 <span class="keywordflow">break</span>;
<a name="l00259"></a>00259 }<span class="comment">/*end if*/</span>
<a name="l00260"></a>00260 }<span class="comment">/*wend*/</span>
<a name="l00261"></a>00261
<a name="l00262"></a>00262 <span class="comment">// if not result of longlink, read names directly from the header</span>
<a name="l00263"></a>00263 <span class="keywordflow">if</span> (name.<a class="codeRef" href="qstring.html#isEmpty">isEmpty</a>())
<a name="l00264"></a>00264 <span class="comment">// there are names that are exactly 100 bytes long</span>
<a name="l00265"></a>00265 <span class="comment">// and neither longlink nor \0 terminated (bug:101472)</span>
<a name="l00266"></a>00266 name = <a class="codeRef" href="qfile.html#decodeName">QFile::decodeName</a>(<a class="codeRef" href="qcstring.html">QCString</a>(buffer, 101));
<a name="l00267"></a>00267 <span class="keywordflow">if</span> (symlink.<a class="codeRef" href="qstring.html#isEmpty">isEmpty</a>())
<a name="l00268"></a>00268 symlink = <a class="codeRef" href="qfile.html#decodeName">QFile::decodeName</a>(<a class="codeRef" href="qcstring.html">QCString</a>(buffer + 0x9d, 101));
<a name="l00269"></a>00269
<a name="l00270"></a>00270 <span class="keywordflow">return</span> 0x200;
<a name="l00271"></a>00271 }
<a name="l00272"></a>00272
<a name="l00273"></a>00273 <span class="comment">/*</span>
<a name="l00274"></a>00274 <span class="comment"> * If we have created a temporary file, we have</span>
<a name="l00275"></a>00275 <span class="comment"> * to decompress the original file now and write</span>
<a name="l00276"></a>00276 <span class="comment"> * the contents to the temporary file.</span>
<a name="l00277"></a>00277 <span class="comment"> */</span>
<a name="l00278"></a>00278 <span class="keywordtype">bool</span> KTar::KTarPrivate::fillTempFile( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & filename) {
<a name="l00279"></a>00279 <span class="keywordflow">if</span> ( ! tmpFile )
<a name="l00280"></a>00280 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00281"></a>00281
<a name="l00282"></a>00282 kdDebug( 7041 ) <<
<a name="l00283"></a>00283 <span class="stringliteral">"KTar::openArchive: filling tmpFile of mimetype '"</span> << mimetype <<
<a name="l00284"></a>00284 <span class="stringliteral">"' ... "</span> << endl;
<a name="l00285"></a>00285
<a name="l00286"></a>00286 <span class="keywordtype">bool</span> forced = <span class="keyword">false</span>;
<a name="l00287"></a>00287 <span class="keywordflow">if</span>( <span class="stringliteral">"application/x-gzip"</span> == mimetype
<a name="l00288"></a>00288 || <span class="stringliteral">"application/x-bzip2"</span> == mimetype)
<a name="l00289"></a>00289 forced = <span class="keyword">true</span>;
<a name="l00290"></a>00290
<a name="l00291"></a>00291 <a class="codeRef" href="qiodevice.html">QIODevice</a> *filterDev = <a class="code" href="classKFilterDev.html#aafd470e4fde55cd53995b7167506fc09" title="Creates an i/o device that is able to read from fileName, whether it's compressed or not...">KFilterDev::deviceForFile</a>( filename, mimetype, forced );
<a name="l00292"></a>00292
<a name="l00293"></a>00293 <span class="keywordflow">if</span>( filterDev ) {
<a name="l00294"></a>00294 <a class="codeRef" href="qfile.html">QFile</a>* file = tmpFile->file();
<a name="l00295"></a>00295 file-><a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00296"></a>00296 <span class="keywordflow">if</span> ( ! file-><a class="codeRef" href="qfile.html#open">open</a>( IO_WriteOnly ) )
<a name="l00297"></a>00297 {
<a name="l00298"></a>00298 <span class="keyword">delete</span> filterDev;
<a name="l00299"></a>00299 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00300"></a>00300 }
<a name="l00301"></a>00301 <a class="codeRef" href="qbytearray.html">QByteArray</a> buffer(8*1024);
<a name="l00302"></a>00302 <span class="keywordflow">if</span> ( ! filterDev-><a class="codeRef" href="qiodevice.html#open">open</a>( IO_ReadOnly ) )
<a name="l00303"></a>00303 {
<a name="l00304"></a>00304 <span class="keyword">delete</span> filterDev;
<a name="l00305"></a>00305 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00306"></a>00306 }
<a name="l00307"></a>00307 Q_LONG len = -1;
<a name="l00308"></a>00308 <span class="keywordflow">while</span> ( !filterDev-><a class="codeRef" href="qiodevice.html#atEnd">atEnd</a>() && len != 0) {
<a name="l00309"></a>00309 len = filterDev-><a class="codeRef" href="qiodevice.html#readBlock">readBlock</a>(buffer.data(),buffer.size());
<a name="l00310"></a>00310 <span class="keywordflow">if</span> ( len < 0 ) { <span class="comment">// corrupted archive</span>
<a name="l00311"></a>00311 <span class="keyword">delete</span> filterDev;
<a name="l00312"></a>00312 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00313"></a>00313 }
<a name="l00314"></a>00314 file->writeBlock(buffer.data(),len);
<a name="l00315"></a>00315 }
<a name="l00316"></a>00316 filterDev-><a class="codeRef" href="qiodevice.html#close">close</a>();
<a name="l00317"></a>00317 <span class="keyword">delete</span> filterDev;
<a name="l00318"></a>00318
<a name="l00319"></a>00319 file-><a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00320"></a>00320 <span class="keywordflow">if</span> ( ! file-><a class="codeRef" href="qfile.html#open">open</a>( IO_ReadOnly ) )
<a name="l00321"></a>00321 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00322"></a>00322 }
<a name="l00323"></a>00323 <span class="keywordflow">else</span>
<a name="l00324"></a>00324 kdDebug( 7041 ) << <span class="stringliteral">"KTar::openArchive: no filterdevice found!"</span> << endl;
<a name="l00325"></a>00325
<a name="l00326"></a>00326 kdDebug( 7041 ) << <span class="stringliteral">"KTar::openArchive: filling tmpFile finished."</span> << endl;
<a name="l00327"></a>00327 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00328"></a>00328 }
<a name="l00329"></a>00329
<a name="l00330"></a><a class="code" href="classKTar.html#a74a40c20818f148211d5480c79567d66">00330</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#a74a40c20818f148211d5480c79567d66" title="Opens the archive for reading.">KTar::openArchive</a>( <span class="keywordtype">int</span> mode )
<a name="l00331"></a>00331 {
<a name="l00332"></a>00332 kdDebug( 7041 ) << <span class="stringliteral">"KTar::openArchive"</span> << endl;
<a name="l00333"></a>00333 <span class="keywordflow">if</span> ( !(mode & IO_ReadOnly) )
<a name="l00334"></a>00334 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00335"></a>00335
<a name="l00336"></a>00336 <span class="keywordflow">if</span> ( !d->fillTempFile( m_filename ) )
<a name="l00337"></a>00337 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00338"></a>00338
<a name="l00339"></a>00339 <span class="comment">// We'll use the permission and user/group of d->rootDir</span>
<a name="l00340"></a>00340 <span class="comment">// for any directory we emulate (see findOrCreate)</span>
<a name="l00341"></a>00341 <span class="comment">//struct stat buf;</span>
<a name="l00342"></a>00342 <span class="comment">//stat( m_filename, &buf );</span>
<a name="l00343"></a>00343
<a name="l00344"></a>00344 d->dirList.clear();
<a name="l00345"></a>00345 <a class="codeRef" href="qiodevice.html">QIODevice</a>* dev = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>();
<a name="l00346"></a>00346
<a name="l00347"></a>00347 <span class="keywordflow">if</span> ( !dev )
<a name="l00348"></a>00348 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00349"></a>00349
<a name="l00350"></a>00350 <span class="comment">// read dir infos</span>
<a name="l00351"></a>00351 <span class="keywordtype">char</span> buffer[ 0x200 ];
<a name="l00352"></a>00352 <span class="keywordtype">bool</span> ende = <span class="keyword">false</span>;
<a name="l00353"></a>00353 <span class="keywordflow">do</span>
<a name="l00354"></a>00354 {
<a name="l00355"></a>00355 <a class="codeRef" href="qstring.html">QString</a> name;
<a name="l00356"></a>00356 <a class="codeRef" href="qstring.html">QString</a> symlink;
<a name="l00357"></a>00357
<a name="l00358"></a>00358 <span class="comment">// Read header</span>
<a name="l00359"></a>00359 Q_LONG n = readHeader(buffer,name,symlink);
<a name="l00360"></a>00360 <span class="keywordflow">if</span> (n < 0) <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00361"></a>00361 <span class="keywordflow">if</span> (n == 0x200)
<a name="l00362"></a>00362 {
<a name="l00363"></a>00363 <span class="keywordtype">bool</span> isdir = <span class="keyword">false</span>;
<a name="l00364"></a>00364 <a class="codeRef" href="qstring.html">QString</a> nm;
<a name="l00365"></a>00365
<a name="l00366"></a>00366 <span class="keywordflow">if</span> ( name.<a class="codeRef" href="qstring.html#right">right</a>(1) == <span class="stringliteral">"/"</span> )
<a name="l00367"></a>00367 {
<a name="l00368"></a>00368 isdir = <span class="keyword">true</span>;
<a name="l00369"></a>00369 name = name.<a class="codeRef" href="qstring.html#left">left</a>( name.<a class="codeRef" href="qstring.html#length">length</a>() - 1 );
<a name="l00370"></a>00370 }
<a name="l00371"></a>00371
<a name="l00372"></a>00372 <span class="keywordtype">int</span> pos = name.<a class="codeRef" href="qstring.html#findRev">findRev</a>( <span class="charliteral">'/'</span> );
<a name="l00373"></a>00373 <span class="keywordflow">if</span> ( pos == -1 )
<a name="l00374"></a>00374 nm = name;
<a name="l00375"></a>00375 <span class="keywordflow">else</span>
<a name="l00376"></a>00376 nm = name.<a class="codeRef" href="qstring.html#mid">mid</a>( pos + 1 );
<a name="l00377"></a>00377
<a name="l00378"></a>00378 <span class="comment">// read access</span>
<a name="l00379"></a>00379 buffer[ 0x6b ] = 0;
<a name="l00380"></a>00380 <span class="keywordtype">char</span> *dummy;
<a name="l00381"></a>00381 <span class="keyword">const</span> <span class="keywordtype">char</span>* p = buffer + 0x64;
<a name="l00382"></a>00382 <span class="keywordflow">while</span>( *p == <span class="charliteral">' '</span> ) ++p;
<a name="l00383"></a>00383 <span class="keywordtype">int</span> access = (int)strtol( p, &dummy, 8 );
<a name="l00384"></a>00384
<a name="l00385"></a>00385 <span class="comment">// read user and group</span>
<a name="l00386"></a>00386 <a class="codeRef" href="qstring.html">QString</a> user( buffer + 0x109 );
<a name="l00387"></a>00387 <a class="codeRef" href="qstring.html">QString</a> group( buffer + 0x129 );
<a name="l00388"></a>00388
<a name="l00389"></a>00389 <span class="comment">// read time</span>
<a name="l00390"></a>00390 buffer[ 0x93 ] = 0;
<a name="l00391"></a>00391 p = buffer + 0x88;
<a name="l00392"></a>00392 <span class="keywordflow">while</span>( *p == <span class="charliteral">' '</span> ) ++p;
<a name="l00393"></a>00393 <span class="keywordtype">int</span> time = (int)strtol( p, &dummy, 8 );
<a name="l00394"></a>00394
<a name="l00395"></a>00395 <span class="comment">// read type flag</span>
<a name="l00396"></a>00396 <span class="keywordtype">char</span> typeflag = buffer[ 0x9c ];
<a name="l00397"></a>00397 <span class="comment">// '0' for files, '1' hard link, '2' symlink, '5' for directory</span>
<a name="l00398"></a>00398 <span class="comment">// (and 'L' for longlink filenames, 'K' for longlink symlink targets)</span>
<a name="l00399"></a>00399 <span class="comment">// and 'D' for GNU tar extension DUMPDIR</span>
<a name="l00400"></a>00400 <span class="keywordflow">if</span> ( typeflag == <span class="charliteral">'5'</span> )
<a name="l00401"></a>00401 isdir = <span class="keyword">true</span>;
<a name="l00402"></a>00402
<a name="l00403"></a>00403 <span class="keywordtype">bool</span> isDumpDir = <span class="keyword">false</span>;
<a name="l00404"></a>00404 <span class="keywordflow">if</span> ( typeflag == <span class="charliteral">'D'</span> )
<a name="l00405"></a>00405 {
<a name="l00406"></a>00406 isdir = <span class="keyword">false</span>;
<a name="l00407"></a>00407 isDumpDir = <span class="keyword">true</span>;
<a name="l00408"></a>00408 }
<a name="l00409"></a>00409 <span class="comment">//bool islink = ( typeflag == '1' || typeflag == '2' );</span>
<a name="l00410"></a>00410 <span class="comment">//kdDebug(7041) << "typeflag=" << typeflag << " islink=" << islink << endl;</span>
<a name="l00411"></a>00411
<a name="l00412"></a>00412 <span class="keywordflow">if</span> (isdir)
<a name="l00413"></a>00413 access |= S_IFDIR; <span class="comment">// f*cking broken tar files</span>
<a name="l00414"></a>00414
<a name="l00415"></a>00415 <a class="code" href="classKArchiveEntry.html" title="A base class for entries in an KArchive.">KArchiveEntry</a>* e;
<a name="l00416"></a>00416 <span class="keywordflow">if</span> ( isdir )
<a name="l00417"></a>00417 {
<a name="l00418"></a>00418 <span class="comment">//kdDebug(7041) << "KTar::openArchive directory " << nm << endl;</span>
<a name="l00419"></a>00419 e = <span class="keyword">new</span> <a class="code" href="classKArchiveDirectory.html" title="Represents a directory entry in a KArchive.">KArchiveDirectory</a>( <span class="keyword">this</span>, nm, access, time, user, group, symlink );
<a name="l00420"></a>00420 }
<a name="l00421"></a>00421 <span class="keywordflow">else</span>
<a name="l00422"></a>00422 {
<a name="l00423"></a>00423 <span class="comment">// read size</span>
<a name="l00424"></a>00424 buffer[ 0x88 ] = 0; <span class="comment">// was 0x87, but 0x88 fixes BR #26437</span>
<a name="l00425"></a>00425 <span class="keywordtype">char</span> *dummy;
<a name="l00426"></a>00426 <span class="keyword">const</span> <span class="keywordtype">char</span>* p = buffer + 0x7c;
<a name="l00427"></a>00427 <span class="keywordflow">while</span>( *p == <span class="charliteral">' '</span> ) ++p;
<a name="l00428"></a>00428 <span class="keywordtype">int</span> size = (int)strtol( p, &dummy, 8 );
<a name="l00429"></a>00429
<a name="l00430"></a>00430 <span class="comment">// for isDumpDir we will skip the additional info about that dirs contents</span>
<a name="l00431"></a>00431 <span class="keywordflow">if</span> ( isDumpDir )
<a name="l00432"></a>00432 {
<a name="l00433"></a>00433 <span class="comment">//kdDebug(7041) << "KTar::openArchive " << nm << " isDumpDir" << endl;</span>
<a name="l00434"></a>00434 e = <span class="keyword">new</span> <a class="code" href="classKArchiveDirectory.html" title="Represents a directory entry in a KArchive.">KArchiveDirectory</a>( <span class="keyword">this</span>, nm, access, time, user, group, symlink );
<a name="l00435"></a>00435 }
<a name="l00436"></a>00436 <span class="keywordflow">else</span>
<a name="l00437"></a>00437 {
<a name="l00438"></a>00438
<a name="l00439"></a>00439 <span class="comment">// Let's hack around hard links. Our classes don't support that, so make them symlinks</span>
<a name="l00440"></a>00440 <span class="keywordflow">if</span> ( typeflag == <span class="charliteral">'1'</span> )
<a name="l00441"></a>00441 {
<a name="l00442"></a>00442 kdDebug(7041) << <span class="stringliteral">"HARD LINK, setting size to 0 instead of "</span> << size << endl;
<a name="l00443"></a>00443 size = 0; <span class="comment">// no contents</span>
<a name="l00444"></a>00444 }
<a name="l00445"></a>00445
<a name="l00446"></a>00446 <span class="comment">//kdDebug(7041) << "KTar::openArchive file " << nm << " size=" << size << endl;</span>
<a name="l00447"></a>00447 e = <span class="keyword">new</span> <a class="code" href="classKArchiveFile.html" title="Represents a file entry in a KArchive.">KArchiveFile</a>( <span class="keyword">this</span>, nm, access, time, user, group, symlink,
<a name="l00448"></a>00448 dev-><a class="codeRef" href="qiodevice.html#at">at</a>(), size );
<a name="l00449"></a>00449 }
<a name="l00450"></a>00450
<a name="l00451"></a>00451 <span class="comment">// Skip contents + align bytes</span>
<a name="l00452"></a>00452 <span class="keywordtype">int</span> rest = size % 0x200;
<a name="l00453"></a>00453 <span class="keywordtype">int</span> skip = size + (rest ? 0x200 - rest : 0);
<a name="l00454"></a>00454 <span class="comment">//kdDebug(7041) << "KTar::openArchive, at()=" << dev->at() << " rest=" << rest << " skipping " << skip << endl;</span>
<a name="l00455"></a>00455 <span class="keywordflow">if</span> (! dev-><a class="codeRef" href="qiodevice.html#at">at</a>( dev-><a class="codeRef" href="qiodevice.html#at">at</a>() + skip ) )
<a name="l00456"></a>00456 kdWarning(7041) << <span class="stringliteral">"KTar::openArchive skipping "</span> << skip << <span class="stringliteral">" failed"</span> << endl;
<a name="l00457"></a>00457 }
<a name="l00458"></a>00458
<a name="l00459"></a>00459 <span class="keywordflow">if</span> ( pos == -1 )
<a name="l00460"></a>00460 {
<a name="l00461"></a>00461 <span class="keywordflow">if</span> ( nm == <span class="stringliteral">"."</span> ) <span class="comment">// special case</span>
<a name="l00462"></a>00462 {
<a name="l00463"></a>00463 Q_ASSERT( isdir );
<a name="l00464"></a>00464 <span class="keywordflow">if</span> ( isdir )
<a name="l00465"></a>00465 setRootDir( static_cast<KArchiveDirectory *>( e ) );
<a name="l00466"></a>00466 }
<a name="l00467"></a>00467 <span class="keywordflow">else</span>
<a name="l00468"></a>00468 <a class="code" href="classKArchive.html#a218da40618b5ea5623656d3dbf3d9ecc" title="Retrieves or create the root directory.">rootDir</a>()->addEntry( e );
<a name="l00469"></a>00469 }
<a name="l00470"></a>00470 <span class="keywordflow">else</span>
<a name="l00471"></a>00471 {
<a name="l00472"></a>00472 <span class="comment">// In some tar files we can find dir/./file => call cleanDirPath</span>
<a name="l00473"></a>00473 <a class="codeRef" href="qstring.html">QString</a> path = <a class="codeRef" href="qdir.html#cleanDirPath">QDir::cleanDirPath</a>( name.<a class="codeRef" href="qstring.html#left">left</a>( pos ) );
<a name="l00474"></a>00474 <span class="comment">// Ensure container directory exists, create otherwise</span>
<a name="l00475"></a>00475 <a class="code" href="classKArchiveDirectory.html" title="Represents a directory entry in a KArchive.">KArchiveDirectory</a> * d = <a class="code" href="classKArchive.html#aa5dfd148c5c870da8a2330d0371e3d6e" title="Ensures that path exists, create otherwise.">findOrCreate</a>( path );
<a name="l00476"></a>00476 d->addEntry( e );
<a name="l00477"></a>00477 }
<a name="l00478"></a>00478 }
<a name="l00479"></a>00479 <span class="keywordflow">else</span>
<a name="l00480"></a>00480 {
<a name="l00481"></a>00481 <span class="comment">//qDebug("Terminating. Read %d bytes, first one is %d", n, buffer[0]);</span>
<a name="l00482"></a>00482 d->tarEnd = dev-><a class="codeRef" href="qiodevice.html#at">at</a>() - n; <span class="comment">// Remember end of archive</span>
<a name="l00483"></a>00483 ende = <span class="keyword">true</span>;
<a name="l00484"></a>00484 }
<a name="l00485"></a>00485 } <span class="keywordflow">while</span>( !ende );
<a name="l00486"></a>00486 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00487"></a>00487 }
<a name="l00488"></a>00488
<a name="l00489"></a>00489 <span class="comment">/*</span>
<a name="l00490"></a>00490 <span class="comment"> * Writes back the changes of the temporary file</span>
<a name="l00491"></a>00491 <span class="comment"> * to the original file.</span>
<a name="l00492"></a>00492 <span class="comment"> * Must only be called if in IO_WriteOnly mode</span>
<a name="l00493"></a>00493 <span class="comment"> */</span>
<a name="l00494"></a>00494 <span class="keywordtype">bool</span> KTar::KTarPrivate::writeBackTempFile( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> & filename ) {
<a name="l00495"></a>00495 <span class="keywordflow">if</span> ( ! tmpFile )
<a name="l00496"></a>00496 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00497"></a>00497
<a name="l00498"></a>00498 kdDebug(7041) << <span class="stringliteral">"Write temporary file to compressed file"</span> << endl;
<a name="l00499"></a>00499 kdDebug(7041) << filename << <span class="stringliteral">" "</span> << mimetype << endl;
<a name="l00500"></a>00500
<a name="l00501"></a>00501 <span class="keywordtype">bool</span> forced = <span class="keyword">false</span>;
<a name="l00502"></a>00502 <span class="keywordflow">if</span>( <span class="stringliteral">"application/x-gzip"</span> == mimetype
<a name="l00503"></a>00503 || <span class="stringliteral">"application/x-bzip2"</span> == mimetype)
<a name="l00504"></a>00504 forced = <span class="keyword">true</span>;
<a name="l00505"></a>00505
<a name="l00506"></a>00506
<a name="l00507"></a>00507 <a class="codeRef" href="qiodevice.html">QIODevice</a> *dev = <a class="code" href="classKFilterDev.html#aafd470e4fde55cd53995b7167506fc09" title="Creates an i/o device that is able to read from fileName, whether it's compressed or not...">KFilterDev::deviceForFile</a>( filename, mimetype, forced );
<a name="l00508"></a>00508 <span class="keywordflow">if</span>( dev ) {
<a name="l00509"></a>00509 <a class="codeRef" href="qfile.html">QFile</a>* file = tmpFile->file();
<a name="l00510"></a>00510 file-><a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00511"></a>00511 <span class="keywordflow">if</span> ( ! file-><a class="codeRef" href="qfile.html#open">open</a>(IO_ReadOnly) || ! dev-><a class="codeRef" href="qiodevice.html#open">open</a>(IO_WriteOnly) )
<a name="l00512"></a>00512 {
<a name="l00513"></a>00513 file-><a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00514"></a>00514 <span class="keyword">delete</span> dev;
<a name="l00515"></a>00515 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00516"></a>00516 }
<a name="l00517"></a>00517 <span class="keywordflow">if</span> ( forced )
<a name="l00518"></a>00518 <span class="keyword">static_cast<</span><a class="code" href="classKFilterDev.html" title="A class for reading and writing compressed data onto a device (e.g.">KFilterDev</a> *<span class="keyword">></span>(dev)->setOrigFileName( origFileName );
<a name="l00519"></a>00519 <a class="codeRef" href="qbytearray.html">QByteArray</a> buffer(8*1024);
<a name="l00520"></a>00520 Q_LONG len;
<a name="l00521"></a>00521 <span class="keywordflow">while</span> ( ! file-><a class="codeRef" href="qfile.html#atEnd">atEnd</a>()) {
<a name="l00522"></a>00522 len = file->readBlock(buffer.data(),buffer.size());
<a name="l00523"></a>00523 dev-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>(buffer.data(),len);
<a name="l00524"></a>00524 }
<a name="l00525"></a>00525 file-><a class="codeRef" href="qfile.html#close">close</a>();
<a name="l00526"></a>00526 dev-><a class="codeRef" href="qiodevice.html#close">close</a>();
<a name="l00527"></a>00527 <span class="keyword">delete</span> dev;
<a name="l00528"></a>00528 }
<a name="l00529"></a>00529
<a name="l00530"></a>00530 kdDebug(7041) << <span class="stringliteral">"Write temporary file to compressed file done."</span> << endl;
<a name="l00531"></a>00531 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00532"></a>00532 }
<a name="l00533"></a>00533
<a name="l00534"></a><a class="code" href="classKTar.html#a9287a3f9a2dd56821559a7f87c078f9c">00534</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#a9287a3f9a2dd56821559a7f87c078f9c" title="Closes the archive.">KTar::closeArchive</a>()
<a name="l00535"></a>00535 {
<a name="l00536"></a>00536 d->dirList.clear();
<a name="l00537"></a>00537
<a name="l00538"></a>00538 <span class="comment">// If we are in write mode and had created</span>
<a name="l00539"></a>00539 <span class="comment">// a temporary tar file, we have to write</span>
<a name="l00540"></a>00540 <span class="comment">// back the changes to the original file</span>
<a name="l00541"></a>00541 <span class="keywordflow">if</span>( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() == IO_WriteOnly)
<a name="l00542"></a>00542 <span class="keywordflow">return</span> d->writeBackTempFile( m_filename );
<a name="l00543"></a>00543
<a name="l00544"></a>00544 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00545"></a>00545 }
<a name="l00546"></a>00546
<a name="l00547"></a><a class="code" href="classKTar.html#a400a95909477dc244119cf205fa6f810">00547</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#a400a95909477dc244119cf205fa6f810" title="If an archive is opened for writing then you can add new directories using this function.">KTar::writeDir</a>( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& user, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& group )
<a name="l00548"></a>00548 {
<a name="l00549"></a>00549 mode_t perm = 040755;
<a name="l00550"></a>00550 time_t the_time = time(0);
<a name="l00551"></a>00551 <span class="keywordflow">return</span> <a class="code" href="classKTar.html#a400a95909477dc244119cf205fa6f810" title="If an archive is opened for writing then you can add new directories using this function.">writeDir</a>(name,user,group,perm,the_time,the_time,the_time);
<a name="l00552"></a>00552 <span class="preprocessor">#if 0</span>
<a name="l00553"></a>00553 <span class="preprocessor"></span> <span class="keywordflow">if</span> ( !<a class="code" href="classKArchive.html#ace294a6f5bf3f46019ab59a346287149" title="Checks whether the archive is open.">isOpened</a>() )
<a name="l00554"></a>00554 {
<a name="l00555"></a>00555 kdWarning(7041) << <span class="stringliteral">"KTar::writeDir: You must open the tar file before writing to it\n"</span>;
<a name="l00556"></a>00556 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00557"></a>00557 }
<a name="l00558"></a>00558
<a name="l00559"></a>00559 <span class="keywordflow">if</span> ( !(<a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_WriteOnly) )
<a name="l00560"></a>00560 {
<a name="l00561"></a>00561 kdWarning(7041) << <span class="stringliteral">"KTar::writeDir: You must open the tar file for writing\n"</span>;
<a name="l00562"></a>00562 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00563"></a>00563 }
<a name="l00564"></a>00564
<a name="l00565"></a>00565 <span class="comment">// In some tar files we can find dir/./ => call cleanDirPath</span>
<a name="l00566"></a>00566 <a class="codeRef" href="qstring.html">QString</a> dirName ( <a class="codeRef" href="qdir.html#cleanDirPath">QDir::cleanDirPath</a>( name ) );
<a name="l00567"></a>00567
<a name="l00568"></a>00568 <span class="comment">// Need trailing '/'</span>
<a name="l00569"></a>00569 <span class="keywordflow">if</span> ( dirName.<a class="codeRef" href="qstring.html#right">right</a>(1) != <span class="stringliteral">"/"</span> )
<a name="l00570"></a>00570 dirName += <span class="stringliteral">"/"</span>;
<a name="l00571"></a>00571
<a name="l00572"></a>00572 <span class="keywordflow">if</span> ( d->dirList.contains( dirName ) )
<a name="l00573"></a>00573 <span class="keywordflow">return</span> <span class="keyword">true</span>; <span class="comment">// already there</span>
<a name="l00574"></a>00574
<a name="l00575"></a>00575 <span class="keywordtype">char</span> buffer[ 0x201 ];
<a name="l00576"></a>00576 memset( buffer, 0, 0x200 );
<a name="l00577"></a>00577 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>(d->tarEnd); <span class="comment">// Go to end of archive as might have moved with a read</span>
<a name="l00578"></a>00578
<a name="l00579"></a>00579 <span class="comment">// If more than 100 chars, we need to use the LongLink trick</span>
<a name="l00580"></a>00580 <span class="keywordflow">if</span> ( dirName.<a class="codeRef" href="qstring.html#length">length</a>() > 99 )
<a name="l00581"></a>00581 {
<a name="l00582"></a>00582 strcpy( buffer, <span class="stringliteral">"././@LongLink"</span> );
<a name="l00583"></a>00583 fillBuffer( buffer, <span class="stringliteral">" 0"</span>, dirName.<a class="codeRef" href="qstring.html#length">length</a>()+1, <span class="charliteral">'L'</span>, user.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>(), group.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>() );
<a name="l00584"></a>00584 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 );
<a name="l00585"></a>00585 strncpy( buffer, <a class="codeRef" href="qfile.html#encodeName">QFile::encodeName</a>(dirName), 0x200 );
<a name="l00586"></a>00586 buffer[0x200] = 0;
<a name="l00587"></a>00587 <span class="comment">// write long name</span>
<a name="l00588"></a>00588 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 );
<a name="l00589"></a>00589 <span class="comment">// not even needed to reclear the buffer, tar doesn't do it</span>
<a name="l00590"></a>00590 }
<a name="l00591"></a>00591 <span class="keywordflow">else</span>
<a name="l00592"></a>00592 {
<a name="l00593"></a>00593 <span class="comment">// Write name</span>
<a name="l00594"></a>00594 strncpy( buffer, <a class="codeRef" href="qfile.html#encodeName">QFile::encodeName</a>(dirName), 0x200 );
<a name="l00595"></a>00595 buffer[0x200] = 0;
<a name="l00596"></a>00596 }
<a name="l00597"></a>00597
<a name="l00598"></a>00598 fillBuffer( buffer, <span class="stringliteral">" 40755"</span>, 0, 0x35, user.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>(), group.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>());
<a name="l00599"></a>00599
<a name="l00600"></a>00600 <span class="comment">// Write header</span>
<a name="l00601"></a>00601 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 );
<a name="l00602"></a>00602 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) d->tarEnd = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>();
<a name="l00603"></a>00603
<a name="l00604"></a>00604 d->dirList.append( dirName ); <span class="comment">// contains trailing slash</span>
<a name="l00605"></a>00605 <span class="keywordflow">return</span> <span class="keyword">true</span>; <span class="comment">// TODO if wanted, better error control</span>
<a name="l00606"></a>00606 <span class="preprocessor">#endif</span>
<a name="l00607"></a>00607 <span class="preprocessor"></span>}
<a name="l00608"></a>00608
<a name="l00609"></a><a class="code" href="classKTar.html#adae52467799ccc1cdfb096f1fb468633">00609</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#adae52467799ccc1cdfb096f1fb468633" title="Here's another way of writing a file into an archive: Call prepareWriting, then call writeData() as m...">KTar::prepareWriting</a>( <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& user, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& group, uint size )
<a name="l00610"></a>00610 {
<a name="l00611"></a>00611 mode_t dflt_perm = 0100644;
<a name="l00612"></a>00612 time_t the_time = time(0);
<a name="l00613"></a>00613 <span class="keywordflow">return</span> <a class="code" href="classKTar.html#adae52467799ccc1cdfb096f1fb468633" title="Here's another way of writing a file into an archive: Call prepareWriting, then call writeData() as m...">prepareWriting</a>(name,user,group,size,dflt_perm,
<a name="l00614"></a>00614 the_time,the_time,the_time);
<a name="l00615"></a>00615 }
<a name="l00616"></a>00616
<a name="l00617"></a><a class="code" href="classKTar.html#a680c42d319226a5c517fa7ac77b939b6">00617</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#a680c42d319226a5c517fa7ac77b939b6" title="Call doneWriting after writing the data.">KTar::doneWriting</a>( uint size )
<a name="l00618"></a>00618 {
<a name="l00619"></a>00619 <span class="comment">// Write alignment</span>
<a name="l00620"></a>00620 <span class="keywordtype">int</span> rest = size % 0x200;
<a name="l00621"></a>00621 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite )
<a name="l00622"></a>00622 d->tarEnd = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>() + (rest ? 0x200 - rest : 0); <span class="comment">// Record our new end of archive</span>
<a name="l00623"></a>00623 <span class="keywordflow">if</span> ( rest )
<a name="l00624"></a>00624 {
<a name="l00625"></a>00625 <span class="keywordtype">char</span> buffer[ 0x201 ];
<a name="l00626"></a>00626 <span class="keywordflow">for</span>( uint i = 0; i < 0x200; ++i )
<a name="l00627"></a>00627 buffer[i] = 0;
<a name="l00628"></a>00628 Q_LONG nwritten = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 - rest );
<a name="l00629"></a>00629 <span class="keywordflow">return</span> nwritten == 0x200 - rest;
<a name="l00630"></a>00630 }
<a name="l00631"></a>00631 <span class="keywordflow">return</span> <span class="keyword">true</span>;
<a name="l00632"></a>00632 }
<a name="l00633"></a>00633
<a name="l00634"></a>00634 <span class="comment">/*** Some help from the tar sources</span>
<a name="l00635"></a>00635 <span class="comment">struct posix_header</span>
<a name="l00636"></a>00636 <span class="comment">{ byte offset</span>
<a name="l00637"></a>00637 <span class="comment"> char name[100]; * 0 * 0x0</span>
<a name="l00638"></a>00638 <span class="comment"> char mode[8]; * 100 * 0x64</span>
<a name="l00639"></a>00639 <span class="comment"> char uid[8]; * 108 * 0x6c</span>
<a name="l00640"></a>00640 <span class="comment"> char gid[8]; * 116 * 0x74</span>
<a name="l00641"></a>00641 <span class="comment"> char size[12]; * 124 * 0x7c</span>
<a name="l00642"></a>00642 <span class="comment"> char mtime[12]; * 136 * 0x88</span>
<a name="l00643"></a>00643 <span class="comment"> char chksum[8]; * 148 * 0x94</span>
<a name="l00644"></a>00644 <span class="comment"> char typeflag; * 156 * 0x9c</span>
<a name="l00645"></a>00645 <span class="comment"> char linkname[100]; * 157 * 0x9d</span>
<a name="l00646"></a>00646 <span class="comment"> char magic[6]; * 257 * 0x101</span>
<a name="l00647"></a>00647 <span class="comment"> char version[2]; * 263 * 0x107</span>
<a name="l00648"></a>00648 <span class="comment"> char uname[32]; * 265 * 0x109</span>
<a name="l00649"></a>00649 <span class="comment"> char gname[32]; * 297 * 0x129</span>
<a name="l00650"></a>00650 <span class="comment"> char devmajor[8]; * 329 * 0x149</span>
<a name="l00651"></a>00651 <span class="comment"> char devminor[8]; * 337 * ...</span>
<a name="l00652"></a>00652 <span class="comment"> char prefix[155]; * 345 *</span>
<a name="l00653"></a>00653 <span class="comment"> * 500 *</span>
<a name="l00654"></a>00654 <span class="comment">};</span>
<a name="l00655"></a>00655 <span class="comment">*/</span>
<a name="l00656"></a>00656
<a name="l00657"></a>00657 <span class="keywordtype">void</span> KTar::fillBuffer( <span class="keywordtype">char</span> * buffer,
<a name="l00658"></a>00658 <span class="keyword">const</span> <span class="keywordtype">char</span> * mode, <span class="keywordtype">int</span> size, time_t mtime, <span class="keywordtype">char</span> typeflag,
<a name="l00659"></a>00659 <span class="keyword">const</span> <span class="keywordtype">char</span> * uname, <span class="keyword">const</span> <span class="keywordtype">char</span> * gname )
<a name="l00660"></a>00660 {
<a name="l00661"></a>00661 <span class="comment">// mode (as in stat())</span>
<a name="l00662"></a>00662 assert( strlen(mode) == 6 );
<a name="l00663"></a>00663 strcpy( buffer+0x64, mode );
<a name="l00664"></a>00664 buffer[ 0x6a ] = <span class="charliteral">' '</span>;
<a name="l00665"></a>00665 buffer[ 0x6b ] = <span class="charliteral">'\0'</span>;
<a name="l00666"></a>00666
<a name="l00667"></a>00667 <span class="comment">// dummy uid</span>
<a name="l00668"></a>00668 strcpy( buffer + 0x6c, <span class="stringliteral">" 765 "</span>);
<a name="l00669"></a>00669 <span class="comment">// dummy gid</span>
<a name="l00670"></a>00670 strcpy( buffer + 0x74, <span class="stringliteral">" 144 "</span>);
<a name="l00671"></a>00671
<a name="l00672"></a>00672 <span class="comment">// size</span>
<a name="l00673"></a>00673 <a class="codeRef" href="qcstring.html">QCString</a> s;
<a name="l00674"></a>00674 s.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%o"</span>, size); <span class="comment">// OCT</span>
<a name="l00675"></a>00675 s = s.<a class="codeRef" href="qcstring.html#rightJustify">rightJustify</a>( 11, <span class="charliteral">' '</span> );
<a name="l00676"></a>00676 strcpy( buffer + 0x7c, s.data() );
<a name="l00677"></a>00677 buffer[ 0x87 ] = <span class="charliteral">' '</span>; <span class="comment">// space-terminate (no null after)</span>
<a name="l00678"></a>00678
<a name="l00679"></a>00679 <span class="comment">// modification time</span>
<a name="l00680"></a>00680 s.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%lo"</span>, static_cast<unsigned long>(mtime) ); <span class="comment">// OCT</span>
<a name="l00681"></a>00681 s = s.<a class="codeRef" href="qcstring.html#rightJustify">rightJustify</a>( 11, <span class="charliteral">' '</span> );
<a name="l00682"></a>00682 strcpy( buffer + 0x88, s.data() );
<a name="l00683"></a>00683 buffer[ 0x93 ] = <span class="charliteral">' '</span>; <span class="comment">// space-terminate (no null after)</span>
<a name="l00684"></a>00684
<a name="l00685"></a>00685 <span class="comment">// spaces, replaced by the check sum later</span>
<a name="l00686"></a>00686 buffer[ 0x94 ] = 0x20;
<a name="l00687"></a>00687 buffer[ 0x95 ] = 0x20;
<a name="l00688"></a>00688 buffer[ 0x96 ] = 0x20;
<a name="l00689"></a>00689 buffer[ 0x97 ] = 0x20;
<a name="l00690"></a>00690 buffer[ 0x98 ] = 0x20;
<a name="l00691"></a>00691 buffer[ 0x99 ] = 0x20;
<a name="l00692"></a>00692
<a name="l00693"></a>00693 <span class="comment">/* From the tar sources :</span>
<a name="l00694"></a>00694 <span class="comment"> Fill in the checksum field. It's formatted differently from the</span>
<a name="l00695"></a>00695 <span class="comment"> other fields: it has [6] digits, a null, then a space -- rather than</span>
<a name="l00696"></a>00696 <span class="comment"> digits, a space, then a null. */</span>
<a name="l00697"></a>00697
<a name="l00698"></a>00698 buffer[ 0x9a ] = <span class="charliteral">'\0'</span>;
<a name="l00699"></a>00699 buffer[ 0x9b ] = <span class="charliteral">' '</span>;
<a name="l00700"></a>00700
<a name="l00701"></a>00701 <span class="comment">// type flag (dir, file, link)</span>
<a name="l00702"></a>00702 buffer[ 0x9c ] = typeflag;
<a name="l00703"></a>00703
<a name="l00704"></a>00704 <span class="comment">// magic + version</span>
<a name="l00705"></a>00705 strcpy( buffer + 0x101, <span class="stringliteral">"ustar"</span>);
<a name="l00706"></a>00706 strcpy( buffer + 0x107, <span class="stringliteral">"00"</span> );
<a name="l00707"></a>00707
<a name="l00708"></a>00708 <span class="comment">// user</span>
<a name="l00709"></a>00709 strcpy( buffer + 0x109, uname );
<a name="l00710"></a>00710 <span class="comment">// group</span>
<a name="l00711"></a>00711 strcpy( buffer + 0x129, gname );
<a name="l00712"></a>00712
<a name="l00713"></a>00713 <span class="comment">// Header check sum</span>
<a name="l00714"></a>00714 <span class="keywordtype">int</span> check = 32;
<a name="l00715"></a>00715 <span class="keywordflow">for</span>( uint j = 0; j < 0x200; ++j )
<a name="l00716"></a>00716 check += buffer[j];
<a name="l00717"></a>00717 s.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%o"</span>, check ); <span class="comment">// OCT</span>
<a name="l00718"></a>00718 s = s.<a class="codeRef" href="qcstring.html#rightJustify">rightJustify</a>( 7, <span class="charliteral">' '</span> );
<a name="l00719"></a>00719 strcpy( buffer + 0x94, s.data() );
<a name="l00720"></a>00720 }
<a name="l00721"></a>00721
<a name="l00722"></a>00722 <span class="keywordtype">void</span> KTar::writeLonglink(<span class="keywordtype">char</span> *buffer, <span class="keyword">const</span> <a class="codeRef" href="qcstring.html">QCString</a> &name, <span class="keywordtype">char</span> typeflag,
<a name="l00723"></a>00723 <span class="keyword">const</span> <span class="keywordtype">char</span> *uname, <span class="keyword">const</span> <span class="keywordtype">char</span> *gname) {
<a name="l00724"></a>00724 strcpy( buffer, <span class="stringliteral">"././@LongLink"</span> );
<a name="l00725"></a>00725 <span class="keywordtype">int</span> namelen = name.<a class="codeRef" href="qcstring.html#length">length</a>() + 1;
<a name="l00726"></a>00726 fillBuffer( buffer, <span class="stringliteral">" 0"</span>, namelen, 0, typeflag, uname, gname );
<a name="l00727"></a>00727 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 );
<a name="l00728"></a>00728 <span class="keywordtype">int</span> offset = 0;
<a name="l00729"></a>00729 <span class="keywordflow">while</span> (namelen > 0) {
<a name="l00730"></a>00730 <span class="keywordtype">int</span> chunksize = QMIN(namelen, 0x200);
<a name="l00731"></a>00731 memcpy(buffer, name.data()+offset, chunksize);
<a name="l00732"></a>00732 <span class="comment">// write long name</span>
<a name="l00733"></a>00733 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 );
<a name="l00734"></a>00734 <span class="comment">// not even needed to reclear the buffer, tar doesn't do it</span>
<a name="l00735"></a>00735 namelen -= chunksize;
<a name="l00736"></a>00736 offset += 0x200;
<a name="l00737"></a>00737 }<span class="comment">/*wend*/</span>
<a name="l00738"></a>00738 }
<a name="l00739"></a>00739
<a name="l00740"></a><a class="code" href="classKTar.html#a7821bca5ab5c0bb35220577ac5522727">00740</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#adae52467799ccc1cdfb096f1fb468633" title="Here's another way of writing a file into an archive: Call prepareWriting, then call writeData() as m...">KTar::prepareWriting</a>(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& user,
<a name="l00741"></a>00741 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& group, uint size, mode_t perm,
<a name="l00742"></a>00742 time_t atime, time_t mtime, time_t ctime) {
<a name="l00743"></a>00743 <span class="keywordflow">return</span> <a class="code" href="classKTar.html#adae52467799ccc1cdfb096f1fb468633" title="Here's another way of writing a file into an archive: Call prepareWriting, then call writeData() as m...">KArchive::prepareWriting</a>(name,user,group,size,perm,atime,mtime,ctime);
<a name="l00744"></a>00744 }
<a name="l00745"></a>00745
<a name="l00746"></a>00746 <span class="keywordtype">bool</span> KTar::prepareWriting_impl(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &user,
<a name="l00747"></a>00747 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &group, uint size, mode_t perm,
<a name="l00748"></a>00748 time_t <span class="comment">/*atime*/</span>, time_t mtime, time_t <span class="comment">/*ctime*/</span>) {
<a name="l00749"></a>00749 <span class="keywordflow">if</span> ( !<a class="code" href="classKArchive.html#ace294a6f5bf3f46019ab59a346287149" title="Checks whether the archive is open.">isOpened</a>() )
<a name="l00750"></a>00750 {
<a name="l00751"></a>00751 kdWarning(7041) << <span class="stringliteral">"KTar::prepareWriting: You must open the tar file before writing to it\n"</span>;
<a name="l00752"></a>00752 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00753"></a>00753 }
<a name="l00754"></a>00754
<a name="l00755"></a>00755 <span class="keywordflow">if</span> ( !(<a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_WriteOnly) )
<a name="l00756"></a>00756 {
<a name="l00757"></a>00757 kdWarning(7041) << <span class="stringliteral">"KTar::prepareWriting: You must open the tar file for writing\n"</span>;
<a name="l00758"></a>00758 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00759"></a>00759 }
<a name="l00760"></a>00760
<a name="l00761"></a>00761 <span class="comment">// In some tar files we can find dir/./file => call cleanDirPath</span>
<a name="l00762"></a>00762 <a class="codeRef" href="qstring.html">QString</a> <a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a> ( <a class="codeRef" href="qdir.html#cleanDirPath">QDir::cleanDirPath</a>( name ) );
<a name="l00763"></a>00763
<a name="l00764"></a>00764 <span class="comment">/*</span>
<a name="l00765"></a>00765 <span class="comment"> // Create toplevel dirs</span>
<a name="l00766"></a>00766 <span class="comment"> // Commented out by David since it's not necessary, and if anybody thinks it is,</span>
<a name="l00767"></a>00767 <span class="comment"> // he needs to implement a findOrCreate equivalent in writeDir.</span>
<a name="l00768"></a>00768 <span class="comment"> // But as KTar and the "tar" program both handle tar files without</span>
<a name="l00769"></a>00769 <span class="comment"> // dir entries, there's really no need for that</span>
<a name="l00770"></a>00770 <span class="comment"> QString tmp ( fileName );</span>
<a name="l00771"></a>00771 <span class="comment"> int i = tmp.findRev( '/' );</span>
<a name="l00772"></a>00772 <span class="comment"> if ( i != -1 )</span>
<a name="l00773"></a>00773 <span class="comment"> {</span>
<a name="l00774"></a>00774 <span class="comment"> QString d = tmp.left( i + 1 ); // contains trailing slash</span>
<a name="l00775"></a>00775 <span class="comment"> if ( !m_dirList.contains( d ) )</span>
<a name="l00776"></a>00776 <span class="comment"> {</span>
<a name="l00777"></a>00777 <span class="comment"> tmp = tmp.mid( i + 1 );</span>
<a name="l00778"></a>00778 <span class="comment"> writeDir( d, user, group ); // WARNING : this one doesn't create its toplevel dirs</span>
<a name="l00779"></a>00779 <span class="comment"> }</span>
<a name="l00780"></a>00780 <span class="comment"> }</span>
<a name="l00781"></a>00781 <span class="comment"> */</span>
<a name="l00782"></a>00782
<a name="l00783"></a>00783 <span class="keywordtype">char</span> buffer[ 0x201 ];
<a name="l00784"></a>00784 memset( buffer, 0, 0x200 );
<a name="l00785"></a>00785 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>(d->tarEnd); <span class="comment">// Go to end of archive as might have moved with a read</span>
<a name="l00786"></a>00786
<a name="l00787"></a>00787 <span class="comment">// provide converted stuff we need lateron</span>
<a name="l00788"></a>00788 <a class="codeRef" href="qcstring.html">QCString</a> encodedFilename = <a class="codeRef" href="qfile.html#encodeName">QFile::encodeName</a>(<a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a>);
<a name="l00789"></a>00789 <a class="codeRef" href="qcstring.html">QCString</a> uname = user.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>();
<a name="l00790"></a>00790 <a class="codeRef" href="qcstring.html">QCString</a> gname = group.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>();
<a name="l00791"></a>00791
<a name="l00792"></a>00792 <span class="comment">// If more than 100 chars, we need to use the LongLink trick</span>
<a name="l00793"></a>00793 <span class="keywordflow">if</span> ( <a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a>.<a class="codeRef" href="qstring.html#length">length</a>() > 99 )
<a name="l00794"></a>00794 writeLonglink(buffer,encodedFilename,<span class="charliteral">'L'</span>,uname,gname);
<a name="l00795"></a>00795
<a name="l00796"></a>00796 <span class="comment">// Write (potentially truncated) name</span>
<a name="l00797"></a>00797 strncpy( buffer, encodedFilename, 99 );
<a name="l00798"></a>00798 buffer[99] = 0;
<a name="l00799"></a>00799 <span class="comment">// zero out the rest (except for what gets filled anyways)</span>
<a name="l00800"></a>00800 memset(buffer+0x9d, 0, 0x200 - 0x9d);
<a name="l00801"></a>00801
<a name="l00802"></a>00802 <a class="codeRef" href="qcstring.html">QCString</a> permstr;
<a name="l00803"></a>00803 permstr.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%o"</span>,perm);
<a name="l00804"></a>00804 permstr = permstr.<a class="codeRef" href="qcstring.html#rightJustify">rightJustify</a>(6, <span class="charliteral">' '</span>);
<a name="l00805"></a>00805 fillBuffer(buffer, permstr, size, mtime, 0x30, uname, gname);
<a name="l00806"></a>00806
<a name="l00807"></a>00807 <span class="comment">// Write header</span>
<a name="l00808"></a>00808 <span class="keywordflow">return</span> <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 ) == 0x200;
<a name="l00809"></a>00809 }
<a name="l00810"></a>00810
<a name="l00811"></a><a class="code" href="classKTar.html#a4da59bfdb20847de10eddde558211076">00811</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#a400a95909477dc244119cf205fa6f810" title="If an archive is opened for writing then you can add new directories using this function.">KTar::writeDir</a>(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& user,
<a name="l00812"></a>00812 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a>& group, mode_t perm,
<a name="l00813"></a>00813 time_t atime, time_t mtime, time_t ctime) {
<a name="l00814"></a>00814 <span class="keywordflow">return</span> <a class="code" href="classKTar.html#a400a95909477dc244119cf205fa6f810" title="If an archive is opened for writing then you can add new directories using this function.">KArchive::writeDir</a>(name,user,group,perm,atime,mtime,ctime);
<a name="l00815"></a>00815 }
<a name="l00816"></a>00816
<a name="l00817"></a>00817 <span class="keywordtype">bool</span> KTar::writeDir_impl(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &user,
<a name="l00818"></a>00818 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &group, mode_t perm,
<a name="l00819"></a>00819 time_t <span class="comment">/*atime*/</span>, time_t mtime, time_t <span class="comment">/*ctime*/</span>) {
<a name="l00820"></a>00820 <span class="keywordflow">if</span> ( !<a class="code" href="classKArchive.html#ace294a6f5bf3f46019ab59a346287149" title="Checks whether the archive is open.">isOpened</a>() )
<a name="l00821"></a>00821 {
<a name="l00822"></a>00822 kdWarning(7041) << <span class="stringliteral">"KTar::writeDir: You must open the tar file before writing to it\n"</span>;
<a name="l00823"></a>00823 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00824"></a>00824 }
<a name="l00825"></a>00825
<a name="l00826"></a>00826 <span class="keywordflow">if</span> ( !(<a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_WriteOnly) )
<a name="l00827"></a>00827 {
<a name="l00828"></a>00828 kdWarning(7041) << <span class="stringliteral">"KTar::writeDir: You must open the tar file for writing\n"</span>;
<a name="l00829"></a>00829 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00830"></a>00830 }
<a name="l00831"></a>00831
<a name="l00832"></a>00832 <span class="comment">// In some tar files we can find dir/./ => call cleanDirPath</span>
<a name="l00833"></a>00833 <a class="codeRef" href="qstring.html">QString</a> dirName ( <a class="codeRef" href="qdir.html#cleanDirPath">QDir::cleanDirPath</a>( name ) );
<a name="l00834"></a>00834
<a name="l00835"></a>00835 <span class="comment">// Need trailing '/'</span>
<a name="l00836"></a>00836 <span class="keywordflow">if</span> ( dirName.right(1) != <span class="stringliteral">"/"</span> )
<a name="l00837"></a>00837 dirName += <span class="stringliteral">"/"</span>;
<a name="l00838"></a>00838
<a name="l00839"></a>00839 <span class="keywordflow">if</span> ( d->dirList.contains( dirName ) )
<a name="l00840"></a>00840 <span class="keywordflow">return</span> <span class="keyword">true</span>; <span class="comment">// already there</span>
<a name="l00841"></a>00841
<a name="l00842"></a>00842 <span class="keywordtype">char</span> buffer[ 0x201 ];
<a name="l00843"></a>00843 memset( buffer, 0, 0x200 );
<a name="l00844"></a>00844 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>(d->tarEnd); <span class="comment">// Go to end of archive as might have moved with a read</span>
<a name="l00845"></a>00845
<a name="l00846"></a>00846 <span class="comment">// provide converted stuff we need lateron</span>
<a name="l00847"></a>00847 <a class="codeRef" href="qcstring.html">QCString</a> encodedDirname = <a class="codeRef" href="qfile.html#encodeName">QFile::encodeName</a>(dirName);
<a name="l00848"></a>00848 <a class="codeRef" href="qcstring.html">QCString</a> uname = user.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>();
<a name="l00849"></a>00849 <a class="codeRef" href="qcstring.html">QCString</a> gname = group.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>();
<a name="l00850"></a>00850
<a name="l00851"></a>00851 <span class="comment">// If more than 100 chars, we need to use the LongLink trick</span>
<a name="l00852"></a>00852 <span class="keywordflow">if</span> ( dirName.length() > 99 )
<a name="l00853"></a>00853 writeLonglink(buffer,encodedDirname,<span class="charliteral">'L'</span>,uname,gname);
<a name="l00854"></a>00854
<a name="l00855"></a>00855 <span class="comment">// Write (potentially truncated) name</span>
<a name="l00856"></a>00856 strncpy( buffer, encodedDirname, 99 );
<a name="l00857"></a>00857 buffer[99] = 0;
<a name="l00858"></a>00858 <span class="comment">// zero out the rest (except for what gets filled anyways)</span>
<a name="l00859"></a>00859 memset(buffer+0x9d, 0, 0x200 - 0x9d);
<a name="l00860"></a>00860
<a name="l00861"></a>00861 <a class="codeRef" href="qcstring.html">QCString</a> permstr;
<a name="l00862"></a>00862 permstr.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%o"</span>,perm);
<a name="l00863"></a>00863 permstr = permstr.<a class="codeRef" href="qcstring.html#rightJustify">rightJustify</a>(6, <span class="charliteral">' '</span>);
<a name="l00864"></a>00864 fillBuffer( buffer, permstr, 0, mtime, 0x35, uname, gname);
<a name="l00865"></a>00865
<a name="l00866"></a>00866 <span class="comment">// Write header</span>
<a name="l00867"></a>00867 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 );
<a name="l00868"></a>00868 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) d->tarEnd = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>();
<a name="l00869"></a>00869
<a name="l00870"></a>00870 d->dirList.append( dirName ); <span class="comment">// contains trailing slash</span>
<a name="l00871"></a>00871 <span class="keywordflow">return</span> <span class="keyword">true</span>; <span class="comment">// TODO if wanted, better error control</span>
<a name="l00872"></a>00872 }
<a name="l00873"></a>00873
<a name="l00874"></a><a class="code" href="classKTar.html#a56609fd3b04acd74fc0b3bc5e015af1c">00874</a> <span class="keywordtype">bool</span> <a class="code" href="classKTar.html#a56609fd3b04acd74fc0b3bc5e015af1c" title="Writes a symbolic link to the archive if the archive must be opened for writing.">KTar::writeSymLink</a>(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &target,
<a name="l00875"></a>00875 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &user, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &group,
<a name="l00876"></a>00876 mode_t perm, time_t atime, time_t mtime, time_t ctime) {
<a name="l00877"></a>00877 <span class="keywordflow">return</span> <a class="code" href="classKTar.html#a56609fd3b04acd74fc0b3bc5e015af1c" title="Writes a symbolic link to the archive if the archive must be opened for writing.">KArchive::writeSymLink</a>(name,target,user,group,perm,atime,mtime,ctime);
<a name="l00878"></a>00878 }
<a name="l00879"></a>00879
<a name="l00880"></a>00880 <span class="keywordtype">bool</span> KTar::writeSymLink_impl(<span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &name, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &target,
<a name="l00881"></a>00881 <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &user, <span class="keyword">const</span> <a class="codeRef" href="qstring.html">QString</a> &group,
<a name="l00882"></a>00882 mode_t perm, time_t <span class="comment">/*atime*/</span>, time_t mtime, time_t <span class="comment">/*ctime*/</span>) {
<a name="l00883"></a>00883 <span class="keywordflow">if</span> ( !<a class="code" href="classKArchive.html#ace294a6f5bf3f46019ab59a346287149" title="Checks whether the archive is open.">isOpened</a>() )
<a name="l00884"></a>00884 {
<a name="l00885"></a>00885 kdWarning(7041) << <span class="stringliteral">"KTar::writeSymLink: You must open the tar file before writing to it\n"</span>;
<a name="l00886"></a>00886 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00887"></a>00887 }
<a name="l00888"></a>00888
<a name="l00889"></a>00889 <span class="keywordflow">if</span> ( !(<a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_WriteOnly) )
<a name="l00890"></a>00890 {
<a name="l00891"></a>00891 kdWarning(7041) << <span class="stringliteral">"KTar::writeSymLink: You must open the tar file for writing\n"</span>;
<a name="l00892"></a>00892 <span class="keywordflow">return</span> <span class="keyword">false</span>;
<a name="l00893"></a>00893 }
<a name="l00894"></a>00894
<a name="l00895"></a>00895 <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#flush">flush</a>();
<a name="l00896"></a>00896
<a name="l00897"></a>00897 <span class="comment">// In some tar files we can find dir/./file => call cleanDirPath</span>
<a name="l00898"></a>00898 <a class="codeRef" href="qstring.html">QString</a> <a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a> ( <a class="codeRef" href="qdir.html#cleanDirPath">QDir::cleanDirPath</a>( name ) );
<a name="l00899"></a>00899
<a name="l00900"></a>00900 <span class="keywordtype">char</span> buffer[ 0x201 ];
<a name="l00901"></a>00901 memset( buffer, 0, 0x200 );
<a name="l00902"></a>00902 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>(d->tarEnd); <span class="comment">// Go to end of archive as might have moved with a read</span>
<a name="l00903"></a>00903
<a name="l00904"></a>00904 <span class="comment">// provide converted stuff we need lateron</span>
<a name="l00905"></a>00905 <a class="codeRef" href="qcstring.html">QCString</a> encodedFilename = <a class="codeRef" href="qfile.html#encodeName">QFile::encodeName</a>(<a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a>);
<a name="l00906"></a>00906 <a class="codeRef" href="qcstring.html">QCString</a> encodedTarget = <a class="codeRef" href="qfile.html#encodeName">QFile::encodeName</a>(target);
<a name="l00907"></a>00907 <a class="codeRef" href="qcstring.html">QCString</a> uname = user.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>();
<a name="l00908"></a>00908 <a class="codeRef" href="qcstring.html">QCString</a> gname = group.<a class="codeRef" href="qstring.html#local8Bit">local8Bit</a>();
<a name="l00909"></a>00909
<a name="l00910"></a>00910 <span class="comment">// If more than 100 chars, we need to use the LongLink trick</span>
<a name="l00911"></a>00911 <span class="keywordflow">if</span> (target.<a class="codeRef" href="qstring.html#length">length</a>() > 99)
<a name="l00912"></a>00912 writeLonglink(buffer,encodedTarget,<span class="charliteral">'K'</span>,uname,gname);
<a name="l00913"></a>00913 <span class="keywordflow">if</span> ( <a class="code" href="classKTar.html#a44968ffc5f2db8772bb22e5f0eb4162d" title="The name of the tar file, as passed to the constructor Null if you used the QIODevice constructor...">fileName</a>.<a class="codeRef" href="qstring.html#length">length</a>() > 99 )
<a name="l00914"></a>00914 writeLonglink(buffer,encodedFilename,<span class="charliteral">'L'</span>,uname,gname);
<a name="l00915"></a>00915
<a name="l00916"></a>00916 <span class="comment">// Write (potentially truncated) name</span>
<a name="l00917"></a>00917 strncpy( buffer, encodedFilename, 99 );
<a name="l00918"></a>00918 buffer[99] = 0;
<a name="l00919"></a>00919 <span class="comment">// Write (potentially truncated) symlink target</span>
<a name="l00920"></a>00920 strncpy(buffer+0x9d, encodedTarget, 99);
<a name="l00921"></a>00921 buffer[0x9d+99] = 0;
<a name="l00922"></a>00922 <span class="comment">// zero out the rest</span>
<a name="l00923"></a>00923 memset(buffer+0x9d+100, 0, 0x200 - 100 - 0x9d);
<a name="l00924"></a>00924
<a name="l00925"></a>00925 <a class="codeRef" href="qcstring.html">QCString</a> permstr;
<a name="l00926"></a>00926 permstr.<a class="codeRef" href="qcstring.html#sprintf">sprintf</a>(<span class="stringliteral">"%o"</span>,perm);
<a name="l00927"></a>00927 permstr = permstr.<a class="codeRef" href="qcstring.html#rightJustify">rightJustify</a>(6, <span class="charliteral">' '</span>);
<a name="l00928"></a>00928 fillBuffer(buffer, permstr, 0, mtime, 0x32, uname, gname);
<a name="l00929"></a>00929
<a name="l00930"></a>00930 <span class="comment">// Write header</span>
<a name="l00931"></a>00931 <span class="keywordtype">bool</span> retval = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#writeBlock">writeBlock</a>( buffer, 0x200 ) == 0x200;
<a name="l00932"></a>00932 <span class="keywordflow">if</span> ( <a class="code" href="classKArchive.html#a8b33f0b89ed4dbc81d03bb5498b91048" title="Returns the mode in which the archive was opened.">mode</a>() & IO_ReadWrite ) d->tarEnd = <a class="code" href="classKArchive.html#a42393a1c08518fcf8d8d956872be72ea" title="The underlying device.">device</a>()-><a class="codeRef" href="qiodevice.html#at">at</a>();
<a name="l00933"></a>00933 <span class="keywordflow">return</span> retval;
<a name="l00934"></a>00934 }
<a name="l00935"></a>00935
<a name="l00936"></a>00936 <span class="keywordtype">void</span> KTar::virtual_hook( <span class="keywordtype">int</span> <span class="keywordtype">id</span>, <span class="keywordtype">void</span>* data ) {
<a name="l00937"></a>00937 <span class="keywordflow">switch</span> (<span class="keywordtype">id</span>) {
<a name="l00938"></a>00938 <span class="keywordflow">case</span> VIRTUAL_WRITE_SYMLINK: {
<a name="l00939"></a>00939 WriteSymlinkParams *params = <span class="keyword">reinterpret_cast<</span>WriteSymlinkParams *<span class="keyword">></span>(data);
<a name="l00940"></a>00940 params->retval = writeSymLink_impl(*params->name,*params->target,
<a name="l00941"></a>00941 *params->user,*params->group,params->perm,
<a name="l00942"></a>00942 params->atime,params->mtime,params->ctime);
<a name="l00943"></a>00943 <span class="keywordflow">break</span>;
<a name="l00944"></a>00944 }
<a name="l00945"></a>00945 <span class="keywordflow">case</span> VIRTUAL_WRITE_DIR: {
<a name="l00946"></a>00946 WriteDirParams *params = <span class="keyword">reinterpret_cast<</span>WriteDirParams *<span class="keyword">></span>(data);
<a name="l00947"></a>00947 params->retval = writeDir_impl(*params->name,*params->user,
<a name="l00948"></a>00948 *params->group,params->perm,
<a name="l00949"></a>00949 params->atime,params->mtime,params->ctime);
<a name="l00950"></a>00950 <span class="keywordflow">break</span>;
<a name="l00951"></a>00951 }
<a name="l00952"></a>00952 <span class="keywordflow">case</span> VIRTUAL_PREPARE_WRITING: {
<a name="l00953"></a>00953 PrepareWritingParams *params = <span class="keyword">reinterpret_cast<</span>PrepareWritingParams *<span class="keyword">></span>(data);
<a name="l00954"></a>00954 params->retval = prepareWriting_impl(*params->name,*params->user,
<a name="l00955"></a>00955 *params->group,params->size,params->perm,
<a name="l00956"></a>00956 params->atime,params->mtime,params->ctime);
<a name="l00957"></a>00957 <span class="keywordflow">break</span>;
<a name="l00958"></a>00958 }
<a name="l00959"></a>00959 <span class="keywordflow">default</span>:
<a name="l00960"></a>00960 KArchive::virtual_hook( <span class="keywordtype">id</span>, data );
<a name="l00961"></a>00961 }<span class="comment">/*end switch*/</span>
<a name="l00962"></a>00962 }
<a name="l00963"></a>00963
</pre></div></div>
</div>
</div></div>
</td>
</tr>
<tr>
<td valign="top" id="leftmenu" width="25%">
<a name="navigation"></a>
<div class="menu_box"><h2>kio/kio</h2>
<div class="nav_list">
<ul><li><a href="index.html">Main Page</a></li><li><a href="modules.html">Modules</a></li><li><a href="namespaces.html">Namespace List</a></li><li><a href="hierarchy.html">Class Hierarchy</a></li><li><a href="classes.html">Alphabetical List</a></li><li><a href="annotated.html">Class List</a></li><li><a href="files.html">File List</a></li><li><a href="namespacemembers.html">Namespace Members</a></li><li><a href="functions.html">Class Members</a></li><li><a href="pages.html">Related Pages</a></li></ul>
<!--
<h2>Class Picker</h2>
<div style="text-align: center;">
<form name="guideform">
<select name="guidelinks" style="width:100%;" onChange="window.location=document.guideform.guidelinks.options[document.guideform.guidelinks.selectedIndex].value">
<option value="annotated.html">-- Choose --</option>
<option value="classKACL.html">kacl</option>, <option value="classKAr.html">kar</option>, <option value="classKArchive.html">karchive</option>, <option value="classKArchiveDirectory.html">karchivedirectory</option>, <option value="classKArchiveEntry.html">karchiveentry</option>, <option value="classKArchiveFile.html">karchivefile</option>, <option value="classKAutoMount.html">kautomount</option>, <option value="classKAutoUnmount.html">kautounmount</option>, <option value="classKDataTool.html">kdatatool</option>, <option value="classKDataToolAction.html">kdatatoolaction</option>, <option value="classKDataToolInfo.html">kdatatoolinfo</option>, <option value="classKDCOPServiceStarter.html">kdcopservicestarter</option>, <option value="classKDEDesktopMimeType.html">kdedesktopmimetype</option>, <option value="classKDirLister.html">kdirlister</option>, <option value="classKDirNotify.html">kdirnotify</option>, <option value="classKDirWatch.html">kdirwatch</option>, <option value="classKEMailSettings.html">kemailsettings</option>, <option value="classKExecMimeType.html">kexecmimetype</option>, <option value="classKFileFilter.html">kfilefilter</option>, <option value="classKFileItem.html">kfileitem</option>, <option value="classKFileMetaInfo.html">kfilemetainfo</option>, <option value="classKFileMetaInfoGroup.html">kfilemetainfogroup</option>, <option value="classKFileMetaInfoItem.html">kfilemetainfoitem</option>, <option value="classKFileMimeTypeInfo.html">kfilemimetypeinfo</option>, <option value="classKFileMimeTypeInfo_1_1GroupInfo.html">kfilemimetypeinfo::groupinfo</option>, <option value="classKFileMimeTypeInfo_1_1ItemInfo.html">kfilemimetypeinfo::iteminfo</option>, <option value="classKFilePlugin.html">kfileplugin</option>, <option value="classKFileShare.html">kfileshare</option>, <option value="classKFilterBase.html">kfilterbase</option>, <option value="classKFilterDev.html">kfilterdev</option>, <option value="classKFolderType.html">kfoldertype</option>, <option value="classKImageIO.html">kimageio</option>, <option value="classKIO_1_1AuthInfo.html">kio::authinfo</option>, <option value="classKIO_1_1ChmodJob.html">kio::chmodjob</option>, <option value="classKIO_1_1Connection.html">kio::connection</option>, <option value="classKIO_1_1CopyJob.html">kio::copyjob</option>, <option value="classKIO_1_1DataProtocol.html">kio::dataprotocol</option>, <option value="classKIO_1_1DataSlave.html">kio::dataslave</option>, <option value="classKIO_1_1DavJob.html">kio::davjob</option>, <option value="classKIO_1_1DeleteJob.html">kio::deletejob</option>, <option value="classKIO_1_1FileCopyJob.html">kio::filecopyjob</option>, <option value="classKIO_1_1ForwardingSlaveBase.html">kio::forwardingslavebase</option>, <option value="classKIO_1_1Job.html">kio::job</option>, <option value="classKIO_1_1ListJob.html">kio::listjob</option>, <option value="classKIO_1_1MetaData.html">kio::metadata</option>, <option value="classKIO_1_1MetaInfoJob.html">kio::metainfojob</option>, <option value="classKIO_1_1MimetypeJob.html">kio::mimetypejob</option>, <option value="classKIO_1_1MkdirJob.html">kio::mkdirjob</option>, <option value="classKIO_1_1MultiGetJob.html">kio::multigetjob</option>, <option value="classKIO_1_1NetAccess.html">kio::netaccess</option>, <option value="classKIO_1_1NetRC.html">kio::netrc</option>, <option value="classKIO_1_1PasswordDialog.html">kio::passworddialog</option>, <option value="classKIO_1_1PreviewJob.html">kio::previewjob</option>, <option value="classKIO_1_1ProgressBase.html">kio::progressbase</option>, <option value="classKIO_1_1RenameDlg.html">kio::renamedlg</option>, <option value="classKIO_1_1Scheduler.html">kio::scheduler</option>, <option value="classKIO_1_1SimpleJob.html">kio::simplejob</option>, <option value="classKIO_1_1Slave.html">kio::slave</option>, <option value="classKIO_1_1SlaveBase.html">kio::slavebase</option>, <option value="classKIO_1_1SlaveConfig.html">kio::slaveconfig</option>, <option value="classKIO_1_1SlaveInterface.html">kio::slaveinterface</option>, <option value="classKIO_1_1StatJob.html">kio::statjob</option>, <option value="classKIO_1_1StatusbarProgress.html">kio::statusbarprogress</option>, <option value="classKIO_1_1StoredTransferJob.html">kio::storedtransferjob</option>, <option value="classKIO_1_1TCPSlaveBase.html">kio::tcpslavebase</option>, <option value="classKIO_1_1TransferJob.html">kio::transferjob</option>, <option value="classKLimitedIODevice.html">klimitediodevice</option>, <option value="classKMimeMagic.html">kmimemagic</option>, <option value="classKMimeMagicResult.html">kmimemagicresult</option>, <option value="classKMimeType.html">kmimetype</option>, <option value="classKMimeTypeChooser.html">kmimetypechooser</option>, <option value="classKMimeTypeChooserDialog.html">kmimetypechooserdialog</option>, <option value="classKMimeTypeResolver.html">kmimetyperesolver</option>, <option value="classKNFSShare.html">knfsshare</option>, <option value="classKOCRDialog.html">kocrdialog</option>, <option value="classKOCRDialogFactory.html">kocrdialogfactory</option>, <option value="classKOpenWithHandler.html">kopenwithhandler</option>, <option value="classKProtocolInfo.html">kprotocolinfo</option>, <option value="classKProtocolManager.html">kprotocolmanager</option>, <option value="classKRemoteEncoding.html">kremoteencoding</option>, <option value="classKRun.html">krun</option>, <option value="classKSambaShare.html">ksambashare</option>, <option value="classKScanDialog.html">kscandialog</option>, <option value="classKScanDialogFactory.html">kscandialogfactory</option>, <option value="classKService.html">kservice</option>, <option value="classKServiceGroup.html">kservicegroup</option>, <option value="classKServiceOffer.html">kserviceoffer</option>, <option value="classKServiceType.html">kservicetype</option>, <option value="classKServiceTypeProfile.html">kservicetypeprofile</option>, <option value="classKShellCompletion.html">kshellcompletion</option>, <option value="classKShred.html">kshred</option>, <option value="classKSimpleFileFilter.html">ksimplefilefilter</option>, <option value="classKTar.html">ktar</option>, <option value="classKTrader.html">ktrader</option>, <option value="classKURIFilter.html">kurifilter</option>, <option value="classKURIFilterData.html">kurifilterdata</option>, <option value="classKURIFilterPlugin.html">kurifilterplugin</option>, <option value="classKURIFilterPluginList.html">kurifilterpluginlist</option>, <option value="classKURLCompletion.html">kurlcompletion</option>, <option value="classKURLPixmapProvider.html">kurlpixmapprovider</option>, <option value="classKZip.html">kzip</option>, <option value="classObserver.html">observer</option>, <option value="classRenameDlgPlugin.html">renamedlgplugin</option>, <option value="classThumbCreator.html">thumbcreator</option>,
</select>
</form>
</div>
-->
</div></div>
<div class="menu_box"><h2>API Dox</h2>
<div class="nav_list">
<ul>
<li><a href="../../../arts/html/index.html">arts</a></li><li><a href="../../../dcop/html/index.html">dcop</a></li><li><a href="../../../dnssd/html/index.html">dnssd</a></li><li><a href="../../../interfaces/html/index.html">interfaces</a></li><li> <a href="../../../interfaces/kimproxy/interface/html/index.html">interface</a></li><li> <a href="../../../interfaces/kimproxy/library/html/index.html">library</a></li><li> <a href="../../../interfaces/kspeech/html/index.html">kspeech</a></li><li> <a href="../../../interfaces/ktexteditor/html/index.html">ktexteditor</a></li><li><a href="../../../kabc/html/index.html">kabc</a></li><li><a href="../../../kate/html/index.html">kate</a></li><li><a href="../../../kcmshell/html/index.html">kcmshell</a></li><li><a href="../../../kdecore/html/index.html">kdecore</a></li><li><a href="../../../kded/html/index.html">kded</a></li><li><a href="../../../kdefx/html/index.html">kdefx</a></li><li><a href="../../../kdeprint/html/index.html">kdeprint</a></li><li><a href="../../../kdesu/html/index.html">kdesu</a></li><li><a href="../../../kdeui/html/index.html">kdeui</a></li><li><a href="../../../kdoctools/html/index.html">kdoctools</a></li><li><a href="../../../khtml/html/index.html">khtml</a></li><li><a href="../../../kimgio/html/index.html">kimgio</a></li><li><a href="../../../kinit/html/index.html">kinit</a></li><li><a href="../../../kio/html/index.html">kio</a></li><li> <a href="../../../kio/bookmarks/html/index.html">bookmarks</a></li><li> <a href="../../../kio/httpfilter/html/index.html">httpfilter</a></li><li> <a href="../../../kio/kfile/html/index.html">kfile</a></li><li> <a href="../../../kio/kio/html/index.html">kio</a></li><li> <a href="../../../kio/kioexec/html/index.html">kioexec</a></li><li> <a href="../../../kio/kpasswdserver/html/index.html">kpasswdserver</a></li><li> <a href="../../../kio/kssl/html/index.html">kssl</a></li><li><a href="../../../kioslave/html/index.html">kioslave</a></li><li> <a href="../../../kioslave/http/html/index.html">http</a></li><li><a href="../../../kjs/html/index.html">kjs</a></li><li><a href="../../../kmdi/html/index.html">kmdi</a></li><li> <a href="../../../kmdi/kmdi/html/index.html">kmdi</a></li><li><a href="../../../knewstuff/html/index.html">knewstuff</a></li><li><a href="../../../kparts/html/index.html">kparts</a></li><li><a href="../../../kresources/html/index.html">kresources</a></li><li><a href="../../../kspell2/html/index.html">kspell2</a></li><li><a href="../../../kunittest/html/index.html">kunittest</a></li><li><a href="../../../kutils/html/index.html">kutils</a></li><li><a href="../../../kwallet/html/index.html">kwallet</a></li><li><a href="../../../libkmid/html/index.html">libkmid</a></li><li><a href="../../../libkscreensaver/html/index.html">libkscreensaver</a></li>
</ul></div></div>
</td>
</tr>
</table>
<span class="doNotDisplay">
<a href="http://www.kde.org/" accesskey="8">KDE Home</a> |
<a href="http://accessibility.kde.org/" accesskey="9">KDE Accessibility Home</a> |
<a href="http://www.kde.org/media/accesskeys.php" accesskey="0">Description of Access Keys</a>
</span>
<div style="height: 8px"></div>
<div id="footer">
<div id="footer_left">
Maintained by <a href="mailto:groot@kde.org">Adriaan de Groot</a>
and
<a href="mailto:winter@kde.org">Allen Winter</a>.
<br/>
KDE and K Desktop Environment are trademarks of <a href="http://www.kde.org/areas/kde-ev/" title="Homepage of the KDE non-profit Organization">KDE e.V.</a> |
<a href="http://www.kde.org/contact/impressum.php">Legal</a>
</div>
<div id="footer_right"><img src="/media/images/footer_right.png" style="margin: 0px" alt="" /></div>
</div>
<!--
WARNING: DO NOT SEND MAIL TO THE FOLLOWING EMAIL ADDRESS! YOU WILL
BE BLOCKED INSTANTLY AND PERMANENTLY!
<a href="mailto:aaaatrap-425acc3b5374943f@kde.org">Block me</a>
WARNING END
-->
</body>
</html>
