mirror of
https://github.com/polserver/polserver
synced 2026-08-13 08:23:08 -04:00
bce1154d7a
* trigger tidy * Automated clang-tidy change: readability-else-after-return * compile test * rerun * Automated clang-tidy change: readability-else-after-return * trigger.. * Automated clang-tidy change: readability-else-after-return * manually removed a few * Automated clang-tidy change: readability-else-after-return * removed duplicate code * fix remaining warnings * fixed scope --------- Co-authored-by: Clang Tidy <clang-tidy@users.noreply.github.com>
141 lines
3.2 KiB
C++
141 lines
3.2 KiB
C++
/** @file
|
|
*
|
|
* @par History
|
|
*/
|
|
|
|
#include "eprog.h"
|
|
|
|
#include <cstdio>
|
|
|
|
#include "../clib/refptr.h"
|
|
#include "../clib/stlutil.h"
|
|
#include "escriptv.h"
|
|
#include "fmodule.h"
|
|
|
|
|
|
namespace Pol::Bscript
|
|
{
|
|
EScriptProgram::EScriptProgram()
|
|
: ref_counted(),
|
|
nglobals( 0 ),
|
|
expectedArgs( 0 ),
|
|
haveProgram( false ),
|
|
name( "" ),
|
|
modules(),
|
|
tokens(),
|
|
symbols(),
|
|
exported_functions(),
|
|
version( 0 ),
|
|
invocations( 0 ),
|
|
instr_cycles( 0 ),
|
|
pkg( nullptr ),
|
|
instr(),
|
|
debug_loaded( false ),
|
|
globalvarnames(),
|
|
blocks(),
|
|
dbg_functions(),
|
|
dbg_filenames(),
|
|
dbg_filenum(),
|
|
dbg_linenum(),
|
|
dbg_ins_blocks(),
|
|
dbg_ins_statementbegin()
|
|
{
|
|
++escript_program_count;
|
|
|
|
// compiler only:
|
|
EPDbgBlock block;
|
|
block.parentblockidx = 0;
|
|
block.parentvariables = 0;
|
|
blocks.push_back( block );
|
|
}
|
|
|
|
EScriptProgram::~EScriptProgram()
|
|
{
|
|
Clib::delete_all( modules );
|
|
--escript_program_count;
|
|
}
|
|
|
|
std::string EScriptProgram::dbg_get_instruction( size_t atPC ) const
|
|
{
|
|
OSTRINGSTREAM os;
|
|
os << instr[atPC].token;
|
|
return OSTRINGSTREAM_STR( os );
|
|
}
|
|
|
|
size_t EScriptProgram::sizeEstimate() const
|
|
{
|
|
using namespace Clib;
|
|
size_t size = sizeof( EScriptProgram );
|
|
size += memsize( globalvarnames );
|
|
for ( const auto& l : globalvarnames )
|
|
size += l.capacity();
|
|
size += memsize( dbg_filenames );
|
|
for ( const auto& l : dbg_filenames )
|
|
size += l.capacity();
|
|
size += memsize( dbg_filenum ) + memsize( dbg_linenum ) + memsize( dbg_ins_blocks ) +
|
|
memsize( dbg_ins_statementbegin ) + memsize( modules ) + memsize( exported_functions ) +
|
|
memsize( instr ) + memsize( blocks ) + memsize( dbg_functions );
|
|
|
|
return size;
|
|
}
|
|
|
|
void EScriptProgram::dump( std::ostream& os )
|
|
{
|
|
Token token;
|
|
unsigned PC;
|
|
if ( !exported_functions.empty() )
|
|
{
|
|
os << "Exported Functions:" << std::endl;
|
|
os << " PC Args Name" << std::endl;
|
|
for ( auto& elem : exported_functions )
|
|
{
|
|
os << std::setw( 5 ) << elem.PC << std::setw( 6 ) << elem.nargs << " " << elem.name
|
|
<< std::endl;
|
|
}
|
|
}
|
|
unsigned nLines = tokens.length() / sizeof( StoredToken );
|
|
for ( PC = 0; PC < nLines; PC++ )
|
|
{
|
|
if ( _readToken( token, PC ) )
|
|
{
|
|
return;
|
|
}
|
|
|
|
os << PC << ": " << token << std::endl;
|
|
if ( token.id == INS_CASEJMP )
|
|
{
|
|
dump_casejmp( os, token );
|
|
}
|
|
}
|
|
}
|
|
|
|
void EScriptProgram::dump_casejmp( std::ostream& os, const Token& token )
|
|
{
|
|
const unsigned char* dataptr = token.dataptr;
|
|
for ( ;; )
|
|
{
|
|
unsigned short offset;
|
|
std::memcpy( &offset, dataptr, sizeof( unsigned short ) );
|
|
dataptr += 2;
|
|
unsigned char type = *dataptr;
|
|
dataptr += 1;
|
|
if ( type == CASE_TYPE_LONG )
|
|
{
|
|
int lval;
|
|
std::memcpy( &lval, dataptr, sizeof( int ) );
|
|
dataptr += 4;
|
|
os << "\t" << lval << ": @" << offset << std::endl;
|
|
}
|
|
else if ( type == CASE_TYPE_DEFAULT )
|
|
{
|
|
os << "\tdefault: @" << offset << std::endl;
|
|
break;
|
|
}
|
|
else
|
|
{ // type is the length of the string, otherwise
|
|
os << "\t\"" << std::string( (const char*)dataptr, type ) << "\": @" << offset << std::endl;
|
|
dataptr += type;
|
|
}
|
|
}
|
|
}
|
|
} // namespace Pol::Bscript
|