virtualmachine.cpp

// #################################################################################################
//  ALib C++ Library
//
//  Copyright 2013-2024 A-Worx GmbH, Germany
//  Published under 'Boost Software License' (a free software license, see LICENSE.txt)
// #################################################################################################
#include "alib/alib_precompile.hpp"
 
#if !DOXYGEN
#   include "alib/expressions/detail/virtualmachine.hpp"
#   include "alib/lang/format/paragraphs.hpp"
#   include "alib/expressions/compilerplugin.hpp"
#   include "alib/expressions/detail/program.hpp"
#   include "alib/expressions/detail/ast.hpp"
#   include "alib/lang/basecamp/camp_inlines.hpp"
#endif // !DOXYGEN
 
#include "alib/containers/hashtable.hpp"
#include "alib/lang/callerinfo_functions.hpp"
 
namespace alib {  namespace expressions { namespace detail {
 
 
VirtualMachine::Command::Command( Program* program, const Box& resultType, const String& functionOrOp,
                                  integer idxOriginal, integer idxNormalized          )
: bits            ( int16_t(OpCodes::Subroutine) | int16_t(ListingTypes::NestedExpression) )
, Parameter       ( program )
, ResultType      ( resultType )
, ExpressionPositions( (static_cast<uinteger>(idxNormalized) << (bitsof(integer)/2) )
                      + static_cast<uinteger>(idxOriginal  )  )
, DecompileSymbol ( functionOrOp )
{}
 
 
#define POS_IN_EXPR_STR      (cmd.ExpressionPositions & ( (1UL << (bitsof(integer) / 2 - 1) ) -1 )  )
#if ALIB_DEBUG
#   define NORMPOS_IN_EXPR_STR  (cmd.ExpressionPositions >> (bitsof(integer)/2 )    )
#endif
 
// #################################################################################################
// Run()
// #################################################################################################
Box  VirtualMachine::Run( Program& program, Scope& scope )
{ALIB_DCS_WITH(scope.dcs)
    // If the scope.Stack is empty, this indicates, that this is an 'external' call and not a
    // subroutine.
    scope.reset();
 
    // attach the compile-time scope to the evaluation scope.
    scope.vmMembers->CTScope= program.expression.ctScope;
 
    // run
    run( program, scope );
 
    // detach ct-scope
    scope.vmMembers->CTScope=  nullptr;
 
    // Remove top element from the stack and return its result.
    Box result= scope.Stack->back();
    scope.Stack->pop_back();
    return result;
}
 
void  VirtualMachine::run( Program& program, Scope& scope )
{ALIB_DCS_WITH(scope.dcs)
 
    ALIB_DBG( using DCT= Command::ListingTypes; )
    ALIB_DBG( auto initialStackSize= scope.Stack->size(); )
 
    auto& stack= *scope.Stack;
 
    // check circular calls
    auto& nestedExpressions= scope.vmMembers->NestedExpressions;
    for( auto* nestedExpression : nestedExpressions )
        if( nestedExpression == &program.expression )
        {
            Exception e( ALIB_CALLER_NULLED, Exceptions::CircularNestedExpressions );
            for( auto it2= nestedExpressions.begin() ; it2!=  nestedExpressions.end(); ++it2 )
                e.Add  ( ALIB_CALLER_NULLED, Exceptions::CircularNestedExpressionsInfo,
                          (*it2)->Name(),
                          it2 + 1 != nestedExpressions.end()
                              ? (*(it2+1))->Name()
                              : nestedExpression->Name()                   );
            throw e;
        }
 
    nestedExpressions.emplace_back( &program.expression );
 
 
    for( integer programCounter= 0; programCounter < program.Length() ; ++ programCounter )
    {
        const Command& cmd= program.At(programCounter);
        ALIB_WARNINGS_ALLOW_BITWISE_SWITCH
        ALIB_WARNINGS_ALLOW_SPARSE_ENUM_SWITCH
        switch( cmd.OpCode() )
        {
            case Command::OpCodes::Constant:
                stack.emplace_back( cmd.ResultType );
 
            break;
 
            case Command::OpCodes::Function:
            {
                try
                {
                    // with no args, we need a new stack object
                    if(  cmd.HasArgs() )
                    {
                        stack.emplace_back( cmd.Parameter.Callback( scope,
                                                                    stack.end() ,
                                                                    stack.end()  ) );
 
                        ALIB_ASSERT_ERROR( cmd.ResultType.IsSameType(stack.back()), "EXPRVM",
                               "Result type mismatch during command execution:\n"
                               "       In expression: {!Q} {{{}}}\n"
                               "              Plugin: {}\n"
                               "          Identifier: {} ({})\n"
                               "       Expected type: {!Q<>} (aka {})\n"
                               "         Result type: {!Q<>} (aka {})\n"
                               "        Result value: {}\n",
                               program.expression.Name(),
                               program.expression.GetNormalizedString(),
                               cmd.DbgInfo.Plugin->Name,
                               cmd.DecompileSymbol, cmd.DbgInfo.Callback,
                               program.compiler.TypeName( cmd.ResultType ), cmd.ResultType.TypeID(),
                               program.compiler.TypeName( stack.back()   ), stack.back()  .TypeID(),
                               stack.back()                                 )
                    }
 
                    // otherwise, we assign the position to the value of the first arg in the stack and
                    // delete the other args after the call
                    else
                    {
                        ALIB_DBG( Box arg1Saved= *(stack.end() - cmd.QtyArgs() ); )
 
                        *(stack.end() - cmd.QtyArgs() )=
                            cmd.Parameter.Callback( scope,
                                                    stack.end() - cmd.QtyArgs(),
                                                    stack.end()                     );
 
                        #if ALIB_DEBUG
                            if( !cmd.ResultType.IsSameType(*(stack.end() - cmd.QtyArgs() )) )
                            {
                                String128 description;
                                switch( cmd.TerminalType() )
                                {
                                    case DCT::UnaryOp:
                                        description << "Unary operator '"  << cmd.DecompileSymbol  << '\'';
                                        break;
                                    case DCT::BinaryOp:
                                        description << "Binary operator '" << cmd.DecompileSymbol  << '\'';
                                        break;
                                    case DCT::FunctionCall:
                                        if( cmd.QtyArgs() < 0 )
                                            description << "Identifier \"" << cmd.DecompileSymbol << '\"';
                                        else if( cmd.QtyArgs() == 0 )
                                            description << "Function \"" << cmd.DecompileSymbol << "()\"";
                                        else
                                            description << "Function \"" << cmd.DecompileSymbol << "(#"
                                                                         << cmd.QtyArgs()       << ")\"";
                                        break;
                                    case DCT::AutoCast:
                                        description << "Auto-cast"       << cmd.DecompileSymbol  << '\'';
                                        break;
                                    case DCT::LiteralConstant:      ALIB_FALLTHROUGH
                                    case DCT::OptimizationConstant:
                                        ALIB_ERROR("EXPRVM", "Must not be set with function calls")
                                        break;
                                    default: ALIB_ERROR("Illegal switch state.") break;
                                }
 
                                String512 msg;
                                ALIB_LOCK_RECURSIVE_WITH(Formatter::DefaultLock)
                                Formatter& fmt= *Formatter::Default;
                                fmt.GetArgContainer();
                                fmt.Format( msg, "Result type mismatch during command execution:\n"
                                                 "       In expression: {!Q} {{{}}}\n"
                                                 "              Plugin: {}\n"
                                                 "                Info: {}\n"
                                                 "            Callback: {}\n"
                                                 "       Expected type: {!Q<>} (aka {})\n"
                                                 "         Result type: {!Q<>} (aka {})\n"
                                                 "        Result value: {}\n"
                                                 "    Parameter values: ",
                                                 program.expression.Name(),
                                                 program.expression.GetNormalizedString(),
                                                 cmd.DbgInfo.Plugin->Name,
                                                 description,
                                                 cmd.DbgInfo.Callback,
                                                 program.compiler.TypeName( cmd.ResultType ), cmd.ResultType.TypeID(),
                                                 program.compiler.TypeName( stack.back()   ), stack.back()  .TypeID(),
                                                 stack.back()                                 );
                                fmt.Format( msg, "({!Q'} {!Q<>}",
                                                 arg1Saved,
                                                 program.compiler.TypeName( arg1Saved )        );
                                for( integer i= cmd.QtyArgs() - 1; i > 0 ; --i )
                                    fmt.Format( msg, ", {!Q'} {!Q<>}",
                                                     *(stack.end()  - i),
                                                     program.compiler.TypeName( *(stack.end()-i))   );
                                msg << ')';
                                ALIB_ERROR( "EXPRVM", msg )
                            }
                        #endif
 
                        for(integer i= 1; i < cmd.QtyArgs(); ++i )
                            stack.pop_back();
                    }
                }
                catch( Exception& e )
                {
                    if( !HasBits(program.compiler.CfgCompilation, Compilation::CallbackExceptionFallThrough) )
                    {
                        e.Add( ALIB_CALLER_NULLED, Exceptions::ExceptionInCallback,
                               program.expression.Name()         );
                        e.Add( ALIB_CALLER_NULLED, Exceptions::ExpressionInfo,
                               program.expression.GetOriginalString(), POS_IN_EXPR_STR );
                    }
                    throw;
                }
                catch( std::exception& stdException )
                {
                    if( !HasBits(program.compiler.CfgCompilation, Compilation::CallbackExceptionFallThrough) )
                    {
                        Exception e( ALIB_CALLER_NULLED, Exceptions::ExceptionInCallback,
                                     program.expression.Name()         );
                        e.Add      ( ALIB_CALLER_NULLED, Exceptions::ExpressionInfo,
                                     program.expression.GetOriginalString(), POS_IN_EXPR_STR );
                        e.Add      ( ALIB_CALLER_NULLED, Exceptions::StdExceptionInfo,
                                     stdException.what()      );
                        throw e;
                    }
                    throw;
                }
            }
            break;
 
            case Command::OpCodes::JumpIfFalse:
            {
                if( !stack.back().Call<FIsTrue>() )
                    programCounter+= cmd.Parameter.Distance -1; //-1 due to loop increase
                stack.pop_back();
            }
            break;
 
            case Command::OpCodes::Jump:
                programCounter+= cmd.Parameter.Distance - 1;    //-1 due to loop increase
                break;
 
 
            case Command::OpCodes::Subroutine:
                // evaluation time defined nested expression
                if(    cmd.Parameter.NestedProgram == nullptr
                    || cmd.Parameter.NestedProgram == &program)
                {
                    Expression nested;
                    String nestedExpressionName= (stack.end()-2)->Unbox<String>();
                    try
                    {
                        nested= program.compiler.GetNamed( nestedExpressionName );
                    }
                    catch( Exception& e )
                    {
                        // 3rd parameter "throw" was not given
                        if( cmd.Parameter.NestedProgram == nullptr )
                        {
                            // not found? -> remove name parameter from stack and use result of
                            // second parameter.
                            if( e.Type().Integral() == UnderlyingIntegral( Exceptions::NamedExpressionNotFound ) )
                            {
                                stack.erase( stack.end() - 2 );
                                break;
                            }
 
                            e.Add( ALIB_CALLER_NULLED, Exceptions::WhenEvaluatingNestedExpression,
                                   nestedExpressionName         );
                            e.Add( ALIB_CALLER_NULLED, Exceptions::ExpressionInfo,
                                   program.expression.GetOriginalString(), POS_IN_EXPR_STR );
 
                            throw;
                        }
 
                        // 3rd parameter "throw" was given
                        if( e.Type().Integral() == UnderlyingIntegral( Exceptions::NamedExpressionNotFound ) )
                            e.Add( ALIB_CALLER_NULLED, Exceptions::NestedExpressionNotFoundET,
                                   nestedExpressionName         );
                        else
                            e.Add( ALIB_CALLER_NULLED, Exceptions::WhenEvaluatingNestedExpression,
                                   nestedExpressionName         );
                        throw;
                    }
 
                    run( * dynamic_cast<Program*>(nested.Get()->GetProgram()), scope);
 
                    if( !(stack.end()-2)->IsSameType(stack.back()) )
                    {
                        Exception e( ALIB_CALLER_NULLED, Exceptions::NestedExpressionResultTypeError,
                                     nestedExpressionName,
                                     program.compiler.TypeName( *(stack.end()-2) ),
                                     program.compiler.TypeName( stack.back() )          );
                        e.Add        ( ALIB_CALLER_NULLED, Exceptions::ExpressionInfo,
                                       program.expression.GetOriginalString(), POS_IN_EXPR_STR );
                        throw e;
                    }
 
                    stack.erase( stack.end()-3, stack.end() -1 );
                }
 
                // compile-time defined nested expression: just call it
                else
                    run( *cmd.Parameter.NestedProgram, scope );
 
                break;
 
            default: ALIB_ERROR("Illegal switch state.") break;
        }
        ALIB_WARNINGS_RESTORE
        ALIB_WARNINGS_RESTORE
 
    } // command loop
 
    nestedExpressions.pop_back();
 
    // This assertion should never happen. It indicates rather a library error than an
    // erroneous plug-in.
    ALIB_ASSERT_ERROR( stack.size() == initialStackSize + 1, "EXPRVM",
                       "Internal error: Stack increased by {} (instead of 1) after run of expression program.",
                        stack.size() - initialStackSize      )
 
    // Usually a function did not return what it is defined to return.
    ALIB_ASSERT_ERROR( program.ResultType().IsSameType(stack.back()), "EXPRVM",
                       "Wrong result type of program execution:\n"
                       "   Expected Type: {!Q<>} (aka {})\n"
                       "     Result Type: {!Q<>} (aka {})\n"
                       "    Result value: {}\n"
                       "   In expression: {!Q}"
                       ,
                       program.compiler.TypeName( program.ResultType() ), program.ResultType().TypeID(),
                       program.compiler.TypeName( stack.back()         ), stack.back()        .TypeID(),
                       stack.back(),
                       program.expression.Name()
                     )
}
 
// #################################################################################################
// Decompile()
// #################################################################################################
AST* VirtualMachine::Decompile( Program& program, MonoAllocator& allocator)
{
    using DCT= Command::ListingTypes;
 
    #define PushNode(node)        nodeStack.emplace_back( node )
    #define PopNode               nodeStack.pop_back()
    #define Lhs                   (*(nodeStack.end() - 2) )
    #define Rhs                   nodeStack.back()
    #define Arg                   nodeStack.back()
 
    std::vector<AST*>   nodeStack;
 
    std::stack <PC>     conditionalStack;  // Stores the target of jump commands behind the T of
                                           // conditional term "Q : T : F". In other words, the
                                           // end of 'F'
 
    for( integer pc= 0 ; pc < program.Length() ; ++pc )
    {
        const Command& cmd= program.At(pc);
        integer positionInExpression= POS_IN_EXPR_STR;
 
        ALIB_WARNINGS_ALLOW_BITWISE_SWITCH
        ALIB_WARNINGS_ALLOW_SPARSE_ENUM_SWITCH
        switch( cmd.OpCode() )
        {
            case Command::OpCodes::Subroutine:
            {
                // Function "Expression(name, type, boolean)"
                if(    cmd.Parameter.NestedProgram == nullptr
                    || cmd.Parameter.NestedProgram == & program )
                {
                    ASTFunction* node= allocator().New<ASTFunction>(cmd.DecompileSymbol, positionInExpression, allocator );
                    for( integer i= 0 ; i< 2 ; ++i )
                    {
                        node->Arguments.Emplace( node->Arguments.begin(), Arg );
                        PopNode;
                    }
 
                    // if nullptr, third parameter "throw"
                    if( cmd.Parameter.NestedProgram != nullptr )
                        node->Arguments.EmplaceBack(
                            allocator().New<ASTIdentifier>( String(allocator, program.compiler.CfgNestedExpressionThrowIdentifier),
                                                            positionInExpression ) );
 
                    PushNode(node);
                    break;
                }
 
                // constant call (program was given)
                ASTIdentifier* name  = allocator().New<ASTIdentifier>(String( allocator, cmd.Parameter.NestedProgram->expression.Name() ),
                                                                      positionInExpression  );
                ASTUnaryOp*    nested= allocator().New<ASTUnaryOp>( program.compiler.CfgNestedExpressionOperator,
                                                                    name,
                                                                    positionInExpression );
                PushNode( nested );
            }
            break;
 
            case Command::OpCodes::Constant:
            {
                ASTLiteral* node= allocator().New<ASTLiteral>( static_cast<integer>(0), positionInExpression );
                node->Value= cmd.ResultType;
                PushNode(node);
            }
            break;
 
            case Command::OpCodes::Function:
            {
                if( cmd.TerminalType() == DCT::UnaryOp )
                {
                    ASTUnaryOp* node= allocator().New<ASTUnaryOp>(cmd.DecompileSymbol, Arg, positionInExpression );
                    PopNode;
                    PushNode(node);
                    break;
                }
 
                if( cmd.TerminalType() == DCT::BinaryOp )
                {
                    ASTBinaryOp* node= allocator().New<ASTBinaryOp>(cmd.DecompileSymbol, Lhs, Rhs, positionInExpression );
                    PopNode;
                    PopNode;
                    PushNode(node);
                    break;
                }
 
                if( cmd.QtyArgs() < 0 )
                {
                    ASTIdentifier* node= allocator().New<ASTIdentifier>(cmd.DecompileSymbol, positionInExpression );
                    PushNode(node);
                    break;
                }
 
                ASTFunction* node= allocator().New<ASTFunction>(cmd.DecompileSymbol, positionInExpression, allocator );
                for( integer i= 0 ; i< cmd.QtyArgs() ; ++i )
                {
                    node->Arguments.Emplace( node->Arguments.begin(), Arg );
                    PopNode;
                }
 
                PushNode(node);
            }
            break;
 
            case Command::OpCodes::JumpIfFalse: // '?'
            {
            }
            break;
 
            case Command::OpCodes::Jump:        // ':'
            {
                conditionalStack.emplace( pc + cmd.Parameter.Distance -1 );
            }
            break;
 
            default: ALIB_ERROR("Illegal switch state.") break;
        }
        ALIB_WARNINGS_RESTORE
        ALIB_WARNINGS_RESTORE
 
        while( !conditionalStack.empty() && conditionalStack.top() == pc )
        {
            AST* F= Arg; PopNode;
            AST* T= Arg; PopNode;               // F-Pos -2 is a little vague. But we don't care!
            Arg= allocator().New<ASTConditional>(Arg, T, F, positionInExpression, F->Position - 2  );
            conditionalStack.pop();
        }
 
 
    } // command loop
 
    #undef PushNode
    #undef PopNode
    #undef Lhs
    #undef Rhs
    #undef Arg
 
    ALIB_ASSERT_ERROR( nodeStack.size() == 1, "EXPRVM",
        "VM AST generation error: NodeImpl stack must contain one element. Elements: {}", nodeStack.size())
    ALIB_ASSERT_ERROR( conditionalStack.size() == 0, "EXPRVM",
        "VM Program List error: Conditional stack after listing not 0 but {}", conditionalStack.size())
 
    return nodeStack.back();
}
 
 
 
// #################################################################################################
// DbgList()
// #################################################################################################
#if ALIB_DEBUG
 
//! @cond NO_DOX
namespace{
void writeArgPositions(AString& target, std::vector<VirtualMachine::PC>& resultStack, integer qtyArgs )
{
    for( integer argNo= qtyArgs ; argNo > 0 ; --argNo )
    {
        target << (argNo == qtyArgs ? "" : ", ")
               << (qtyArgs-argNo) << "{"
               << ( static_cast<integer>(resultStack.size()) == argNo ? 0
                                                                      : *(resultStack.end() - argNo - 1) + 1 )
               << ".."  << *(resultStack.end() - argNo )
               << "}";
    }
}
}
//! @endcond
 
 
AString VirtualMachine::DbgList( Program& program )
{
    using DCT= Command::ListingTypes;
 
    String fmtLine=   EXPRESSIONS.GetResource( "ProgListLine"  );
    String fmtHeader= EXPRESSIONS.GetResource( "ProgListHeader");
 
    Paragraphs text;
    text.LineWidth=0;
    text.Formatter= program.expression.ctScope->Formatter;
    text.Formatter->Reset(); // reset autosizes
 
    // repeat the whole output until its size is stable and all auto-tabs are set
    integer  lastLineWidth  = 0;
    while(lastLineWidth == 0 || lastLineWidth != text.DetectedMaxLineWidth)
    {
        lastLineWidth= text.DetectedMaxLineWidth;
        text.Buffer.Reset();
 
        // write headline
        text.LineWidth= text.DetectedMaxLineWidth;
            text.AddMarked( fmtHeader,
                          program.expression.Name(),
                          program.expression.GetNormalizedString()    );
 
 
        text.LineWidth= 0;
        NString hdlKey= "ProgListHdl";
 
        ALIB_WARNINGS_ALLOW_UNSAFE_BUFFER_USAGE
        Box hdlArgs[10];
        hdlArgs[0]= fmtLine;
        NString64 hdlKeyNumbered(hdlKey);
        for( int i= 0 ; i < 7 ; ++i )
        {
            hdlArgs[i+1]=  EXPRESSIONS.GetResource(hdlKeyNumbered << i );
            hdlKeyNumbered.ShortenTo( hdlKey.Length() );
        }
 
        hdlArgs[8]= 1;
        hdlArgs[9]= program.expression.GetNormalizedString();
        text.AddMarked( hdlArgs );
        text.LineWidth= text.DetectedMaxLineWidth;
            text.AddMarked("@HL-");
        text.LineWidth= 0;
        ALIB_WARNINGS_RESTORE
 
 
        #define FMT(qtyArgs)                                                                       \
        { if( cmd.DbgInfo.Plugin )                                                                 \
            description << ", CP=\"" << cmd.DbgInfo.Plugin->Name<< '\"';                           \
          String256 argpos;                                                                        \
          writeArgPositions(argpos,resultStack,qtyArgs);                                           \
          text.Add( fmtLine,                                                                       \
                    pc,                                                                            \
                    program.compiler.TypeName( cmd.ResultType ),                                   \
                    cmd.OpCode(),                                                                  \
                    operation,                                                                     \
                    stackSize,                                                                     \
                    description,                                                                   \
                    argpos,                                                                        \
                    NORMPOS_IN_EXPR_STR, "_^_"                    );                               }
 
 
        #define PushResult              resultStack.emplace_back( pc )
        #define PopResult               resultStack.pop_back()
        #define ResultPos               resultStack.back()
 
        std::vector<PC>     resultStack;       // The last command of the current results on the stack
        std::stack <PC>     conditionalStack;  // Stores the target of jump commands behind the T of
                                               // conditional term "Q : T : F". In other words, the
                                               // end of 'F'
 
        PC stackSize    = 0;
        for( integer pc= 0 ; pc < program.Length() ; ++pc )
        {
            const Command& cmd= program.At(pc);
 
            String128 operation;
            String128 description;
            ALIB_WARNINGS_ALLOW_BITWISE_SWITCH
            ALIB_WARNINGS_ALLOW_SPARSE_ENUM_SWITCH
            switch( cmd.OpCode() )
            {
                case Command::OpCodes::Subroutine:
                {
                    if(    cmd.Parameter.NestedProgram == nullptr
                        || cmd.Parameter.NestedProgram == &program )
                    {
                        --stackSize;
                        operation   << ( cmd.Parameter.NestedProgram == nullptr ? "Expr(name, type)"
                                                                                : "Expr(name, type, throw)" );
                        description << "Nested expr. searched at evaluation-time";
                        PopResult;
                    }
                    else
                    {
                        ++stackSize;
                        operation   << cmd.DecompileSymbol
                                    << "\"" << cmd.Parameter.NestedProgram->expression.Name() << '\"';
                        description << "Nested expr. searched at compile-time";
                        PushResult;
                    }
                    FMT(0)
                }
                break;
 
                case Command::OpCodes::Constant:
                {
                    ++stackSize;
                    char uetzelchen= cmd.ResultType.IsType<String>() ? '\"' : '\'';
                    operation   << uetzelchen << cmd.ResultType << uetzelchen;
                    description << (cmd.TerminalType() == DCT::LiteralConstant ? "Literal constant"
                                                                       : "Optimization constant" );
                    PushResult;
                    FMT(0)
                }
                break;
 
                case Command::OpCodes::Function:
                {
                    operation   << cmd.DbgInfo.Callback
                                << "(#" << (cmd.QtyArgs() < 0 ? 0 : cmd.QtyArgs()) << ')';
 
                    NString descr= nullptr;
                    char   decSym= '\0';
                    switch( cmd.TerminalType() )
                    {
                        case DCT::UnaryOp:
                            descr = "Unary operator";
                            decSym= '\'';
                            break;
                        case DCT::BinaryOp:
                            descr = "Binary operator";
                            decSym= '\'';
                            break;
                        case DCT::Identifier:
                            descr = "Identifier";
                            decSym= '"';
                            break;
                        case DCT::FunctionCall:
                            if( cmd.QtyArgs() < 0 )
                            {
                                descr = "Identifier";
                                decSym= '"';
                                break;
                            }
                            description << "Function \"";
                            if( cmd.QtyArgs() == 0 )
                                description << cmd.DecompileSymbol << "()\"";
                            else
                                description << cmd.DecompileSymbol << "(#"
                                            << cmd.QtyArgs()       << ")\"";
                            break;
                        case DCT::AutoCast:
                            descr = "Auto-cast";
                            decSym= '\'';
                            break;
                        case DCT::LiteralConstant:      ALIB_FALLTHROUGH
                        case DCT::OptimizationConstant:
                            ALIB_ERROR("EXPRVM", "Must not be set with function calls")
                            break;
                        default: ALIB_ERROR("Illegal switch state.") break;
                    }
                    if( descr.IsNotNull() )
                        description << descr << ' ' << decSym << cmd.DecompileSymbol << decSym;
 
                    stackSize+= 1 - (cmd.QtyArgs() > 0 ? cmd.QtyArgs() : 0 );
                    FMT(cmd.QtyArgs() < 0 ? 0 : cmd.QtyArgs() )
                    for( integer i= 0 ; i< cmd.QtyArgs() ; ++i )
                        PopResult;
                    PushResult;
                }
                break;
 
                case Command::OpCodes::JumpIfFalse:  // '?'
                {
                    operation   << ( pc + cmd.Parameter.Distance ) << " (absolute)"  ;
                    description << "'?'";
                    FMT( 1 )     // first print  Q
                    ++ResultPos; // then have jump be included in T
                }
                break;
 
                case Command::OpCodes::Jump:        // ':'
                {
                    conditionalStack.emplace( pc + cmd.Parameter.Distance -1 );
                    operation   << ( pc + cmd.Parameter.Distance ) << " (absolute)"  ;
                    description << "':'";
                    FMT( 1 )     // first print  T
                    ++ResultPos; // then have jump be included in T
                }
                break;
 
                default: ALIB_ERROR("Illegal switch state.") break;
            }
            ALIB_WARNINGS_RESTORE
            ALIB_WARNINGS_RESTORE
 
 
            while( !conditionalStack.empty() && conditionalStack.top() == pc )
            {
                 PopResult;
                 PopResult;
                 ResultPos= pc;
                 conditionalStack.pop();
                 stackSize-= 2;
            }
 
        } // command loop
 
 
        #undef PushResult
        #undef PopResult
        #undef ResultPos
 
        ALIB_ASSERT_ERROR( lastLineWidth!= 0 || stackSize == 1, "EXPRVM",
            "VM Program List error: Stack size after listing not 1 but {}. Listing follows.\n",
             stackSize, text.Buffer )
 
        ALIB_ASSERT_ERROR( lastLineWidth!= 0 || resultStack.size() == 1, "EXPRVM",
            "VM Program List error: Resultstack after listing not 1 but {}. Listing follows.\n",
             resultStack.size(), text.Buffer )
 
        ALIB_ASSERT_ERROR( lastLineWidth!= 0 || conditionalStack.size() == 0, "EXPRVM",
            "VM Program List error: Conditional stack after listing not 0 but {}.Listing follows.\n",
             conditionalStack, text.Buffer )
    } // main loop
 
    return std::move(text.Buffer);
}
#endif
 
 
#undef POS_IN_EXPR_STR
#undef PushResult
#undef PopResult
#undef ResultPos
#undef FMT
#undef PushNode
#undef PopNode
#undef Lhs
#undef Rhs
#undef Arg
 
}}} // namespace [alib::expressions::detail]
#include "alib/lang/callerinfo_methods.hpp"