/* make-va-proto */
obj_t BGl_makezd2vazd2protoz00zztools_argsz00(obj_t BgL_nz00_184,
long BgL_countz00_185)
{
AN_OBJECT;
{ /* Tools/args.scm 162 */
if (((long) CINT(BgL_nz00_184) == ((long) -1)))
{ /* Tools/args.scm 159 */
return BGl_makezd2argszd2namez00zztools_argsz00(BgL_countz00_185);
}
else
{ /* Tools/args.scm 161 */
obj_t BgL_arg1567z00_188;
obj_t BgL_arg1568z00_189;
BgL_arg1567z00_188 =
BGl_makezd2argszd2namez00zztools_argsz00(BgL_countz00_185);
{ /* Tools/args.scm 162 */
long BgL_arg1570z00_190;
long BgL_arg1571z00_191;
BgL_arg1570z00_190 = ((long) CINT(BgL_nz00_184) + ((long) 1));
BgL_arg1571z00_191 = (BgL_countz00_185 + ((long) 1));
BgL_arg1568z00_189 =
BGl_makezd2vazd2protoz00zztools_argsz00(BINT(BgL_arg1570z00_190),
BgL_arg1571z00_191);
}
return MAKE_PAIR(BgL_arg1567z00_188, BgL_arg1568z00_189);
}
}
}
/* loop' */
obj_t BGl_loopz72z72zztools_argsz00(obj_t BgL_listz00_148,
obj_t BgL_arityz00_149)
{
AN_OBJECT;
{ /* Tools/args.scm 126 */
if (((long) CINT(BgL_arityz00_149) == ((long) -1)))
{ /* Tools/args.scm 128 */
return CAR(BgL_listz00_148);
}
else
{ /* Tools/args.scm 130 */
obj_t BgL_arg1543z00_152;
obj_t BgL_arg1544z00_153;
BgL_arg1543z00_152 = CAR(BgL_listz00_148);
{ /* Tools/args.scm 130 */
obj_t BgL_arg1545z00_154;
long BgL_arg1546z00_155;
BgL_arg1545z00_154 = CDR(BgL_listz00_148);
BgL_arg1546z00_155 = ((long) CINT(BgL_arityz00_149) + ((long) 1));
BgL_arg1544z00_153 =
BGl_loopz72z72zztools_argsz00(BgL_arg1545z00_154,
BINT(BgL_arg1546z00_155));
}
return MAKE_PAIR(BgL_arg1543z00_152, BgL_arg1544z00_153);
}
}
}
/* make-fx-proto */
obj_t BGl_makezd2fxzd2protoz00zztools_argsz00(obj_t BgL_nz00_192,
long BgL_countz00_193)
{
AN_OBJECT;
{ /* Tools/args.scm 167 */
if (((long) CINT(BgL_nz00_192) == ((long) 0)))
{ /* Tools/args.scm 164 */
return BNIL;
}
else
{ /* Tools/args.scm 166 */
obj_t BgL_arg1574z00_196;
obj_t BgL_arg1575z00_197;
BgL_arg1574z00_196 =
BGl_makezd2argszd2namez00zztools_argsz00(BgL_countz00_193);
{ /* Tools/args.scm 167 */
long BgL_arg1576z00_198;
long BgL_arg1577z00_199;
BgL_arg1576z00_198 = ((long) CINT(BgL_nz00_192) - ((long) 1));
BgL_arg1577z00_199 = (BgL_countz00_193 + ((long) 1));
BgL_arg1575z00_197 =
BGl_makezd2fxzd2protoz00zztools_argsz00(BINT(BgL_arg1576z00_198),
BgL_arg1577z00_199);
}
return MAKE_PAIR(BgL_arg1574z00_196, BgL_arg1575z00_197);
}
}
}
/* ********************************************************************* */
INT rpc_end_of_cycle(INT index, void *prpc_param[])
{
INT cycle_number = CINT(0);
INT event_number = CINT(1);
diag_print(2, "Cycle ended: RAM %d, event %d\n", cycle_number, event_number);
// first send out "fake" zero-length events for those cycles
// where we didn't participate
for(INT fake_evnum=last_event_number+1; fake_evnum < event_number;
fake_evnum++)
{
diag_print(2, "Sending fake catch-up event for %d\n", fake_evnum);
char fake_event[sizeof(EVENT_HEADER) + sizeof(BANK_HEADER)];
char *pevent = fake_event + sizeof(EVENT_HEADER);
rpc_flush_event();
bk_init32(pevent);
bm_compose_event((EVENT_HEADER *) fake_event, equipment[0].info.event_id, 0,
bk_size(pevent), fake_evnum);
bm_send_event(equipment[0].buffer_handle, fake_event,
sizeof(fake_event), SYNC);
bm_flush_cache(equipment[0].buffer_handle, SYNC);
}
event_ended = true;
last_cycle = cycle_number;
last_event_number = event_number;
return SUCCESS;
}
static void get_arc_point(float angle, float a, float b, int *x, int *y)
{
float c, s;
c = cos(angle) * a;
s = sin(angle) * b;
*x = CINT(c);
*y = CINT(s);
}
static mlval ml_collect_gen(mlval arg)
{
int number = CINT(arg);
if (number >= 0)
gc_collect_gen((unsigned int)number);
return MLUNIT;
}
/* _%get-mvalues-val */
obj_t BGl__z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(obj_t
BgL_envz00_906, obj_t BgL_nz00_907)
{
AN_OBJECT;
{ /* Ieee/control5.scm 78 */
{ /* Ieee/control5.scm 79 */
int BgL_nz00_927;
{ /* Ieee/control5.scm 79 */
obj_t BgL_auxz00_952;
if (INTEGERP(BgL_nz00_907))
{ /* Ieee/control5.scm 79 */
BgL_auxz00_952 = BgL_nz00_907;
}
else
{
obj_t BgL_auxz00_955;
BgL_auxz00_955 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 3056)),
BGl_string1523z00zz__r5_control_features_6_4z00,
BGl_string1522z00zz__r5_control_features_6_4z00, BgL_nz00_907);
FAILURE(BgL_auxz00_955, BFALSE, BFALSE);
}
BgL_nz00_927 = CINT(BgL_auxz00_952);
}
return BGL_MVALUES_VAL(BgL_nz00_927);
}
}
}
/* _%set-mvalues-val! */
obj_t BGl__z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(obj_t
BgL_envz00_908, obj_t BgL_nz00_909, obj_t BgL_oz00_910)
{
AN_OBJECT;
{ /* Ieee/control5.scm 84 */
{ /* Ieee/control5.scm 85 */
int BgL_nz00_928;
{ /* Ieee/control5.scm 85 */
obj_t BgL_auxz00_962;
if (INTEGERP(BgL_nz00_909))
{ /* Ieee/control5.scm 85 */
BgL_auxz00_962 = BgL_nz00_909;
}
else
{
obj_t BgL_auxz00_965;
BgL_auxz00_965 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 3343)),
BGl_string1524z00zz__r5_control_features_6_4z00,
BGl_string1522z00zz__r5_control_features_6_4z00, BgL_nz00_909);
FAILURE(BgL_auxz00_965, BFALSE, BFALSE);
}
BgL_nz00_928 = CINT(BgL_auxz00_962);
}
return BGL_MVALUES_VAL_SET(BgL_nz00_928, BgL_oz00_910);
}
}
}
/* +-arity */
BGL_EXPORTED_DEF obj_t BGl_zb2zd2arityz60zztools_argsz00(obj_t
BgL_arityz00_15, obj_t BgL_addz00_16)
{
AN_OBJECT;
{ /* Tools/args.scm 176 */
if (((long) CINT(BgL_arityz00_15) >= ((long) 0)))
{ /* Tools/args.scm 177 */
return
BINT(((long) CINT(BgL_addz00_16) + (long) CINT(BgL_arityz00_15)));
}
else
{ /* Tools/args.scm 177 */
return
BINT(((long) CINT(BgL_arityz00_15) - (long) CINT(BgL_addz00_16)));
}}
}
static mlval to_string(mlval arg)
{
char buffer[40];
size_t length;
mlval string;
double x = GETREAL (FIELD (arg,0));
int prec = CINT (FIELD (arg,1));
if (isnan(x))
strcpy (buffer,"nan");
else
if (is_infinity (x))
if (x > 0.0)
strcpy (buffer,"inf");
else strcpy (buffer,"~inf");
else
{
size_t i, plus = 0;
int point = 0;
sprintf(buffer, "%.*G", prec, x);
length = strlen(buffer);
for(i=0; i<length; ++i)
{
char c = buffer[i];
if(c == '-')
buffer[i] = '~';
else if(c == '.' || c == 'E')
point = 1;
else if(c == '+')
plus = i;
}
if(plus)
{
for(i=plus; i<length; ++i)
buffer[i] = buffer[i+1];
length--;
}
if(!point)
{
buffer[length++] = '.';
buffer[length++] = '0';
buffer[length] = '\0';
}
}
length = strlen (buffer);
string = allocate_string(length+1);
strcpy(CSTRING(string), buffer);
return(string);
}
static mlval load_exp (mlval arg)
{
int exp = CINT (FIELD (arg,0));
double man = GETREAL (FIELD (arg,1));
mlval result = allocate_real();
SETREAL (result,ldexp (man,exp));
return (result);
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF
obj_t
bgl_display_fixnum( obj_t o, obj_t op ) {
void *ostream = PORT_STREAM( op );
PRINTF1( op, 32, "%ld", CINT( o ) );
return op;
}
INT rpc_request_stop(INT index, void *prpc_param[])
{
INT crate_number = CINT(0);
INT event_number_in = CINT(1);
diag_print(2, "Crate %d requests end of block %d\n",
crate_number, event_number_in);
if(event_number_in != event_number) {
diag_print(0,
"Crate %d requests end of block %d--not the right event number (%d)\n",
crate_number, event_number_in, event_number);
return SUCCESS;
}
request_stop_event = event_number_in;
return SUCCESS;
}
/* _dsssl-arity-zero? */
obj_t BGl__dssslzd2arityzd2za7erozf3z54zztools_argsz00(obj_t BgL_envz00_293,
obj_t BgL_arityz00_294, obj_t BgL_argsz00_295)
{
AN_OBJECT;
{ /* Tools/args.scm 99 */
return
BBOOL(BGl_dssslzd2arityzd2za7erozf3z54zztools_argsz00(CINT
(BgL_arityz00_294), BgL_argsz00_295));
}
}
/* sound-arity? */
BGL_EXPORTED_DEF bool_t BGl_soundzd2arityzf3z21zztools_argsz00(obj_t
BgL_arityz00_9, obj_t BgL_argsz00_10)
{
AN_OBJECT;
{ /* Tools/args.scm 135 */
{ /* Tools/args.scm 136 */
long BgL_lenz00_157;
BgL_lenz00_157 = bgl_list_length(BgL_argsz00_10);
if (((long) CINT(BgL_arityz00_9) >= ((long) 0)))
{ /* Tools/args.scm 137 */
return ((long) CINT(BgL_arityz00_9) == BgL_lenz00_157);
}
else
{ /* Tools/args.scm 137 */
return
(NEG(
(long) CINT(BgL_arityz00_9)) <= (BgL_lenz00_157 + ((long) 1)));
}}}
}
INT rpc_ready_for_cycle(INT index, void *prpc_param[])
{
INT crate_number = CINT(0);
INT ram_cycle = CINT(1);
diag_print(2, "Crate %d is ready for a new cycle on ram=%d.\n",
crate_number, ram_cycle);
crate[crate_number].ready[ram_cycle] = TRUE;
#if 0
if(ram_cycle == 0) {
crate[crate_number].ready[1] = crate[crate_number].ready[2] = TRUE;
} else {
crate[crate_number].ready[ram_cycle] = TRUE;
}
#endif
return SUCCESS;
}
/* 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 mlval extend_int_to_word32(mlval argument)
{
unsigned item;
mlval result;
item = (unsigned)CINT(argument);
result = allocate_word32();
num_to_word32(item,result);
return(result);
}
/* global-arity */
BGL_EXPORTED_DEF long BGl_globalzd2arityzd2zztools_argsz00(obj_t
BgL_argsz00_1)
{
AN_OBJECT;
{ /* Tools/args.scm 37 */
{
long BgL_iz00_103;
obj_t BgL_az00_104;
{ /* Tools/args.scm 38 */
obj_t BgL_auxz00_352;
BgL_iz00_103 = ((long) 0);
BgL_az00_104 = BgL_argsz00_1;
BgL_zc3anonymousza31509ze3z83_105:
if (NULLP(BgL_az00_104))
{ /* Tools/args.scm 41 */
BgL_auxz00_352 = BINT(BgL_iz00_103);
}
else
{ /* Tools/args.scm 41 */
if (PAIRP(BgL_az00_104))
{ /* Tools/args.scm 43 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_104)))
{ /* Tools/args.scm 44 */
BgL_auxz00_352 =
BGl_dssslzd2arityzd2zztools_dssslz00(BgL_argsz00_1,
((bool_t) 1));
}
else
{
obj_t BgL_az00_364;
long BgL_iz00_362;
BgL_iz00_362 = (BgL_iz00_103 + ((long) 1));
BgL_az00_364 = CDR(BgL_az00_104);
BgL_az00_104 = BgL_az00_364;
BgL_iz00_103 = BgL_iz00_362;
goto BgL_zc3anonymousza31509ze3z83_105;
}
}
else
{ /* Tools/args.scm 43 */
BgL_auxz00_352 = BINT(NEG((BgL_iz00_103 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_352);
}}}
}
/* foreign-arity */
BGL_EXPORTED_DEF long BGl_foreignzd2arityzd2zztools_argsz00(obj_t
BgL_argsz00_3)
{
AN_OBJECT;
{ /* Tools/args.scm 81 */
{
long BgL_iz00_127;
obj_t BgL_az00_128;
{ /* Tools/args.scm 82 */
obj_t BgL_auxz00_392;
BgL_iz00_127 = ((long) 0);
BgL_az00_128 = BgL_argsz00_3;
BgL_zc3anonymousza31525ze3z83_129:
if (NULLP(BgL_az00_128))
{ /* Tools/args.scm 85 */
BgL_auxz00_392 = BINT(BgL_iz00_127);
}
else
{ /* Tools/args.scm 85 */
if (PAIRP(BgL_az00_128))
{ /* Tools/args.scm 87 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_128)))
{ /* Tools/args.scm 88 */
BgL_auxz00_392 =
BGl_errorz00zz__errorz00(CNST_TABLE_REF(((long) 0)),
BGl_string1580z00zztools_argsz00, BgL_argsz00_3);
}
else
{
obj_t BgL_az00_405;
long BgL_iz00_403;
BgL_iz00_403 = (BgL_iz00_127 + ((long) 1));
BgL_az00_405 = CDR(BgL_az00_128);
BgL_az00_128 = BgL_az00_405;
BgL_iz00_127 = BgL_iz00_403;
goto BgL_zc3anonymousza31525ze3z83_129;
}
}
else
{ /* Tools/args.scm 87 */
BgL_auxz00_392 = BINT(NEG((BgL_iz00_127 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_392);
}}}
}
/* args-list->args* */
BGL_EXPORTED_DEF obj_t BGl_argszd2listzd2ze3argsza2z41zztools_argsz00(obj_t
BgL_listz00_7, obj_t BgL_arityz00_8)
{
AN_OBJECT;
{ /* Tools/args.scm 119 */
if (((long) CINT(BgL_arityz00_8) >= ((long) 0)))
{ /* Tools/args.scm 121 */
return BgL_listz00_7;
}
else
{ /* Tools/args.scm 121 */
if (((long) CINT(BgL_arityz00_8) == ((long) -1)))
{ /* Tools/args.scm 123 */
return CAR(BgL_listz00_7);
}
else
{ /* Tools/args.scm 123 */
return
BGl_loopz72z72zztools_argsz00(BgL_listz00_7, BgL_arityz00_8);
}
}
}
}
/* local-arity */
BGL_EXPORTED_DEF long BGl_localzd2arityzd2zztools_argsz00(obj_t BgL_argsz00_2)
{
AN_OBJECT;
{ /* Tools/args.scm 59 */
{
long BgL_iz00_115;
obj_t BgL_az00_116;
{ /* Tools/args.scm 60 */
obj_t BgL_auxz00_372;
BgL_iz00_115 = ((long) 0);
BgL_az00_116 = BgL_argsz00_2;
BgL_zc3anonymousza31517ze3z83_117:
if (NULLP(BgL_az00_116))
{ /* Tools/args.scm 63 */
BgL_auxz00_372 = BINT(BgL_iz00_115);
}
else
{ /* Tools/args.scm 63 */
if (PAIRP(BgL_az00_116))
{ /* Tools/args.scm 65 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_116)))
{ /* Tools/args.scm 66 */
BgL_auxz00_372 =
BGl_dssslzd2arityzd2zztools_dssslz00(BgL_argsz00_2,
((bool_t) 0));
}
else
{
obj_t BgL_az00_384;
long BgL_iz00_382;
BgL_iz00_382 = (BgL_iz00_115 + ((long) 1));
BgL_az00_384 = CDR(BgL_az00_116);
BgL_az00_116 = BgL_az00_384;
BgL_iz00_115 = BgL_iz00_382;
goto BgL_zc3anonymousza31517ze3z83_117;
}
}
else
{ /* Tools/args.scm 65 */
BgL_auxz00_372 = BINT(NEG((BgL_iz00_115 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_372);
}}}
}
/* exec */
BGL_EXPORTED_DEF obj_t BGl_execz00zzcc_execz00(obj_t BgL_cmdz00_2,
bool_t BgL_comezd2backzd2_3, obj_t BgL_namez00_4)
{
AN_OBJECT;
{ /* Cc/exec.scm 48 */
{ /* Cc/exec.scm 49 */
bool_t BgL_testz00_146;
if (BgL_comezd2backzd2_3)
{ /* Cc/exec.scm 49 */
BgL_testz00_146 = ((bool_t) 1);
}
else
{ /* Cc/exec.scm 49 */
if (STRINGP(BGl_za2shellza2z00zzengine_paramz00))
{ /* Cc/exec.scm 49 */
BgL_testz00_146 = ((bool_t) 0);
}
else
{ /* Cc/exec.scm 49 */
BgL_testz00_146 = ((bool_t) 1);
}
}
if (BgL_testz00_146)
{ /* Cc/exec.scm 49 */
{ /* Cc/exec.scm 52 */
obj_t BgL_resz00_98;
{ /* Cc/exec.scm 52 */
obj_t BgL_list1518z00_100;
BgL_list1518z00_100 = MAKE_PAIR(BgL_cmdz00_2, BNIL);
BgL_resz00_98 = BGl_systemz00zz__osz00(BgL_list1518z00_100);
}
if (((long) CINT(BgL_resz00_98) == ((long) 0)))
{ /* Cc/exec.scm 53 */
return BgL_resz00_98;
}
else
{ /* Cc/exec.scm 53 */
return BGl_compilerzd2exitzd2zzinit_mainz00(BINT(((long) 1)));
}}}
else
{ /* Cc/exec.scm 49 */
return BGl_systemzf2killzf2zzcc_execz00(BgL_cmdz00_2);
}
}
}
}
/* make-n-proto */
BGL_EXPORTED_DEF obj_t BGl_makezd2nzd2protoz00zztools_argsz00(obj_t
BgL_nz00_14)
{
AN_OBJECT;
{ /* Tools/args.scm 155 */
if (((long) CINT(BgL_nz00_14) < ((long) 0)))
{ /* Tools/args.scm 168 */
return
BGl_makezd2vazd2protoz00zztools_argsz00(BgL_nz00_14, ((long) 0));
}
else
{ /* Tools/args.scm 168 */
return
BGl_makezd2fxzd2protoz00zztools_argsz00(BgL_nz00_14, ((long) 0));
}}
}
/* this dispatchers forwards RPC calls to the destination functions */
INT rpc_dispatch(INT index, void *prpc_param[])
{
INT status;
switch (index) {
case RPC_MYTEST:
status = rpc_mytest(CBYTE(0), CWORD(1), CINT(2), CFLOAT(3), CDOUBLE(4),
CPBYTE(5), CPWORD(6), CPINT(7), CPFLOAT(8), CPDOUBLE(9));
break;
default:
cm_msg(MERROR, "rpc_dispatch", "received unrecognized command");
}
return status;
}
/* _process-send-signal */
obj_t BGl__processzd2sendzd2signalz00zz__processz00(obj_t BgL_envz00_1484,
obj_t BgL_procz00_1485, obj_t BgL_signalz00_1486)
{
AN_OBJECT;
{ /* Llib/process.scm 177 */
{ /* Llib/process.scm 178 */
obj_t BgL_procz00_1539;
int BgL_signalz00_1540;
if (PROCESSP(BgL_procz00_1485))
{ /* Llib/process.scm 178 */
BgL_procz00_1539 = BgL_procz00_1485;
}
else
{
obj_t BgL_auxz00_1638;
BgL_auxz00_1638 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 7794)), BGl_string2211z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1485);
FAILURE(BgL_auxz00_1638, BFALSE, BFALSE);
}
{ /* Llib/process.scm 178 */
obj_t BgL_auxz00_1642;
if (INTEGERP(BgL_signalz00_1486))
{ /* Llib/process.scm 178 */
BgL_auxz00_1642 = BgL_signalz00_1486;
}
else
{
obj_t BgL_auxz00_1645;
BgL_auxz00_1645 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 7794)), BGl_string2211z00zz__processz00,
BGl_string2212z00zz__processz00, BgL_signalz00_1486);
FAILURE(BgL_auxz00_1645, BFALSE, BFALSE);
}
BgL_signalz00_1540 = CINT(BgL_auxz00_1642);
}
return c_process_send_signal(BgL_procz00_1539, BgL_signalz00_1540);
}
}
}
/* <anonymous:1904> */
obj_t BGl_zc3anonymousza31904ze3z83zz__rgc_configz00(obj_t BgL_envz00_1607,
obj_t BgL_xz00_1608)
{
AN_OBJECT;
{ /* Rgc/rgcconfig.scm 119 */
{
obj_t BgL_xz00_816;
{ /* Rgc/rgcconfig.scm 120 */
long BgL_auxz00_1751;
BgL_xz00_816 = BgL_xz00_1608;
BgL_auxz00_1751 = (toupper(((long) CINT(BgL_xz00_816))));
return BINT(BgL_auxz00_1751);
}
}
}
}
/* <anonymous:1907> */
obj_t BGl_zc3anonymousza31907ze3z83zz__rgc_configz00(obj_t BgL_envz00_1609,
obj_t BgL_xz00_1610)
{
AN_OBJECT;
{ /* Rgc/rgcconfig.scm 121 */
{
obj_t BgL_xz00_820;
{ /* Rgc/rgcconfig.scm 122 */
long BgL_auxz00_1757;
BgL_xz00_820 = BgL_xz00_1610;
BgL_auxz00_1757 = (tolower(((long) CINT(BgL_xz00_820))));
return BINT(BgL_auxz00_1757);
}
}
}
}
/*---------------------------------------------------------------------*/
BGL_EXPORTED_DEF
long
obj_to_cobj( obj_t obj ) {
if( INTEGERP( obj ) )
return (long)CINT( obj );
if( BOOLEANP( obj ) )
return (long)((long)CBOOL( obj ));
if( STRINGP( obj ) )
return (long)BSTRING_TO_STRING( obj );
if( CHARP( obj ) )
return (long)((long)CCHAR( obj ));
if( FOREIGNP( obj ) )
return (long)FOREIGN_TO_COBJ( obj );
if( REALP( obj ) )
return (long)the_failure( string_to_bstring( "obj->cobj" ),
string_to_bstring( "Can't cast a real to foreign" ),
obj);
else
return (long)the_failure( string_to_bstring( "obj->cobj" ),
string_to_bstring( "Illegal object type" ),
obj);
}
/* _%set-mvalues-number! */
obj_t BGl__z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00(obj_t
BgL_envz00_904, obj_t BgL_nz00_905)
{
AN_OBJECT;
{ /* Ieee/control5.scm 72 */
{ /* Ieee/control5.scm 73 */
int BgL_auxz00_940;
{ /* Ieee/control5.scm 73 */
int BgL_nz00_926;
{ /* Ieee/control5.scm 73 */
obj_t BgL_auxz00_941;
if (INTEGERP(BgL_nz00_905))
{ /* Ieee/control5.scm 73 */
BgL_auxz00_941 = BgL_nz00_905;
}
else
{
obj_t BgL_auxz00_944;
BgL_auxz00_944 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 2768)),
BGl_string1521z00zz__r5_control_features_6_4z00,
BGl_string1522z00zz__r5_control_features_6_4z00,
BgL_nz00_905);
FAILURE(BgL_auxz00_944, BFALSE, BFALSE);
}
BgL_nz00_926 = CINT(BgL_auxz00_941);
}
BgL_auxz00_940 = BGL_MVALUES_NUMBER_SET(BgL_nz00_926);
}
return BINT(BgL_auxz00_940);
}
}
}