path: root/tqtinterface/qt4/src/tools/tqfileinfo_unix.cpp

/****************************************************************************
**
** Implementation of TQFileInfo class
**
** Created : 950628
**
** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
**
** 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 "tqplatformdefs.h"
#include "tqfileinfo.h"
#include "tqfiledefs_p.h"
#include "tqdatetime.h"
#include "tqdir.h"

#include <limits.h>
#if !defined(TQWS) && defined(TQ_OS_MAC)
# include <tqt_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(TQ_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(TQ_OS_UNIX) && !defined(TQ_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(TQ_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 ) )
	    qWarning( "I can change the file; my group can read the file" );
	if ( fi.permission( TQFileInfo::WriteGroup | TQFileInfo::WriteOther ) )
	    qWarning( "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 tqmask = 0;
	if ( permissionSpec & ReadOwner )
	    tqmask |= S_IRUSR;
	if ( permissionSpec & WriteOwner )
	    tqmask |= S_IWUSR;
	if ( permissionSpec & ExeOwner )
	    tqmask |= S_IXUSR;
	if ( permissionSpec & ReadUser )
	    tqmask |= S_IRUSR;
	if ( permissionSpec & WriteUser )
	    tqmask |= S_IWUSR;
	if ( permissionSpec & ExeUser )
	    tqmask |= S_IXUSR;
	if ( permissionSpec & ReadGroup )
	    tqmask |= S_IRGRP;
	if ( permissionSpec & WriteGroup )
	    tqmask |= S_IWGRP;
	if ( permissionSpec & ExeGroup )
	    tqmask |= S_IXGRP;
	if ( permissionSpec & ReadOther )
	    tqmask |= S_IROTH;
	if ( permissionSpec & WriteOther )
	    tqmask |= S_IWOTH;
	if ( permissionSpec & ExeOther )
	    tqmask |= S_IXOTH;
	if ( tqmask ) {
	   return (fic->st.st_mode & tqmask) == tqmask;
	} else {
#if defined(TQT_CHECK_NULL)
	   qWarning( "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(TQ_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 TQT_NO_DIR
TQString TQFileInfo::dirPath( bool absPath ) const
{
    TQString s;
    if ( absPath )
	s = absFilePath();
    else
	s = fn;
    int pos = s.tqfindRev( '/' );
    if ( pos == -1 ) {
	return TQString::tqfromLatin1( "." );
    } else {
	if ( pos == 0 )
	    return TQString::tqfromLatin1( "/" );
	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.tqfindRev( '/' );
    if ( p == -1 ) {
	return fn;
    } else {
	return fn.mid( p + 1 );
    }
}