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);
}
}
static int
__init init_hostfs(void)
{
printk(DEVICE_NAME " " SYMBOL_TO_STRING(HOSTFS_VERSION) "." \
SYMBOL_TO_STRING(HOSTFS_SUBVERSION) " loaded\n");
init_host_fs();
return register_filesystem(&host_fs_type);
}
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);
}
}
/* setup-library-values */
BGL_EXPORTED_DEF obj_t BGl_setupzd2libraryzd2valuesz00zzinit_setrcz00(obj_t
BgL_libraryz00_1)
{
AN_OBJECT;
{ /* Init/setrc.scm 37 */
{ /* Init/setrc.scm 38 */
obj_t BgL_initzd2namezd2_93;
{ /* Init/setrc.scm 38 */
obj_t BgL_arg1511z00_95;
{ /* Init/setrc.scm 38 */
obj_t BgL_res1522z00_115;
{ /* Init/setrc.scm 38 */
obj_t BgL_arg2063z00_114;
BgL_arg2063z00_114 = SYMBOL_TO_STRING(BgL_libraryz00_1);
BgL_res1522z00_115 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2063z00_114);
}
BgL_arg1511z00_95 = BgL_res1522z00_115;
}
BgL_initzd2namezd2_93 =
string_append(BgL_arg1511z00_95, BGl_string1525z00zzinit_setrcz00);
}
{ /* Init/setrc.scm 38 */
obj_t BgL_fnamez00_94;
BgL_fnamez00_94 =
BGl_findzd2filezf2pathz20zz__osz00(BgL_initzd2namezd2_93,
BGl_za2libzd2dirza2zd2zzengine_paramz00);
{ /* Init/setrc.scm 39 */
if (CBOOL(BgL_fnamez00_94))
{ /* Init/setrc.scm 40 */
return (BGl_za2libraryzd2initza2zd2zzinit_setrcz00 =
MAKE_PAIR(BgL_fnamez00_94,
BGl_za2libraryzd2initza2zd2zzinit_setrcz00), BUNSPEC);
}
else
{ /* Init/setrc.scm 40 */
return BFALSE;
}
}
}
}
}
}
/* resolve-abase/bucket */
obj_t BGl_resolvezd2abasezf2bucketz20zz__modulez00(obj_t BgL_modz00_8, obj_t BgL_basez00_9)
{ AN_OBJECT;
{ /* Llib/module.scm 148 */
{ /* Llib/module.scm 149 */
obj_t BgL_cellz00_820;
{ /* Llib/module.scm 149 */
obj_t BgL_auxz00_1914;
{ /* Llib/module.scm 149 */
obj_t BgL_pairz00_1393;
if(
PAIRP(BgL_basez00_9))
{ /* Llib/module.scm 149 */
BgL_pairz00_1393 = BgL_basez00_9; } else
{
obj_t BgL_auxz00_1917;
BgL_auxz00_1917 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5722)), BGl_string2344z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_basez00_9);
FAILURE(BgL_auxz00_1917,BFALSE,BFALSE);}
{ /* Llib/module.scm 149 */
obj_t BgL_aux2281z00_1693;
BgL_aux2281z00_1693 =
CDR(BgL_pairz00_1393);
{ /* Llib/module.scm 149 */
bool_t BgL_testz00_1922;
if(
PAIRP(BgL_aux2281z00_1693))
{ /* Llib/module.scm 149 */
BgL_testz00_1922 = ((bool_t)1)
; } else
{ /* Llib/module.scm 149 */
BgL_testz00_1922 =
NULLP(BgL_aux2281z00_1693)
; }
if(BgL_testz00_1922)
{ /* Llib/module.scm 149 */
BgL_auxz00_1914 = BgL_aux2281z00_1693
; } else
{
obj_t BgL_auxz00_1926;
BgL_auxz00_1926 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5717)), BGl_string2344z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2281z00_1693);
FAILURE(BgL_auxz00_1926,BFALSE,BFALSE);} } } }
BgL_cellz00_820 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modz00_8, BgL_auxz00_1914); }
if(
PAIRP(BgL_cellz00_820))
{ /* Llib/module.scm 151 */
obj_t BgL_arg1903z00_822;
BgL_arg1903z00_822 =
CDR(BgL_cellz00_820);
{ /* Llib/module.scm 151 */
obj_t BgL_auxz00_1934;
{ /* Llib/module.scm 151 */
bool_t BgL_testz00_1935;
if(
PAIRP(BgL_arg1903z00_822))
{ /* Llib/module.scm 151 */
BgL_testz00_1935 = ((bool_t)1)
; } else
{ /* Llib/module.scm 151 */
BgL_testz00_1935 =
NULLP(BgL_arg1903z00_822)
; }
if(BgL_testz00_1935)
{ /* Llib/module.scm 151 */
BgL_auxz00_1934 = BgL_arg1903z00_822
; } else
{
obj_t BgL_auxz00_1939;
BgL_auxz00_1939 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5782)), BGl_string2344z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_arg1903z00_822);
FAILURE(BgL_auxz00_1939,BFALSE,BFALSE);} }
return
BGl_filterz00zz__r4_control_features_6_9z00(BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_auxz00_1934);} } else
{ /* Llib/module.scm 152 */
obj_t BgL_fz00_823;
{ /* Llib/module.scm 152 */
obj_t BgL_arg1906z00_826;
{ /* Llib/module.scm 152 */
obj_t BgL_res2246z00_1398;
{ /* Llib/module.scm 152 */
obj_t BgL_symbolz00_1396;
if(
SYMBOLP(BgL_modz00_8))
{ /* Llib/module.scm 152 */
BgL_symbolz00_1396 = BgL_modz00_8; } else
{
obj_t BgL_auxz00_1946;
BgL_auxz00_1946 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5828)), BGl_string2344z00zz__modulez00, BGl_string2338z00zz__modulez00, BgL_modz00_8);
FAILURE(BgL_auxz00_1946,BFALSE,BFALSE);}
{ /* Llib/module.scm 152 */
obj_t BgL_arg2068z00_1397;
BgL_arg2068z00_1397 =
SYMBOL_TO_STRING(BgL_symbolz00_1396);
BgL_res2246z00_1398 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2068z00_1397); } }
BgL_arg1906z00_826 = BgL_res2246z00_1398; }
BgL_fz00_823 =
string_append(BgL_arg1906z00_826, BGl_string2345z00zz__modulez00); }
if(
fexists(
BSTRING_TO_STRING(BgL_fz00_823)))
{ /* Llib/module.scm 154 */
obj_t BgL_list1905z00_825;
BgL_list1905z00_825 =
MAKE_PAIR(BgL_fz00_823, BNIL);
return BgL_list1905z00_825;} else
{ /* Llib/module.scm 153 */
return BNIL;} } } }
}
/* correct-java-class? */
bool_t
BGl_correctzd2javazd2classzf3zf3zzobject_javazd2accesszd2(BgL_jclassz00_bglt
BgL_classz00_8, obj_t BgL_srcz00_9)
{
AN_OBJECT;
{ /* Object/java_access.scm 92 */
{ /* Object/java_access.scm 93 */
obj_t BgL_superz00_491;
obj_t BgL_classzd2idzd2_492;
{
obj_t BgL_auxz00_766;
{ /* Object/java_access.scm 93 */
BgL_objectz00_bglt BgL_auxz00_767;
BgL_auxz00_767 = (BgL_objectz00_bglt) (BgL_classz00_8);
BgL_auxz00_766 = BGL_OBJECT_WIDENING(BgL_auxz00_767);
}
BgL_superz00_491 =
(((BgL_jclassz00_bglt) CREF(BgL_auxz00_766))->BgL_itszd2superzd2);
}
{
BgL_typez00_bglt BgL_auxz00_771;
BgL_auxz00_771 = (BgL_typez00_bglt) (BgL_classz00_8);
BgL_classzd2idzd2_492 =
(((BgL_typez00_bglt) CREF(BgL_auxz00_771))->BgL_idz00);
}
{ /* Object/java_access.scm 98 */
bool_t BgL_testz00_774;
if (BGl_iszd2azf3z21zz__objectz00(BgL_superz00_491,
BGl_typez00zztype_typez00))
{ /* Object/java_access.scm 98 */
if (BGl_iszd2azf3z21zz__objectz00(BgL_superz00_491,
BGl_jclassz00zzobject_classz00))
{ /* Object/java_access.scm 98 */
BgL_testz00_774 = ((bool_t) 0);
}
else
{ /* Object/java_access.scm 98 */
BgL_testz00_774 = ((bool_t) 1);
}
}
else
{ /* Object/java_access.scm 98 */
BgL_testz00_774 = ((bool_t) 0);
}
if (BgL_testz00_774)
{ /* Object/java_access.scm 98 */
{ /* Object/java_access.scm 99 */
obj_t BgL_arg2459z00_494;
obj_t BgL_arg2460z00_495;
{
BgL_typez00_bglt BgL_auxz00_779;
BgL_auxz00_779 = (BgL_typez00_bglt) (BgL_superz00_491);
BgL_arg2459z00_494 =
(((BgL_typez00_bglt) CREF(BgL_auxz00_779))->BgL_idz00);
}
{ /* Object/java_access.scm 100 */
obj_t BgL_arg2471z00_498;
{ /* Object/java_access.scm 101 */
obj_t BgL_res2559z00_680;
{ /* Object/java_access.scm 101 */
obj_t BgL_arg2063z00_679;
BgL_arg2063z00_679 =
SYMBOL_TO_STRING(BgL_classzd2idzd2_492);
BgL_res2559z00_680 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_679);
}
BgL_arg2471z00_498 = BgL_res2559z00_680;
}
BgL_arg2460z00_495 =
string_append_3(BGl_string2560z00zzobject_javazd2accesszd2,
BgL_arg2471z00_498,
BGl_string2561z00zzobject_javazd2accesszd2);
}
{ /* Object/java_access.scm 99 */
obj_t BgL_list2461z00_496;
BgL_list2461z00_496 =
MAKE_PAIR(BGl_typez00zztype_typez00, BNIL);
BGl_userzd2errorzd2zztools_errorz00(BgL_arg2459z00_494,
BgL_arg2460z00_495, BgL_srcz00_9, BgL_list2461z00_496);
}
}
return ((bool_t) 0);
}
else
{ /* Object/java_access.scm 98 */
return ((bool_t) 1);
}
}
}
}
}
/* user-error/location */
BGL_EXPORTED_DEF obj_t BGl_userzd2errorzf2locationz20zztools_errorz00(obj_t
BgL_locz00_32, obj_t BgL_procz00_33, obj_t BgL_msgz00_34,
obj_t BgL_objz00_35, obj_t BgL_continuez00_36)
{
AN_OBJECT;
{ /* Tools/error.scm 114 */
if (OUTPUT_PORTP(BGl_za2tracezd2portza2zd2zztools_tracez00))
{ /* Tools/error.scm 116 */
obj_t BgL_port3252z00_864;
BgL_port3252z00_864 = BGl_za2tracezd2portza2zd2zztools_tracez00;
bgl_display_string(BGl_string3381z00zztools_errorz00,
BgL_port3252z00_864);
bgl_display_obj(BgL_procz00_33, BgL_port3252z00_864);
bgl_display_string(BGl_string3375z00zztools_errorz00,
BgL_port3252z00_864);
bgl_display_obj(BgL_msgz00_34, BgL_port3252z00_864);
bgl_display_string(BGl_string3375z00zztools_errorz00,
BgL_port3252z00_864);
bgl_display_obj(BgL_objz00_35, BgL_port3252z00_864);
bgl_display_char(((unsigned char) '\n'), BgL_port3252z00_864);
}
else
{ /* Tools/error.scm 115 */
BFALSE;
}
{ /* Tools/error.scm 117 */
long BgL_za71za7_1348;
BgL_za71za7_1348 =
(long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00);
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 =
BINT((BgL_za71za7_1348 + ((long) 1)));
}
{ /* Tools/error.scm 118 */
obj_t BgL_proczd2stringzd2_865;
if (STRINGP(BgL_procz00_33))
{ /* Tools/error.scm 119 */
BgL_proczd2stringzd2_865 = BgL_procz00_33;
}
else
{ /* Tools/error.scm 119 */
if (SYMBOLP(BgL_procz00_33))
{ /* Tools/error.scm 122 */
obj_t BgL_res3370z00_1354;
{ /* Tools/error.scm 122 */
obj_t BgL_symbolz00_1352;
BgL_symbolz00_1352 = BgL_procz00_33;
{ /* Tools/error.scm 122 */
obj_t BgL_arg2063z00_1353;
BgL_arg2063z00_1353 = SYMBOL_TO_STRING(BgL_symbolz00_1352);
BgL_res3370z00_1354 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1353);
}
}
BgL_proczd2stringzd2_865 = BgL_res3370z00_1354;
}
else
{ /* Tools/error.scm 121 */
BgL_proczd2stringzd2_865 = BFALSE;
}
}
{ /* Tools/error.scm 118 */
obj_t BgL_funzd2stringzd2_866;
{ /* Tools/error.scm 125 */
obj_t BgL_arg3312z00_899;
BgL_arg3312z00_899 = CAR(BGl_za2sfunzd2stackza2zd2zztools_errorz00);
{ /* Tools/error.scm 125 */
obj_t BgL_res3371z00_1358;
{ /* Tools/error.scm 125 */
obj_t BgL_symbolz00_1356;
BgL_symbolz00_1356 = BgL_arg3312z00_899;
{ /* Tools/error.scm 125 */
obj_t BgL_arg2063z00_1357;
BgL_arg2063z00_1357 = SYMBOL_TO_STRING(BgL_symbolz00_1356);
BgL_res3371z00_1358 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1357);
}
}
BgL_funzd2stringzd2_866 = BgL_res3371z00_1358;
}
}
{ /* Tools/error.scm 125 */
obj_t BgL_procz00_867;
{ /* Tools/error.scm 126 */
bool_t BgL_testz00_1602;
if (STRINGP(BgL_proczd2stringzd2_865))
{ /* Tools/error.scm 126 */
if (bigloo_strcmp(BgL_proczd2stringzd2_865,
BgL_funzd2stringzd2_866))
{ /* Tools/error.scm 127 */
BgL_testz00_1602 = ((bool_t) 0);
}
else
{ /* Tools/error.scm 127 */
BgL_testz00_1602 = ((bool_t) 1);
}
}
else
{ /* Tools/error.scm 126 */
BgL_testz00_1602 = ((bool_t) 0);
}
if (BgL_testz00_1602)
{ /* Tools/error.scm 126 */
BgL_procz00_867 =
string_append_3(BgL_funzd2stringzd2_866,
BGl_string3375z00zztools_errorz00,
BgL_proczd2stringzd2_865);
}
else
{ /* Tools/error.scm 126 */
BgL_procz00_867 = BgL_funzd2stringzd2_866;
}
}
{ /* Tools/error.scm 126 */
obj_t BgL_objzd2prnzd2_868;
{ /* Tools/error.scm 130 */
obj_t BgL_portz00_888;
{ /* Tools/error.scm 130 */
{ /* Tools/error.scm 130 */
BgL_portz00_888 =
BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00
(BTRUE);
}
}
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_objz00_35,
BgL_portz00_888);
{ /* Tools/error.scm 132 */
obj_t BgL_stringz00_889;
BgL_stringz00_889 = bgl_close_output_port(BgL_portz00_888);
if ((STRING_LENGTH(BgL_stringz00_889) > ((long) 45)))
{ /* Tools/error.scm 133 */
BgL_objzd2prnzd2_868 =
string_append(c_substring(BgL_stringz00_889, ((long) 0),
((long) 44)), BGl_string3382z00zztools_errorz00);
}
else
{ /* Tools/error.scm 133 */
BgL_objzd2prnzd2_868 = BgL_stringz00_889;
}
}
}
{ /* Tools/error.scm 130 */
return
BGl_zc3exitza33295ze3z83zztools_errorz00(BgL_continuez00_36,
BgL_locz00_32, BgL_objzd2prnzd2_868, BgL_msgz00_34,
BgL_procz00_867);
}
}
}
}
}
}
}
void bgl_odbc_sql_set_env_attr(SQLHENV env,
obj_t attribute,
obj_t value)
{
SQLRETURN v;
SQLUINTEGER uintval = 0;
SQLPOINTER valueptr = 0;
SQLINTEGER stringlength = 0;
SQLINTEGER attr = 0;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "connection-pooling"))
{
attr = SQL_ATTR_CONNECTION_POOLING;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(value)), "off"))
{
uintval = SQL_CP_OFF;
valueptr = (SQLPOINTER)uintval;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(value)), "one-per-driver"))
{
uintval = SQL_CP_ONE_PER_DRIVER;
valueptr = (SQLPOINTER)uintval;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(value)), "one-per-environment"))
{
uintval = SQL_CP_ONE_PER_HENV;
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_env_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "match"))
{
attr = SQL_ATTR_CP_MATCH;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(value)), "strict"))
{
uintval = SQL_CP_STRICT_MATCH;
valueptr = (SQLPOINTER)uintval;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(value)), "relaxed"))
{
uintval = SQL_CP_ONE_PER_DRIVER;
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_env_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "odbc-version"))
{
attr = SQL_ATTR_ODBC_VERSION;
if(INTEGERP(value))
{
uintval = (SQLUINTEGER)CINT(value);
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_env_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "output-nts"))
{
attr = SQL_ATTR_OUTPUT_NTS;
if(TRUEP(value))
{
uintval = SQL_TRUE;
valueptr = (SQLPOINTER)uintval;
}
else
{
uintval = SQL_FALSE;
valueptr = (SQLPOINTER)uintval;
}
}
else
{
odbc_error("bgl_odbc_sql_set_env_attr",
"Invalid or Unsupported attribute ",
attribute);
}
v = SQLSetEnvAttr(env,
attr,
valueptr,
stringlength);
if(!SQL_SUCCEEDED(v))
{
report_odbc_error("bgl_odbc_sql_set_env_attr",
SQL_HANDLE_ENV,
env);
}
}
void bgl_odbc_sql_set_connect_attr(SQLHANDLE dbc,
obj_t attribute,
obj_t value)
{
SQLRETURN v;
SQLUINTEGER uintval = 0;
SQLPOINTER valueptr = 0;
SQLINTEGER stringlength = 0;
SQLINTEGER attr = 0;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "access-mode"))
{
attr = SQL_ATTR_ACCESS_MODE;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "read-only"))
{
uintval = SQL_MODE_READ_ONLY;
valueptr = (SQLPOINTER)uintval;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "read-write"))
{
uintval = SQL_MODE_READ_WRITE;
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_connect_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "asynch-enable"))
{
attr = SQL_ATTR_ASYNC_ENABLE;
if(TRUEP( value ))
{
uintval = SQL_ASYNC_ENABLE_ON;
valueptr = (SQLPOINTER)uintval;
}
else
{
uintval = SQL_ASYNC_ENABLE_OFF;
valueptr = (SQLPOINTER)uintval;
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "auto-ipd"))
{
attr = SQL_ATTR_AUTO_IPD;
if(TRUEP( value ))
{
uintval = SQL_TRUE;
valueptr = (SQLPOINTER)uintval;
}
else
{
uintval = SQL_FALSE;
valueptr = (SQLPOINTER)uintval;
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "autocommit"))
{
attr = SQL_ATTR_AUTOCOMMIT;
if(TRUEP( value ))
{
uintval = SQL_AUTOCOMMIT_OFF;
valueptr = (SQLPOINTER)uintval;
}
else
{
uintval = SQL_AUTOCOMMIT_ON;
valueptr = (SQLPOINTER)uintval;
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "connection-timeout"))
{
attr = SQL_ATTR_CONNECTION_TIMEOUT;
if(INTEGERP( value ))
{
uintval = CINT(value);
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_connect_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "login-timeout"))
{
attr = SQL_ATTR_LOGIN_TIMEOUT;
if(INTEGERP( value ))
{
uintval = CINT(value);
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_connect_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "current-catalog"))
{
attr = SQL_ATTR_CURRENT_CATALOG;
if(STRINGP( value ))
{
valueptr = (SQLPOINTER)BSTRING_TO_STRING(value);
stringlength = strlen(BSTRING_TO_STRING(value));
}
else
{
odbc_error("bgl_odbc_sql_set_connect_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "metadata-id"))
{
attr = SQL_ATTR_METADATA_ID;
if(TRUEP( value ))
{
uintval = SQL_TRUE;
valueptr = (SQLPOINTER)uintval;
}
else
{
uintval = SQL_FALSE;
valueptr = (SQLPOINTER)uintval;
}
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "odbc-cursor"))
{
attr = SQL_ATTR_ODBC_CURSORS;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "use-if-needed"))
{
uintval = SQL_CUR_USE_IF_NEEDED;
valueptr = (SQLPOINTER)uintval;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "use-odbc"))
{
uintval = SQL_CUR_USE_ODBC;
valueptr = (SQLPOINTER)uintval;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(attribute)), "use-driver"))
{
uintval = SQL_CUR_USE_DRIVER;
valueptr = (SQLPOINTER)uintval;
}
else
{
odbc_error("bgl_odbc_sql_set_connect_attr",
"Invalid attribute value",
MAKE_PAIR(attribute, value));
}
}
else
{
odbc_error("bgl_odbc_sql_set_connect_attr",
"Invalid Or Unsupported attribute",
MAKE_PAIR(attribute, value));
}
v = SQLSetConnectAttr(dbc,
attr,
valueptr,
stringlength);
if(!SQL_SUCCEEDED(v))
{
report_odbc_error("bgl_odbc_sql_set_connect_attr",
SQL_HANDLE_DBC,
dbc);
}
}
/* coerce!-app-ly3349 */
obj_t BGl_coercez12zd2appzd2ly3349z12zzcoerce_applyz00(obj_t BgL_envz00_1472,
obj_t BgL_nodez00_1473, obj_t BgL_callerz00_1474, obj_t BgL_toz00_1475,
obj_t BgL_safez00_1476)
{
AN_OBJECT;
{ /* Coerce/apply.scm 35 */
{
BgL_appzd2lyzd2_bglt BgL_nodez00_1331;
obj_t BgL_callerz00_1332;
obj_t BgL_toz00_1333;
obj_t BgL_safez00_1334;
BgL_nodez00_1331 = (BgL_appzd2lyzd2_bglt) (BgL_nodez00_1473);
BgL_callerz00_1332 = BgL_callerz00_1474;
BgL_toz00_1333 = BgL_toz00_1475;
BgL_safez00_1334 = BgL_safez00_1476;
{ /* Coerce/apply.scm 37 */
obj_t BgL_errorzd2msgzd2_1337;
{ /* Coerce/apply.scm 37 */
obj_t BgL_arg3539z00_1406;
obj_t BgL_arg3540z00_1407;
BgL_arg3539z00_1406 = CNST_TABLE_REF(((long) 6));
BgL_arg3540z00_1407 =
BGl_shapez00zztools_shapez00((obj_t) (BgL_nodez00_1331));
{ /* Coerce/apply.scm 37 */
obj_t BgL_list3541z00_1408;
{ /* Coerce/apply.scm 37 */
obj_t BgL_arg3542z00_1409;
BgL_arg3542z00_1409 = MAKE_PAIR(BgL_arg3540z00_1407, BNIL);
BgL_list3541z00_1408 =
MAKE_PAIR(BgL_arg3539z00_1406, BgL_arg3542z00_1409);
}
BgL_errorzd2msgzd2_1337 = BgL_list3541z00_1408;
}}
{ /* Coerce/apply.scm 39 */
BgL_nodez00_bglt BgL_arg3476z00_1338;
{ /* Coerce/apply.scm 39 */
BgL_nodez00_bglt BgL_arg3477z00_1339;
BgL_arg3477z00_1339 =
(((BgL_appzd2lyzd2_bglt) CREF(BgL_nodez00_1331))->BgL_argz00);
BgL_arg3476z00_1338 =
BGl_coercez12z12zzcoerce_coercez00(BgL_arg3477z00_1339,
BgL_callerz00_1332,
(BgL_typez00_bglt) (BGl_za2objza2z00zztype_cachez00),
CBOOL(BgL_safez00_1334));
}
((((BgL_appzd2lyzd2_bglt) CREF(BgL_nodez00_1331))->BgL_argz00) =
((BgL_nodez00_bglt) BgL_arg3476z00_1338), BUNSPEC);
}
{ /* Coerce/apply.scm 41 */
BgL_nodez00_bglt BgL_czd2funzd2_1340;
{ /* Coerce/apply.scm 41 */
BgL_nodez00_bglt BgL_arg3538z00_1405;
BgL_arg3538z00_1405 =
(((BgL_appzd2lyzd2_bglt) CREF(BgL_nodez00_1331))->BgL_funz00);
BgL_czd2funzd2_1340 =
BGl_coercez12z12zzcoerce_coercez00(BgL_arg3538z00_1405,
BgL_callerz00_1332,
(BgL_typez00_bglt) (BGl_za2procedureza2z00zztype_cachez00),
CBOOL(BgL_safez00_1334));
}
if (CBOOL(BGl_za2unsafezd2arityza2zd2zzengine_paramz00))
{ /* Coerce/apply.scm 45 */
bool_t BgL_testz00_1615;
{ /* Coerce/apply.scm 45 */
obj_t BgL_obj2259z00_1446;
BgL_obj2259z00_1446 = (obj_t) (BgL_czd2funzd2_1340);
BgL_testz00_1615 =
BGl_iszd2azf3z21zz__objectz00(BgL_obj2259z00_1446,
BGl_varz00zzast_nodez00);
}
if (BgL_testz00_1615)
{ /* Coerce/apply.scm 45 */
((((BgL_appzd2lyzd2_bglt) CREF(BgL_nodez00_1331))->
BgL_funz00) =
((BgL_nodez00_bglt) BgL_czd2funzd2_1340), BUNSPEC);
return (obj_t) (BGl_convertz12z12zzcoerce_convertz00(
(BgL_nodez00_bglt) (BgL_nodez00_1331),
(BgL_typez00_bglt) (BGl_za2objza2z00zztype_cachez00),
(BgL_typez00_bglt) (BgL_toz00_1333),
CBOOL(BgL_safez00_1334)));
}
else
{ /* Coerce/apply.scm 49 */
BgL_localz00_bglt BgL_funz00_1342;
BgL_funz00_1342 =
BGl_makezd2localzd2svarz00zzast_localz00(CNST_TABLE_REF((
(long) 9)),
(BgL_typez00_bglt)
(BGl_za2procedureza2z00zztype_cachez00));
{ /* Coerce/apply.scm 51 */
BgL_varz00_bglt BgL_arg3479z00_1343;
{ /* Coerce/apply.scm 51 */
obj_t BgL_arg3480z00_1344;
BgL_arg3480z00_1344 =
(((BgL_nodez00_bglt) CREF(BgL_czd2funzd2_1340))->
BgL_locz00);
BgL_arg3479z00_1343 =
BGl_makezd2varzd2zzast_nodez00(BgL_arg3480z00_1344,
(BgL_typez00_bglt)
(BGl_za2procedureza2z00zztype_cachez00),
(BgL_variablez00_bglt) (BgL_funz00_1342));
}
{
BgL_nodez00_bglt BgL_auxz00_1632;
BgL_auxz00_1632 =
(BgL_nodez00_bglt) (BgL_arg3479z00_1343);
((((BgL_appzd2lyzd2_bglt) CREF(BgL_nodez00_1331))->
BgL_funz00) =
((BgL_nodez00_bglt) BgL_auxz00_1632), BUNSPEC);
}}
{ /* Coerce/apply.scm 55 */
obj_t BgL_arg3482z00_1345;
BgL_typez00_bglt BgL_arg3483z00_1346;
obj_t BgL_arg3485z00_1348;
BgL_nodez00_bglt BgL_arg3486z00_1349;
{
BgL_nodez00_bglt BgL_auxz00_1635;
BgL_auxz00_1635 = (BgL_nodez00_bglt) (BgL_nodez00_1331);
BgL_arg3482z00_1345 =
(((BgL_nodez00_bglt) CREF(BgL_auxz00_1635))->
BgL_locz00);
}
{
BgL_nodez00_bglt BgL_auxz00_1638;
BgL_auxz00_1638 = (BgL_nodez00_bglt) (BgL_nodez00_1331);
BgL_arg3483z00_1346 =
(((BgL_nodez00_bglt) CREF(BgL_auxz00_1638))->
BgL_typez00);
}
{ /* Coerce/apply.scm 57 */
obj_t BgL_arg3487z00_1350;
BgL_arg3487z00_1350 =
MAKE_PAIR(
(obj_t) (BgL_funz00_1342),
(obj_t) (BgL_czd2funzd2_1340));
{ /* Coerce/apply.scm 57 */
obj_t BgL_list3488z00_1351;
BgL_list3488z00_1351 =
MAKE_PAIR(BgL_arg3487z00_1350, BNIL);
BgL_arg3485z00_1348 = BgL_list3488z00_1351;
}}
BgL_arg3486z00_1349 =
BGl_convertz12z12zzcoerce_convertz00(
(BgL_nodez00_bglt) (BgL_nodez00_1331),
(BgL_typez00_bglt) (BGl_za2objza2z00zztype_cachez00),
(BgL_typez00_bglt) (BgL_toz00_1333),
CBOOL(BgL_safez00_1334));
return
(obj_t) (BGl_makezd2letzd2varz00zzast_nodez00
(BgL_arg3482z00_1345, BgL_arg3483z00_1346, BUNSPEC,
BINT(((long) -1)), BgL_arg3485z00_1348,
BgL_arg3486z00_1349, ((bool_t) 1)));
}}}
else
{ /* Coerce/apply.scm 59 */
BgL_localz00_bglt BgL_funz00_1352;
BgL_funz00_1352 =
BGl_makezd2localzd2svarz00zzast_localz00(CNST_TABLE_REF((
(long) 9)),
(BgL_typez00_bglt) (BGl_za2procedureza2z00zztype_cachez00));
{ /* Coerce/apply.scm 59 */
BgL_localz00_bglt BgL_valz00_1353;
BgL_valz00_1353 =
BGl_makezd2localzd2svarz00zzast_localz00(CNST_TABLE_REF((
(long) 10)),
(BgL_typez00_bglt)
(BGl_za2pairzd2nilza2zd2zztype_cachez00));
{ /* Coerce/apply.scm 60 */
obj_t BgL_locz00_1354;
{
BgL_nodez00_bglt BgL_auxz00_1659;
BgL_auxz00_1659 = (BgL_nodez00_bglt) (BgL_nodez00_1331);
BgL_locz00_1354 =
(((BgL_nodez00_bglt) CREF(BgL_auxz00_1659))->
BgL_locz00);
}
{ /* Coerce/apply.scm 61 */
BgL_nodez00_bglt BgL_lvalz00_1355;
{ /* Coerce/apply.scm 62 */
obj_t BgL_arg3533z00_1401;
{ /* Coerce/apply.scm 62 */
obj_t BgL_arg3535z00_1402;
obj_t BgL_arg3536z00_1403;
BgL_arg3535z00_1402 = CNST_TABLE_REF(((long) 11));
{ /* Coerce/apply.scm 62 */
obj_t BgL_list3537z00_1404;
BgL_list3537z00_1404 = MAKE_PAIR(BNIL, BNIL);
BgL_arg3536z00_1403 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
(obj_t) (BgL_valz00_1353), BgL_list3537z00_1404);
}
BgL_arg3533z00_1401 =
MAKE_PAIR(BgL_arg3535z00_1402, BgL_arg3536z00_1403);
}
BgL_lvalz00_1355 =
BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00
(BgL_arg3533z00_1401, BgL_locz00_1354);
}
{ /* Coerce/apply.scm 62 */
obj_t BgL_lenz00_1356;
BgL_lenz00_1356 =
BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF((
(long) 12)));
{ /* Coerce/apply.scm 63 */
BgL_letzd2varzd2_bglt BgL_lnodez00_1357;
{ /* Coerce/apply.scm 64 */
obj_t BgL_arg3492z00_1361;
BgL_nodez00_bglt BgL_arg3493z00_1362;
{ /* Coerce/apply.scm 67 */
obj_t BgL_arg3494z00_1363;
obj_t BgL_arg3495z00_1364;
BgL_arg3494z00_1363 =
MAKE_PAIR(
(obj_t) (BgL_funz00_1352),
(obj_t) (BgL_czd2funzd2_1340));
{ /* Coerce/apply.scm 68 */
BgL_nodez00_bglt BgL_arg3498z00_1367;
BgL_arg3498z00_1367 =
(((BgL_appzd2lyzd2_bglt)
CREF(BgL_nodez00_1331))->BgL_argz00);
BgL_arg3495z00_1364 =
MAKE_PAIR((obj_t) (BgL_valz00_1353),
(obj_t) (BgL_arg3498z00_1367));
}
{ /* Coerce/apply.scm 67 */
obj_t BgL_list3496z00_1365;
{ /* Coerce/apply.scm 67 */
obj_t BgL_arg3497z00_1366;
BgL_arg3497z00_1366 =
MAKE_PAIR(BgL_arg3495z00_1364, BNIL);
BgL_list3496z00_1365 =
MAKE_PAIR(BgL_arg3494z00_1363,
BgL_arg3497z00_1366);
}
BgL_arg3492z00_1361 = BgL_list3496z00_1365;
}}
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3499z00_1368;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3500z00_1369;
obj_t BgL_arg3501z00_1370;
BgL_arg3500z00_1369 =
CNST_TABLE_REF(((long) 13));
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3502z00_1371;
obj_t BgL_arg3503z00_1372;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3507z00_1376;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3509z00_1378;
obj_t BgL_arg3510z00_1379;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3511z00_1380;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3512z00_1381;
obj_t BgL_arg3513z00_1382;
{ /* Coerce/apply.scm 70 */
obj_t BgL_res3552z00_1462;
{ /* Coerce/apply.scm 70 */
obj_t BgL_symbolz00_1460;
BgL_symbolz00_1460 =
BgL_lenz00_1356;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg2063z00_1461;
BgL_arg2063z00_1461 =
SYMBOL_TO_STRING
(BgL_symbolz00_1460);
BgL_res3552z00_1462 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1461);
}}
BgL_arg3512z00_1381 =
BgL_res3552z00_1462;
}
{ /* Coerce/apply.scm 70 */
obj_t BgL_res3553z00_1465;
{ /* Coerce/apply.scm 70 */
obj_t BgL_symbolz00_1463;
BgL_symbolz00_1463 =
CNST_TABLE_REF(((long) 14));
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg2063z00_1464;
BgL_arg2063z00_1464 =
SYMBOL_TO_STRING
(BgL_symbolz00_1463);
BgL_res3553z00_1465 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1464);
}}
BgL_arg3513z00_1382 =
BgL_res3553z00_1465;
}
{ /* Coerce/apply.scm 70 */
obj_t BgL_list3514z00_1383;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3515z00_1384;
BgL_arg3515z00_1384 =
MAKE_PAIR(BgL_arg3513z00_1382,
BNIL);
BgL_list3514z00_1383 =
MAKE_PAIR(BgL_arg3512z00_1381,
BgL_arg3515z00_1384);
}
BgL_arg3511z00_1380 =
BGl_stringzd2appendzd2zz__r4_strings_6_7z00
(BgL_list3514z00_1383);
}}
BgL_arg3509z00_1378 =
string_to_symbol(BSTRING_TO_STRING
(BgL_arg3511z00_1380));
}
{ /* Coerce/apply.scm 71 */
BgL_nodez00_bglt BgL_arg3517z00_1385;
BgL_arg3517z00_1385 =
BGl_coercez12z12zzcoerce_coercez00
(BgL_lvalz00_1355, BgL_callerz00_1332,
(BgL_typez00_bglt)
(BGl_za2intza2z00zztype_cachez00),
CBOOL(BgL_safez00_1334));
{ /* Coerce/apply.scm 70 */
obj_t BgL_list3519z00_1387;
BgL_list3519z00_1387 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg3510z00_1379 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
((obj_t) (BgL_arg3517z00_1385),
BgL_list3519z00_1387);
}}
BgL_arg3507z00_1376 =
MAKE_PAIR(BgL_arg3509z00_1378,
BgL_arg3510z00_1379);
}
BgL_arg3502z00_1371 =
MAKE_PAIR(BgL_arg3507z00_1376, BNIL);
}
{ /* Coerce/apply.scm 75 */
obj_t BgL_arg3520z00_1388;
obj_t BgL_arg3521z00_1389;
BgL_arg3520z00_1388 =
CNST_TABLE_REF(((long) 15));
{ /* Coerce/apply.scm 75 */
obj_t BgL_arg3522z00_1390;
BgL_nodez00_bglt BgL_arg3523z00_1391;
BgL_nodez00_bglt BgL_arg3524z00_1392;
{ /* Coerce/apply.scm 75 */
obj_t BgL_arg3529z00_1397;
obj_t BgL_arg3530z00_1398;
BgL_arg3529z00_1397 =
CNST_TABLE_REF(((long) 16));
{ /* Coerce/apply.scm 75 */
obj_t BgL_list3531z00_1399;
{ /* Coerce/apply.scm 75 */
obj_t BgL_arg3532z00_1400;
BgL_arg3532z00_1400 =
MAKE_PAIR(BNIL, BNIL);
BgL_list3531z00_1399 =
MAKE_PAIR(BgL_lenz00_1356,
BgL_arg3532z00_1400);
}
BgL_arg3530z00_1398 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
((obj_t) (BgL_funz00_1352),
BgL_list3531z00_1399);
}
BgL_arg3522z00_1390 =
MAKE_PAIR(BgL_arg3529z00_1397,
BgL_arg3530z00_1398);
}
BgL_arg3523z00_1391 =
BGl_convertz12z12zzcoerce_convertz00(
(BgL_nodez00_bglt) (BgL_nodez00_1331),
(BgL_typez00_bglt)
(BGl_za2objza2z00zztype_cachez00),
(BgL_typez00_bglt) (BgL_toz00_1333),
CBOOL(BgL_safez00_1334));
BgL_arg3524z00_1392 =
BGl_makezd2errorzd2nodez00zzcoerce_applyz00
(BgL_errorzd2msgzd2_1337,
BgL_locz00_1354, BgL_callerz00_1332,
BgL_toz00_1333);
{ /* Coerce/apply.scm 75 */
obj_t BgL_list3526z00_1394;
{ /* Coerce/apply.scm 75 */
obj_t BgL_arg3527z00_1395;
{ /* Coerce/apply.scm 75 */
obj_t BgL_arg3528z00_1396;
BgL_arg3528z00_1396 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg3527z00_1395 =
MAKE_PAIR(
(obj_t) (BgL_arg3524z00_1392),
BgL_arg3528z00_1396);
}
BgL_list3526z00_1394 =
MAKE_PAIR(
(obj_t) (BgL_arg3523z00_1391),
BgL_arg3527z00_1395);
}
BgL_arg3521z00_1389 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3522z00_1390,
BgL_list3526z00_1394);
}}
BgL_arg3503z00_1372 =
MAKE_PAIR(BgL_arg3520z00_1388,
BgL_arg3521z00_1389);
}
{ /* Coerce/apply.scm 70 */
obj_t BgL_list3505z00_1374;
{ /* Coerce/apply.scm 70 */
obj_t BgL_arg3506z00_1375;
BgL_arg3506z00_1375 =
MAKE_PAIR(BNIL, BNIL);
BgL_list3505z00_1374 =
MAKE_PAIR(BgL_arg3503z00_1372,
BgL_arg3506z00_1375);
}
BgL_arg3501z00_1370 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3502z00_1371,
BgL_list3505z00_1374);
}}
BgL_arg3499z00_1368 =
MAKE_PAIR(BgL_arg3500z00_1369,
BgL_arg3501z00_1370);
}
BgL_arg3493z00_1362 =
BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00
(BgL_arg3499z00_1368, BgL_locz00_1354);
}
BgL_lnodez00_1357 =
BGl_makezd2letzd2varz00zzast_nodez00
(BgL_locz00_1354,
(BgL_typez00_bglt)
(BGl_za2objza2z00zztype_cachez00), BUNSPEC,
BINT(((long) -1)), BgL_arg3492z00_1361,
BgL_arg3493z00_1362, ((bool_t) 1));
}
{ /* Coerce/apply.scm 64 */
{ /* Coerce/apply.scm 83 */
BgL_varz00_bglt BgL_arg3489z00_1358;
BgL_arg3489z00_1358 =
BGl_makezd2varzd2zzast_nodez00(BgL_locz00_1354,
(BgL_typez00_bglt)
(BGl_za2procedureza2z00zztype_cachez00),
(BgL_variablez00_bglt) (BgL_funz00_1352));
{
BgL_nodez00_bglt BgL_auxz00_1729;
BgL_auxz00_1729 =
(BgL_nodez00_bglt) (BgL_arg3489z00_1358);
((((BgL_appzd2lyzd2_bglt)
CREF(BgL_nodez00_1331))->BgL_funz00) =
((BgL_nodez00_bglt) BgL_auxz00_1729),
BUNSPEC);
}}
{ /* Coerce/apply.scm 87 */
BgL_varz00_bglt BgL_arg3490z00_1359;
BgL_arg3490z00_1359 =
BGl_makezd2varzd2zzast_nodez00(BgL_locz00_1354,
(BgL_typez00_bglt)
(BGl_za2objza2z00zztype_cachez00),
(BgL_variablez00_bglt) (BgL_valz00_1353));
{
BgL_nodez00_bglt BgL_auxz00_1735;
BgL_auxz00_1735 =
(BgL_nodez00_bglt) (BgL_arg3490z00_1359);
((((BgL_appzd2lyzd2_bglt)
CREF(BgL_nodez00_1331))->BgL_argz00) =
((BgL_nodez00_bglt) BgL_auxz00_1735),
BUNSPEC);
}}
return (obj_t) (BgL_lnodez00_1357);
}
}
}
}
}
}
}
}
}
}
}
}
/* <anonymous:1896> */
obj_t BGl_zc3anonymousza31896ze3z83zz__lalr_driverz00(obj_t BgL_envz00_1579,
obj_t BgL_rgcz00_1582, obj_t BgL_inputzd2portzd2_1583,
obj_t BgL_iszd2eofzf3z21_1584)
{
AN_OBJECT;
{ /* Lalr/driver.scm 61 */
{ /* Lalr/driver.scm 69 */
obj_t BgL_actionzd2tablezd2_1580;
obj_t BgL_reductionzd2functionzd2_1581;
BgL_actionzd2tablezd2_1580 =
PROCEDURE_REF(BgL_envz00_1579, (int) (((long) 0)));
BgL_reductionzd2functionzd2_1581 =
PROCEDURE_REF(BgL_envz00_1579, (int) (((long) 1)));
{
obj_t BgL_rgcz00_782;
obj_t BgL_inputzd2portzd2_783;
obj_t BgL_iszd2eofzf3z21_784;
BgL_rgcz00_782 = BgL_rgcz00_1582;
BgL_inputzd2portzd2_783 = BgL_inputzd2portzd2_1583;
BgL_iszd2eofzf3z21_784 = BgL_iszd2eofzf3z21_1584;
{ /* Lalr/driver.scm 69 */
obj_t BgL_stackz00_787;
obj_t BgL_statez00_788;
obj_t BgL_inputz00_789;
obj_t BgL_inz00_790;
obj_t BgL_attrz00_791;
obj_t BgL_actsz00_792;
obj_t BgL_actz00_793;
bool_t BgL_eofzf3zf3_794;
bool_t BgL_debugz00_795;
BgL_stackz00_787 =
make_vector(
(int) (BGl_za2maxzd2stackzd2siza7eza2za7zz__lalr_driverz00),
BINT(((long) 0)));
BgL_statez00_788 = BFALSE;
BgL_inputz00_789 = BFALSE;
BgL_inz00_790 = BFALSE;
BgL_attrz00_791 = BFALSE;
BgL_actsz00_792 = BFALSE;
BgL_actz00_793 = BFALSE;
BgL_eofzf3zf3_794 = ((bool_t) 0);
{ /* Lalr/driver.scm 77 */
int BgL_arg1940z00_840;
BgL_arg1940z00_840 = bgl_debug();
BgL_debugz00_795 = ((long) (BgL_arg1940z00_840) >= ((long) 100));
}
{
obj_t BgL_spz00_797;
BgL_spz00_797 = BINT(((long) 0));
BgL_zc3anonymousza31897ze3z83_798:
BgL_statez00_788 =
VECTOR_REF(BgL_stackz00_787, CINT(BgL_spz00_797));
BgL_actsz00_792 =
VECTOR_REF(BgL_actionzd2tablezd2_1580, CINT(BgL_statez00_788));
if (NULLP(CDR(BgL_actsz00_792)))
{ /* Lalr/driver.scm 84 */
obj_t BgL_pairz00_1311;
BgL_pairz00_1311 = BgL_actsz00_792;
BgL_actz00_793 = CDR(CAR(BgL_pairz00_1311));
}
else
{ /* Lalr/driver.scm 83 */
if (CBOOL(BgL_inputz00_789))
{ /* Lalr/driver.scm 86 */
BFALSE;
}
else
{ /* Lalr/driver.scm 86 */
BgL_inputz00_789 =
PROCEDURE_ENTRY(BgL_rgcz00_782) (BgL_rgcz00_782,
BgL_inputzd2portzd2_783, BEOA);
}
if (CBOOL(BgL_inputz00_789))
{ /* Lalr/driver.scm 88 */
((bool_t) 0);
}
else
{ /* Lalr/driver.scm 88 */
bgl_system_failure(BGL_IO_PARSE_ERROR,
BGl_symbol2208z00zz__lalr_driverz00,
BGl_string2210z00zz__lalr_driverz00, BFALSE);
}
if (CBOOL(PROCEDURE_ENTRY(BgL_iszd2eofzf3z21_784)
(BgL_iszd2eofzf3z21_784, BgL_inputz00_789, BEOA)))
{ /* Lalr/driver.scm 94 */
BgL_inz00_790 = BGl_symbol2211z00zz__lalr_driverz00;
BgL_attrz00_791 = BFALSE;
BgL_eofzf3zf3_794 = ((bool_t) 1);
}
else
{ /* Lalr/driver.scm 94 */
if (PAIRP(BgL_inputz00_789))
{ /* Lalr/driver.scm 98 */
BgL_inz00_790 = CAR(BgL_inputz00_789);
BgL_attrz00_791 = CDR(BgL_inputz00_789);
}
else
{ /* Lalr/driver.scm 98 */
BgL_inz00_790 = BgL_inputz00_789;
BgL_attrz00_791 = BFALSE;
}
}
{ /* Lalr/driver.scm 105 */
obj_t BgL_xz00_1318;
obj_t BgL_lz00_1319;
BgL_xz00_1318 = BgL_inz00_790;
BgL_lz00_1319 = BgL_actsz00_792;
{ /* Lalr/driver.scm 105 */
obj_t BgL_yz00_1320;
BgL_yz00_1320 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1318,
BgL_lz00_1319);
if (CBOOL(BgL_yz00_1320))
{ /* Lalr/driver.scm 105 */
BgL_actz00_793 = CDR(BgL_yz00_1320);
}
else
{ /* Lalr/driver.scm 105 */
obj_t BgL_pairz00_1322;
BgL_pairz00_1322 = BgL_lz00_1319;
BgL_actz00_793 = CDR(CAR(BgL_pairz00_1322));
}
}
}
}
if (BgL_debugz00_795)
{ /* Lalr/driver.scm 107 */
{ /* Lalr/driver.scm 108 */
obj_t BgL_arg1903z00_804;
{ /* Lalr/driver.scm 108 */
obj_t BgL_res2190z00_1327;
{ /* Lalr/driver.scm 108 */
obj_t BgL_auxz00_1662;
BgL_auxz00_1662 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2190z00_1327 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1662);
}
BgL_arg1903z00_804 = BgL_res2190z00_1327;
}
bgl_display_string(BGl_string2213z00zz__lalr_driverz00,
BgL_arg1903z00_804);
}
{ /* Lalr/driver.scm 109 */
obj_t BgL_arg1904z00_805;
{ /* Lalr/driver.scm 109 */
obj_t BgL_res2191z00_1331;
{ /* Lalr/driver.scm 109 */
obj_t BgL_auxz00_1666;
BgL_auxz00_1666 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2191z00_1331 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1666);
}
BgL_arg1904z00_805 = BgL_res2191z00_1331;
}
{ /* Lalr/driver.scm 109 */
obj_t BgL_list1905z00_806;
BgL_list1905z00_806 = MAKE_PAIR(BgL_arg1904z00_805, BNIL);
BGl_writez00zz__r4_output_6_10_3z00(BgL_inz00_790,
BgL_list1905z00_806);
}
}
{ /* Lalr/driver.scm 110 */
obj_t BgL_arg1907z00_808;
{ /* Lalr/driver.scm 110 */
obj_t BgL_res2192z00_1333;
{ /* Lalr/driver.scm 110 */
obj_t BgL_auxz00_1671;
BgL_auxz00_1671 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2192z00_1333 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1671);
}
BgL_arg1907z00_808 = BgL_res2192z00_1333;
}
bgl_display_string(BGl_string2214z00zz__lalr_driverz00,
BgL_arg1907z00_808);
}
{ /* Lalr/driver.scm 111 */
obj_t BgL_arg1908z00_809;
{ /* Lalr/driver.scm 111 */
obj_t BgL_res2193z00_1337;
{ /* Lalr/driver.scm 111 */
obj_t BgL_auxz00_1675;
BgL_auxz00_1675 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2193z00_1337 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1675);
}
BgL_arg1908z00_809 = BgL_res2193z00_1337;
}
{ /* Lalr/driver.scm 111 */
obj_t BgL_list1909z00_810;
BgL_list1909z00_810 = MAKE_PAIR(BgL_arg1908z00_809, BNIL);
BGl_writez00zz__r4_output_6_10_3z00(BgL_statez00_788,
BgL_list1909z00_810);
}
}
{ /* Lalr/driver.scm 112 */
obj_t BgL_arg1911z00_812;
{ /* Lalr/driver.scm 112 */
obj_t BgL_res2194z00_1339;
{ /* Lalr/driver.scm 112 */
obj_t BgL_auxz00_1680;
BgL_auxz00_1680 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2194z00_1339 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1680);
}
BgL_arg1911z00_812 = BgL_res2194z00_1339;
}
bgl_display_string(BGl_string2215z00zz__lalr_driverz00,
BgL_arg1911z00_812);
}
{ /* Lalr/driver.scm 113 */
obj_t BgL_arg1912z00_813;
{ /* Lalr/driver.scm 113 */
obj_t BgL_res2195z00_1343;
{ /* Lalr/driver.scm 113 */
obj_t BgL_auxz00_1684;
BgL_auxz00_1684 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2195z00_1343 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1684);
}
BgL_arg1912z00_813 = BgL_res2195z00_1343;
}
{ /* Lalr/driver.scm 113 */
obj_t BgL_list1913z00_814;
BgL_list1913z00_814 = MAKE_PAIR(BgL_arg1912z00_813, BNIL);
BGl_writez00zz__r4_output_6_10_3z00(BgL_spz00_797,
BgL_list1913z00_814);
}
}
{ /* Lalr/driver.scm 114 */
obj_t BgL_arg1914z00_815;
{ /* Lalr/driver.scm 114 */
obj_t BgL_res2196z00_1345;
{ /* Lalr/driver.scm 114 */
obj_t BgL_auxz00_1689;
BgL_auxz00_1689 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2196z00_1345 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1689);
}
BgL_arg1914z00_815 = BgL_res2196z00_1345;
}
bgl_display_char(((unsigned char) '\n'),
BgL_arg1914z00_815);
}}
else
{ /* Lalr/driver.scm 107 */
BFALSE;
}
if ((BgL_actz00_793 == BGl_symbol2216z00zz__lalr_driverz00))
{ /* Lalr/driver.scm 119 */
return VECTOR_REF(BgL_stackz00_787, (int) (((long) 1)));
}
else
{ /* Lalr/driver.scm 123 */
bool_t BgL_testz00_1697;
if ((BgL_actz00_793 == BGl_symbol2218z00zz__lalr_driverz00))
{ /* Lalr/driver.scm 123 */
BgL_testz00_1697 = ((bool_t) 1);
}
else
{ /* Lalr/driver.scm 123 */
BgL_testz00_1697 =
(BgL_actz00_793 == BGl_symbol2220z00zz__lalr_driverz00);
}
if (BgL_testz00_1697)
{ /* Lalr/driver.scm 124 */
obj_t BgL_msgz00_818;
{ /* Lalr/driver.scm 124 */
obj_t BgL_arg1919z00_820;
if (SYMBOLP(BgL_inz00_790))
{ /* Lalr/driver.scm 128 */
obj_t BgL_res2197z00_1352;
{ /* Lalr/driver.scm 128 */
obj_t BgL_symbolz00_1350;
BgL_symbolz00_1350 = BgL_inz00_790;
{ /* Lalr/driver.scm 128 */
obj_t BgL_arg2113z00_1351;
BgL_arg2113z00_1351 =
SYMBOL_TO_STRING(BgL_symbolz00_1350);
BgL_res2197z00_1352 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2113z00_1351);
}
}
BgL_arg1919z00_820 = BgL_res2197z00_1352;
}
else
{ /* Lalr/driver.scm 127 */
if (CHARP(BgL_inz00_790))
{ /* Lalr/driver.scm 130 */
obj_t BgL_list1923z00_824;
BgL_list1923z00_824 =
MAKE_PAIR(BgL_inz00_790, BNIL);
{ /* Lalr/driver.scm 130 */
obj_t BgL_res2198z00_1360;
{ /* Lalr/driver.scm 130 */
obj_t BgL_arg2107z00_1357;
BgL_arg2107z00_1357 =
CAR(BgL_list1923z00_824);
BgL_res2198z00_1360 =
make_string(((long) 1),
CCHAR(BgL_arg2107z00_1357));
}
BgL_arg1919z00_820 = BgL_res2198z00_1360;
}}
else
{ /* Lalr/driver.scm 132 */
obj_t BgL_portz00_825;
{ /* Lalr/driver.scm 132 */
{ /* Ieee/port.scm 386 */
BgL_portz00_825 =
BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00
(BTRUE);
}
}
{ /* Lalr/driver.scm 133 */
obj_t BgL_list1924z00_826;
BgL_list1924z00_826 =
MAKE_PAIR(BgL_portz00_825, BNIL);
BGl_writez00zz__r4_output_6_10_3z00
(BgL_inz00_790, BgL_list1924z00_826);
}
BgL_arg1919z00_820 =
bgl_close_output_port(BgL_portz00_825);
}
}
BgL_msgz00_818 =
string_append_3(BGl_string2222z00zz__lalr_driverz00,
BgL_arg1919z00_820,
BGl_string2223z00zz__lalr_driverz00);
}
return
bgl_system_failure(BGL_IO_PARSE_ERROR,
BGl_string2209z00zz__lalr_driverz00, BgL_msgz00_818,
BgL_inputz00_789);
}
else
{ /* Lalr/driver.scm 123 */
if (((long) CINT(BgL_actz00_793) >= ((long) 0)))
{ /* Lalr/driver.scm 139 */
{ /* Lalr/driver.scm 140 */
bool_t BgL_testz00_1720;
{ /* Lalr/driver.scm 140 */
long BgL_arg1927z00_830;
{ /* Lalr/driver.scm 140 */
int BgL_arg1929z00_831;
BgL_arg1929z00_831 =
VECTOR_LENGTH(BgL_stackz00_787);
BgL_arg1927z00_830 =
((long) (BgL_arg1929z00_831) - ((long) 4));
}
BgL_testz00_1720 =
(
(long) CINT(BgL_spz00_797) >=
BgL_arg1927z00_830);
}
if (BgL_testz00_1720)
{ /* Lalr/driver.scm 140 */
BgL_stackz00_787 =
BGl_growzd2stackz12zc0zz__lalr_driverz00
(BgL_stackz00_787);
}
else
{ /* Lalr/driver.scm 140 */
BFALSE;
}
}
{ /* Lalr/driver.scm 142 */
long BgL_arg1931z00_833;
BgL_arg1931z00_833 =
((long) CINT(BgL_spz00_797) + ((long) 1));
VECTOR_SET(BgL_stackz00_787,
(int) (BgL_arg1931z00_833), BgL_attrz00_791);
}
{ /* Lalr/driver.scm 143 */
long BgL_arg1932z00_834;
BgL_arg1932z00_834 =
((long) CINT(BgL_spz00_797) + ((long) 2));
VECTOR_SET(BgL_stackz00_787,
(int) (BgL_arg1932z00_834), BgL_actz00_793);
}
if (BgL_eofzf3zf3_794)
{ /* Lalr/driver.scm 144 */
BFALSE;
}
else
{ /* Lalr/driver.scm 144 */
BgL_inputz00_789 = BFALSE;
}
{ /* Lalr/driver.scm 146 */
long BgL_arg1935z00_835;
BgL_arg1935z00_835 =
((long) CINT(BgL_spz00_797) + ((long) 2));
{
obj_t BgL_spz00_1738;
BgL_spz00_1738 = BINT(BgL_arg1935z00_835);
BgL_spz00_797 = BgL_spz00_1738;
goto BgL_zc3anonymousza31897ze3z83_798;
}
}
}
else
{ /* Lalr/driver.scm 150 */
obj_t BgL_arg1937z00_836;
{ /* Lalr/driver.scm 150 */
long BgL_arg1938z00_837;
BgL_arg1938z00_837 =
NEG((long) CINT(BgL_actz00_793));
BgL_arg1937z00_836 =
PROCEDURE_ENTRY(BgL_reductionzd2functionzd2_1581)
(BgL_reductionzd2functionzd2_1581,
BINT(BgL_arg1938z00_837), BgL_stackz00_787,
BgL_spz00_797, BEOA);
}
{
obj_t BgL_spz00_1745;
BgL_spz00_1745 = BgL_arg1937z00_836;
BgL_spz00_797 = BgL_spz00_1745;
goto BgL_zc3anonymousza31897ze3z83_798;
}
}
}
}
}
}
}
}
}
}
/* make-module-init */
BgL_globalz00_bglt BGl_makezd2modulezd2initz00zzbackend_initz00()
{
AN_OBJECT;
{ /* BackEnd/init.scm 52 */
{ /* BackEnd/init.scm 53 */
BgL_globalz00_bglt BgL_reqz00_951;
BgL_reqz00_951 =
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(CNST_TABLE_REF(((long)
0)), BGl_za2moduleza2z00zzmodule_modulez00,
CNST_TABLE_REF(((long) 1)), CNST_TABLE_REF(((long) 2)));
{ /* BackEnd/init.scm 53 */
obj_t BgL_bcz00_952;
BgL_bcz00_952 = BGl_thezd2backendzd2zzbackend_backendz00();
{ /* BackEnd/init.scm 57 */
bool_t BgL_dbgz00_953;
if (
((long) CINT(BGl_za2debugzd2moduleza2zd2zzengine_paramz00) >
((long) 0)))
{ /* BackEnd/init.scm 59 */
bool_t BgL_testz00_1565;
{ /* BackEnd/init.scm 59 */
obj_t BgL_auxz00_1566;
{ /* BackEnd/init.scm 59 */
obj_t BgL_auxz00_1567;
{
BgL_backendz00_bglt BgL_auxz00_1569;
BgL_auxz00_1569 = (BgL_backendz00_bglt) (BgL_bcz00_952);
BgL_auxz00_1567 =
(((BgL_backendz00_bglt) CREF(BgL_auxz00_1569))->
BgL_debugzd2supportzd2);
}
BgL_auxz00_1566 =
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CNST_TABLE_REF((
(long) 3)), BgL_auxz00_1567);
}
BgL_testz00_1565 = CBOOL(BgL_auxz00_1566);
}
if (BgL_testz00_1565)
{
BgL_backendz00_bglt BgL_auxz00_1574;
BgL_auxz00_1574 = (BgL_backendz00_bglt) (BgL_bcz00_952);
BgL_dbgz00_953 =
(((BgL_backendz00_bglt) CREF(BgL_auxz00_1574))->
BgL_pragmazd2supportzd2);
}
else
{ /* BackEnd/init.scm 59 */
BgL_dbgz00_953 = ((bool_t) 0);
}
}
else
{ /* BackEnd/init.scm 58 */
BgL_dbgz00_953 = ((bool_t) 0);
}
{ /* BackEnd/init.scm 58 */
obj_t BgL_ubodyz00_954;
{ /* BackEnd/init.scm 61 */
obj_t BgL_arg3763z00_1031;
obj_t BgL_arg3764z00_1032;
BgL_arg3763z00_1031 = CNST_TABLE_REF(((long) 4));
{ /* BackEnd/init.scm 61 */
obj_t BgL_arg3765z00_1033;
obj_t BgL_arg3766z00_1034;
BgL_arg3765z00_1033 = CNST_TABLE_REF(((long) 5));
{ /* BackEnd/init.scm 62 */
obj_t BgL_arg3771z00_1039;
obj_t BgL_arg3772z00_1040;
BgL_arg3771z00_1039 = CNST_TABLE_REF(((long) 6));
{ /* BackEnd/init.scm 63 */
obj_t BgL_arg3773z00_1041;
obj_t BgL_arg3774z00_1042;
{ /* BackEnd/init.scm 63 */
obj_t BgL_arg3776z00_1044;
obj_t BgL_arg3777z00_1045;
BgL_arg3776z00_1044 = CNST_TABLE_REF(((long) 7));
{ /* BackEnd/init.scm 63 */
obj_t BgL_list3778z00_1046;
{ /* BackEnd/init.scm 63 */
obj_t BgL_arg3779z00_1047;
BgL_arg3779z00_1047 = MAKE_PAIR(BNIL, BNIL);
BgL_list3778z00_1046 =
MAKE_PAIR(BFALSE, BgL_arg3779z00_1047);
}
BgL_arg3777z00_1045 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(CNST_TABLE_REF(((long) 5)), BgL_list3778z00_1046);
}
BgL_arg3773z00_1041 =
MAKE_PAIR(BgL_arg3776z00_1044, BgL_arg3777z00_1045);
}
{ /* BackEnd/init.scm 64 */
obj_t BgL_arg3780z00_1048;
obj_t BgL_arg3781z00_1049;
if (BgL_dbgz00_953)
{ /* BackEnd/init.scm 65 */
obj_t BgL_arg3782z00_1050;
{ /* BackEnd/init.scm 65 */
obj_t BgL_arg3784z00_1052;
obj_t BgL_arg3785z00_1053;
BgL_arg3784z00_1052 = CNST_TABLE_REF(((long) 8));
{ /* BackEnd/init.scm 66 */
obj_t BgL_arg3786z00_1054;
{ /* BackEnd/init.scm 66 */
obj_t BgL_arg3790z00_1058;
{ /* BackEnd/init.scm 67 */
obj_t BgL_res3859z00_1498;
{ /* BackEnd/init.scm 67 */
obj_t BgL_symbolz00_1496;
BgL_symbolz00_1496 =
BGl_za2moduleza2z00zzmodule_modulez00;
{ /* BackEnd/init.scm 67 */
obj_t BgL_arg2063z00_1497;
BgL_arg2063z00_1497 =
SYMBOL_TO_STRING(BgL_symbolz00_1496);
BgL_res3859z00_1498 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1497);
}}
BgL_arg3790z00_1058 = BgL_res3859z00_1498;
}
BgL_arg3786z00_1054 =
string_append_3
(BGl_string3865z00zzbackend_initz00,
BgL_arg3790z00_1058,
BGl_string3866z00zzbackend_initz00);
}
{ /* BackEnd/init.scm 65 */
obj_t BgL_list3788z00_1056;
BgL_list3788z00_1056 = MAKE_PAIR(BNIL, BNIL);
BgL_arg3785z00_1053 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3786z00_1054, BgL_list3788z00_1056);
}}
BgL_arg3782z00_1050 =
MAKE_PAIR(BgL_arg3784z00_1052,
BgL_arg3785z00_1053);
}
BgL_arg3780z00_1048 =
MAKE_PAIR(BgL_arg3782z00_1050, BNIL);
}
else
{ /* BackEnd/init.scm 64 */
BgL_arg3780z00_1048 = BNIL;
}
{ /* BackEnd/init.scm 70 */
obj_t BgL_arg3792z00_1060;
obj_t BgL_arg3793z00_1061;
BgL_arg3792z00_1060 =
BGl_unitzd2initzd2callsz00zzast_unitz00();
{ /* BackEnd/init.scm 71 */
obj_t BgL_arg3794z00_1062;
obj_t BgL_arg3795z00_1063;
if (BgL_dbgz00_953)
{ /* BackEnd/init.scm 72 */
obj_t BgL_arg3796z00_1064;
{ /* BackEnd/init.scm 72 */
obj_t BgL_arg3798z00_1066;
obj_t BgL_arg3799z00_1067;
BgL_arg3798z00_1066 =
CNST_TABLE_REF(((long) 8));
{ /* BackEnd/init.scm 73 */
obj_t BgL_arg3800z00_1068;
{ /* BackEnd/init.scm 73 */
obj_t BgL_arg3804z00_1072;
{ /* BackEnd/init.scm 74 */
obj_t BgL_res3860z00_1501;
{ /* BackEnd/init.scm 74 */
obj_t BgL_symbolz00_1499;
BgL_symbolz00_1499 =
BGl_za2moduleza2z00zzmodule_modulez00;
{ /* BackEnd/init.scm 74 */
obj_t BgL_arg2063z00_1500;
BgL_arg2063z00_1500 =
SYMBOL_TO_STRING
(BgL_symbolz00_1499);
BgL_res3860z00_1501 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1500);
}}
BgL_arg3804z00_1072 =
BgL_res3860z00_1501;
}
BgL_arg3800z00_1068 =
string_append_3
(BGl_string3867z00zzbackend_initz00,
BgL_arg3804z00_1072,
BGl_string3866z00zzbackend_initz00);
}
{ /* BackEnd/init.scm 72 */
obj_t BgL_list3802z00_1070;
BgL_list3802z00_1070 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg3799z00_1067 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3800z00_1068,
BgL_list3802z00_1070);
}}
BgL_arg3796z00_1064 =
MAKE_PAIR(BgL_arg3798z00_1066,
BgL_arg3799z00_1067);
}
BgL_arg3794z00_1062 =
MAKE_PAIR(BgL_arg3796z00_1064, BNIL);
}
else
{ /* BackEnd/init.scm 71 */
BgL_arg3794z00_1062 = BNIL;
}
BgL_arg3795z00_1063 = MAKE_PAIR(BUNSPEC, BNIL);
BgL_arg3793z00_1061 =
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3794z00_1062, BgL_arg3795z00_1063);
}
BgL_arg3781z00_1049 =
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3792z00_1060, BgL_arg3793z00_1061);
}
BgL_arg3774z00_1042 =
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3780z00_1048, BgL_arg3781z00_1049);
}
{ /* BackEnd/init.scm 62 */
obj_t BgL_list3775z00_1043;
BgL_list3775z00_1043 =
MAKE_PAIR(BgL_arg3774z00_1042, BNIL);
BgL_arg3772z00_1040 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3773z00_1041, BgL_list3775z00_1043);
}
}
BgL_arg3766z00_1034 =
MAKE_PAIR(BgL_arg3771z00_1039, BgL_arg3772z00_1040);
}
{ /* BackEnd/init.scm 61 */
obj_t BgL_list3768z00_1036;
{ /* BackEnd/init.scm 61 */
obj_t BgL_arg3769z00_1037;
{ /* BackEnd/init.scm 61 */
obj_t BgL_arg3770z00_1038;
BgL_arg3770z00_1038 = MAKE_PAIR(BNIL, BNIL);
BgL_arg3769z00_1037 =
MAKE_PAIR(BUNSPEC, BgL_arg3770z00_1038);
}
BgL_list3768z00_1036 =
MAKE_PAIR(BgL_arg3766z00_1034, BgL_arg3769z00_1037);
}
BgL_arg3764z00_1032 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3765z00_1033, BgL_list3768z00_1036);
}
}
BgL_ubodyz00_954 =
MAKE_PAIR(BgL_arg3763z00_1031, BgL_arg3764z00_1032);
}
{ /* BackEnd/init.scm 61 */
obj_t BgL_bodyz00_955;
if (CBOOL(BGl_za2unsafezd2versionza2zd2zzengine_paramz00))
{ /* BackEnd/init.scm 79 */
BgL_bodyz00_955 = BgL_ubodyz00_954;
}
else
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3706z00_976;
obj_t BgL_arg3707z00_977;
BgL_arg3706z00_976 = CNST_TABLE_REF(((long) 4));
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3708z00_978;
obj_t BgL_arg3709z00_979;
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3714z00_984;
obj_t BgL_arg3715z00_985;
BgL_arg3714z00_984 = CNST_TABLE_REF(((long) 9));
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3716z00_986;
obj_t BgL_arg3717z00_987;
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3721z00_991;
obj_t BgL_arg3722z00_992;
BgL_arg3721z00_991 = CNST_TABLE_REF(((long) 10));
{ /* BackEnd/init.scm 81 */
obj_t BgL_list3723z00_993;
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3724z00_994;
BgL_arg3724z00_994 = MAKE_PAIR(BNIL, BNIL);
BgL_list3723z00_993 =
MAKE_PAIR
(BGl_za2modulezd2checksumza2zd2zzmodule_modulez00,
BgL_arg3724z00_994);
}
BgL_arg3722z00_992 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(CNST_TABLE_REF(((long) 11)),
BgL_list3723z00_993);
}
BgL_arg3716z00_986 =
MAKE_PAIR(BgL_arg3721z00_991, BgL_arg3722z00_992);
}
BgL_arg3717z00_987 = CNST_TABLE_REF(((long) 11));
{ /* BackEnd/init.scm 81 */
obj_t BgL_list3719z00_989;
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3720z00_990;
BgL_arg3720z00_990 = MAKE_PAIR(BNIL, BNIL);
BgL_list3719z00_989 =
MAKE_PAIR(BgL_arg3717z00_987,
BgL_arg3720z00_990);
}
BgL_arg3715z00_985 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3716z00_986, BgL_list3719z00_989);
}}
BgL_arg3708z00_978 =
MAKE_PAIR(BgL_arg3714z00_984, BgL_arg3715z00_985);
}
{ /* BackEnd/init.scm 83 */
bool_t BgL_testz00_1632;
{ /* BackEnd/init.scm 83 */
obj_t BgL_arg3762z00_1030;
BgL_arg3762z00_1030 =
BGl_thezd2backendzd2zzbackend_backendz00();
{
BgL_backendz00_bglt BgL_auxz00_1634;
BgL_auxz00_1634 =
(BgL_backendz00_bglt) (BgL_arg3762z00_1030);
BgL_testz00_1632 =
(((BgL_backendz00_bglt) CREF(BgL_auxz00_1634))->
BgL_pragmazd2supportzd2);
}}
if (BgL_testz00_1632)
{ /* BackEnd/init.scm 84 */
obj_t BgL_arg3726z00_996;
obj_t BgL_arg3727z00_997;
BgL_arg3726z00_996 = CNST_TABLE_REF(((long) 12));
{ /* BackEnd/init.scm 84 */
obj_t BgL_arg3728z00_998;
obj_t BgL_arg3729z00_999;
{ /* BackEnd/init.scm 84 */
obj_t BgL_arg3733z00_1003;
{ /* BackEnd/init.scm 84 */
obj_t BgL_arg3735z00_1005;
obj_t BgL_arg3736z00_1006;
BgL_arg3735z00_1005 =
CNST_TABLE_REF(((long) 13));
{ /* BackEnd/init.scm 85 */
obj_t BgL_arg3737z00_1007;
{ /* BackEnd/init.scm 85 */
obj_t BgL_arg3740z00_1010;
obj_t BgL_arg3741z00_1011;
BgL_arg3740z00_1010 =
CNST_TABLE_REF(((long) 14));
{ /* BackEnd/init.scm 86 */
obj_t BgL_arg3742z00_1012;
{ /* BackEnd/init.scm 86 */
obj_t BgL_arg3748z00_1016;
{ /* BackEnd/init.scm 86 */
obj_t BgL_res3861z00_1505;
{ /* BackEnd/init.scm 86 */
obj_t BgL_symbolz00_1503;
BgL_symbolz00_1503 =
BGl_za2moduleza2z00zzmodule_modulez00;
{ /* BackEnd/init.scm 86 */
obj_t BgL_arg2063z00_1504;
BgL_arg2063z00_1504 =
SYMBOL_TO_STRING
(BgL_symbolz00_1503);
BgL_res3861z00_1505 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1504);
}}
BgL_arg3748z00_1016 =
BgL_res3861z00_1505;
}
{ /* BackEnd/init.scm 86 */
obj_t BgL_list3749z00_1017;
BgL_list3749z00_1017 =
MAKE_PAIR(BgL_arg3748z00_1016,
BNIL);
BgL_arg3742z00_1012 =
BGl_formatz00zz__r4_output_6_10_3z00
(BGl_string3868z00zzbackend_initz00,
BgL_list3749z00_1017);
}}
{ /* BackEnd/init.scm 85 */
obj_t BgL_list3746z00_1014;
BgL_list3746z00_1014 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg3741z00_1011 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3742z00_1012,
BgL_list3746z00_1014);
}}
BgL_arg3737z00_1007 =
MAKE_PAIR(BgL_arg3740z00_1010,
BgL_arg3741z00_1011);
}
{ /* BackEnd/init.scm 84 */
obj_t BgL_list3739z00_1009;
BgL_list3739z00_1009 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg3736z00_1006 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3737z00_1007,
BgL_list3739z00_1009);
}}
BgL_arg3733z00_1003 =
MAKE_PAIR(BgL_arg3735z00_1005,
BgL_arg3736z00_1006);
}
BgL_arg3728z00_998 =
MAKE_PAIR(BgL_arg3733z00_1003, BNIL);
}
{ /* BackEnd/init.scm 87 */
obj_t BgL_arg3750z00_1018;
obj_t BgL_arg3751z00_1019;
BgL_arg3750z00_1018 =
CNST_TABLE_REF(((long) 15));
{ /* BackEnd/init.scm 87 */
obj_t BgL_list3752z00_1020;
{ /* BackEnd/init.scm 87 */
obj_t BgL_arg3753z00_1021;
obj_t BgL_arg3754z00_1022;
BgL_arg3753z00_1021 =
CNST_TABLE_REF(((long) 16));
BgL_arg3754z00_1022 = MAKE_PAIR(BNIL, BNIL);
BgL_list3752z00_1020 =
MAKE_PAIR(BgL_arg3753z00_1021,
BgL_arg3754z00_1022);
}
BgL_arg3751z00_1019 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(CNST_TABLE_REF(((long) 17)),
BgL_list3752z00_1020);
}
BgL_arg3729z00_999 =
MAKE_PAIR(BgL_arg3750z00_1018,
BgL_arg3751z00_1019);
}
{ /* BackEnd/init.scm 84 */
obj_t BgL_list3731z00_1001;
{ /* BackEnd/init.scm 84 */
obj_t BgL_arg3732z00_1002;
BgL_arg3732z00_1002 = MAKE_PAIR(BNIL, BNIL);
BgL_list3731z00_1001 =
MAKE_PAIR(BgL_arg3729z00_999,
BgL_arg3732z00_1002);
}
BgL_arg3727z00_997 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3728z00_998, BgL_list3731z00_1001);
}}
BgL_arg3709z00_979 =
MAKE_PAIR(BgL_arg3726z00_996, BgL_arg3727z00_997);
}
else
{ /* BackEnd/init.scm 88 */
obj_t BgL_arg3755z00_1023;
obj_t BgL_arg3756z00_1024;
BgL_arg3755z00_1023 = CNST_TABLE_REF(((long) 15));
{ /* BackEnd/init.scm 88 */
obj_t BgL_arg3757z00_1025;
obj_t BgL_arg3758z00_1026;
{ /* BackEnd/init.scm 88 */
obj_t BgL_res3862z00_1508;
{ /* BackEnd/init.scm 88 */
obj_t BgL_symbolz00_1506;
BgL_symbolz00_1506 =
BGl_za2moduleza2z00zzmodule_modulez00;
{ /* BackEnd/init.scm 88 */
obj_t BgL_arg2063z00_1507;
BgL_arg2063z00_1507 =
SYMBOL_TO_STRING(BgL_symbolz00_1506);
BgL_res3862z00_1508 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2063z00_1507);
}}
BgL_arg3757z00_1025 = BgL_res3862z00_1508;
}
BgL_arg3758z00_1026 = CNST_TABLE_REF(((long) 16));
{ /* BackEnd/init.scm 88 */
obj_t BgL_list3760z00_1028;
{ /* BackEnd/init.scm 88 */
obj_t BgL_arg3761z00_1029;
BgL_arg3761z00_1029 = MAKE_PAIR(BNIL, BNIL);
BgL_list3760z00_1028 =
MAKE_PAIR(BgL_arg3758z00_1026,
BgL_arg3761z00_1029);
}
BgL_arg3756z00_1024 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3757z00_1025, BgL_list3760z00_1028);
}}
BgL_arg3709z00_979 =
MAKE_PAIR(BgL_arg3755z00_1023,
BgL_arg3756z00_1024);
}}
{ /* BackEnd/init.scm 81 */
obj_t BgL_list3711z00_981;
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3712z00_982;
{ /* BackEnd/init.scm 81 */
obj_t BgL_arg3713z00_983;
BgL_arg3713z00_983 = MAKE_PAIR(BNIL, BNIL);
BgL_arg3712z00_982 =
MAKE_PAIR(BgL_arg3709z00_979, BgL_arg3713z00_983);
}
BgL_list3711z00_981 =
MAKE_PAIR(BgL_ubodyz00_954, BgL_arg3712z00_982);
}
BgL_arg3707z00_977 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3708z00_978, BgL_list3711z00_981);
}}
BgL_bodyz00_955 =
MAKE_PAIR(BgL_arg3706z00_976, BgL_arg3707z00_977);
}
{ /* BackEnd/init.scm 79 */
BgL_localz00_bglt BgL_cvarz00_956;
BgL_cvarz00_956 =
BGl_makezd2localzd2svarz00zzast_localz00(CNST_TABLE_REF((
(long) 11)),
(BgL_typez00_bglt) (BGl_za2longza2z00zztype_cachez00));
{ /* BackEnd/init.scm 90 */
BgL_localz00_bglt BgL_nvarz00_957;
BgL_nvarz00_957 =
BGl_makezd2localzd2svarz00zzast_localz00(CNST_TABLE_REF((
(long) 16)),
(BgL_typez00_bglt) (BGl_za2stringza2z00zztype_cachez00));
{ /* BackEnd/init.scm 91 */
BgL_nodez00_bglt BgL_nodez00_958;
{ /* BackEnd/init.scm 92 */
obj_t BgL__z00_968;
BgL__z00_968 = BGl_za2_za2z00zztype_cachez00;
BGl_za2_za2z00zztype_cachez00 =
BGl_za2objza2z00zztype_cachez00;
{ /* BackEnd/init.scm 94 */
BgL_nodez00_bglt BgL_nodez00_969;
{ /* BackEnd/init.scm 95 */
BgL_nodez00_bglt BgL_arg3700z00_970;
{ /* BackEnd/init.scm 95 */
obj_t BgL_arg3701z00_971;
obj_t BgL_arg3703z00_973;
{ /* BackEnd/init.scm 95 */
obj_t BgL_list3704z00_974;
{ /* BackEnd/init.scm 95 */
obj_t BgL_arg3705z00_975;
BgL_arg3705z00_975 =
MAKE_PAIR((obj_t) (BgL_nvarz00_957), BNIL);
BgL_list3704z00_974 =
MAKE_PAIR(
(obj_t) (BgL_cvarz00_956),
BgL_arg3705z00_975);
}
BgL_arg3701z00_971 = BgL_list3704z00_974;
}
BgL_arg3703z00_973 = CNST_TABLE_REF(((long) 18));
BgL_arg3700z00_970 =
BGl_sexpzd2ze3nodez31zzast_sexpz00
(BgL_bodyz00_955, BgL_arg3701z00_971, BNIL,
BgL_arg3703z00_973);
}
BgL_nodez00_969 =
BGl_coercez12z12zzcoerce_coercez00
(BgL_arg3700z00_970, (obj_t) (BgL_reqz00_951),
(BgL_typez00_bglt)
(BGl_za2objza2z00zztype_cachez00), ((bool_t) 0));
}
BGl_za2_za2z00zztype_cachez00 = BgL__z00_968;
BgL_nodez00_958 = BgL_nodez00_969;
}}
{ /* BackEnd/init.scm 92 */
BgL_globalz00_bglt BgL_initz00_959;
{ /* BackEnd/init.scm 104 */
obj_t BgL_arg3692z00_960;
obj_t BgL_arg3693z00_961;
obj_t BgL_arg3694z00_962;
obj_t BgL_arg3695z00_963;
obj_t BgL_arg3696z00_964;
obj_t BgL_arg3697z00_965;
BgL_arg3692z00_960 =
BGl_modulezd2initializa7ationzd2idza7zzmodule_modulez00
(BGl_za2moduleza2z00zzmodule_modulez00);
BgL_arg3693z00_961 = CNST_TABLE_REF(((long) 19));
{ /* BackEnd/init.scm 106 */
obj_t BgL_list3698z00_966;
{ /* BackEnd/init.scm 106 */
obj_t BgL_arg3699z00_967;
BgL_arg3699z00_967 =
MAKE_PAIR((obj_t) (BgL_nvarz00_957), BNIL);
BgL_list3698z00_966 =
MAKE_PAIR(
(obj_t) (BgL_cvarz00_956), BgL_arg3699z00_967);
}
BgL_arg3694z00_962 = BgL_list3698z00_966;
}
BgL_arg3695z00_963 = CNST_TABLE_REF(((long) 20));
BgL_arg3696z00_964 = CNST_TABLE_REF(((long) 21));
BgL_arg3697z00_965 = CNST_TABLE_REF(((long) 2));
BgL_initz00_959 =
BGl_defzd2globalzd2sfunzd2nozd2warningz12z12zzast_glozd2defzd2
(BgL_arg3692z00_960, BgL_arg3693z00_961,
BgL_arg3694z00_962,
BGl_za2moduleza2z00zzmodule_modulez00,
BgL_arg3695z00_963, BgL_arg3696z00_964,
BgL_arg3697z00_965, (obj_t) (BgL_nodez00_958));
}
{ /* BackEnd/init.scm 103 */
BGl_setzd2variablezd2namez12z12zzbackend_cplibz00(
(BgL_variablez00_bglt) (BgL_reqz00_951));
{ /* BackEnd/init.scm 113 */
BgL_globalz00_bglt BgL_obj2026z00_1513;
obj_t BgL_val2025z00_1514;
BgL_obj2026z00_1513 = BgL_initz00_959;
BgL_val2025z00_1514 = CNST_TABLE_REF(((long) 22));
((((BgL_globalz00_bglt) CREF(BgL_obj2026z00_1513))->
BgL_importz00) =
((obj_t) BgL_val2025z00_1514), BUNSPEC);
}
{
BgL_typez00_bglt BgL_auxz00_1707;
BgL_variablez00_bglt BgL_auxz00_1705;
BgL_auxz00_1707 =
(BgL_typez00_bglt)
(BGl_za2objza2z00zztype_cachez00);
BgL_auxz00_1705 =
(BgL_variablez00_bglt) (BgL_initz00_959);
((((BgL_variablez00_bglt) CREF(BgL_auxz00_1705))->
BgL_typez00) =
((BgL_typez00_bglt) BgL_auxz00_1707), BUNSPEC);
}
BGl_occurzd2nodezd2inz12z12zzast_occurz00
(BgL_nodez00_958, BgL_initz00_959);
return BgL_initz00_959;
}
}
}
}
}
}
}
}
}
}
}
}