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.
tqt3/src/tools/qfileinfo_unix.cpp

401 lines
10 KiB

/****************************************************************************
**
** Implementation of TQFileInfo class
**
** Created : 950628
**
** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved.
**
** This file is part of the tools module of the TQt GUI Toolkit.
**
** This file may be used under the terms of the GNU General
** Public License versions 2.0 or 3.0 as published by the Free
** Software Foundation and appearing in the files LICENSE.GPL2
** and LICENSE.GPL3 included in the packaging of this file.
** Alternatively you may (at your option) use any later version
** of the GNU General Public License if such license has been
** publicly approved by Trolltech ASA (or its successors, if any)
** and the KDE Free TQt Foundation.
**
** Please review the following information to ensure GNU General
** Public Licensing requirements will be met:
** http://trolltech.com/products/qt/licenses/licensing/opensource/.
** If you are unsure which license is appropriate for your use, please
** review the following information:
** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
** or contact the sales department at sales@trolltech.com.
**
** This file may be used under the terms of the Q Public License as
** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
** included in the packaging of this file. Licensees holding valid TQt
** Commercial licenses may use this file in accordance with the TQt
** Commercial License Agreement provided with the Software.
**
** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
** herein.
**
**********************************************************************/
#include "qplatformdefs.h"
#include "ntqfileinfo.h"
#include "qfiledefs_p.h"
#include "ntqdatetime.h"
#include "ntqdir.h"
#include <limits.h>
#if !defined(TQWS) && defined(Q_OS_MAC)
# include <qt_mac.h>
#endif
#if defined(Q_OS_HURD)
# include <stdlib.h>
#endif
void TQFileInfo::slashify( TQString& )
{
return;
}
void TQFileInfo::makeAbs( TQString & )
{
return;
}
/*!
Returns TRUE if this object points to a file. Returns FALSE if the
object points to something which isn't a file, e.g. a directory or
a symlink.
\sa isDir(), isSymLink()
*/
bool TQFileInfo::isFile() const
{
if ( !fic || !cache )
doStat();
return fic ? (fic->st.st_mode & S_IFMT) == S_IFREG : FALSE;
}
/*!
Returns TRUE if this object points to a directory or to a symbolic
link to a directory; otherwise returns FALSE.
\sa isFile(), isSymLink()
*/
bool TQFileInfo::isDir() const
{
if ( !fic || !cache )
doStat();
return fic ? (fic->st.st_mode & S_IFMT) == S_IFDIR : FALSE;
}
/*!
Returns TRUE if this object points to a symbolic link (or to a
shortcut on Windows, or an alias on Mac OS X); otherwise returns
FALSE.
\sa isFile(), isDir(), readLink()
*/
bool TQFileInfo::isSymLink() const
{
if ( !fic || !cache )
doStat();
if(symLink)
return TRUE;
#if !defined(TQWS) && defined(Q_OS_MAC)
{
FSRef fref;
if(FSPathMakeRef((const UInt8 *)TQFile::encodeName(fn).data(), &fref, NULL) == noErr) {
Boolean isAlias, isFolder;
if(FSIsAliasFile(&fref, &isAlias, &isFolder) == noErr)
return isAlias;
}
}
#endif
return FALSE;
}
/*!
Returns the name a symlink (or shortcut on Windows) points to, or
a TQString::null if the object isn't a symbolic link.
This name may not represent an existing file; it is only a string.
TQFileInfo::exists() returns TRUE if the symlink points to an
existing file.
\sa exists(), isSymLink(), isDir(), isFile()
*/
TQString TQFileInfo::readLink() const
{
if ( !isSymLink() )
return TQString();
#if defined(Q_OS_UNIX) && !defined(Q_OS_OS2EMX)
#if defined(__GLIBC__) && !defined(PATH_MAX)
int size = 256;
char *s = NULL, *s2;
while (1)
{
s2 = (char *) realloc (s, size);
if (s2 == NULL) {
free( s );
return TQString();
}
s = s2;
int len = readlink ( TQFile::encodeName(fn).data(), s, size );
if ( len < 0 ) {
free( s );
return TQString();
}
if ( len < size ) {
s[len] = '\0';
TQString str = TQFile::decodeName(s);
free(s);
return str;
}
size *= 2;
}
#else
char s[PATH_MAX+1];
int len = readlink( TQFile::encodeName(fn).data(), s, PATH_MAX );
if ( len >= 0 ) {
s[len] = '\0';
return TQFile::decodeName(s);
}
#endif /* __GLIBC__ && !PATH_MAX */
#endif /* Q_OS_UNIX && !Q_OS_OS2EMX */
#if !defined(TQWS) && defined(Q_OS_MAC)
{
FSRef fref;
if(FSPathMakeRef((const UInt8 *)TQFile::encodeName(fn).data(), &fref, NULL) == noErr) {
Boolean isAlias, isFolder;
if(FSResolveAliasFile(&fref, TRUE, &isFolder, &isAlias) == noErr && isAlias) {
AliasHandle alias;
if(FSNewAlias(0, &fref, &alias) == noErr && alias) {
CFStringRef cfstr;
if(FSCopyAliasInfo(alias, 0, 0, &cfstr, 0, 0) == noErr) {
TQString cfstring2qstring(CFStringRef str); //qglobal.cpp
return cfstring2qstring(cfstr);
}
}
}
}
}
#endif
return TQString();
}
static const uint nobodyID = (uint) -2;
/*!
Returns the owner of the file. On systems where files
do not have owners, or if an error occurs, TQString::null is
returned.
This function can be time consuming under Unix (in the order of
milliseconds).
\sa ownerId(), group(), groupId()
*/
TQString TQFileInfo::owner() const
{
passwd *pw = getpwuid( ownerId() );
if ( pw )
return TQFile::decodeName( pw->pw_name );
return TQString::null;
}
/*!
Returns the id of the owner of the file.
On Windows and on systems where files do not have owners this
function returns ((uint) -2).
\sa owner(), group(), groupId()
*/
uint TQFileInfo::ownerId() const
{
if ( !fic || !cache )
doStat();
if ( fic )
return fic->st.st_uid;
return nobodyID;
}
/*!
Returns the group of the file. On Windows, on systems where files
do not have groups, or if an error occurs, TQString::null is
returned.
This function can be time consuming under Unix (in the order of
milliseconds).
\sa groupId(), owner(), ownerId()
*/
TQString TQFileInfo::group() const
{
struct group *gr = getgrgid( groupId() );
if ( gr )
return TQFile::decodeName( gr->gr_name );
return TQString::null;
}
/*!
Returns the id of the group the file belongs to.
On Windows and on systems where files do not have groups this
function always returns (uint) -2.
\sa group(), owner(), ownerId()
*/
uint TQFileInfo::groupId() const
{
if ( !fic || !cache )
doStat();
if ( fic )
return fic->st.st_gid;
return nobodyID;
}
/*!
Tests for file permissions. The \a permissionSpec argument can be
several flags of type \c PermissionSpec OR-ed together to check
for permission combinations.
On systems where files do not have permissions this function
always returns TRUE.
Example:
\code
TQFileInfo fi( "/tmp/archive.tar.gz" );
if ( fi.permission( TQFileInfo::WriteUser | TQFileInfo::ReadGroup ) )
tqWarning( "I can change the file; my group can read the file" );
if ( fi.permission( TQFileInfo::WriteGroup | TQFileInfo::WriteOther ) )
tqWarning( "The group or others can change the file" );
\endcode
\sa isReadable(), isWritable(), isExecutable()
*/
bool TQFileInfo::permission( int permissionSpec ) const
{
if ( !fic || !cache )
doStat();
if ( fic ) {
uint mask = 0;
if ( permissionSpec & ReadOwner )
mask |= S_IRUSR;
if ( permissionSpec & WriteOwner )
mask |= S_IWUSR;
if ( permissionSpec & ExeOwner )
mask |= S_IXUSR;
if ( permissionSpec & ReadUser )
mask |= S_IRUSR;
if ( permissionSpec & WriteUser )
mask |= S_IWUSR;
if ( permissionSpec & ExeUser )
mask |= S_IXUSR;
if ( permissionSpec & ReadGroup )
mask |= S_IRGRP;
if ( permissionSpec & WriteGroup )
mask |= S_IWGRP;
if ( permissionSpec & ExeGroup )
mask |= S_IXGRP;
if ( permissionSpec & ReadOther )
mask |= S_IROTH;
if ( permissionSpec & WriteOther )
mask |= S_IWOTH;
if ( permissionSpec & ExeOther )
mask |= S_IXOTH;
if ( mask ) {
return (fic->st.st_mode & mask) == mask;
} else {
#if defined(QT_CHECK_NULL)
tqWarning( "TQFileInfo::permission: permissionSpec is 0" );
#endif
return TRUE;
}
} else {
return FALSE;
}
}
void TQFileInfo::doStat() const
{
TQFileInfo *that = ((TQFileInfo*)this); // mutable function
if ( !that->fic )
that->fic = new TQFileInfoCache;
that->symLink = FALSE;
struct stat *b = &that->fic->st;
#if defined(Q_OS_UNIX) && defined(S_IFLNK)
if ( ::lstat( TQFile::encodeName(fn), b ) == 0 ) {
if ( S_ISLNK( b->st_mode ) )
that->symLink = TRUE;
else
return;
}
#endif
int r = ::stat( TQFile::encodeName(fn), b );
if ( r != 0 && !that->symLink ) {
delete that->fic;
that->fic = 0;
}
}
/*!
Returns the file's path.
If \a absPath is TRUE an absolute path is returned.
\sa dir(), filePath(), fileName(), isRelative()
*/
#ifndef QT_NO_DIR
TQString TQFileInfo::dirPath( bool absPath ) const
{
TQString s;
if ( absPath )
s = absFilePath();
else
s = fn;
int pos = s.findRev( '/' );
if ( pos == -1 ) {
return TQString::fromLatin1( "." );
} else {
if ( pos == 0 )
return TQString::fromLatin1( "/" );
return s.left( pos );
}
}
#endif
/*!
Returns the name of the file, excluding the path.
Example:
\code
TQFileInfo fi( "/tmp/archive.tar.gz" );
TQString name = fi.fileName(); // name = "archive.tar.gz"
\endcode
\sa isRelative(), filePath(), baseName(), extension()
*/
TQString TQFileInfo::fileName() const
{
int p = fn.findRev( '/' );
if ( p == -1 ) {
return fn;
} else {
return fn.mid( p + 1 );
}
}