You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
171 lines
5.3 KiB
171 lines
5.3 KiB
|
|
/* This file is part of the KDE libraries
|
|
Copyright (C) 2002 Laurence Anderson <l.d.anderson@warwick.ac.uk>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License version 2 as published by the Free Software Foundation.
|
|
|
|
This library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA.
|
|
*/
|
|
|
|
#include <tqfile.h>
|
|
#include <tqdir.h>
|
|
#include <time.h>
|
|
#include <kdebug.h>
|
|
#include <tqptrlist.h>
|
|
#include <kmimetype.h>
|
|
#include <tqregexp.h>
|
|
|
|
#include "kfilterdev.h"
|
|
#include "kar.h"
|
|
//#include "klimitediodevice.h"
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
/////////////////////////// KAr ///////////////////////////////////////
|
|
////////////////////////////////////////////////////////////////////////
|
|
|
|
class KAr::KArPrivate
|
|
{
|
|
public:
|
|
KArPrivate() {}
|
|
};
|
|
|
|
KAr::KAr( const TQString& filename )
|
|
: KArchive( 0L )
|
|
{
|
|
//kdDebug(7042) << "KAr(filename) reached." << endl;
|
|
m_filename = filename;
|
|
d = new KArPrivate;
|
|
setDevice( TQT_TQIODEVICE(new TQFile( filename )) );
|
|
}
|
|
|
|
KAr::KAr( TQIODevice * dev )
|
|
: KArchive( dev )
|
|
{
|
|
//kdDebug(7042) << "KAr::KAr( TQIODevice * dev) reached." << endl;
|
|
d = new KArPrivate;
|
|
}
|
|
|
|
KAr::~KAr()
|
|
{
|
|
// mjarrett: Closes to prevent ~KArchive from aborting w/o device
|
|
//kdDebug(7042) << "~KAr reached." << endl;
|
|
if( isOpened() )
|
|
close();
|
|
if ( !m_filename.isEmpty() )
|
|
delete device(); // we created it ourselves
|
|
delete d;
|
|
}
|
|
|
|
bool KAr::openArchive( int mode )
|
|
{
|
|
// Open archive
|
|
|
|
//kdDebug(7042) << "openarchive reached." << endl;
|
|
|
|
if ( mode == IO_WriteOnly )
|
|
return true;
|
|
if ( mode != IO_ReadOnly && mode != IO_ReadWrite )
|
|
{
|
|
kdWarning(7042) << "Unsupported mode " << mode << endl;
|
|
return false;
|
|
}
|
|
|
|
TQIODevice* dev = device();
|
|
if ( !dev )
|
|
return false;
|
|
|
|
char magic[8];
|
|
dev->readBlock (magic, 8);
|
|
if (tqstrncmp(magic, "!<arch>", 7) != 0) {
|
|
kdWarning(7042) << "Invalid main magic" << endl;
|
|
return false;
|
|
}
|
|
|
|
char *ar_longnames = 0;
|
|
while (! dev->atEnd()) {
|
|
TQCString ar_header;
|
|
ar_header.resize(61);
|
|
TQCString name;
|
|
int date, uid, gid, mode, size;
|
|
|
|
dev->at( dev->at() + (2 - (dev->at() % 2)) % 2 ); // Ar headers are padded to byte boundary
|
|
|
|
if ( dev->readBlock (ar_header.data(), 60) != 60 ) { // Read ar header
|
|
kdWarning(7042) << "Couldn't read header" << endl;
|
|
delete[] ar_longnames;
|
|
//return false;
|
|
return true; // Probably EOF / trailing junk
|
|
}
|
|
|
|
if (ar_header.right(2) != "`\n") { // Check header magic
|
|
kdWarning(7042) << "Invalid magic" << endl;
|
|
delete[] ar_longnames;
|
|
return false;
|
|
}
|
|
|
|
name = ar_header.mid( 0, 16 ); // Process header
|
|
date = ar_header.mid( 16, 12 ).toInt();
|
|
uid = ar_header.mid( 28, 6 ).toInt();
|
|
gid = ar_header.mid( 34, 6 ).toInt();
|
|
mode = ar_header.mid( 40, 8 ).toInt();
|
|
size = ar_header.mid( 48, 10 ).toInt();
|
|
|
|
bool skip_entry = false; // Deal with special entries
|
|
if (name.mid(0, 1) == "/") {
|
|
if (name.mid(1, 1) == "/") { // Longfilename table entry
|
|
delete[] ar_longnames;
|
|
ar_longnames = new char[size + 1];
|
|
ar_longnames[size] = '\0';
|
|
dev->readBlock (ar_longnames, size);
|
|
skip_entry = true;
|
|
kdDebug(7042) << "Read in longnames entry" << endl;
|
|
} else if (name.mid(1, 1) == " ") { // Symbol table entry
|
|
kdDebug(7042) << "Skipped symbol entry" << endl;
|
|
dev->at( dev->at() + size );
|
|
skip_entry = true;
|
|
} else { // Longfilename
|
|
kdDebug(7042) << "Longfilename #" << name.mid(1, 15).toInt() << endl;
|
|
if (! ar_longnames) {
|
|
kdWarning(7042) << "Invalid longfilename reference" << endl;
|
|
return false;
|
|
}
|
|
name = &ar_longnames[name.mid(1, 15).toInt()];
|
|
name = name.left(name.find("/"));
|
|
}
|
|
}
|
|
if (skip_entry) continue;
|
|
|
|
name = name.stripWhiteSpace(); // Process filename
|
|
name.replace( "/", "" );
|
|
kdDebug(7042) << "Filename: " << name << " Size: " << size << endl;
|
|
|
|
KArchiveEntry* entry;
|
|
entry = new KArchiveFile(this, name, mode, date, /*uid*/ 0, /*gid*/ 0, 0, dev->at(), size);
|
|
rootDir()->addEntry(entry); // Ar files don't support directorys, so everything in root
|
|
|
|
dev->at( dev->at() + size ); // Skip contents
|
|
}
|
|
delete[] ar_longnames;
|
|
|
|
return true;
|
|
}
|
|
|
|
bool KAr::closeArchive()
|
|
{
|
|
// Close the archive
|
|
return true;
|
|
}
|
|
|
|
void KAr::virtual_hook( int id, void* data )
|
|
{ KArchive::virtual_hook( id, data ); }
|