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

Go to the documentation of this file.

/*
 * lib/sourcepos/sourcfile.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 "sourcefile.h"
#include "spcache.h"
#include "sparchive.h"


TLString _InternalSourceFileNode::IncludeHierarchyStr() const
{
    if(!this)  return TLString();
    
    // This is not a hierarchy but the current file, if up=NULL. 
    if(!up)  return TLString();
    
    TLString str;
    str+="In file \""+_path+"\" [is the following correct?? FIMXE?]";
    
    for(const _InternalSourceFileNode *i=this; i->up; i=i->up)
    {
        str+=",\n\tincluded from "+i->up->_path;
        TLString loc;
        if(i->parent_include_line>=0 && i->parent_include_lpos>=0)
        { loc.sprintf(":%d:%d",i->parent_include_line,i->parent_include_lpos); }
        else if(i->parent_include_line>=0)
        { loc.sprintf(":%d",i->parent_include_line); }
        else if(i->parent_include_lpos>=0)
        { loc.sprintf(":???:%d",i->parent_include_lpos); }
        str+=loc;
    }
    
    str+=":\n";
    
    return(str);
}


SourceFileNode _InternalSourceFileNode::CreateSingleNode(const TLString &path)
{
    _InternalSourceFileNode *ifn=new _InternalSourceFileNode(path,NULL,NULL);
    return(SourceFileNode(ifn));
}


void _InternalSourceFileNode::_DestroyPosCache()
{
    if(!this) return;
    
    // Leave that outside class def or we may get trouble with 
    // "invalid use of undefined type `struct SourcePositionCache'". 
    DELETE(pos_cache);
}


_InternalSourceFileNode::_InternalSourceFileNode(const TLString &xpath,
    _InternalSourceFileNode *parent,SourcePositionArchive *_pos_archive) : 
    InternalRefNodeBase_ThreadSave(),
    LinkedListBase<_InternalSourceFileNode>(),
    _path(xpath),
    down()
{
    up=parent;
    
    pos_archive=_pos_archive;
    
    parent_include_line=-1;
    parent_include_lpos=-1;
    include_stmt_pos=-1;
    include_stmt_len=0;  // (unsigned)
    
    if(pos_archive)
    {  pos_cache=new SourcePositionCache();  }
    else
    {  pos_cache=NULL;  }
    
    if(up)
    {  up->_AddChild(this);  }
}

_InternalSourceFileNode::~_InternalSourceFileNode()
{
    // We may not have refcnt=0 and hence get destroyed if there are 
    // still some children left. 
    CritAssert(down.IsEmpty());
    
    // Make sure we delete our down pointer at the parent: 
    if(up)
    {
        up->_DelChild(this);
        up=NULL;
    }
    
    // Destroy position cache if still there: 
    DELETE(pos_cache);
    
    // Inform the pos archive: 
    if(pos_archive)
    {  pos_archive->DestroyingISF(this);  }
}

---