/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_integrationza7() { AN_OBJECT; { /* Globalize/integration.scm 15 */ BGl_modulezd2initializa7ationz75zztools_tracez00(((long) 12445515), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zztools_shapez00(((long) 399603825), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zzast_nodez00(((long) 498112980), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long) 0), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zzglobaliza7e_globaliza7ez00(((long) 426556099), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); BGl_modulezd2initializa7ationz75zzglobaliza7e_kaptureza7(((long) 482601228), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); return BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7)); } }
void bgl_odbc_free_statement(SQLHANDLE stmt, obj_t option) { SQLRETURN v; SQLSMALLINT opt; if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(option)), "close")) { opt = SQL_CLOSE; } else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(option)), "unbind")) { opt = SQL_UNBIND; } else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(option)), "reset-params")) { opt = SQL_RESET_PARAMS; } else { odbc_error("bgl_odbc_free_statement", "invalid option", option); } v = SQLFreeStmt(stmt,opt); if(!SQL_SUCCEEDED(v)) { report_odbc_error("bgl_odbc_free_statement", SQL_HANDLE_STMT, stmt); } }
/*---------------------------------------------------------------------*/ obj_t bgl_write_socket( obj_t o, obj_t op ) { if( BGL_SOCKET_UNIXP( o ) ) { PRINTF1( op, 40 + (STRINGP( SOCKET( o ).hostname ) ? STRING_LENGTH( SOCKET( o ).hostname ) : sizeof( "localhost" )), "#<unix-socket:%s>", STRINGP( SOCKET( o ).hostname ) ? BSTRING_TO_STRING( SOCKET( o ).hostname ) : "localhost" ); } else { PRINTF2( op, 40 + (STRINGP( SOCKET( o ).hostname ) ? STRING_LENGTH( SOCKET( o ).hostname ) : sizeof( "localhost" )), "#<socket:%s.%d>", STRINGP( SOCKET( o ).hostname ) ? BSTRING_TO_STRING( SOCKET( o ).hostname ) : "localhost", SOCKET( o ).portnum ); } return op; }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzbdb_walkz00() { AN_OBJECT; { /* Bdb/walk.scm 15 */ BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zzengine_passz00(((long) 216344604), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zztools_shapez00(((long) 399603825), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zzast_nodez00(((long) 498112980), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); BGl_modulezd2initializa7ationz75zzast_removez00(((long) 52292466), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); return BGl_modulezd2initializa7ationz75zzbdb_initializa7eza7(((long) 427318491), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzmodule_loadz00() { AN_OBJECT; { /* Module/load.scm 15 */ BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long) 358171001), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zzast_envz00(((long) 531182497), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zztype_envz00(((long) 171845042), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); return BGl_modulezd2initializa7ationz75zzread_loadz00(((long) 255602387), BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zztools_errorz00() { AN_OBJECT; { /* Tools/error.scm 15 */ BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zzast_nodez00(((long) 498112980), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zzengine_passz00(((long) 216344604), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zztools_locationz00(((long) 345457731), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zztools_tracez00(((long) 12445515), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); BGl_modulezd2initializa7ationz75zztools_shapez00(((long) 399603825), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); return BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835), BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zztype_cachez00() { AN_OBJECT; { /* Type/cache.scm 15 */ BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072), BSTRING_TO_STRING(BGl_string1603z00zztype_cachez00)); return BGl_modulezd2initializa7ationz75zztype_envz00(((long) 171845042), BSTRING_TO_STRING(BGl_string1603z00zztype_cachez00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzinit_setrcz00() { AN_OBJECT; { /* Init/setrc.scm 15 */ BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1528z00zzinit_setrcz00)); return BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081), BSTRING_TO_STRING(BGl_string1528z00zzinit_setrcz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzwrite_versionz00() { AN_OBJECT; { /* Write/version.scm 15 */ BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1593z00zzwrite_versionz00)); return BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081), BSTRING_TO_STRING(BGl_string1593z00zzwrite_versionz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzinit_libzd2dirzd2() { AN_OBJECT; { /* Init/lib_dir.scm 15 */ BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1537z00zzinit_libzd2dirzd2)); return BGl_modulezd2initializa7ationz75zzmodule_evalz00(((long) 168261208), BSTRING_TO_STRING(BGl_string1537z00zzinit_libzd2dirzd2)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzengine_signalsz00() { AN_OBJECT; { /* Engine/signals.scm 16 */ BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835), BSTRING_TO_STRING(BGl_string1514z00zzengine_signalsz00)); return BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1514z00zzengine_signalsz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zz__lalr_driverz00() { AN_OBJECT; { /* Lalr/driver.scm 11 */ BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500), BSTRING_TO_STRING(BGl_string2224z00zz__lalr_driverz00)); return BGl_modulezd2initializa7ationz75zz__paramz00(((long) 327583589), BSTRING_TO_STRING(BGl_string2224z00zz__lalr_driverz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzmodule_includez00() { AN_OBJECT; { /* Module/include.scm 15 */ BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long) 358171001), BSTRING_TO_STRING(BGl_string1581z00zzmodule_includez00)); BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string1581z00zzmodule_includez00)); return BGl_modulezd2initializa7ationz75zzread_includez00(((long) 273692333), BSTRING_TO_STRING(BGl_string1581z00zzmodule_includez00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzcc_execz00() { AN_OBJECT; { /* Cc/exec.scm 20 */ BGl_modulezd2initializa7ationz75zztools_tracez00(((long) 12445515), BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00)); BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00)); BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00)); return BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835), BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzinit_extendz00() { AN_OBJECT; { /* Init/extend.scm 16 */ BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081), BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00)); BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00)); BGl_modulezd2initializa7ationz75zzengine_passz00(((long) 216344604), BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00)); return BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzexpand_assertz00() { AN_OBJECT; { /* Expand/assert.scm 15 */ BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00)); BGl_modulezd2initializa7ationz75zzbackend_backendz00(((long) 466514915), BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00)); BGl_modulezd2initializa7ationz75zztools_miscz00(((long) 315910987), BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00)); return BGl_modulezd2initializa7ationz75zztools_locationz00(((long) 345457731), BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00)); } }
void bgl_odbc_sql_end_tran(obj_t handletype, SQLHANDLE handle, obj_t completiontype) { SQLRETURN v; SQLSMALLINT ht; SQLSMALLINT ct; if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(handletype)), "environment")) { ht = SQL_HANDLE_ENV; } else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(handletype)), "connection")) { ht = SQL_HANDLE_DBC; } else { odbc_error("bgl_odbc_sql_end_tran", "Invalid handle type", handletype); } if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(completiontype)), "commit")) { ct = SQL_COMMIT; } else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(handletype)), "rollback")) { ct = SQL_ROLLBACK; } else { odbc_error("bgl_odbc_sql_end_tran", "Invalid completion type", completiontype); } v = SQLEndTran(ht, handle, ct); if(!SQL_SUCCEEDED(v)) { report_odbc_error("bgl_odbc_sql_end_tran", ht, handle); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zz__foreignz00() { AN_OBJECT; { /* Llib/foreign.scm 18 */ return BGl_modulezd2initializa7ationz75zz__errorz00(((long)454672500), BSTRING_TO_STRING(BGl_string1403z00zz__foreignz00));} }
/*---------------------------------------------------------------------*/ static obj_t make_symbol( obj_t name ) { obj_t symbol; set_alloc_type( SYMBOL_TYPE_NUM, 0 ); symbol = GC_MALLOC( ESYMBOL_SIZE ); #if BMEMDEBUG if( bmem_debug > 1 ) { fprintf( stderr, "make_symbol: %s %p\n", BSTRING_TO_STRING( name ), symbol ); } #endif #if( !defined( TAG_SYMBOL ) ) symbol->symbol_t.header = MAKE_HEADER( SYMBOL_TYPE, SYMBOL_SIZE ); #endif symbol->symbol_t.string = name; symbol->symbol_t.cval = BNIL; ((esymbol_t *)(symbol))->alloc_info = 0; ((esymbol_t *)(symbol))->class_alloc = -1; ((esymbol_t *)(symbol))->class_offset = 0; ((esymbol_t *)(symbol))->stamp = -3; return BSYMBOL( symbol ); }
/* _string-ptr-null? */ obj_t BGl__stringzd2ptrzd2nullzf3zf3zz__foreignz00(obj_t BgL_envz00_665, obj_t BgL_objz00_666) { AN_OBJECT; { /* Llib/foreign.scm 109 */ { /* Llib/foreign.scm 110 */ bool_t BgL_auxz00_742; { /* Llib/foreign.scm 110 */ char * BgL_objz00_685; { /* Llib/foreign.scm 110 */ obj_t BgL_auxz00_743; if( STRINGP(BgL_objz00_666)) { /* Llib/foreign.scm 110 */ BgL_auxz00_743 = BgL_objz00_666 ; } else { obj_t BgL_auxz00_746; BgL_auxz00_746 = BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00, BINT(((long)4782)), BGl_string1399z00zz__foreignz00, BGl_string1400z00zz__foreignz00, BgL_objz00_666); FAILURE(BgL_auxz00_746,BFALSE,BFALSE);} BgL_objz00_685 = BSTRING_TO_STRING(BgL_auxz00_743); } BgL_auxz00_742 = STRING_PTR_NULL(BgL_objz00_685); } return BBOOL(BgL_auxz00_742);} } }
/*---------------------------------------------------------------------*/ obj_t bgl_write_output_port( obj_t o, obj_t op ) { PRINTF1( op, 20 + STRING_LENGTH( PORT( o ).name ), "#<output_port:%s>", BSTRING_TO_STRING( PORT( o ).name ) ); return op; }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzast_localz00() { AN_OBJECT; { /* Ast/local.scm 14 */ BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072), BSTRING_TO_STRING(BGl_string2254z00zzast_localz00)); BGl_modulezd2initializa7ationz75zztype_cachez00(((long) 328872856), BSTRING_TO_STRING(BGl_string2254z00zzast_localz00)); BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string2254z00zzast_localz00)); BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168), BSTRING_TO_STRING(BGl_string2254z00zzast_localz00)); return BGl_modulezd2initializa7ationz75zzast_identz00(((long) 498714928), BSTRING_TO_STRING(BGl_string2254z00zzast_localz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzread_accessz00() { AN_OBJECT; { /* Read/access.scm 15 */ BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00)); BGl_modulezd2initializa7ationz75zzengine_enginez00(((long) 528201616), BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00)); BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433), BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00)); BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835), BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00)); return BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081), BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00)); } }
/*---------------------------------------------------------------------*/ obj_t bgl_write_binary_port( obj_t o, obj_t op ) { PRINTF2( op, 40 + STRING_LENGTH( BINARY_PORT( o ).name ), "#<binary_%s_port:%s>", BINARY_PORT_INP( o ) ? "input" : "output", BSTRING_TO_STRING( BINARY_PORT( o ).name ) ); return op; }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zztools_argsz00() { AN_OBJECT; { /* Tools/args.scm 15 */ return BGl_modulezd2initializa7ationz75zztools_dssslz00(((long) 315398661), BSTRING_TO_STRING(BGl_string1582z00zztools_argsz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zz__rgc_configz00() { AN_OBJECT; { /* Rgc/rgcconfig.scm 14 */ return BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500), BSTRING_TO_STRING(BGl_string2251z00zz__rgc_configz00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00() { AN_OBJECT; { /* Ieee/control5.scm 14 */ return BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500), BSTRING_TO_STRING(BGl_string1527z00zz__r5_control_features_6_4z00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zzwrite_schemez00() { AN_OBJECT; { /* Write/scheme.scm 15 */ return BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513), BSTRING_TO_STRING(BGl_string1528z00zzwrite_schemez00)); } }
/* imported-modules-init */ obj_t BGl_importedzd2moduleszd2initz00zz__processz00() { AN_OBJECT; { /* Llib/process.scm 15 */ return BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500), BSTRING_TO_STRING(BGl_string2241z00zz__processz00)); } }
/* process-lib-dir-parameter */ BGL_EXPORTED_DEF obj_t BGl_processzd2libzd2dirzd2parameterzd2zzinit_libzd2dirzd2(obj_t BgL_paramz00_9) { AN_OBJECT; { /* Init/lib_dir.scm 76 */ { /* Init/lib_dir.scm 77 */ obj_t BgL_dirz00_134; BgL_dirz00_134 = BGl_filezd2namezd2canonicaliza7ez12zb5zz__osz00(BgL_paramz00_9); if (directoryp(BSTRING_TO_STRING(BgL_dirz00_134))) { /* Init/lib_dir.scm 78 */ BFALSE; } else { /* Init/lib_dir.scm 78 */ BGl_errorz00zz__errorz00(CNST_TABLE_REF(((long) 2)), BGl_string1535z00zzinit_libzd2dirzd2, BgL_dirz00_134); } { /* Init/lib_dir.scm 80 */ obj_t BgL_config_schz00_136; BgL_config_schz00_136 = BGl_makezd2filezd2pathz00zz__osz00(BgL_dirz00_134, BGl_string1536z00zzinit_libzd2dirzd2, BNIL); if (fexists(BSTRING_TO_STRING(BgL_config_schz00_136))) { /* Init/lib_dir.scm 81 */ BGl_readzd2config_schzd2zzinit_libzd2dirzd2 (BgL_config_schz00_136); } else { /* Init/lib_dir.scm 81 */ BFALSE; } return (BGl_za2libzd2dirza2zd2zzengine_paramz00 = MAKE_PAIR(BgL_dirz00_134, BGl_za2libzd2dirza2zd2zzengine_paramz00), BUNSPEC); } } } }