scopeinfo.cpp

//##################################################################################################
//  ALib C++ Framework
//
//  Copyright 2013-2025 A-Worx GmbH, Germany
//  Published under 'Boost Software License' (a free software license, see LICENSE.txt)
//##################################################################################################
#include "alib_precompile.hpp"
#if !defined(ALIB_C20_MODULES) || ((ALIB_C20_MODULES != 0) && (ALIB_C20_MODULES != 1))
#   error "Configuration MACRO ALIB_C20_MODULES has to be given to the compiler as either 0 or 1"
#endif
#if ALIB_C20_MODULES
    module;
#endif
//========================================= Global Fragment ========================================
#include "alib/strings/strings.prepro.hpp"
#include "alib/system/system.prepro.hpp"
#include "alib/alox/alox.prepro.hpp"
#include <vector>
#   include "ALib.Strings.StdFunctors.H"
 
//============================================== Module ============================================
#if ALIB_C20_MODULES
    module ALib.ALox.Impl;
    import   ALib.Lang;
    import   ALib.Characters.Functions;
    import   ALib.Strings;
    import   ALib.Strings.Tokenizer;
    import   ALib.Boxing;
    import   ALib.EnumRecords;
    import   ALib.EnumRecords.Bootstrap;
    import   ALib.Variables;
    import   ALib.Camp;
    import   ALib.Camp.Base;
#else
#   include "ALib.Lang.H"
#   include "ALib.Characters.Functions.H"
#   include "ALib.Strings.H"
#   include "ALib.Strings.Tokenizer.H"
#   include "ALib.Boxing.H"
#   include "ALib.EnumRecords.Bootstrap.H"
#   include "ALib.Variables.H"
#   include "ALib.System.H"
#   include "ALib.Camp.H"
#   include "ALib.Camp.Base.H"
#   include "ALib.Camp.H"
#   include "ALib.Camp.Base.H"
#   include "ALib.ALox.H"
#   include "ALib.ALox.Impl.H"
#endif
//========================================== Implementation ========================================
 
using namespace alib::system;
 
namespace alib {  namespace lox { namespace detail {
 
//##################################################################################################
// Static
//##################################################################################################
 
std::vector<ScopeInfo::SourcePathTrimRule>  ScopeInfo::GlobalSPTRs;
bool                                        ScopeInfo::GlobalSPTRsReadFromConfig       = false;
 
ScopeInfo::ScopeInfo( const NString& pName, MonoAllocator& allocator )
#if !ALIB_SINGLE_THREADED
: threadDictionary   (allocator)
,
#else
:
#endif
  parsedFileNameCache(allocator, 4, 6)
, callStack         (allocator)
, loxName            (allocator, pName)
{
    callStack.reserve(2);
    characters::ToUpper( const_cast<char*>( loxName.Buffer() ), loxName.Length() );
    ALIB_ASSERT_ERROR( !loxName.Equals<NC>( "GLOBAL" ), "ALOX",
                       "Name \"GLOBAL\" not allowed for Lox instances" )
 
    IF_ALIB_THREADS( threadDictionary.EmplaceUnique(Thread::GetMain()->GetID(), "PROCESS" ); )
 
    // read trim rules from config
    // do 2 times, 0== local list, 1== global list
    std::vector<SourcePathTrimRule>* trimInfoList;
    for( int trimInfoNo= 0; trimInfoNo < 2 ; ++trimInfoNo )
    { ALIB_LOCK_WITH(ALOX.GetConfig())
        Variable variable= variables::CampVariable(ALOX);
        
        // check if done... or set list
        if ( trimInfoNo == 0 ) {
            trimInfoList= &LocalSPTRs;
            ALIB_STRINGS_FROM_NARROW(loxName,sLoxName, 1024)
            variable.Declare( Variables::SPTR_LOX,  sLoxName );
        } else {
            if ( GlobalSPTRsReadFromConfig )
                continue;
            GlobalSPTRsReadFromConfig= true;
 
            trimInfoList= &GlobalSPTRs;
            variable.Declare( Variables::SPTR_GLOBAL );
        }
 
        if( variable.IsDefined()  ) {
            Tokenizer tokOuter;
            tokOuter.Set(variable, ';', true);
            while(tokOuter.HasNext()) {
                Tokenizer ruleTknzr( tokOuter.Next(), ',' );
                trimInfoList->emplace_back();
                SourcePathTrimRule& rule=trimInfoList->back();
                rule.Priority=  variable.GetPriority();
 
                ruleTknzr.Next();
                if( ( rule.IsPrefix= !ruleTknzr.Actual.StartsWith( A_CHAR("*") ) ) == false )
                    ruleTknzr.Actual.ConsumeChars(1);
                rule.Path._( ruleTknzr.Actual );
                if ( rule.Path.CharAtEnd() == '*' )
                    rule.Path.DeleteEnd( 1 );
 
                if ( rule.Path.IsEmpty() ) {
                    trimInfoList->pop_back();
                    continue;
                }
 
                if( DIRECTORY_SEPARATOR == '/' )
                    rule.Path.SearchAndReplace( '\\', '/'  );
                else
                    rule.Path.SearchAndReplace( '/' , '\\' );
 
                enumrecords::ParseEnumOrTypeBool( ruleTknzr.Next(), rule.IncludeString, lang::Inclusion::Exclude, lang::Inclusion::Include );
                ruleTknzr.Next().ConsumeInt( rule.TrimOffset );
                enumrecords::ParseEnumOrTypeBool( ruleTknzr.Next(), rule.Sensitivity, lang::Case::Ignore, lang::Case::Sensitive );
 
                rule.TrimReplacement.Reset( ruleTknzr.Next() );
}   }   }   }
 
void ScopeInfo::Set ( const lang::CallerInfo& ci ) {
    ++callStackSize;
    ALIB_ASSERT( callStackSize < 8, "ALOX")
    if( callStack.size() == size_t(callStackSize) )
        callStack.emplace_back();
 
    FrameRecord& scope= callStack[size_t(callStackSize)];
 
    scope.timeStamp =  Ticks::Now();
    scope.origLine  =  ci.Line;
    scope.origMethod=  ci.Func;
    auto resultPair =   parsedFileNameCache.Try( ci.File ); // search file in cache
    if( resultPair.first == false )
        resultPair.second.Construct(ci.File);
    scope.Parsed    =  &*resultPair.second;
 
   // we must not use ci.ThreadID, because this might be nulled with release logging
    IF_ALIB_THREADS(  threadNativeIDx= std::this_thread::get_id();
                      thread        = nullptr;
                      threadName    = nullptr;
                      )
}
 
void  ScopeInfo::SetSourcePathTrimRule( const NCString&     path,
                                        lang::Inclusion     includeString,
                                        int                 trimOffset,
                                        lang::Case          sensitivity,
                                        const NString&      trimReplacement,
                                        lang::Reach         reach,
                                        Priority            priority ) {
    // clear cache to have lazy variables reset with the next invocation
    parsedFileNameCache.Clear();
 
    // clear command
    if ( trimOffset == 999999 ) {
        LocalSPTRs.clear();
        if ( reach == lang::Reach::Global )
            GlobalSPTRs.clear();
        AutoDetectTrimableSourcePath=  (includeString == lang::Inclusion::Include);
 
        // reset config read flag. This is done for unit testing. Not really useful/needed in real life.
        GlobalSPTRsReadFromConfig=  false;
        return;
    }
 
    // choose local or global list
    std::vector<SourcePathTrimRule>* trimInfoList=
                   reach == lang::Reach::Global  ? &GlobalSPTRs
                                                 : &LocalSPTRs;
 
    // insert sorted by priority
    auto it= trimInfoList->begin();
    while( it != trimInfoList->end() && priority < it->Priority  )
        ++it;
 
    it= trimInfoList->emplace(it);
    SourcePathTrimRule& rule= *it;
    rule.Priority= priority;
 
    // if path starts with '*', it is not a prefix. We store without *
    rule.Path._(path, (rule.IsPrefix= (path.CharAtStart() != '*') ) == true  ? 0 : 1 );
    if ( rule.Path.CharAtEnd() == '*' )
        rule.Path.DeleteEnd( 1 );
    if ( rule.Path.IsEmpty() ) {
        trimInfoList->erase( it );
        return;
    }
 
    if( DIRECTORY_SEPARATOR == '/' )
        rule.Path.SearchAndReplace( '\\', '/'  );
    else
        rule.Path.SearchAndReplace( '/' , '\\' );
 
    rule.IncludeString=   includeString;
    rule.TrimOffset=      trimOffset;
    rule.Sensitivity=     sensitivity;
    rule.TrimReplacement.Reset( trimReplacement );
    if( DIRECTORY_SEPARATOR == '/' )
        rule.TrimReplacement.SearchAndReplace( '\\', '/'  );
    else
        rule.TrimReplacement.SearchAndReplace( '/' , '\\' );
}
 
 
void ScopeInfo::trimPath() {
    bool trimmed= false;
 
    ParsedFileName* actual= callStack[size_t(callStackSize)].Parsed;
    integer idx= getPathLength();
    if( idx < 0 ) {
        actual->trimmedPath= "";
        return;
    }
    actual->trimmedPath= NString( actual->origFile.Buffer(), idx );
 
 
    // do 2 times, 0== local list, 1== global list
    for( int trimInfoNo= 0; trimInfoNo < 2 ; ++trimInfoNo ) {
        // choose local or global list
        std::vector<SourcePathTrimRule>* trimInfoList=
                   trimInfoNo == 0   ? &LocalSPTRs
                                     : &GlobalSPTRs;
 
        // loop over trimInfo
        for ( auto& ti : *trimInfoList ) {
            if( ti.IsPrefix )
                idx= ( ti.Sensitivity == lang::Case::Sensitive  ? actual->trimmedPath.StartsWith<CHK,lang::Case::Sensitive>( ti.Path )
                                                                : actual->trimmedPath.StartsWith<CHK,lang::Case::Ignore   >( ti.Path )
                     )
 
                     ? 0 : -1;
            else
                idx= ti.Sensitivity == lang::Case::Sensitive  ? actual->trimmedPath.IndexOf<CHK, lang::Case::Sensitive>( ti.Path )
                                                              : actual->trimmedPath.IndexOf<CHK, lang::Case::Ignore   >( ti.Path );
            if ( idx >= 0 ) {
                integer startIdx= idx + ( ti.IncludeString == lang::Inclusion::Include ? ti.Path.Length() : 0 ) + ti.TrimOffset;
                actual->trimmedPath=        actual->trimmedPath.Substring( startIdx, actual->trimmedPath.Length() - startIdx );
                actual->trimmedPathPrefix=  ti.TrimReplacement;
 
                trimmed= true;
                break;
        }   }
 
        if (trimmed)
            break;
    }
 
    // if nothing was found and the flag is still set, try once to auto-detect rule
    // from the 'difference' of source path and current working directory
    if( !trimmed && AutoDetectTrimableSourcePath ) {
        AutoDetectTrimableSourcePath= false; // do this only once
 
        // get system execution path and compare to file path
        Path currentDir(SystemFolders::Current);
 
        // Get the prefix that is the same in both paths
        integer i= 0;
        integer maxIdx= currentDir.Length();
        if ( maxIdx > actual->trimmedPath.Length() )
             maxIdx=  actual->trimmedPath.Length();
 
        while (  i < maxIdx &&    characters::ToUpper( currentDir[i] )
                               == characters::ToUpper( character(actual->trimmedPath[i]) )  )
            ++i;
 
        if ( i > 1 ) {
            currentDir.ShortenTo( i );
            NCString origFile= actual->origFile;
            ALIB_PATH_TO_NARROW(currentDir,nCurrentDir,1024)
            SetSourcePathTrimRule( nCurrentDir, lang::Inclusion::Include, 0, lang::Case::Ignore, NULL_NSTRING,
                                   lang::Reach::Local, Priority::AutoDetected );
            actual->origFile= origFile;
            trimPath(); // one recursive call
}   }   }
 
 
}}} // namespace [alib::lox::detail]
 
#if defined(_MSC_VER)
    #pragma warning( pop )
#endif