/*---------------------------------------------------------------------*/
void
bgl_init_objects() {
/* initialize the preloading */
bmem_init();
/* initialize the runtime system */
____bgl_init_objects();
unknown_ident = string_to_symbol( "unknown_function" );
mark_function( unknown_ident, 0, ante_bgl_init_dsz, 0, -1, -1, -1 );
bgl_socket_accept_symbol = string_to_symbol( "$socket-accept" );
((esymbol_t *)(CREF(bgl_socket_accept_symbol)))->class_alloc = HOSTENT_TYPE_NUM;
bgl_socket_accept_many_symbol = string_to_symbol( "$socket-accept-many" );
((esymbol_t *)(CREF(bgl_socket_accept_many_symbol)))->class_alloc = HOSTENT_TYPE_NUM;
bgl_make_input_port_symbol = string_to_symbol( "$make-input-port" );
((esymbol_t *)(CREF(bgl_make_input_port_symbol)))->class_alloc = UNKNOWN_ATOMIC_TYPE_NUM;
/* signal registration */
signal( 2, bmem_dump );
/* exit registration */
atexit( (void (*)(void))bmem_dump );
}
static dylan_value KUhandler_functionUF55I (dylan_value UdummyU_, dylan_value Unext_handlerU_) {
dylan_value T3_0;
dylan_value all_values_;
dylan_value T5;
dylan_value T6;
CAPTURE_ENVIRONMENT
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:260
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:260
primitive_write_thread_variable(Tcurrent_handlersTVKi, CREF(0));
T3_0 = &KPfalseVKi;
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:260
all_values_ = MV_GET_REST_AT(T3_0, 0);
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:260
T5 = MV_SET_REST_AT(all_values_, 0);
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:260
T6 = NLX(CREF(1), T5);
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:260
return(T6);
}
/* loose! */
BGL_EXPORTED_DEF BgL_approxz00_bglt
BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_bglt BgL_approxz00_1,
obj_t BgL_ownerz00_2)
{
AN_OBJECT;
{ /* Cfa/loose.scm 35 */
{ /* Cfa/loose.scm 38 */
bool_t BgL_testz00_1657;
{ /* Cfa/loose.scm 38 */
long BgL_n2z00_1584;
BgL_n2z00_1584 =
(long) CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00);
BgL_testz00_1657 =
(
(((BgL_approxz00_bglt) CREF(BgL_approxz00_1))->
BgL_lostzd2stampzd2) < BgL_n2z00_1584);
}
if (BgL_testz00_1657)
{ /* Cfa/loose.scm 38 */
{
long BgL_auxz00_1661;
BgL_auxz00_1661 =
(long) CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00);
((((BgL_approxz00_bglt) CREF(BgL_approxz00_1))->
BgL_lostzd2stampzd2) = ((long) BgL_auxz00_1661), BUNSPEC);
}
BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00
(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BgL_approxz00_1);
}
else
{ /* Cfa/loose.scm 38 */
BFALSE;
}
}
return BgL_approxz00_1;
}
}
static dylan_value Kanonymous_of_spy_invoke_dylan_under_coded_restartF33I (dylan_value condition_, dylan_value nxt_) {
dylan_value T3;
dylan_value T4;
CAPTURE_ENVIRONMENT
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:207
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:197
T3 = MV_SET_REST_AT(&KPempty_vectorVKi, 0);
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:197
T4 = NLX(CREF(0), T3);
// /opt/opendylan-2014.1/sources/dylan/dylan-spy.dylan:207
return(T4);
}
/* global-loose! */
BGL_EXPORTED_DEF obj_t
BGl_globalzd2loosez12zc0zzcfa_loosez00(BgL_globalz00_bglt BgL_globalz00_5,
BgL_approxz00_bglt BgL_approxz00_6)
{
AN_OBJECT;
{ /* Cfa/loose.scm 58 */
if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(((BgL_globalz00_bglt) CREF(BgL_globalz00_5))->BgL_importz00),
CNST_TABLE_REF(((long) 0)))))
{ /* Cfa/loose.scm 61 */
return
(obj_t) (BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_6,
CNST_TABLE_REF(((long) 1))));
}
else
{ /* Cfa/loose.scm 61 */
return BGl_disablezd2Xzd2Tz12z12zzcfa_procedurez00(BgL_approxz00_6);
}
}
}
/* Copy all literals referenced from a code block to newspace */
void collect_literals_step(F_COMPILED *compiled, CELL code_start, CELL literals_start)
{
if(collecting_gen >= compiled->last_scan)
{
CELL scan;
CELL literal_end = literals_start + compiled->literals_length;
if(collecting_accumulation_gen_p())
compiled->last_scan = collecting_gen;
else
compiled->last_scan = collecting_gen + 1;
for(scan = literals_start; scan < literal_end; scan += CELLS)
copy_handle((CELL*)scan);
if(compiled->relocation != F)
{
copy_handle(&compiled->relocation);
F_BYTE_ARRAY *relocation = untag_object(compiled->relocation);
F_REL *rel = (F_REL *)(relocation + 1);
F_REL *rel_end = (F_REL *)((char *)rel + byte_array_capacity(relocation));
while(rel < rel_end)
{
if(REL_TYPE(rel) == RT_IMMEDIATE)
{
CELL offset = rel->offset + code_start;
F_FIXNUM absolute_value = get(CREF(literals_start,REL_ARGUMENT(rel)));
apply_relocation(REL_CLASS(rel),offset,absolute_value);
}
rel++;
}
}
flush_icache(code_start,literals_start - code_start);
}
}
#include <stdio.h>
#include <boost/test/included/unit_test.hpp>
#include "utils/src/common/warning_enable.h"
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/runtime/rdo_value.h"
#include "simulator/runtime/rdo_matrix.h"
#include "simulator/runtime/rdo_type.h"
#include "simulator/runtime/rdo_exception.h"
// --------------------------------------------------------------------------------
BOOST_AUTO_TEST_SUITE(RDORuntime_Matrix_Test)
typedef rdo::vector<rsint> Container;
typedef std::pair<rdo::runtime::LPRDOMatrixValue, rdo::runtime::RDOValue> Matrix;
Matrix createMatrix(CREF(Container) data)
{
rdo::runtime::LPRDOMatrixType pType = rdo::Factory<rdo::runtime::RDOMatrixType>::create(rdo::runtime::g_int);
ASSERT(pType);
rdo::runtime::LPRDOMatrixValue pValue = rdo::Factory<rdo::runtime::RDOMatrixValue>::create(pType);
ASSERT(pValue);
STL_FOR_ALL_CONST(data, it)
{
pValue->push_back(rdo::runtime::RDOValue(*it));
}
return std::make_pair(pValue, rdo::runtime::RDOValue(pType, pValue));
}
tstring getString(CREF(rdo::runtime::LPRDOMatrixValue) pMatrix, CREF(rdo::runtime::LPRDOMatrixIterator) pIt)
// ---------------------------------------------------------------------------- PCH
#include "simulator/compiler/parser/pch.h"
// ----------------------------------------------------------------------- INCLUDES
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/compiler/parser/type/array.h"
#include "simulator/compiler/parser/rdoparser.h"
#include "simulator/compiler/parser/rdoparser_error.h"
#include "simulator/compiler/parser/rdoparser_lexer.h"
// --------------------------------------------------------------------------------
OPEN_RDO_PARSER_NAMESPACE
//----------------------------------------------------------------------------
//---------- RDOArrayType
//----------------------------------------------------------------------------
RDOArrayType::RDOArrayType(CREF(LPTypeInfo) pItemType, CREF(RDOParserSrcInfo) src_info)
: RuntimeWrapperType(rdo::Factory<rdo::runtime::RDOArrayType>::create(pItemType->type()->type()))
, RDOParserSrcInfo (src_info )
, m_pItemType (pItemType)
{
ASSERT(m_pType );
ASSERT(pItemType);
setSrcText(name());
}
RDOArrayType::~RDOArrayType()
{}
tstring RDOArrayType::name() const
{
return rdo::format("array<%s>", m_pItemType->type()->name().c_str());
// --------------------------------------------------------------------------------
RDOParserRDOItem::RDOParserRDOItem(rdoModelObjects::RDOFileType type, t_bison_parse_fun parser_fun, t_bison_error_fun error_fun, t_flex_lexer_fun lexer_fun, StreamFrom from)
: RDOParserItem(type, parser_fun, error_fun, lexer_fun, from)
, m_pLexer(NULL)
{}
RDOParserRDOItem::~RDOParserRDOItem()
{
if (m_pLexer)
{
delete m_pLexer;
m_pLexer = NULL;
}
}
void RDOParserRDOItem::parse(CREF(LPRDOParser) pParser)
{
ASSERT(pParser);
std::stringstream in_stream(std::ios_base::in | std::ios_base::out | std::ios_base::binary);
switch (m_from)
{
case sf_repository:
{
rdo::repository::RDOThreadRepository::FileData fileData(m_type, in_stream);
kernel->sendMessage(kernel->repository(), RDOThread::RT_REPOSITORY_LOAD, &fileData);
break;
}
case sf_editor:
{
rdo::repository::RDOThreadRepository::FileData fileData(m_type, in_stream);
return TypeName; \
}
DECLARE_ATOM_TYPE_PARSER(unknow, "unknow" );
DECLARE_ATOM_TYPE_PARSER(identificator, "identificator");
DECLARE_ATOM_TYPE_PARSER(int, "integer" );
DECLARE_ATOM_TYPE_PARSER(real, "real" );
DECLARE_ATOM_TYPE_PARSER(bool, "bool" );
DECLARE_ATOM_TYPE_PARSER(string, "string" );
// --------------------------------------------------------------------------------
// -------------------- RDOType
// --------------------------------------------------------------------------------
//! RDOType__unknow
LPRDOType RDOType__unknow::type_cast(CREF(LPRDOType) pFrom, CREF(RDOParserSrcInfo) from_src_info, CREF(RDOParserSrcInfo) to_src_info, CREF(RDOParserSrcInfo) src_info) const
{
UNUSED(pFrom );
UNUSED(to_src_info);
rdo::converter::smr2rdox::g_error().error(src_info, rdo::format("Внутренная ошибка парсера. Невозможно преобразовать тип '%s' к неизвестному типу", from_src_info.src_text().c_str()));
return NULL;
}
LPRDOValue RDOType__unknow::value_cast(CREF(LPRDOValue) pFrom, CREF(RDOParserSrcInfo) to_src_info, CREF(RDOParserSrcInfo) src_info) const
{
rdo::converter::smr2rdox::g_error().push_only(src_info, rdo::format("Невозможно преобразовать значение '%s' к неизвестному типу", pFrom->src_info().src_text().c_str()));
rdo::converter::smr2rdox::g_error().push_only(to_src_info, rdo::format("См. тип: %s", to_src_info.src_text().c_str()));
rdo::converter::smr2rdox::g_error().push_done();
return LPRDOValue(NULL);
}
/* traverse-call-to! */
obj_t BGl_traversezd2callzd2toz12z12zzglobaliza7e_integrationza7(obj_t
BgL_fz00_5)
{
AN_OBJECT;
{ /* Globalize/integration.scm 74 */
{ /* Globalize/integration.scm 75 */
obj_t BgL_integratorz00_979;
{ /* Globalize/integration.scm 75 */
bool_t BgL_testz00_1630;
{ /* Globalize/integration.scm 75 */
bool_t BgL__ortest_3646z00_1466;
BgL__ortest_3646z00_1466 =
BGl_iszd2azf3z21zz__objectz00(BgL_fz00_5,
BGl_globalz00zzast_varz00);
if (BgL__ortest_3646z00_1466)
{ /* Globalize/integration.scm 75 */
BgL_testz00_1630 = BgL__ortest_3646z00_1466;
}
else
{ /* Globalize/integration.scm 75 */
BgL_localzf2ginfozf2_bglt BgL_obj3523z00_1468;
BgL_obj3523z00_1468 = (BgL_localzf2ginfozf2_bglt) (BgL_fz00_5);
{
obj_t BgL_auxz00_1634;
{ /* Globalize/integration.scm 75 */
BgL_objectz00_bglt BgL_auxz00_1635;
BgL_auxz00_1635 =
(BgL_objectz00_bglt) (BgL_obj3523z00_1468);
BgL_auxz00_1634 = BGL_OBJECT_WIDENING(BgL_auxz00_1635);
}
BgL_testz00_1630 =
(((BgL_localzf2ginfozf2_bglt) CREF(BgL_auxz00_1634))->
BgL_globaliza7edzf3z54);
}
}
}
if (BgL_testz00_1630)
{ /* Globalize/integration.scm 75 */
BgL_integratorz00_979 = BgL_fz00_5;
}
else
{ /* Globalize/integration.scm 77 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3345z00_1470;
{ /* Globalize/integration.scm 77 */
BgL_variablez00_bglt BgL_obj1611z00_1469;
BgL_obj1611z00_1469 = (BgL_variablez00_bglt) (BgL_fz00_5);
BgL_obj3345z00_1470 =
(BgL_sfunzf2ginfozf2_bglt) (
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1469))->
BgL_valuez00));
}
{
obj_t BgL_auxz00_1642;
{ /* Globalize/integration.scm 77 */
BgL_objectz00_bglt BgL_auxz00_1643;
BgL_auxz00_1643 = (BgL_objectz00_bglt) (BgL_obj3345z00_1470);
BgL_auxz00_1642 = BGL_OBJECT_WIDENING(BgL_auxz00_1643);
}
BgL_integratorz00_979 =
(((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1642))->
BgL_imarkz00);
}
}
}
{ /* Globalize/integration.scm 78 */
obj_t BgL_arg3697z00_981;
{ /* Globalize/integration.scm 91 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3333z00_1472;
{ /* Globalize/integration.scm 91 */
BgL_variablez00_bglt BgL_obj1611z00_1471;
BgL_obj1611z00_1471 = (BgL_variablez00_bglt) (BgL_fz00_5);
BgL_obj3333z00_1472 =
(BgL_sfunzf2ginfozf2_bglt) (
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1471))->
BgL_valuez00));
}
{
obj_t BgL_auxz00_1650;
{ /* Globalize/integration.scm 91 */
BgL_objectz00_bglt BgL_auxz00_1651;
BgL_auxz00_1651 = (BgL_objectz00_bglt) (BgL_obj3333z00_1472);
BgL_auxz00_1650 = BGL_OBJECT_WIDENING(BgL_auxz00_1651);
}
BgL_arg3697z00_981 =
(((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1650))->
BgL_ctoz00);
}
}
{ /* Globalize/integration.scm 79 */
obj_t BgL_zc3anonymousza33699ze3z83_1508;
BgL_zc3anonymousza33699ze3z83_1508 =
make_fx_procedure
(BGl_zc3anonymousza33699ze3z83zzglobaliza7e_integrationza7,
(int) (((long) 1)), (int) (((long) 2)));
PROCEDURE_SET(BgL_zc3anonymousza33699ze3z83_1508,
(int) (((long) 0)), BgL_integratorz00_979);
PROCEDURE_SET(BgL_zc3anonymousza33699ze3z83_1508,
(int) (((long) 1)), BgL_fz00_5);
{ /* Globalize/integration.scm 78 */
obj_t BgL_list3698z00_982;
BgL_list3698z00_982 = MAKE_PAIR(BgL_arg3697z00_981, BNIL);
return
BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
(BgL_zc3anonymousza33699ze3z83_1508, BgL_list3698z00_982);
}
}
}
}
}
}
/* integrate-in! */
obj_t BGl_integratezd2inz12zc0zzglobaliza7e_integrationza7(obj_t BgL_fz00_7,
obj_t BgL_gz00_8)
{
AN_OBJECT;
{ /* Globalize/integration.scm 106 */
{ /* Globalize/integration.scm 108 */
BgL_valuez00_bglt BgL_arg3709z00_998;
{
BgL_variablez00_bglt BgL_auxz00_1718;
BgL_auxz00_1718 = (BgL_variablez00_bglt) (BgL_fz00_7);
BgL_arg3709z00_998 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1718))->BgL_valuez00);
}
{ /* Globalize/integration.scm 108 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3344z00_1490;
obj_t BgL_val3343z00_1491;
BgL_obj3344z00_1490 = (BgL_sfunzf2ginfozf2_bglt) (BgL_arg3709z00_998);
BgL_val3343z00_1491 = BgL_gz00_8;
{
obj_t BgL_auxz00_1722;
{ /* Globalize/integration.scm 108 */
BgL_objectz00_bglt BgL_auxz00_1723;
BgL_auxz00_1723 = (BgL_objectz00_bglt) (BgL_obj3344z00_1490);
BgL_auxz00_1722 = BGL_OBJECT_WIDENING(BgL_auxz00_1723);
}
((((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1722))->
BgL_integratorz00) = ((obj_t) BgL_val3343z00_1491), BUNSPEC);
}
}
}
{ /* Globalize/integration.scm 109 */
BgL_valuez00_bglt BgL_arg3710z00_999;
{
BgL_variablez00_bglt BgL_auxz00_1727;
BgL_auxz00_1727 = (BgL_variablez00_bglt) (BgL_fz00_7);
BgL_arg3710z00_999 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1727))->BgL_valuez00);
}
{ /* Globalize/integration.scm 109 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3325z00_1493;
bool_t BgL_val3324z00_1494;
BgL_obj3325z00_1493 = (BgL_sfunzf2ginfozf2_bglt) (BgL_arg3710z00_999);
BgL_val3324z00_1494 = ((bool_t) 0);
{
obj_t BgL_auxz00_1731;
{ /* Globalize/integration.scm 109 */
BgL_objectz00_bglt BgL_auxz00_1732;
BgL_auxz00_1732 = (BgL_objectz00_bglt) (BgL_obj3325z00_1493);
BgL_auxz00_1731 = BGL_OBJECT_WIDENING(BgL_auxz00_1732);
}
((((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1731))->BgL_gzf3zf3) =
((bool_t) BgL_val3324z00_1494), BUNSPEC);
}
}
}
{ /* Globalize/integration.scm 110 */
BgL_valuez00_bglt BgL_instance3649z00_1000;
{
BgL_variablez00_bglt BgL_auxz00_1736;
BgL_auxz00_1736 = (BgL_variablez00_bglt) (BgL_gz00_8);
BgL_instance3649z00_1000 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1736))->BgL_valuez00);
}
{ /* Globalize/integration.scm 111 */
obj_t BgL_arg3711z00_1001;
{ /* Globalize/integration.scm 111 */
obj_t BgL_arg3712z00_1002;
{ /* Globalize/integration.scm 111 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3352z00_1496;
BgL_obj3352z00_1496 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3649z00_1000);
{
obj_t BgL_auxz00_1740;
{ /* Globalize/integration.scm 111 */
BgL_objectz00_bglt BgL_auxz00_1741;
BgL_auxz00_1741 = (BgL_objectz00_bglt) (BgL_obj3352z00_1496);
BgL_auxz00_1740 = BGL_OBJECT_WIDENING(BgL_auxz00_1741);
}
BgL_arg3712z00_1002 =
(((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1740))->
BgL_integratedz00);
}
}
BgL_arg3711z00_1001 = MAKE_PAIR(BgL_fz00_7, BgL_arg3712z00_1002);
}
{ /* Globalize/integration.scm 111 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3354z00_1497;
obj_t BgL_val3353z00_1498;
BgL_obj3354z00_1497 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3649z00_1000);
BgL_val3353z00_1498 = BgL_arg3711z00_1001;
{
obj_t BgL_auxz00_1747;
{ /* Globalize/integration.scm 111 */
BgL_objectz00_bglt BgL_auxz00_1748;
BgL_auxz00_1748 = (BgL_objectz00_bglt) (BgL_obj3354z00_1497);
BgL_auxz00_1747 = BGL_OBJECT_WIDENING(BgL_auxz00_1748);
}
return
((((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1747))->
BgL_integratedz00) = ((obj_t) BgL_val3353z00_1498), BUNSPEC);
}
}
}
}
}
}
/* set-one-kaptured! */
obj_t BGl_setzd2onezd2kapturedz12z12zzglobaliza7e_kaptureza7(BgL_localz00_bglt
BgL_localz00_2, obj_t BgL_lockingz00_3)
{
AN_OBJECT;
{ /* Globalize/kapture.scm 53 */
{ /* Globalize/kapture.scm 58 */
BgL_valuez00_bglt BgL_infoz00_929;
{
BgL_variablez00_bglt BgL_auxz00_1570;
BgL_auxz00_1570 = (BgL_variablez00_bglt) (BgL_localz00_2);
BgL_infoz00_929 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1570))->BgL_valuez00);
}
{ /* Globalize/kapture.scm 58 */
obj_t BgL_kapturedz00_930;
{ /* Globalize/kapture.scm 59 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3367z00_1441;
BgL_obj3367z00_1441 = (BgL_sfunzf2ginfozf2_bglt) (BgL_infoz00_929);
{
obj_t BgL_auxz00_1574;
{ /* Globalize/kapture.scm 59 */
BgL_objectz00_bglt BgL_auxz00_1575;
BgL_auxz00_1575 = (BgL_objectz00_bglt) (BgL_obj3367z00_1441);
BgL_auxz00_1574 = BGL_OBJECT_WIDENING(BgL_auxz00_1575);
}
BgL_kapturedz00_930 =
(((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1574))->
BgL_kapturedz00);
}
}
{ /* Globalize/kapture.scm 59 */
{ /* Globalize/kapture.scm 61 */
bool_t BgL_testz00_1579;
if (PAIRP(BgL_kapturedz00_930))
{ /* Globalize/kapture.scm 61 */
BgL_testz00_1579 = ((bool_t) 1);
}
else
{ /* Globalize/kapture.scm 61 */
BgL_testz00_1579 = NULLP(BgL_kapturedz00_930);
}
if (BgL_testz00_1579)
{ /* Globalize/kapture.scm 61 */
{ /* Globalize/kapture.scm 64 */
obj_t BgL_v3646z00_932;
BgL_v3646z00_932 = create_vector((int) (((long) 3)));
VECTOR_SET(BgL_v3646z00_932,
(int) (((long) 2)), BgL_kapturedz00_930);
VECTOR_SET(BgL_v3646z00_932,
(int) (((long) 1)), BgL_lockingz00_3);
VECTOR_SET(BgL_v3646z00_932, (int) (((long) 0)), BTRUE);
return BgL_v3646z00_932;
}
}
else
{ /* Globalize/kapture.scm 61 */
if (BGl_iszd2azf3z21zz__objectz00(BgL_kapturedz00_930,
BGl_localz00zzast_varz00))
{ /* Globalize/kapture.scm 65 */
{ /* Globalize/kapture.scm 68 */
obj_t BgL_v3647z00_934;
BgL_v3647z00_934 = create_vector((int) (((long) 3)));
VECTOR_SET(BgL_v3647z00_934, (int) (((long) 2)), BNIL);
VECTOR_SET(BgL_v3647z00_934,
(int) (((long) 1)), BgL_lockingz00_3);
VECTOR_SET(BgL_v3647z00_934,
(int) (((long) 0)), BFALSE);
return BgL_v3647z00_934;
}
}
else
{ /* Globalize/kapture.scm 65 */
{ /* Globalize/kapture.scm 72 */
obj_t BgL_newzd2bodyzd2_935;
{ /* Globalize/kapture.scm 72 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3370z00_1463;
BgL_obj3370z00_1463 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_infoz00_929);
{
obj_t BgL_auxz00_1602;
{ /* Globalize/kapture.scm 72 */
BgL_objectz00_bglt BgL_auxz00_1603;
BgL_auxz00_1603 =
(BgL_objectz00_bglt) (BgL_obj3370z00_1463);
BgL_auxz00_1602 =
BGL_OBJECT_WIDENING(BgL_auxz00_1603);
}
BgL_newzd2bodyzd2_935 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1602))->BgL_newzd2bodyzd2);
}
}
{ /* Globalize/kapture.scm 74 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3369z00_1464;
obj_t BgL_val3368z00_1465;
BgL_obj3369z00_1464 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_infoz00_929);
BgL_val3368z00_1465 = (obj_t) (BgL_localz00_2);
{
obj_t BgL_auxz00_1609;
{ /* Globalize/kapture.scm 74 */
BgL_objectz00_bglt BgL_auxz00_1610;
BgL_auxz00_1610 =
(BgL_objectz00_bglt) (BgL_obj3369z00_1464);
BgL_auxz00_1609 =
BGL_OBJECT_WIDENING(BgL_auxz00_1610);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1609))->BgL_kapturedz00) =
((obj_t) BgL_val3368z00_1465), BUNSPEC);
}
}
{ /* Globalize/kapture.scm 76 */
obj_t BgL_g3638z00_937;
{ /* Globalize/kapture.scm 77 */
obj_t BgL_auxz00_1621;
obj_t BgL_auxz00_1614;
{ /* Globalize/kapture.scm 78 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3339z00_1467;
BgL_obj3339z00_1467 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_infoz00_929);
{
obj_t BgL_auxz00_1623;
{ /* Globalize/kapture.scm 78 */
BgL_objectz00_bglt BgL_auxz00_1624;
BgL_auxz00_1624 =
(BgL_objectz00_bglt) (BgL_obj3339z00_1467);
BgL_auxz00_1623 =
BGL_OBJECT_WIDENING(BgL_auxz00_1624);
}
BgL_auxz00_1621 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1623))->BgL_cfunctionz00);
}
}
{ /* Globalize/kapture.scm 77 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3336z00_1466;
BgL_obj3336z00_1466 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_infoz00_929);
{
obj_t BgL_auxz00_1616;
{ /* Globalize/kapture.scm 77 */
BgL_objectz00_bglt BgL_auxz00_1617;
BgL_auxz00_1617 =
(BgL_objectz00_bglt) (BgL_obj3336z00_1466);
BgL_auxz00_1616 =
BGL_OBJECT_WIDENING(BgL_auxz00_1617);
}
BgL_auxz00_1614 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1616))->BgL_ctoza2za2);
}
}
BgL_g3638z00_937 =
bgl_append2(BgL_auxz00_1614, BgL_auxz00_1621);
}
{
obj_t BgL_kapturedz00_939;
obj_t BgL_ctoz00_940;
bool_t BgL_setterzf3zf3_941;
BgL_kapturedz00_939 = BNIL;
BgL_ctoz00_940 = BgL_g3638z00_937;
BgL_setterzf3zf3_941 = ((bool_t) 1);
BgL_zc3anonymousza33659ze3z83_942:
if (NULLP(BgL_ctoz00_940))
{ /* Globalize/kapture.scm 87 */
obj_t BgL_freez00_944;
BgL_freez00_944 =
BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(
(BgL_nodez00_bglt) (BgL_newzd2bodyzd2_935),
BgL_localz00_2);
{ /* Globalize/kapture.scm 87 */
obj_t BgL_fkapturedz00_945;
BgL_fkapturedz00_945 =
BGl_freezd2fromzd2zzglobaliza7e_freeza7
(BgL_kapturedz00_939, BgL_localz00_2);
{ /* Globalize/kapture.scm 88 */
obj_t BgL_kapturedz00_946;
{ /* Globalize/kapture.scm 89 */
obj_t BgL_arg3665z00_956;
BgL_arg3665z00_956 =
MAKE_PAIR(BgL_freez00_944,
BgL_fkapturedz00_945);
BgL_kapturedz00_946 =
BGl_unionz00zzglobaliza7e_kaptureza7
(BgL_arg3665z00_956);
}
{ /* Globalize/kapture.scm 89 */
if (BgL_setterzf3zf3_941)
{ /* Globalize/kapture.scm 96 */
{ /* Globalize/kapture.scm 99 */
BgL_sfunzf2ginfozf2_bglt
BgL_obj3369z00_1469;
obj_t BgL_val3368z00_1470;
BgL_obj3369z00_1469 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_infoz00_929);
BgL_val3368z00_1470 =
BgL_kapturedz00_946;
{
obj_t BgL_auxz00_1638;
{ /* Globalize/kapture.scm 99 */
BgL_objectz00_bglt
BgL_auxz00_1639;
BgL_auxz00_1639 =
(BgL_objectz00_bglt)
(BgL_obj3369z00_1469);
BgL_auxz00_1638 =
BGL_OBJECT_WIDENING
(BgL_auxz00_1639);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1638))->
BgL_kapturedz00) =
((obj_t) BgL_val3368z00_1470),
BUNSPEC);
}
}
{
obj_t BgL_l3648z00_948;
{ /* Globalize/kapture.scm 101 */
bool_t BgL_auxz00_1643;
BgL_l3648z00_948 =
BgL_kapturedz00_946;
BgL_zc3anonymousza33661ze3z83_949:
if (PAIRP(BgL_l3648z00_948))
{ /* Globalize/kapture.scm 101 */
{ /* Globalize/kapture.scm 102 */
obj_t BgL_localz00_951;
BgL_localz00_951 =
CAR(BgL_l3648z00_948);
{ /* Globalize/kapture.scm 103 */
BgL_valuez00_bglt
BgL_arg3663z00_952;
{
BgL_variablez00_bglt
BgL_auxz00_1647;
BgL_auxz00_1647 =
(BgL_variablez00_bglt)
(BgL_localz00_951);
BgL_arg3663z00_952 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1647))->BgL_valuez00);
}
{ /* Globalize/kapture.scm 102 */
BgL_svarzf2ginfozf2_bglt
BgL_obj3450z00_1474;
bool_t
BgL_val3449z00_1475;
BgL_obj3450z00_1474 =
(BgL_svarzf2ginfozf2_bglt)
(BgL_arg3663z00_952);
BgL_val3449z00_1475 =
((bool_t) 1);
{
obj_t BgL_auxz00_1651;
{ /* Globalize/kapture.scm 102 */
BgL_objectz00_bglt
BgL_auxz00_1652;
BgL_auxz00_1652 =
(BgL_objectz00_bglt)
(BgL_obj3450z00_1474);
BgL_auxz00_1651 =
BGL_OBJECT_WIDENING
(BgL_auxz00_1652);
}
((((BgL_svarzf2ginfozf2_bglt) CREF(BgL_auxz00_1651))->BgL_kapturedzf3zf3) = ((bool_t) BgL_val3449z00_1475), BUNSPEC);
}
}
}
}
{
obj_t BgL_l3648z00_1656;
BgL_l3648z00_1656 =
CDR(BgL_l3648z00_948);
BgL_l3648z00_948 =
BgL_l3648z00_1656;
goto
BgL_zc3anonymousza33661ze3z83_949;
}
}
else
{ /* Globalize/kapture.scm 101 */
BgL_auxz00_1643 =
((bool_t) 1);
}
BBOOL(BgL_auxz00_1643);
}
}
}
else
{ /* Globalize/kapture.scm 105 */
BgL_sfunzf2ginfozf2_bglt
BgL_obj3369z00_1477;
obj_t BgL_val3368z00_1478;
BgL_obj3369z00_1477 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_infoz00_929);
BgL_val3368z00_1478 = BFALSE;
{
obj_t BgL_auxz00_1660;
{ /* Globalize/kapture.scm 105 */
BgL_objectz00_bglt
BgL_auxz00_1661;
BgL_auxz00_1661 =
(BgL_objectz00_bglt)
(BgL_obj3369z00_1477);
BgL_auxz00_1660 =
BGL_OBJECT_WIDENING
(BgL_auxz00_1661);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1660))->
BgL_kapturedz00) =
((obj_t) BgL_val3368z00_1478),
BUNSPEC);
}
}
{ /* Globalize/kapture.scm 106 */
obj_t BgL_v3650z00_955;
BgL_v3650z00_955 =
create_vector((int) (((long) 3)));
VECTOR_SET(BgL_v3650z00_955,
(int) (((long) 2)),
BgL_kapturedz00_946);
VECTOR_SET(BgL_v3650z00_955,
(int) (((long) 1)), BgL_lockingz00_3);
VECTOR_SET(BgL_v3650z00_955,
(int) (((long) 0)),
BBOOL(BgL_setterzf3zf3_941));
return BgL_v3650z00_955;
}
}
}
}
}
else
{ /* Globalize/kapture.scm 86 */
if (
(CAR(BgL_ctoz00_940) ==
(obj_t) (BgL_localz00_2)))
{ /* Globalize/kapture.scm 107 */
{
obj_t BgL_ctoz00_1678;
BgL_ctoz00_1678 = CDR(BgL_ctoz00_940);
BgL_ctoz00_940 = BgL_ctoz00_1678;
goto BgL_zc3anonymousza33659ze3z83_942;
}
}
else
{ /* Globalize/kapture.scm 113 */
bool_t BgL_testz00_1680;
{ /* Globalize/kapture.scm 113 */
BgL_sfunzf2ginfozf2_bglt
BgL_obj3323z00_1492;
{ /* Globalize/kapture.scm 113 */
BgL_valuez00_bglt BgL_auxz00_1681;
{ /* Globalize/kapture.scm 113 */
BgL_variablez00_bglt
BgL_obj1611z00_1491;
{ /* Globalize/kapture.scm 113 */
obj_t BgL_pairz00_1490;
BgL_pairz00_1490 = BgL_ctoz00_940;
BgL_obj1611z00_1491 =
(BgL_variablez00_bglt) (CAR
(BgL_pairz00_1490));
}
BgL_auxz00_1681 =
(((BgL_variablez00_bglt)
CREF(BgL_obj1611z00_1491))->
BgL_valuez00);
}
BgL_obj3323z00_1492 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_auxz00_1681);
}
{
obj_t BgL_auxz00_1686;
{ /* Globalize/kapture.scm 113 */
BgL_objectz00_bglt BgL_auxz00_1687;
BgL_auxz00_1687 =
(BgL_objectz00_bglt)
(BgL_obj3323z00_1492);
BgL_auxz00_1686 =
BGL_OBJECT_WIDENING
(BgL_auxz00_1687);
}
BgL_testz00_1680 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1686))->
BgL_gzf3zf3);
}
}
if (BgL_testz00_1680)
{ /* Globalize/kapture.scm 113 */
{ /* Globalize/kapture.scm 116 */
obj_t BgL_otherzd2kapturedzd2_960;
{ /* Globalize/kapture.scm 116 */
obj_t BgL_arg3679z00_971;
BgL_arg3679z00_971 =
CAR(BgL_ctoz00_940);
BgL_otherzd2kapturedzd2_960 =
BGl_setzd2onezd2kapturedz12z12zzglobaliza7e_kaptureza7
((BgL_localz00_bglt)
(BgL_arg3679z00_971),
BgL_lockingz00_3);
}
{ /* Globalize/kapture.scm 118 */
bool_t BgL_testz00_1694;
{ /* Globalize/kapture.scm 118 */
int BgL_kz00_1495;
BgL_kz00_1495 =
(int) (((long) 0));
BgL_testz00_1694 =
CBOOL(VECTOR_REF
(BgL_otherzd2kapturedzd2_960,
BgL_kz00_1495));
}
if (BgL_testz00_1694)
{ /* Globalize/kapture.scm 124 */
obj_t BgL_arg3670z00_962;
obj_t BgL_arg3671z00_963;
BgL_arg3670z00_962 =
MAKE_PAIR(VECTOR_REF
(BgL_otherzd2kapturedzd2_960,
(int) (((long) 2))),
BgL_kapturedz00_939);
BgL_arg3671z00_963 =
CDR(BgL_ctoz00_940);
{
obj_t BgL_ctoz00_1703;
obj_t BgL_kapturedz00_1702;
BgL_kapturedz00_1702 =
BgL_arg3670z00_962;
BgL_ctoz00_1703 =
BgL_arg3671z00_963;
BgL_ctoz00_940 =
BgL_ctoz00_1703;
BgL_kapturedz00_939 =
BgL_kapturedz00_1702;
goto
BgL_zc3anonymousza33659ze3z83_942;
}
}
else
{ /* Globalize/kapture.scm 119 */
obj_t BgL_arg3673z00_965;
obj_t BgL_arg3674z00_966;
bool_t BgL_arg3675z00_967;
BgL_arg3673z00_965 =
MAKE_PAIR(VECTOR_REF
(BgL_otherzd2kapturedzd2_960,
(int) (((long) 2))),
BgL_kapturedz00_939);
BgL_arg3674z00_966 =
CDR(BgL_ctoz00_940);
if (BgL_setterzf3zf3_941)
{ /* Globalize/kapture.scm 121 */
BgL_arg3675z00_967 =
(VECTOR_REF
(BgL_otherzd2kapturedzd2_960,
(int) (((long) 1))) ==
(obj_t) (BgL_localz00_2));
}
else
{ /* Globalize/kapture.scm 121 */
BgL_arg3675z00_967 =
((bool_t) 0);
}
{
bool_t BgL_setterzf3zf3_1715;
obj_t BgL_ctoz00_1714;
obj_t BgL_kapturedz00_1713;
BgL_kapturedz00_1713 =
BgL_arg3673z00_965;
BgL_ctoz00_1714 =
BgL_arg3674z00_966;
BgL_setterzf3zf3_1715 =
BgL_arg3675z00_967;
BgL_setterzf3zf3_941 =
BgL_setterzf3zf3_1715;
BgL_ctoz00_940 =
BgL_ctoz00_1714;
BgL_kapturedz00_939 =
BgL_kapturedz00_1713;
goto
BgL_zc3anonymousza33659ze3z83_942;
}
}
}
}
}
else
{ /* Globalize/kapture.scm 113 */
{
obj_t BgL_ctoz00_1716;
BgL_ctoz00_1716 = CDR(BgL_ctoz00_940);
BgL_ctoz00_940 = BgL_ctoz00_1716;
goto
BgL_zc3anonymousza33659ze3z83_942;
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
// ----------------------------------------------------------------------- PLATFORM
// ----------------------------------------------------------------------- PCH
#include "simulator/runtime/pch/stdpch.h"
// ----------------------------------------------------------------------- INCLUDES
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/runtime/error.h"
#include "simulator/runtime/rdo_exception.h"
// --------------------------------------------------------------------------------
OPEN_RDO_RUNTIME_NAMESPACE
// --------------------------------------------------------------------------------
// -------------------- Error
// --------------------------------------------------------------------------------
void Error::push(CREF(RDOSyntaxMessage) message)
{
m_errorList.push_back(message);
throw RDORuntimeException("");
}
void Error::push(CREF(tstring) message, CREF(RDOSrcInfo) srcInfo)
{
ASSERT(!message.empty());
RDOSyntaxMessage error(
message,
srcInfo.src_filetype(),
srcInfo.src_pos().m_last_line,
srcInfo.src_pos().m_last_pos
);
/* main-producer */
obj_t BGl_mainzd2producerzd2zzmodule_mainz00(obj_t BgL_clausez00_2)
{
AN_OBJECT;
{ /* Module/main.scm 55 */
{ /* Module/main.scm 56 */
bool_t BgL_testz00_743;
if ((BGl_za2mainza2z00zzmodule_modulez00 == CNST_TABLE_REF(((long) 2))))
{ /* Module/main.scm 56 */
BgL_testz00_743 = ((bool_t) 1);
}
else
{ /* Module/main.scm 56 */
obj_t BgL_obj1860z00_659;
BgL_obj1860z00_659 = BGl_za2mainza2z00zzmodule_modulez00;
BgL_testz00_743 =
BGl_iszd2azf3z21zz__objectz00(BgL_obj1860z00_659,
BGl_globalz00zzast_varz00);
}
if (BgL_testz00_743)
{ /* Module/main.scm 56 */
return
BGl_duplicatezd2mainzd2errorz00zzmodule_mainz00(BgL_clausez00_2);
}
else
{
obj_t BgL_mainz00_486;
if (PAIRP(BgL_clausez00_2))
{ /* Module/main.scm 58 */
obj_t BgL_cdrzd21395zd2_491;
BgL_cdrzd21395zd2_491 = CDR(BgL_clausez00_2);
if (PAIRP(BgL_cdrzd21395zd2_491))
{ /* Module/main.scm 58 */
obj_t BgL_carzd21397zd2_493;
BgL_carzd21397zd2_493 = CAR(BgL_cdrzd21395zd2_491);
if (SYMBOLP(BgL_carzd21397zd2_493))
{ /* Module/main.scm 58 */
if (NULLP(CDR(BgL_cdrzd21395zd2_491)))
{ /* Module/main.scm 58 */
BgL_mainz00_486 = BgL_carzd21397zd2_493;
{ /* Module/main.scm 60 */
obj_t BgL_globalz00_497;
BgL_globalz00_497 =
BGl_findzd2globalzf2modulez20zzast_envz00
(BgL_mainz00_486,
BGl_za2moduleza2z00zzmodule_modulez00);
if (BGl_iszd2azf3z21zz__objectz00
(BgL_globalz00_497, BGl_globalz00zzast_varz00))
{ /* Module/main.scm 61 */
if (BGl_correctzd2mainzf3z21zzmodule_mainz00(
(BgL_globalz00_bglt) (BgL_globalz00_497)))
{ /* Module/main.scm 62 */
return BFALSE;
}
else
{ /* Module/main.scm 63 */
obj_t BgL_list2236z00_500;
BgL_list2236z00_500 =
MAKE_PAIR(BNIL, BNIL);
return
BGl_userzd2errorzd2zztools_errorz00
(BGl_za2moduleza2z00zzmodule_modulez00,
BGl_string2379z00zzmodule_mainz00,
BgL_mainz00_486, BgL_list2236z00_500);
}
}
else
{ /* Module/main.scm 61 */
{ /* Module/main.scm 68 */
bool_t BgL_testz00_768;
if (
((long)
CINT
(BGl_za2bdbzd2debugza2zd2zzengine_paramz00)
> ((long) 0)))
{ /* Module/main.scm 69 */
obj_t BgL_arg2285z00_519;
obj_t BgL_arg2286z00_520;
BgL_arg2285z00_519 =
CNST_TABLE_REF(((long) 3));
{ /* Module/main.scm 70 */
obj_t BgL_arg2290z00_521;
BgL_arg2290z00_521 =
BGl_thezd2backendzd2zzbackend_backendz00
();
{
BgL_backendz00_bglt BgL_auxz00_774;
BgL_auxz00_774 =
(BgL_backendz00_bglt)
(BgL_arg2290z00_521);
BgL_arg2286z00_520 =
(((BgL_backendz00_bglt)
CREF(BgL_auxz00_774))->
BgL_debugzd2supportzd2);
}}
BgL_testz00_768 =
CBOOL
(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
(BgL_arg2285z00_519,
BgL_arg2286z00_520));
}
else
{ /* Module/main.scm 68 */
BgL_testz00_768 = ((bool_t) 0);
}
if (BgL_testz00_768)
{ /* Module/main.scm 71 */
obj_t BgL_arg2239z00_502;
{ /* Module/main.scm 71 */
obj_t BgL_arg2240z00_503;
obj_t BgL_arg2242z00_504;
BgL_arg2240z00_503 =
CNST_TABLE_REF(((long) 4));
{ /* Module/main.scm 71 */
obj_t BgL_arg2243z00_505;
{ /* Module/main.scm 71 */
obj_t BgL_arg2252z00_508;
{ /* Module/main.scm 71 */
obj_t BgL_list2253z00_509;
BgL_list2253z00_509 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg2252z00_508 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(CNST_TABLE_REF(((long) 5)),
BgL_list2253z00_509);
}
BgL_arg2243z00_505 =
MAKE_PAIR(BgL_mainz00_486,
BgL_arg2252z00_508);
}
{ /* Module/main.scm 71 */
obj_t BgL_list2246z00_507;
BgL_list2246z00_507 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg2242z00_504 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg2243z00_505,
BgL_list2246z00_507);
}}
BgL_arg2239z00_502 =
MAKE_PAIR(BgL_arg2240z00_503,
BgL_arg2242z00_504);
}
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00
(BgL_arg2239z00_502);
}
else
{ /* Module/main.scm 72 */
obj_t BgL_arg2255z00_510;
{ /* Module/main.scm 72 */
obj_t BgL_arg2259z00_511;
obj_t BgL_arg2260z00_512;
BgL_arg2259z00_511 =
CNST_TABLE_REF(((long) 4));
{ /* Module/main.scm 72 */
obj_t BgL_arg2267z00_513;
{ /* Module/main.scm 72 */
obj_t BgL_arg2282z00_516;
{ /* Module/main.scm 72 */
obj_t BgL_list2283z00_517;
BgL_list2283z00_517 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg2282z00_516 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(CNST_TABLE_REF(((long) 6)),
BgL_list2283z00_517);
}
BgL_arg2267z00_513 =
MAKE_PAIR(BgL_mainz00_486,
BgL_arg2282z00_516);
}
{ /* Module/main.scm 72 */
obj_t BgL_list2275z00_515;
BgL_list2275z00_515 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg2260z00_512 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg2267z00_513,
BgL_list2275z00_515);
}}
BgL_arg2255z00_510 =
MAKE_PAIR(BgL_arg2259z00_511,
BgL_arg2260z00_512);
}
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00
(BgL_arg2255z00_510);
}}
return (BGl_za2mainza2z00zzmodule_modulez00 =
BGl_findzd2globalzf2modulez20zzast_envz00
(BgL_mainz00_486,
BGl_za2moduleza2z00zzmodule_modulez00),
BUNSPEC);
}
}
}
else
{ /* Module/main.scm 58 */
BgL_tagzd21390zd2_488:
{ /* Module/main.scm 75 */
obj_t BgL_list2291z00_522;
BgL_list2291z00_522 = MAKE_PAIR(BNIL, BNIL);
return
BGl_userzd2errorzd2zztools_errorz00
(BGl_string2380z00zzmodule_mainz00,
BGl_string2381z00zzmodule_mainz00,
BgL_clausez00_2, BgL_list2291z00_522);
}
}
}
else
{ /* Module/main.scm 58 */
goto BgL_tagzd21390zd2_488;
}
}
else
{ /* Module/main.scm 58 */
goto BgL_tagzd21390zd2_488;
}
}
else
{ /* Module/main.scm 58 */
goto BgL_tagzd21390zd2_488;
}
}
}
}
}
/*---------------------------------------------------------------------*/
obj_t
cref( obj_t obj ) {
return CREF( obj );
}
/* cnst-walk! */
BGL_EXPORTED_DEF obj_t BGl_cnstzd2walkz12zc0zzcnst_walkz00(obj_t
BgL_globalsz00_1)
{
AN_OBJECT;
{ /* Cnst/walk.scm 33 */
{ /* Cnst/walk.scm 34 */
obj_t BgL_list3253z00_774;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3255z00_776;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3257z00_778;
BgL_arg3257z00_778 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3255z00_776 =
MAKE_PAIR(BGl_string3350z00zzcnst_walkz00, BgL_arg3257z00_778);
}
BgL_list3253z00_774 =
MAKE_PAIR(BGl_string3351z00zzcnst_walkz00, BgL_arg3255z00_776);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3253z00_774);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3350z00zzcnst_walkz00;
{ /* Cnst/walk.scm 34 */
obj_t BgL_g3246z00_779;
obj_t BgL_g3247z00_780;
{ /* Cnst/walk.scm 34 */
obj_t BgL_list3267z00_794;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3268z00_795;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3269z00_796;
BgL_arg3269z00_796 =
MAKE_PAIR(BGl_unsafez12zd2envzc0zzcnst_walkz00, BNIL);
BgL_arg3268z00_795 =
MAKE_PAIR(BGl_startzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
BgL_arg3269z00_796);
}
BgL_list3267z00_794 =
MAKE_PAIR(BGl_startzd2cnstzd2cachez12zd2envzc0zzcnst_cachez00,
BgL_arg3268z00_795);
}
BgL_g3246z00_779 = BgL_list3267z00_794;
}
BgL_g3247z00_780 = CNST_TABLE_REF(((long) 0));
{
obj_t BgL_hooksz00_782;
obj_t BgL_hnamesz00_783;
BgL_hooksz00_782 = BgL_g3246z00_779;
BgL_hnamesz00_783 = BgL_g3247z00_780;
BgL_zc3anonymousza33258ze3z83_784:
if (NULLP(BgL_hooksz00_782))
{ /* Cnst/walk.scm 34 */
CNST_TABLE_REF(((long) 1));
}
else
{ /* Cnst/walk.scm 34 */
bool_t BgL_testz00_1301;
{ /* Cnst/walk.scm 34 */
obj_t BgL_fun3266z00_792;
BgL_fun3266z00_792 = CAR(BgL_hooksz00_782);
BgL_testz00_1301 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3266z00_792) (BgL_fun3266z00_792,
BEOA));
}
if (BgL_testz00_1301)
{
obj_t BgL_hnamesz00_1308;
obj_t BgL_hooksz00_1306;
BgL_hooksz00_1306 = CDR(BgL_hooksz00_782);
BgL_hnamesz00_1308 = CDR(BgL_hnamesz00_783);
BgL_hnamesz00_783 = BgL_hnamesz00_1308;
BgL_hooksz00_782 = BgL_hooksz00_1306;
goto BgL_zc3anonymousza33258ze3z83_784;
}
else
{ /* Cnst/walk.scm 34 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3350z00zzcnst_walkz00,
BGl_string3352z00zzcnst_walkz00, CAR(BgL_hnamesz00_783));
}
}
}
}
{ /* Cnst/walk.scm 35 */
obj_t BgL_list3270z00_797;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3272z00_799;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3273z00_800;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3274z00_801;
BgL_arg3274z00_801 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3273z00_800 =
MAKE_PAIR(BCHAR(((unsigned char) ']')), BgL_arg3274z00_801);
}
BgL_arg3272z00_799 =
MAKE_PAIR(BGl_za2initzd2modeza2zd2zzengine_paramz00,
BgL_arg3273z00_800);
}
BgL_list3270z00_797 =
MAKE_PAIR(BGl_string3353z00zzcnst_walkz00, BgL_arg3272z00_799);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list3270z00_797);
}
{
obj_t BgL_l3250z00_803;
BgL_l3250z00_803 = BgL_globalsz00_1;
BgL_zc3anonymousza33275ze3z83_804:
if (PAIRP(BgL_l3250z00_803))
{ /* Cnst/walk.scm 36 */
{ /* Cnst/walk.scm 41 */
obj_t BgL_globalz00_806;
BgL_globalz00_806 = CAR(BgL_l3250z00_803);
{ /* Cnst/walk.scm 37 */
obj_t BgL_arg3277z00_807;
{
BgL_variablez00_bglt BgL_auxz00_1323;
BgL_auxz00_1323 = (BgL_variablez00_bglt) (BgL_globalz00_806);
BgL_arg3277z00_807 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1323))->BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3277z00_807);
}
{ /* Cnst/walk.scm 38 */
BgL_valuez00_bglt BgL_funz00_808;
{
BgL_variablez00_bglt BgL_auxz00_1327;
BgL_auxz00_1327 = (BgL_variablez00_bglt) (BgL_globalz00_806);
BgL_funz00_808 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1327))->
BgL_valuez00);
}
{ /* Cnst/walk.scm 38 */
BgL_nodez00_bglt BgL_newzd2bodyzd2_809;
{ /* Cnst/walk.scm 39 */
obj_t BgL_arg3278z00_810;
{
BgL_sfunz00_bglt BgL_auxz00_1330;
BgL_auxz00_1330 = (BgL_sfunz00_bglt) (BgL_funz00_808);
BgL_arg3278z00_810 =
(((BgL_sfunz00_bglt) CREF(BgL_auxz00_1330))->
BgL_bodyz00);
}
BgL_newzd2bodyzd2_809 =
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt) (BgL_arg3278z00_810));
}
{ /* Cnst/walk.scm 39 */
{
obj_t BgL_auxz00_1337;
BgL_sfunz00_bglt BgL_auxz00_1335;
BgL_auxz00_1337 = (obj_t) (BgL_newzd2bodyzd2_809);
BgL_auxz00_1335 = (BgL_sfunz00_bglt) (BgL_funz00_808);
((((BgL_sfunz00_bglt) CREF(BgL_auxz00_1335))->
BgL_bodyz00) = ((obj_t) BgL_auxz00_1337), BUNSPEC);
}
}
}
}
BGl_leavezd2functionzd2zztools_errorz00();
}
{
obj_t BgL_l3250z00_1341;
BgL_l3250z00_1341 = CDR(BgL_l3250z00_803);
BgL_l3250z00_803 = BgL_l3250z00_1341;
goto BgL_zc3anonymousza33275ze3z83_804;
}
}
else
{ /* Cnst/walk.scm 36 */
((bool_t) 1);
}
}
{ /* Cnst/walk.scm 43 */
obj_t BgL_valuez00_813;
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3295z00_836;
obj_t BgL_arg3296z00_837;
BgL_arg3295z00_836 = CNST_TABLE_REF(((long) 2));
BgL_arg3296z00_837 =
bgl_append2(BGl_initializa7ezd2astz75zzcnst_initializa7eza7(),
BgL_globalsz00_1);
BgL_valuez00_813 =
BGl_removezd2varzd2zzast_removez00(BgL_arg3295z00_836,
BgL_arg3296z00_837);
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Cnst/walk.scm 43 */
{ /* Cnst/walk.scm 43 */
obj_t BgL_port3252z00_815;
{ /* Cnst/walk.scm 43 */
obj_t BgL_res3348z00_1231;
{ /* Cnst/walk.scm 43 */
obj_t BgL_auxz00_1350;
BgL_auxz00_1350 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3348z00_1231 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1350);
}
BgL_port3252z00_815 = BgL_res3348z00_1231;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3252z00_815);
bgl_display_string(BGl_string3354z00zzcnst_walkz00,
BgL_port3252z00_815);
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3281z00_816;
{ /* Cnst/walk.scm 43 */
bool_t BgL_testz00_1355;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Cnst/walk.scm 43 */
BgL_testz00_1355 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Cnst/walk.scm 43 */
BgL_testz00_1355 = ((bool_t) 0);
}
if (BgL_testz00_1355)
{ /* Cnst/walk.scm 43 */
BgL_arg3281z00_816 = BGl_string3355z00zzcnst_walkz00;
}
else
{ /* Cnst/walk.scm 43 */
BgL_arg3281z00_816 = BGl_string3356z00zzcnst_walkz00;
}
}
bgl_display_obj(BgL_arg3281z00_816, BgL_port3252z00_815);
}
bgl_display_string(BGl_string3357z00zzcnst_walkz00,
BgL_port3252z00_815);
bgl_display_char(((unsigned char) '\n'), BgL_port3252z00_815);
}
{ /* Cnst/walk.scm 43 */
obj_t BgL_list3284z00_819;
BgL_list3284z00_819 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3284z00_819);
}
}
else
{ /* Cnst/walk.scm 43 */
obj_t BgL_g3248z00_820;
obj_t BgL_g3249z00_821;
{ /* Cnst/walk.scm 43 */
obj_t BgL_list3293z00_834;
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3294z00_835;
BgL_arg3294z00_835 =
MAKE_PAIR(BGl_safez12zd2envzc0zzcnst_walkz00, BNIL);
BgL_list3293z00_834 =
MAKE_PAIR(BGl_stopzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
BgL_arg3294z00_835);
}
BgL_g3248z00_820 = BgL_list3293z00_834;
}
BgL_g3249z00_821 = CNST_TABLE_REF(((long) 3));
{
obj_t BgL_hooksz00_823;
obj_t BgL_hnamesz00_824;
BgL_hooksz00_823 = BgL_g3248z00_820;
BgL_hnamesz00_824 = BgL_g3249z00_821;
BgL_zc3anonymousza33285ze3z83_825:
if (NULLP(BgL_hooksz00_823))
{ /* Cnst/walk.scm 43 */
return BgL_valuez00_813;
}
else
{ /* Cnst/walk.scm 43 */
bool_t BgL_testz00_1371;
{ /* Cnst/walk.scm 43 */
obj_t BgL_fun3292z00_832;
BgL_fun3292z00_832 = CAR(BgL_hooksz00_823);
BgL_testz00_1371 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3292z00_832)
(BgL_fun3292z00_832, BEOA));
}
if (BgL_testz00_1371)
{
obj_t BgL_hnamesz00_1378;
obj_t BgL_hooksz00_1376;
BgL_hooksz00_1376 = CDR(BgL_hooksz00_823);
BgL_hnamesz00_1378 = CDR(BgL_hnamesz00_824);
BgL_hnamesz00_824 = BgL_hnamesz00_1378;
BgL_hooksz00_823 = BgL_hooksz00_1376;
goto BgL_zc3anonymousza33285ze3z83_825;
}
else
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3291z00_831;
BgL_arg3291z00_831 = CAR(BgL_hnamesz00_824);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3358z00zzcnst_walkz00, BgL_arg3291z00_831);
}
}
}
}
}
}
}
/* union */
BGL_EXPORTED_DEF obj_t BGl_unionz00zzglobaliza7e_kaptureza7(obj_t
BgL_setsz00_4)
{
AN_OBJECT;
{ /* Globalize/kapture.scm 142 */
BGl_za2unionzd2roundza2zd2zzglobaliza7e_kaptureza7 =
(((long) 1) + BGl_za2unionzd2roundza2zd2zzglobaliza7e_kaptureza7);
{
obj_t BgL_setsz00_982;
obj_t BgL_unionz00_983;
BgL_setsz00_982 = BgL_setsz00_4;
BgL_unionz00_983 = BNIL;
BgL_zc3anonymousza33687ze3z83_984:
if (NULLP(BgL_setsz00_982))
{ /* Globalize/kapture.scm 146 */
return BgL_unionz00_983;
}
else
{ /* Globalize/kapture.scm 148 */
obj_t BgL_g3641z00_986;
BgL_g3641z00_986 = CAR(BgL_setsz00_982);
{
obj_t BgL_setz00_988;
obj_t BgL_unionz00_989;
BgL_setz00_988 = BgL_g3641z00_986;
BgL_unionz00_989 = BgL_unionz00_983;
BgL_zc3anonymousza33689ze3z83_990:
if (NULLP(BgL_setz00_988))
{
obj_t BgL_unionz00_1726;
obj_t BgL_setsz00_1724;
BgL_setsz00_1724 = CDR(BgL_setsz00_982);
BgL_unionz00_1726 = BgL_unionz00_989;
BgL_unionz00_983 = BgL_unionz00_1726;
BgL_setsz00_982 = BgL_setsz00_1724;
goto BgL_zc3anonymousza33687ze3z83_984;
}
else
{ /* Globalize/kapture.scm 154 */
bool_t BgL_testz00_1727;
{ /* Globalize/kapture.scm 154 */
BgL_valuez00_bglt BgL_arg3713z00_1014;
{ /* Globalize/kapture.scm 154 */
BgL_variablez00_bglt BgL_obj1611z00_1512;
{ /* Globalize/kapture.scm 154 */
obj_t BgL_pairz00_1511;
BgL_pairz00_1511 = BgL_setz00_988;
BgL_obj1611z00_1512 =
(BgL_variablez00_bglt) (CAR(BgL_pairz00_1511));
}
BgL_arg3713z00_1014 =
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1512))->
BgL_valuez00);
}
{ /* Globalize/kapture.scm 154 */
obj_t BgL_obj1856z00_1513;
BgL_obj1856z00_1513 = (obj_t) (BgL_arg3713z00_1014);
BgL_testz00_1727 =
BGl_iszd2azf3z21zz__objectz00(BgL_obj1856z00_1513,
BGl_funz00zzast_varz00);
}
}
if (BgL_testz00_1727)
{ /* Globalize/kapture.scm 155 */
bool_t BgL_testz00_1733;
{ /* Globalize/kapture.scm 155 */
long BgL_arg3700z00_1001;
{ /* Globalize/kapture.scm 155 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3376z00_1516;
{ /* Globalize/kapture.scm 155 */
BgL_valuez00_bglt BgL_auxz00_1734;
{ /* Globalize/kapture.scm 155 */
BgL_variablez00_bglt BgL_obj1611z00_1515;
{ /* Globalize/kapture.scm 155 */
obj_t BgL_pairz00_1514;
BgL_pairz00_1514 = BgL_setz00_988;
BgL_obj1611z00_1515 =
(BgL_variablez00_bglt) (CAR
(BgL_pairz00_1514));
}
BgL_auxz00_1734 =
(((BgL_variablez00_bglt)
CREF(BgL_obj1611z00_1515))->BgL_valuez00);
}
BgL_obj3376z00_1516 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_auxz00_1734);
}
{
obj_t BgL_auxz00_1739;
{ /* Globalize/kapture.scm 155 */
BgL_objectz00_bglt BgL_auxz00_1740;
BgL_auxz00_1740 =
(BgL_objectz00_bglt) (BgL_obj3376z00_1516);
BgL_auxz00_1739 =
BGL_OBJECT_WIDENING(BgL_auxz00_1740);
}
BgL_arg3700z00_1001 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1739))->BgL_umarkz00);
}}
BgL_testz00_1733 =
(BgL_arg3700z00_1001 ==
BGl_za2unionzd2roundza2zd2zzglobaliza7e_kaptureza7);
}
if (BgL_testz00_1733)
{
obj_t BgL_setz00_1745;
BgL_setz00_1745 = CDR(BgL_setz00_988);
BgL_setz00_988 = BgL_setz00_1745;
goto BgL_zc3anonymousza33689ze3z83_990;
}
else
{ /* Globalize/kapture.scm 155 */
{ /* Globalize/kapture.scm 159 */
BgL_valuez00_bglt BgL_arg3695z00_996;
{ /* Globalize/kapture.scm 159 */
BgL_variablez00_bglt BgL_obj1611z00_1519;
{ /* Globalize/kapture.scm 159 */
obj_t BgL_pairz00_1518;
BgL_pairz00_1518 = BgL_setz00_988;
BgL_obj1611z00_1519 =
(BgL_variablez00_bglt) (CAR
(BgL_pairz00_1518));
}
BgL_arg3695z00_996 =
(((BgL_variablez00_bglt)
CREF(BgL_obj1611z00_1519))->BgL_valuez00);
}
{ /* Globalize/kapture.scm 159 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3378z00_1520;
long BgL_val3377z00_1521;
BgL_obj3378z00_1520 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_arg3695z00_996);
BgL_val3377z00_1521 =
BGl_za2unionzd2roundza2zd2zzglobaliza7e_kaptureza7;
{
obj_t BgL_auxz00_1751;
{ /* Globalize/kapture.scm 159 */
BgL_objectz00_bglt BgL_auxz00_1752;
BgL_auxz00_1752 =
(BgL_objectz00_bglt) (BgL_obj3378z00_1520);
BgL_auxz00_1751 =
BGL_OBJECT_WIDENING(BgL_auxz00_1752);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1751))->BgL_umarkz00) =
((long) BgL_val3377z00_1521), BUNSPEC);
}}}
{ /* Globalize/kapture.scm 161 */
obj_t BgL_arg3697z00_998;
obj_t BgL_arg3698z00_999;
BgL_arg3697z00_998 = CDR(BgL_setz00_988);
BgL_arg3698z00_999 =
MAKE_PAIR(CAR(BgL_setz00_988), BgL_unionz00_989);
{
obj_t BgL_unionz00_1760;
obj_t BgL_setz00_1759;
BgL_setz00_1759 = BgL_arg3697z00_998;
BgL_unionz00_1760 = BgL_arg3698z00_999;
BgL_unionz00_989 = BgL_unionz00_1760;
BgL_setz00_988 = BgL_setz00_1759;
goto BgL_zc3anonymousza33689ze3z83_990;
}
}
}
}
else
{ /* Globalize/kapture.scm 163 */
bool_t BgL_testz00_1761;
{ /* Globalize/kapture.scm 163 */
long BgL_arg3710z00_1011;
{ /* Globalize/kapture.scm 163 */
BgL_svarzf2ginfozf2_bglt BgL_obj3454z00_1526;
{ /* Globalize/kapture.scm 163 */
BgL_valuez00_bglt BgL_auxz00_1762;
{ /* Globalize/kapture.scm 163 */
BgL_variablez00_bglt BgL_obj1611z00_1525;
{ /* Globalize/kapture.scm 163 */
obj_t BgL_pairz00_1524;
BgL_pairz00_1524 = BgL_setz00_988;
BgL_obj1611z00_1525 =
(BgL_variablez00_bglt) (CAR
(BgL_pairz00_1524));
}
BgL_auxz00_1762 =
(((BgL_variablez00_bglt)
CREF(BgL_obj1611z00_1525))->BgL_valuez00);
}
BgL_obj3454z00_1526 =
(BgL_svarzf2ginfozf2_bglt) (BgL_auxz00_1762);
}
{
obj_t BgL_auxz00_1767;
{ /* Globalize/kapture.scm 163 */
BgL_objectz00_bglt BgL_auxz00_1768;
BgL_auxz00_1768 =
(BgL_objectz00_bglt) (BgL_obj3454z00_1526);
BgL_auxz00_1767 =
BGL_OBJECT_WIDENING(BgL_auxz00_1768);
}
BgL_arg3710z00_1011 =
(((BgL_svarzf2ginfozf2_bglt)
CREF(BgL_auxz00_1767))->BgL_markz00);
}}
BgL_testz00_1761 =
(BgL_arg3710z00_1011 ==
BGl_za2unionzd2roundza2zd2zzglobaliza7e_kaptureza7);
}
if (BgL_testz00_1761)
{
obj_t BgL_setz00_1773;
BgL_setz00_1773 = CDR(BgL_setz00_988);
BgL_setz00_988 = BgL_setz00_1773;
goto BgL_zc3anonymousza33689ze3z83_990;
}
else
{ /* Globalize/kapture.scm 163 */
{ /* Globalize/kapture.scm 166 */
BgL_valuez00_bglt BgL_arg3705z00_1006;
{ /* Globalize/kapture.scm 166 */
BgL_variablez00_bglt BgL_obj1611z00_1529;
{ /* Globalize/kapture.scm 166 */
obj_t BgL_pairz00_1528;
BgL_pairz00_1528 = BgL_setz00_988;
BgL_obj1611z00_1529 =
(BgL_variablez00_bglt) (CAR
(BgL_pairz00_1528));
}
BgL_arg3705z00_1006 =
(((BgL_variablez00_bglt)
CREF(BgL_obj1611z00_1529))->BgL_valuez00);
}
{ /* Globalize/kapture.scm 166 */
BgL_svarzf2ginfozf2_bglt BgL_obj3456z00_1530;
long BgL_val3455z00_1531;
BgL_obj3456z00_1530 =
(BgL_svarzf2ginfozf2_bglt)
(BgL_arg3705z00_1006);
BgL_val3455z00_1531 =
BGl_za2unionzd2roundza2zd2zzglobaliza7e_kaptureza7;
{
obj_t BgL_auxz00_1779;
{ /* Globalize/kapture.scm 166 */
BgL_objectz00_bglt BgL_auxz00_1780;
BgL_auxz00_1780 =
(BgL_objectz00_bglt) (BgL_obj3456z00_1530);
BgL_auxz00_1779 =
BGL_OBJECT_WIDENING(BgL_auxz00_1780);
}
((((BgL_svarzf2ginfozf2_bglt)
CREF(BgL_auxz00_1779))->BgL_markz00) =
((long) BgL_val3455z00_1531), BUNSPEC);
}}}
{ /* Globalize/kapture.scm 167 */
obj_t BgL_arg3707z00_1008;
obj_t BgL_arg3708z00_1009;
BgL_arg3707z00_1008 = CDR(BgL_setz00_988);
BgL_arg3708z00_1009 =
MAKE_PAIR(CAR(BgL_setz00_988), BgL_unionz00_989);
{
obj_t BgL_unionz00_1788;
obj_t BgL_setz00_1787;
BgL_setz00_1787 = BgL_arg3707z00_1008;
BgL_unionz00_1788 = BgL_arg3708z00_1009;
BgL_unionz00_989 = BgL_unionz00_1788;
BgL_setz00_988 = BgL_setz00_1787;
goto BgL_zc3anonymousza33689ze3z83_990;
}
}
}
}
}
}
}
}
}
}
/* set-integration! */
BGL_EXPORTED_DEF obj_t
BGl_setzd2integrationz12zc0zzglobaliza7e_integrationza7(BgL_globalz00_bglt
BgL_globalz00_1, obj_t BgL_ez00_2, obj_t BgL_g0z00_3, obj_t BgL_g1z00_4)
{
AN_OBJECT;
{ /* Globalize/integration.scm 31 */
{
obj_t BgL_l3651z00_921;
BgL_l3651z00_921 = BgL_ez00_2;
BgL_zc3anonymousza33663ze3z83_922:
if (PAIRP(BgL_l3651z00_921))
{ /* Globalize/integration.scm 34 */
{ /* Globalize/integration.scm 35 */
obj_t BgL_fz00_924;
BgL_fz00_924 = CAR(BgL_l3651z00_921);
{ /* Globalize/integration.scm 36 */
BgL_localzf2ginfozf2_bglt BgL_obj3525z00_1422;
bool_t BgL_val3524z00_1423;
BgL_obj3525z00_1422 =
(BgL_localzf2ginfozf2_bglt) (BgL_fz00_924);
BgL_val3524z00_1423 = ((bool_t) 1);
{
obj_t BgL_auxz00_1528;
{ /* Globalize/integration.scm 36 */
BgL_objectz00_bglt BgL_auxz00_1529;
BgL_auxz00_1529 =
(BgL_objectz00_bglt) (BgL_obj3525z00_1422);
BgL_auxz00_1528 = BGL_OBJECT_WIDENING(BgL_auxz00_1529);
}
((((BgL_localzf2ginfozf2_bglt) CREF(BgL_auxz00_1528))->
BgL_globaliza7edzf3z54) =
((bool_t) BgL_val3524z00_1423), BUNSPEC);
}
}
}
{
obj_t BgL_l3651z00_1533;
BgL_l3651z00_1533 = CDR(BgL_l3651z00_921);
BgL_l3651z00_921 = BgL_l3651z00_1533;
goto BgL_zc3anonymousza33663ze3z83_922;
}
}
else
{ /* Globalize/integration.scm 34 */
((bool_t) 1);
}
}
{ /* Globalize/integration.scm 40 */
obj_t BgL_g3639z00_928;
BgL_g3639z00_928 = MAKE_PAIR((obj_t) (BgL_globalz00_1), BgL_ez00_2);
{
obj_t BgL_fnsz00_930;
BgL_fnsz00_930 = BgL_g3639z00_928;
BgL_zc3anonymousza33666ze3z83_931:
if (PAIRP(BgL_fnsz00_930))
{ /* Globalize/integration.scm 42 */
obj_t BgL_arg3668z00_933;
{ /* Globalize/integration.scm 42 */
obj_t BgL_runner3680z00_952;
{ /* Globalize/integration.scm 42 */
obj_t BgL_l3653z00_934;
BgL_l3653z00_934 = BgL_fnsz00_930;
{ /* Globalize/integration.scm 42 */
obj_t BgL_head3655z00_936;
BgL_head3655z00_936 =
MAKE_PAIR
(BGl_traversezd2callzd2toz12z12zzglobaliza7e_integrationza7
(CAR(BgL_l3653z00_934)), BNIL);
{ /* Globalize/integration.scm 42 */
obj_t BgL_g3658z00_937;
BgL_g3658z00_937 = CDR(BgL_l3653z00_934);
{
obj_t BgL_l3653z00_939;
obj_t BgL_tail3656z00_940;
BgL_l3653z00_939 = BgL_g3658z00_937;
BgL_tail3656z00_940 = BgL_head3655z00_936;
BgL_zc3anonymousza33670ze3z83_941:
if (NULLP(BgL_l3653z00_939))
{ /* Globalize/integration.scm 42 */
BgL_runner3680z00_952 = BgL_head3655z00_936;
}
else
{ /* Globalize/integration.scm 42 */
obj_t BgL_newtail3657z00_943;
BgL_newtail3657z00_943 =
MAKE_PAIR
(BGl_traversezd2callzd2toz12z12zzglobaliza7e_integrationza7
(CAR(BgL_l3653z00_939)), BNIL);
SET_CDR(BgL_tail3656z00_940,
BgL_newtail3657z00_943);
{
obj_t BgL_tail3656z00_1551;
obj_t BgL_l3653z00_1549;
BgL_l3653z00_1549 = CDR(BgL_l3653z00_939);
BgL_tail3656z00_1551 = BgL_newtail3657z00_943;
BgL_tail3656z00_940 = BgL_tail3656z00_1551;
BgL_l3653z00_939 = BgL_l3653z00_1549;
goto BgL_zc3anonymousza33670ze3z83_941;
}
}
}
}
}
}
BgL_arg3668z00_933 =
BGl_appendz00zz__r4_pairs_and_lists_6_3z00
(BgL_runner3680z00_952);
}
{
obj_t BgL_fnsz00_1553;
BgL_fnsz00_1553 = BgL_arg3668z00_933;
BgL_fnsz00_930 = BgL_fnsz00_1553;
goto BgL_zc3anonymousza33666ze3z83_931;
}
}
else
{ /* Globalize/integration.scm 41 */
((bool_t) 0);
}
}
}
{
obj_t BgL_l3659z00_955;
BgL_l3659z00_955 = BgL_g1z00_4;
BgL_zc3anonymousza33681ze3z83_956:
if (PAIRP(BgL_l3659z00_955))
{ /* Globalize/integration.scm 44 */
{ /* Globalize/integration.scm 45 */
obj_t BgL_fz00_958;
BgL_fz00_958 = CAR(BgL_l3659z00_955);
{ /* Globalize/integration.scm 45 */
bool_t BgL_testz00_1557;
{ /* Globalize/integration.scm 45 */
bool_t BgL__ortest_3646z00_1441;
BgL__ortest_3646z00_1441 =
BGl_iszd2azf3z21zz__objectz00(BgL_fz00_958,
BGl_globalz00zzast_varz00);
if (BgL__ortest_3646z00_1441)
{ /* Globalize/integration.scm 45 */
BgL_testz00_1557 = BgL__ortest_3646z00_1441;
}
else
{ /* Globalize/integration.scm 45 */
BgL_localzf2ginfozf2_bglt BgL_obj3523z00_1443;
BgL_obj3523z00_1443 =
(BgL_localzf2ginfozf2_bglt) (BgL_fz00_958);
{
obj_t BgL_auxz00_1561;
{ /* Globalize/integration.scm 45 */
BgL_objectz00_bglt BgL_auxz00_1562;
BgL_auxz00_1562 =
(BgL_objectz00_bglt) (BgL_obj3523z00_1443);
BgL_auxz00_1561 =
BGL_OBJECT_WIDENING(BgL_auxz00_1562);
}
BgL_testz00_1557 =
(((BgL_localzf2ginfozf2_bglt) CREF(BgL_auxz00_1561))->
BgL_globaliza7edzf3z54);
}
}
}
if (BgL_testz00_1557)
{ /* Globalize/integration.scm 45 */
BFALSE;
}
else
{ /* Globalize/integration.scm 48 */
BgL_valuez00_bglt BgL_instance3640z00_960;
{
BgL_variablez00_bglt BgL_auxz00_1566;
BgL_auxz00_1566 = (BgL_variablez00_bglt) (BgL_fz00_958);
BgL_instance3640z00_960 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1566))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 49 */
obj_t BgL_arg3684z00_961;
{ /* Globalize/integration.scm 49 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3345z00_1445;
BgL_obj3345z00_1445 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3640z00_960);
{
obj_t BgL_auxz00_1570;
{ /* Globalize/integration.scm 49 */
BgL_objectz00_bglt BgL_auxz00_1571;
BgL_auxz00_1571 =
(BgL_objectz00_bglt) (BgL_obj3345z00_1445);
BgL_auxz00_1570 =
BGL_OBJECT_WIDENING(BgL_auxz00_1571);
}
BgL_arg3684z00_961 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1570))->BgL_imarkz00);
}
}
{ /* Globalize/integration.scm 49 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3344z00_1446;
obj_t BgL_val3343z00_1447;
BgL_obj3344z00_1446 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3640z00_960);
BgL_val3343z00_1447 = BgL_arg3684z00_961;
{
obj_t BgL_auxz00_1576;
{ /* Globalize/integration.scm 49 */
BgL_objectz00_bglt BgL_auxz00_1577;
BgL_auxz00_1577 =
(BgL_objectz00_bglt) (BgL_obj3344z00_1446);
BgL_auxz00_1576 =
BGL_OBJECT_WIDENING(BgL_auxz00_1577);
}
((((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1576))->
BgL_integratorz00) =
((obj_t) BgL_val3343z00_1447), BUNSPEC);
}
}
}
}
}
}
{
obj_t BgL_l3659z00_1581;
BgL_l3659z00_1581 = CDR(BgL_l3659z00_955);
BgL_l3659z00_955 = BgL_l3659z00_1581;
goto BgL_zc3anonymousza33681ze3z83_956;
}
}
else
{ /* Globalize/integration.scm 44 */
((bool_t) 1);
}
}
{
obj_t BgL_l3661z00_965;
{ /* Globalize/integration.scm 52 */
bool_t BgL_auxz00_1583;
BgL_l3661z00_965 = BgL_g1z00_4;
BgL_zc3anonymousza33686ze3z83_966:
if (PAIRP(BgL_l3661z00_965))
{ /* Globalize/integration.scm 52 */
{ /* Globalize/integration.scm 53 */
obj_t BgL_fz00_968;
BgL_fz00_968 = CAR(BgL_l3661z00_965);
{ /* Globalize/integration.scm 53 */
BgL_valuez00_bglt BgL_instance3642z00_969;
{
BgL_variablez00_bglt BgL_auxz00_1587;
BgL_auxz00_1587 = (BgL_variablez00_bglt) (BgL_fz00_968);
BgL_instance3642z00_969 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1587))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 56 */
bool_t BgL_testz00_1590;
{ /* Globalize/integration.scm 56 */
bool_t BgL__ortest_3646z00_1453;
BgL__ortest_3646z00_1453 =
BGl_iszd2azf3z21zz__objectz00(BgL_fz00_968,
BGl_globalz00zzast_varz00);
if (BgL__ortest_3646z00_1453)
{ /* Globalize/integration.scm 56 */
BgL_testz00_1590 = BgL__ortest_3646z00_1453;
}
else
{ /* Globalize/integration.scm 56 */
BgL_localzf2ginfozf2_bglt BgL_obj3523z00_1455;
BgL_obj3523z00_1455 =
(BgL_localzf2ginfozf2_bglt) (BgL_fz00_968);
{
obj_t BgL_auxz00_1594;
{ /* Globalize/integration.scm 56 */
BgL_objectz00_bglt BgL_auxz00_1595;
BgL_auxz00_1595 =
(BgL_objectz00_bglt) (BgL_obj3523z00_1455);
BgL_auxz00_1594 =
BGL_OBJECT_WIDENING(BgL_auxz00_1595);
}
BgL_testz00_1590 =
(((BgL_localzf2ginfozf2_bglt)
CREF(BgL_auxz00_1594))->BgL_globaliza7edzf3z54);
}
}
}
if (BgL_testz00_1590)
{ /* Globalize/integration.scm 56 */
{ /* Globalize/integration.scm 58 */
BgL_valuez00_bglt BgL_arg3713z00_1457;
{
BgL_variablez00_bglt BgL_auxz00_1599;
BgL_auxz00_1599 =
(BgL_variablez00_bglt) (BgL_fz00_968);
BgL_arg3713z00_1457 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1599))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 58 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3344z00_1459;
obj_t BgL_val3343z00_1460;
BgL_obj3344z00_1459 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_arg3713z00_1457);
BgL_val3343z00_1460 = BFALSE;
{
obj_t BgL_auxz00_1603;
{ /* Globalize/integration.scm 58 */
BgL_objectz00_bglt BgL_auxz00_1604;
BgL_auxz00_1604 =
(BgL_objectz00_bglt) (BgL_obj3344z00_1459);
BgL_auxz00_1603 =
BGL_OBJECT_WIDENING(BgL_auxz00_1604);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1603))->BgL_integratorz00) =
((obj_t) BgL_val3343z00_1460), BUNSPEC);
}
}
}
}
else
{ /* Globalize/integration.scm 59 */
bool_t BgL_testz00_1608;
{ /* Globalize/integration.scm 59 */
obj_t BgL_arg3694z00_976;
{ /* Globalize/integration.scm 59 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3342z00_1461;
BgL_obj3342z00_1461 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3642z00_969);
{
obj_t BgL_auxz00_1610;
{ /* Globalize/integration.scm 59 */
BgL_objectz00_bglt BgL_auxz00_1611;
BgL_auxz00_1611 =
(BgL_objectz00_bglt) (BgL_obj3342z00_1461);
BgL_auxz00_1610 =
BGL_OBJECT_WIDENING(BgL_auxz00_1611);
}
BgL_arg3694z00_976 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1610))->BgL_integratorz00);
}
}
BgL_testz00_1608 =
BGl_iszd2azf3z21zz__objectz00(BgL_arg3694z00_976,
BGl_variablez00zzast_varz00);
}
if (BgL_testz00_1608)
{ /* Globalize/integration.scm 59 */
{ /* Globalize/integration.scm 63 */
obj_t BgL_arg3690z00_972;
{ /* Globalize/integration.scm 63 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3342z00_1463;
BgL_obj3342z00_1463 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3642z00_969);
{
obj_t BgL_auxz00_1617;
{ /* Globalize/integration.scm 63 */
BgL_objectz00_bglt BgL_auxz00_1618;
BgL_auxz00_1618 =
(BgL_objectz00_bglt)
(BgL_obj3342z00_1463);
BgL_auxz00_1617 =
BGL_OBJECT_WIDENING(BgL_auxz00_1618);
}
BgL_arg3690z00_972 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1617))->
BgL_integratorz00);
}
}
BGl_integratezd2inz12zc0zzglobaliza7e_integrationza7
(BgL_fz00_968, BgL_arg3690z00_972);
}
}
else
{ /* Globalize/integration.scm 59 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3767z00zzglobaliza7e_integrationza7,
BGl_string3768z00zzglobaliza7e_integrationza7,
BGl_shapez00zztools_shapez00(BgL_fz00_968));
}
}
}
}
}
{
obj_t BgL_l3661z00_1625;
BgL_l3661z00_1625 = CDR(BgL_l3661z00_965);
BgL_l3661z00_965 = BgL_l3661z00_1625;
goto BgL_zc3anonymousza33686ze3z83_966;
}
}
else
{ /* Globalize/integration.scm 52 */
BgL_auxz00_1583 = ((bool_t) 1);
}
return BBOOL(BgL_auxz00_1583);
}
}
}
}
#include "simulator/runtime/calc/resource/calc_resource.h"
#include "simulator/runtime/rdo_res_type_i.h"
#include "simulator/runtime/rdo_runtime.h"
#include "simulator/runtime/rdo_activity.h"
// --------------------------------------------------------------------------------
OPEN_RDO_RUNTIME_NAMESPACE
// --------------------------------------------------------------------------------
// -------------------- RDOGetResourceByRelevantResourceID
// --------------------------------------------------------------------------------
RDOGetResourceByRelevantResourceID::RDOGetResourceByRelevantResourceID(ruint relevantResourceID)
: m_relevantResourceID(relevantResourceID)
{}
RDOValue RDOGetResourceByRelevantResourceID::doCalc(CREF(LPRDORuntime) pRuntime)
{
RDOValue value;
if (!RDOCalcGetResourceHelper::getResource(pRuntime, pRuntime->getCurrentActivity()->getResByRelRes(m_relevantResourceID), value))
{
pRuntime->error().push("Не найден ресурс", srcInfo());
}
return value;
}
// --------------------------------------------------------------------------------
// -------------------- RDOEraseResRelCalc
// --------------------------------------------------------------------------------
RDOEraseResRelCalc::RDOEraseResRelCalc(ruint relResID, CREF(tstring) relResName)
: m_relResID (relResID )
, m_relResName(relResName)
/* <anonymous:3699> */
obj_t BGl_zc3anonymousza33699ze3z83zzglobaliza7e_integrationza7(obj_t
BgL_envz00_1509, obj_t BgL_gz00_1512)
{
AN_OBJECT;
{ /* Globalize/integration.scm 78 */
{ /* Globalize/integration.scm 79 */
obj_t BgL_integratorz00_1510;
obj_t BgL_fz00_1511;
BgL_integratorz00_1510 =
PROCEDURE_REF(BgL_envz00_1509, (int) (((long) 0)));
BgL_fz00_1511 = PROCEDURE_REF(BgL_envz00_1509, (int) (((long) 1)));
{
obj_t BgL_gz00_983;
BgL_gz00_983 = BgL_gz00_1512;
{ /* Globalize/integration.scm 79 */
bool_t BgL_testz00_1668;
{ /* Globalize/integration.scm 79 */
bool_t BgL_testz00_1669;
{ /* Globalize/integration.scm 79 */
bool_t BgL__ortest_3646z00_1474;
BgL__ortest_3646z00_1474 =
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_983,
BGl_globalz00zzast_varz00);
if (BgL__ortest_3646z00_1474)
{ /* Globalize/integration.scm 79 */
BgL_testz00_1669 = BgL__ortest_3646z00_1474;
}
else
{ /* Globalize/integration.scm 79 */
BgL_localzf2ginfozf2_bglt BgL_obj3523z00_1476;
BgL_obj3523z00_1476 =
(BgL_localzf2ginfozf2_bglt) (BgL_gz00_983);
{
obj_t BgL_auxz00_1673;
{ /* Globalize/integration.scm 79 */
BgL_objectz00_bglt BgL_auxz00_1674;
BgL_auxz00_1674 =
(BgL_objectz00_bglt) (BgL_obj3523z00_1476);
BgL_auxz00_1673 = BGL_OBJECT_WIDENING(BgL_auxz00_1674);
}
BgL_testz00_1669 =
(((BgL_localzf2ginfozf2_bglt) CREF(BgL_auxz00_1673))->
BgL_globaliza7edzf3z54);
}
}
}
if (BgL_testz00_1669)
{ /* Globalize/integration.scm 79 */
BgL_testz00_1668 = ((bool_t) 1);
}
else
{ /* Globalize/integration.scm 79 */
BgL_testz00_1668 = (BgL_fz00_1511 == BgL_gz00_983);
}
}
if (BgL_testz00_1668)
{ /* Globalize/integration.scm 79 */
return BFALSE;
}
else
{ /* Globalize/integration.scm 80 */
BgL_valuez00_bglt BgL_instance3644z00_986;
{
BgL_variablez00_bglt BgL_auxz00_1679;
BgL_auxz00_1679 = (BgL_variablez00_bglt) (BgL_gz00_983);
BgL_instance3644z00_986 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1679))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 82 */
bool_t BgL_testz00_1682;
{ /* Globalize/integration.scm 82 */
obj_t BgL_auxz00_1683;
{ /* Globalize/integration.scm 82 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3345z00_1478;
BgL_obj3345z00_1478 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3644z00_986);
{
obj_t BgL_auxz00_1685;
{ /* Globalize/integration.scm 82 */
BgL_objectz00_bglt BgL_auxz00_1686;
BgL_auxz00_1686 =
(BgL_objectz00_bglt) (BgL_obj3345z00_1478);
BgL_auxz00_1685 =
BGL_OBJECT_WIDENING(BgL_auxz00_1686);
}
BgL_auxz00_1683 =
(((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1685))->
BgL_imarkz00);
}
}
BgL_testz00_1682 =
(BgL_auxz00_1683 == BgL_integratorz00_1510);
}
if (BgL_testz00_1682)
{ /* Globalize/integration.scm 82 */
return BFALSE;
}
else
{ /* Globalize/integration.scm 84 */
bool_t BgL_testz00_1691;
{ /* Globalize/integration.scm 84 */
obj_t BgL_auxz00_1692;
{ /* Globalize/integration.scm 84 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3345z00_1479;
BgL_obj3345z00_1479 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3644z00_986);
{
obj_t BgL_auxz00_1694;
{ /* Globalize/integration.scm 84 */
BgL_objectz00_bglt BgL_auxz00_1695;
BgL_auxz00_1695 =
(BgL_objectz00_bglt) (BgL_obj3345z00_1479);
BgL_auxz00_1694 =
BGL_OBJECT_WIDENING(BgL_auxz00_1695);
}
BgL_auxz00_1692 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1694))->BgL_imarkz00);
}
}
BgL_testz00_1691 = (BgL_auxz00_1692 == BUNSPEC);
}
if (BgL_testz00_1691)
{ /* Globalize/integration.scm 84 */
{ /* Globalize/integration.scm 85 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3347z00_1480;
obj_t BgL_val3346z00_1481;
BgL_obj3347z00_1480 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3644z00_986);
BgL_val3346z00_1481 = BgL_integratorz00_1510;
{
obj_t BgL_auxz00_1701;
{ /* Globalize/integration.scm 85 */
BgL_objectz00_bglt BgL_auxz00_1702;
BgL_auxz00_1702 =
(BgL_objectz00_bglt) (BgL_obj3347z00_1480);
BgL_auxz00_1701 =
BGL_OBJECT_WIDENING(BgL_auxz00_1702);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1701))->BgL_imarkz00) =
((obj_t) BgL_val3346z00_1481), BUNSPEC);
}
}
return BgL_gz00_983;
}
else
{ /* Globalize/integration.scm 84 */
{ /* Globalize/integration.scm 88 */
BgL_localzf2ginfozf2_bglt BgL_obj3525z00_1482;
bool_t BgL_val3524z00_1483;
BgL_obj3525z00_1482 =
(BgL_localzf2ginfozf2_bglt) (BgL_gz00_983);
BgL_val3524z00_1483 = ((bool_t) 1);
{
obj_t BgL_auxz00_1707;
{ /* Globalize/integration.scm 88 */
BgL_objectz00_bglt BgL_auxz00_1708;
BgL_auxz00_1708 =
(BgL_objectz00_bglt) (BgL_obj3525z00_1482);
BgL_auxz00_1707 =
BGL_OBJECT_WIDENING(BgL_auxz00_1708);
}
((((BgL_localzf2ginfozf2_bglt)
CREF(BgL_auxz00_1707))->
BgL_globaliza7edzf3z54) =
((bool_t) BgL_val3524z00_1483), BUNSPEC);
}
}
{ /* Globalize/integration.scm 89 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3347z00_1484;
obj_t BgL_val3346z00_1485;
BgL_obj3347z00_1484 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3644z00_986);
BgL_val3346z00_1485 = BFALSE;
{
obj_t BgL_auxz00_1713;
{ /* Globalize/integration.scm 89 */
BgL_objectz00_bglt BgL_auxz00_1714;
BgL_auxz00_1714 =
(BgL_objectz00_bglt) (BgL_obj3347z00_1484);
BgL_auxz00_1713 =
BGL_OBJECT_WIDENING(BgL_auxz00_1714);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1713))->BgL_imarkz00) =
((obj_t) BgL_val3346z00_1485), BUNSPEC);
}
}
return BgL_gz00_983;
}
}
}
}
}
}
}
}
}
// --------------------------------------------------------------------------------
// -------------------- Context
// --------------------------------------------------------------------------------
const std::string Context::METHOD_GET = "get()";
const std::string Context::METHOD_SET = "set()";
const std::string Context::METHOD_TYPE_OF = "type_of()";
const std::string Context::METHOD_OPERATOR_BRACKETS = "operator()()";
const std::string Context::METHOD_OPERATOR_DOT = "operator.()";
Context::Context()
{}
Context::~Context()
{}
void Context::setContextStack(CREF(LPContextStack) pContextStack)
{
ASSERT(pContextStack );
ASSERT(!m_pContextStack);
m_pContextStack = pContextStack;
}
void Context::resetContextStack()
{
ASSERT(m_pContextStack);
m_pContextStack = NULL;
}
Context::FindResult Context::find(const std::string& method, const Params& params, const RDOParserSrcInfo& srcInfo) const
{
Context::FindResult result;
\date 14.12.2012
\brief Спрайт анимации в парсере
\indent 4T
*/
// ---------------------------------------------------------------------------- PCH
#include "simulator/compiler/parser/pch.h"
// ----------------------------------------------------------------------- INCLUDES
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/compiler/parser/src/animation/animation_sprite.h"
#include "simulator/compiler/parser/rdoparser.h"
// --------------------------------------------------------------------------------
OPEN_RDO_PARSER_NAMESPACE
RDOFRMSprite::RDOFRMSprite(CREF(RDOParserSrcInfo) src_info)
: RDOFRMCommandList(src_info)
{
m_pSprite = rdo::Factory<rdo::runtime::RDOFRMSprite>::create(function()->src_info());
ASSERT(m_pSprite)
RDOParser::s_parser()->insertFRMSprite(this);
}
RDOFRMSprite::~RDOFRMSprite()
{}
rdo::runtime::LPRDOFRMSprite RDOFRMSprite::list() const
{
return m_pSprite;
}
\date 22.12.2012
\brief
\indent 4T
*/
// ----------------------------------------------------------------------- INCLUDES
#include "simulator/compiler/parser/pch.h"
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/compiler/parser/type/range.h"
#include "simulator/compiler/parser/rdoparser.h"
#include "simulator/compiler/parser/rdoparser_error.h"
// --------------------------------------------------------------------------------
OPEN_RDO_PARSER_NAMESPACE
RDOTypeRangeRange::RDOTypeRangeRange(CREF(LPRDOValue) pMinValue, CREF(LPRDOValue) pMaxValue, CREF(RDOParserSrcInfo) src_info)
: RDOParserSrcInfo(src_info )
, m_pMinValue (pMinValue)
, m_pMaxValue (pMaxValue)
{
ASSERT(m_pMinValue->defined());
ASSERT(m_pMaxValue->defined());
setSrcText(rdo::format("[%s..%s]", m_pMinValue->value().getAsString().c_str(), m_pMaxValue->value().getAsString().c_str()));
}
RDOTypeRangeRange::~RDOTypeRangeRange()
{}
void RDOTypeRangeRange::checkRange() const
{
if (m_pMinValue->typeID() != m_pMaxValue->typeID())
// -------------------- IRDOFRMItemGetBitmap
// --------------------------------------------------------------------------------
IRDOFRMItemGetBitmap::IRDOFRMItemGetBitmap()
{}
IRDOFRMItemGetBitmap::~IRDOFRMItemGetBitmap()
{}
// --------------------------------------------------------------------------------
// -------------------- RDOFRMColor
// --------------------------------------------------------------------------------
RDOFRMSprite::RDOFRMColor::RDOFRMColor(ColorType type)
: m_type(type)
{}
RDOFRMSprite::RDOFRMColor::RDOFRMColor(rbyte red, rbyte green, rbyte blue, CREF(RDOSrcInfo) srcInfo)
: m_type(CT_RGB)
{
m_pRedCalc = rdo::Factory<RDOCalcConst>::create((rsint)red );
m_pGreenCalc = rdo::Factory<RDOCalcConst>::create((rsint)green);
m_pBlueCalc = rdo::Factory<RDOCalcConst>::create((rsint)blue );
ASSERT(m_pRedCalc );
ASSERT(m_pGreenCalc);
ASSERT(m_pBlueCalc );
m_pRedCalc ->setSrcInfo(srcInfo);
m_pGreenCalc->setSrcInfo(srcInfo);
m_pBlueCalc ->setSrcInfo(srcInfo);
}
RDOFRMSprite::RDOFRMColor::RDOFRMColor(CREF(LPRDOCalc) pRedCalc, CREF(LPRDOCalc) pGreenCalc, CREF(LPRDOCalc) pBlueCalc)
: m_type (CT_RGB )
#include "simulator/compiler/parser/rdoparser.h"
#include "simulator/compiler/parser/rdoparser_error.h"
// --------------------------------------------------------------------------------
OPEN_RDO_PARSER_NAMESPACE
// --------------------------------------------------------------------------------
// -------------------- RDOEnumType
// --------------------------------------------------------------------------------
RDOEnumType::RDOEnumType()
: RuntimeWrapperType(rdo::Factory<rdo::runtime::RDOEnumType>::create())
{
ASSERT(m_pType);
}
RDOEnumType::RDOEnumType(CREF(rdo::runtime::LPRDOEnumType) pEnumType)
: RuntimeWrapperType(rdo::runtime::g_unknow)
{
rdo::runtime::LPRDOEnumType pType = rdo::Factory<rdo::runtime::RDOEnumType>::create();
m_pType = pType;
ASSERT(m_pType);
rdo::runtime::RDOEnumType::Enums::const_iterator it = pEnumType->begin();
while (it != pEnumType->end())
{
pType->add(*it);
}
}
RDOEnumType::~RDOEnumType()
{}
\indent 4T
*/
// ---------------------------------------------------------------------------- PCH
#include "simulator/runtime/pch/stdpch.h"
// ----------------------------------------------------------------------- INCLUDES
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/runtime/rdo_fuzzy.h"
// --------------------------------------------------------------------------------
OPEN_RDO_RUNTIME_NAMESPACE
// --------------------------------------------------------------------------------
// -------------------- MemberFunctionProperties
// --------------------------------------------------------------------------------
LPFuzzySet FuzzySet::operator&& (CREF(LPFuzzySet) pSet) const
{
LPFuzzySet pFuzzySetResult = rdo::Factory<FuzzySet>::create();
ASSERT(pFuzzySetResult);
// Найдем только пересекающие элементы и выберем минимальную функцию принадлежности
FuzzySetDefinition::const_iterator it1 = begin();
while (it1 != end())
{
FuzzySet::FuzzySetDefinition::const_iterator it2 = pSet->find(it1->first);
if (it2 != pSet->end())
{
pFuzzySetResult->operator[](it1->first) = (std::min)(it1->second, it2->second);
}
++it1;
}
return pFuzzySetResult;
/* inline-walk! */
BGL_EXPORTED_DEF obj_t BGl_inlinezd2walkz12zc0zzinline_walkz00(obj_t
BgL_globalsz00_1, obj_t BgL_whatz00_2)
{
AN_OBJECT;
{ /* Inline/walk.scm 40 */
{ /* Inline/walk.scm 42 */
obj_t BgL_list3278z00_786;
{ /* Inline/walk.scm 42 */
obj_t BgL_arg3280z00_788;
{ /* Inline/walk.scm 42 */
obj_t BgL_arg3282z00_790;
BgL_arg3282z00_790 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3280z00_788 =
MAKE_PAIR(BGl_string3393z00zzinline_walkz00, BgL_arg3282z00_790);
}
BgL_list3278z00_786 =
MAKE_PAIR(BGl_string3394z00zzinline_walkz00, BgL_arg3280z00_788);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3278z00_786);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3393z00zzinline_walkz00;
{ /* Inline/walk.scm 42 */
obj_t BgL_g3270z00_791;
obj_t BgL_g3271z00_792;
{ /* Inline/walk.scm 42 */
obj_t BgL_list3292z00_806;
BgL_list3292z00_806 =
MAKE_PAIR(BGl_resetzd2statz12zd2envz12zzinline_walkz00, BNIL);
BgL_g3270z00_791 = BgL_list3292z00_806;
}
BgL_g3271z00_792 = CNST_TABLE_REF(((long) 1));
{
obj_t BgL_hooksz00_794;
obj_t BgL_hnamesz00_795;
BgL_hooksz00_794 = BgL_g3270z00_791;
BgL_hnamesz00_795 = BgL_g3271z00_792;
BgL_zc3anonymousza33283ze3z83_796:
if (NULLP(BgL_hooksz00_794))
{ /* Inline/walk.scm 42 */
CNST_TABLE_REF(((long) 2));
}
else
{ /* Inline/walk.scm 42 */
bool_t BgL_testz00_1352;
{ /* Inline/walk.scm 42 */
obj_t BgL_fun3291z00_804;
BgL_fun3291z00_804 = CAR(BgL_hooksz00_794);
BgL_testz00_1352 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3291z00_804) (BgL_fun3291z00_804,
BEOA));
}
if (BgL_testz00_1352)
{
obj_t BgL_hnamesz00_1359;
obj_t BgL_hooksz00_1357;
BgL_hooksz00_1357 = CDR(BgL_hooksz00_794);
BgL_hnamesz00_1359 = CDR(BgL_hnamesz00_795);
BgL_hnamesz00_795 = BgL_hnamesz00_1359;
BgL_hooksz00_794 = BgL_hooksz00_1357;
goto BgL_zc3anonymousza33283ze3z83_796;
}
else
{ /* Inline/walk.scm 42 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3393z00zzinline_walkz00,
BGl_string3395z00zzinline_walkz00, CAR(BgL_hnamesz00_795));
}
}
}
}
BGl_inlinezd2setupz12zc0zzinline_walkz00(BgL_whatz00_2);
{
obj_t BgL_l3275z00_808;
BgL_l3275z00_808 = BgL_globalsz00_1;
BgL_zc3anonymousza33293ze3z83_809:
if (PAIRP(BgL_l3275z00_808))
{ /* Inline/walk.scm 46 */
{ /* Inline/walk.scm 47 */
obj_t BgL_gz00_811;
BgL_gz00_811 = CAR(BgL_l3275z00_808);
{ /* Inline/walk.scm 47 */
obj_t BgL_kfactorz00_812;
{ /* Inline/walk.scm 47 */
bool_t BgL_testz00_1367;
{ /* Inline/walk.scm 47 */
obj_t BgL_auxz00_1368;
{ /* Inline/walk.scm 47 */
BgL_sfunz00_bglt BgL_obj1887z00_1262;
{ /* Inline/walk.scm 47 */
BgL_variablez00_bglt BgL_obj1611z00_1261;
BgL_obj1611z00_1261 =
(BgL_variablez00_bglt) (BgL_gz00_811);
BgL_obj1887z00_1262 =
(BgL_sfunz00_bglt) (
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1261))->
BgL_valuez00));
}
BgL_auxz00_1368 =
(((BgL_sfunz00_bglt) CREF(BgL_obj1887z00_1262))->
BgL_classz00);
}
BgL_testz00_1367 =
(BgL_auxz00_1368 == CNST_TABLE_REF(((long) 3)));
}
if (BgL_testz00_1367)
{ /* Inline/walk.scm 47 */
BgL_kfactorz00_812 = BINT(((long) 1));
}
else
{ /* Inline/walk.scm 47 */
BgL_kfactorz00_812 = BGl_za2kfactorza2z00zzinline_walkz00;
}
}
{ /* Inline/walk.scm 53 */
obj_t BgL_arg3295z00_813;
{
BgL_variablez00_bglt BgL_auxz00_1376;
BgL_auxz00_1376 = (BgL_variablez00_bglt) (BgL_gz00_811);
BgL_arg3295z00_813 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1376))->
BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3295z00_813);
}
BGl_inlinezd2sfunz12zc0zzinline_inlinez00(
(BgL_variablez00_bglt) (BgL_gz00_811),
(long) CINT(BgL_kfactorz00_812), BNIL);
BGl_leavezd2functionzd2zztools_errorz00();
}}
{
obj_t BgL_l3275z00_1384;
BgL_l3275z00_1384 = CDR(BgL_l3275z00_808);
BgL_l3275z00_808 = BgL_l3275z00_1384;
goto BgL_zc3anonymousza33293ze3z83_809;
}
}
else
{ /* Inline/walk.scm 46 */
((bool_t) 1);
}
}
{
obj_t BgL_globalsz00_822;
obj_t BgL_newzd2globalszd2_823;
BgL_globalsz00_822 = BgL_globalsz00_1;
BgL_newzd2globalszd2_823 = BNIL;
BgL_zc3anonymousza33301ze3z83_824:
if (NULLP(BgL_globalsz00_822))
{ /* Inline/walk.scm 62 */
obj_t BgL_valuez00_826;
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3319z00_848;
obj_t BgL_arg3320z00_849;
BgL_arg3319z00_848 = CNST_TABLE_REF(((long) 4));
BgL_arg3320z00_849 = bgl_reverse_bang(BgL_newzd2globalszd2_823);
BgL_valuez00_826 =
BGl_removezd2varzd2zzast_removez00(BgL_arg3319z00_848,
BgL_arg3320z00_849);
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00)
> ((long) 0)))
{ /* Inline/walk.scm 62 */
{ /* Inline/walk.scm 62 */
obj_t BgL_port3277z00_828;
{ /* Inline/walk.scm 62 */
obj_t BgL_res3391z00_1269;
{ /* Inline/walk.scm 62 */
obj_t BgL_auxz00_1394;
BgL_auxz00_1394 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3391z00_1269 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1394);
}
BgL_port3277z00_828 = BgL_res3391z00_1269;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3277z00_828);
bgl_display_string(BGl_string3396z00zzinline_walkz00,
BgL_port3277z00_828);
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3304z00_829;
{ /* Inline/walk.scm 62 */
bool_t BgL_testz00_1399;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Inline/walk.scm 62 */
BgL_testz00_1399 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Inline/walk.scm 62 */
BgL_testz00_1399 = ((bool_t) 0);
}
if (BgL_testz00_1399)
{ /* Inline/walk.scm 62 */
BgL_arg3304z00_829 =
BGl_string3397z00zzinline_walkz00;
}
else
{ /* Inline/walk.scm 62 */
BgL_arg3304z00_829 =
BGl_string3398z00zzinline_walkz00;
}
}
bgl_display_obj(BgL_arg3304z00_829, BgL_port3277z00_828);
}
bgl_display_string(BGl_string3399z00zzinline_walkz00,
BgL_port3277z00_828);
bgl_display_char(((unsigned char) '\n'), BgL_port3277z00_828);
}
{ /* Inline/walk.scm 62 */
obj_t BgL_list3307z00_832;
BgL_list3307z00_832 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3307z00_832);
}
}
else
{ /* Inline/walk.scm 62 */
obj_t BgL_g3273z00_833;
obj_t BgL_g3274z00_834;
{ /* Inline/walk.scm 62 */
obj_t BgL_list3318z00_847;
BgL_list3318z00_847 =
MAKE_PAIR(BGl_showzd2statz12zd2envz12zzinline_walkz00,
BNIL);
BgL_g3273z00_833 = BgL_list3318z00_847;
}
BgL_g3274z00_834 = CNST_TABLE_REF(((long) 5));
{
obj_t BgL_hooksz00_836;
obj_t BgL_hnamesz00_837;
BgL_hooksz00_836 = BgL_g3273z00_833;
BgL_hnamesz00_837 = BgL_g3274z00_834;
BgL_zc3anonymousza33308ze3z83_838:
if (NULLP(BgL_hooksz00_836))
{ /* Inline/walk.scm 62 */
return BgL_valuez00_826;
}
else
{ /* Inline/walk.scm 62 */
bool_t BgL_testz00_1414;
{ /* Inline/walk.scm 62 */
obj_t BgL_fun3317z00_845;
BgL_fun3317z00_845 = CAR(BgL_hooksz00_836);
BgL_testz00_1414 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3317z00_845)
(BgL_fun3317z00_845, BEOA));
}
if (BgL_testz00_1414)
{
obj_t BgL_hnamesz00_1421;
obj_t BgL_hooksz00_1419;
BgL_hooksz00_1419 = CDR(BgL_hooksz00_836);
BgL_hnamesz00_1421 = CDR(BgL_hnamesz00_837);
BgL_hnamesz00_837 = BgL_hnamesz00_1421;
BgL_hooksz00_836 = BgL_hooksz00_1419;
goto BgL_zc3anonymousza33308ze3z83_838;
}
else
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3314z00_844;
BgL_arg3314z00_844 = CAR(BgL_hnamesz00_837);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3400z00zzinline_walkz00,
BgL_arg3314z00_844);
}
}
}
}
}
else
{ /* Inline/walk.scm 64 */
bool_t BgL_testz00_1425;
{ /* Inline/walk.scm 64 */
obj_t BgL_arg3328z00_855;
{ /* Inline/walk.scm 64 */
BgL_globalz00_bglt BgL_obj1676z00_1283;
{ /* Inline/walk.scm 64 */
obj_t BgL_pairz00_1282;
BgL_pairz00_1282 = BgL_globalsz00_822;
BgL_obj1676z00_1283 =
(BgL_globalz00_bglt) (CAR(BgL_pairz00_1282));
}
BgL_arg3328z00_855 =
(((BgL_globalz00_bglt) CREF(BgL_obj1676z00_1283))->
BgL_modulez00);
}
BgL_testz00_1425 =
(BgL_arg3328z00_855 == BGl_za2moduleza2z00zzmodule_modulez00);
}
if (BgL_testz00_1425)
{ /* Inline/walk.scm 65 */
obj_t BgL_arg3324z00_851;
obj_t BgL_arg3325z00_852;
BgL_arg3324z00_851 = CDR(BgL_globalsz00_822);
BgL_arg3325z00_852 =
MAKE_PAIR(CAR(BgL_globalsz00_822), BgL_newzd2globalszd2_823);
{
obj_t BgL_newzd2globalszd2_1434;
obj_t BgL_globalsz00_1433;
BgL_globalsz00_1433 = BgL_arg3324z00_851;
BgL_newzd2globalszd2_1434 = BgL_arg3325z00_852;
BgL_newzd2globalszd2_823 = BgL_newzd2globalszd2_1434;
BgL_globalsz00_822 = BgL_globalsz00_1433;
goto BgL_zc3anonymousza33301ze3z83_824;
}
}
else
{
obj_t BgL_globalsz00_1435;
BgL_globalsz00_1435 = CDR(BgL_globalsz00_822);
BgL_globalsz00_822 = BgL_globalsz00_1435;
goto BgL_zc3anonymousza33301ze3z83_824;
}
}
}
}
}
// ---------------------------------------------------------------------------- PCH
#include "simulator/runtime/pch/stdpch.h"
// ----------------------------------------------------------------------- INCLUDES
// ----------------------------------------------------------------------- SYNOPSIS
#include "simulator/runtime/searchtrace.h"
#include "simulator/runtime/rdotrace.h"
#include "simulator/runtime/simtrace.h"
#include "simulator/runtime/rdo_rule.h"
// --------------------------------------------------------------------------------
OPEN_RDO_RUNTIME_NAMESPACE
// --------------------------------------------------------------------------------
// -------------------- RDODPTSearchTrace
// --------------------------------------------------------------------------------
void RDODPTSearchTrace::onSearchBegin(CREF(LPRDORuntime) pRuntime)
{
if (traceFlag != DPT_no_trace)
{
pRuntime->getTracer()->writeSearchBegin(pRuntime->getCurrentTime(), traceId());
}
if (traceFlag == DPT_trace_tops || traceFlag == DPT_trace_all)
{
pRuntime->getTracer()->writeString("STN 1 0 0 0 -1 -1 0 0");
}
++calc_cnt;
}
void RDODPTSearchTrace::onSearchDecisionHeader(CREF(LPRDORuntime) pRuntime)
{
if (traceFlag != DPT_no_trace)
#ifndef COMPILER_VISUAL_STUDIO
ruint32 GetTickCount()
{
struct timeval tv;
gettimeofday(&tv,NULL);
return (tv.tv_sec * 1000 + tv.tv_usec / 1000);
}
#endif
OPEN_RDO_RUNTIME_NAMESPACE
// --------------------------------------------------------------------------------
// -------------------- RDODPTSearch
// --------------------------------------------------------------------------------
RDODPTSearch::RDODPTSearch(CREF(LPRDORuntime) pRuntime, LPIBaseOperationContainer pParent)
: RDOLogicSimple(pRuntime, pParent)
, treeRoot (NULL)
{}
RDODPTSearch::~RDODPTSearch()
{}
IBaseOperation::BOResult RDODPTSearch::onDoOperation(CREF(LPRDORuntime) pRuntime)
{
// Начало поиска: вывели трасировку, обновили статистику
onSearchBegin(pRuntime);
treeRoot = createTreeRoot(pRuntime);
treeRoot->createRootTreeNode(pRuntime->clone());
return onContinue(pRuntime);
