/ray/src/lib/sourcepos/sourcepos.cc

Go to the documentation of this file.

/*
 * lib/sourcepos/sourcepos.cc
 * 
 * Classes for sophisticated source position (file/line/lpos, 
 * include hierarchy) handling. 
 * 
 * Copyright (c) 2003--2004 by Wolfgang Wieser ] wwieser (a) gmx <*> de [ 
 * 
 * This file may be distributed and/or modified under the terms of the 
 * GNU General Public License version 2 as published by the Free Software 
 * Foundation. (See COPYING.GPL for details.)
 * 
 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 * 
 */

#include "sourcepos.h"
#include "sparchive.h"


TLString _InternalSourcePosition::IncludeHierarchyStr() const
{
    if(!this || !_file)  return TLString();
    
    return(_file->IncludeHierarchyStr());
}


TLString _InternalSourcePosition::PosString(bool with_file) const
{
    if(!this)
    {
        return("(null)");
    }
    else if(_line<0)
    {
        if(with_file)  return(path());
        else  return("");
    }
    else if(_lpos<0)
    {
        TLString dest;
        if(with_file)  dest.sprintf("%s:%d",path().str(),_line);
        else  dest.sprintf("%d",_line);
        return(dest);
    }
    else
    {
        TLString dest;
        if(with_file)  dest.sprintf("%s:%d:%d",path().str(),_line,_lpos);
        else  dest.sprintf("%d:%d",_line,_lpos);
        return(dest);
    }
    return TLString();
}


TLString _InternalSourcePosition::PosRangeString(const SourcePosition &end,
    bool with_file) const
{
    TLString dest;
    
    if(!this)  return(dest);
    
    int line0=_line;
    int lpos0=_lpos;
    SourceFileNode sfn0=file();
    
    int line1=end->_line;
    int lpos1=end->_lpos;
    SourceFileNode sfn1=end->file();
    
    if(sfn0!=sfn1)
    {
        dest=PosString(with_file)+".."+end->PosString(with_file);
    }
    else if(line0!=line1 || lpos0<0 || lpos1<0)
    {
do_it_above:;
        // Print first position: 
        dest=PosString(with_file)+"..";
        
        // Print second position without path: 
        TLString tmp;
        if(line1<0)
        {  tmp="??";  }
        else if(lpos1<0)
        {  tmp.sprintf("%d",line1);  }
        else
        {  tmp.sprintf("%d:%d",line1,lpos1);  }
        dest+=tmp;
    }
    else if(lpos0!=lpos1)
    {
        if(line0<0 || line1<0)
        {  goto do_it_above;  }
        
        if(with_file)
        {  dest.sprintf("%s:%d:[%d..%d]",
            sfn0->path().str(),line0,lpos0,lpos1);  }
        else
        {  dest.sprintf("%d:[%d..%d]",line0,lpos0,lpos1);  }
    }
    else
    {
        // Start and end are equal. 
        dest=PosString(with_file);
    }
    
    return(dest);
}


TLString _InternalSourcePosition::PosStringRelative(
    const SourcePosition &rpos) const
{
    if(!this || _file!=rpos->_file)
    {  return(PosString());  }
    
    TLString dest;
    if(_lpos<0)
    {  dest.sprintf("%d",_line);  }
    else
    {  dest.sprintf("%d:%d",_line,_lpos);  }
    
    return(dest);
}


bool _InternalSourcePosition::test_equal(const _InternalSourcePosition &sp) 
    const
{
    if(!this || !&sp)  return(0);
    
    // Compare internal node: 
    if(this==&sp)  return(1);
    
    // Compare position data: 
    if(_line!=sp._line || _lpos!=sp._lpos || _file!=sp._file)  return(0);
    
    return(1);
}


SourcePosition _InternalSourcePosition::CreateSinglePosition(
    const SourceFileNode &sfn,int line,int lpos)
{
    _InternalSourcePosition *isp=new _InternalSourcePosition(sfn,line,lpos);
    return(SourcePosition(isp));
}


_InternalSourcePosition::_InternalSourcePosition(const SourceFileNode &_fnode,
    int xline,int xlpos) : 
    InternalRefNodeBase_ThreadSave(),
    _file(_fnode)
{
    _line=xline;
    _lpos=xlpos;
}

_InternalSourcePosition::~_InternalSourcePosition()
{
    // This is overriding a virtual anyways...
    
    if(_file && _file->archive())
    {
        // This is clean destruction: Tell the archive 
        // (to keep statistics in sync). 
        _file->archive()->DestroyingISP(this);
    }
}

---