/ray/src/lib/lex/location.cc

Go to the documentation of this file.

/*
 * lib/lex/location.cc
 * 
 * Source code location (file/line) representation. 
 * 
 * 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 "location.h"


TLString SCLocationRange::RangeString(int with_files) const
{
    TLString str;
    if(with_files>1)
    {  str+=loc0.pos->IncludeHierarchyStr();  }
    str+=loc0.pos->PosRangeString(loc1.pos,with_files);
    return(str);
}


TLString SCLocationRange::RelString(const SCLocationRange &rloc) const
{
    if(loc0.pos->file()==loc1.pos->file() && 
       loc0.pos->file()==rloc.loc0.pos->file() && 
       loc0.pos->file()==rloc.loc1.pos->file() )
    {
        return(RangeString(/*with_file=*/0));
    }
    else
    {  return(RangeString());  }
}


TLString SCLocationRange::RelString(const SCLocation &rloc) const
{
    if(loc0.pos->file()==loc1.pos->file() && 
       loc0.pos->file()==rloc.pos->file() )
    {
        return(RangeString(/*with_file=*/0));
    }
    else
    {  return(RangeString());  }
}


TLString SCLocation::LocString(int with_inc_hierarchy) const
{
    TLString str;
    if(with_inc_hierarchy)
    {  str+=pos->IncludeHierarchyStr();  }
    str+=pos->PosString();
    return(str);
}


TLString SCLocation::RelString(const SCLocation &rloc) const
{
    return(pos->PosStringRelative(rloc.pos));
}


SCLocation::SCLocation(const TLString &path,int line,int lpos) : 
    pos()
{
    if(!path && line<0 && lpos<0)  return;
    
    SourceFileNode sfn;
    if(path)
    {  sfn=_InternalSourceFileNode::CreateSingleNode(path);  }
    
    pos=_InternalSourcePosition::CreateSinglePosition(sfn,line,pos);
}

---