int equal_p(object o1, object o2) {
if (eqv_p(o1,o2)) return 1;
if (PAIR_P(o1)) {
return PAIR_P(o2)&&equal_p(CAR(o1),CAR(o2))&&equal_p(CDR(o1),CDR(o2));
} else if (VECTOR_P(o1)) {
if (VECTOR_P(o2)) {
long max = VECTOR_LENGTH(o1);
if (max == VECTOR_LENGTH(o2)) {
object *e1 = VECTOR_ELEMENTS(o1), *e2 = VECTOR_ELEMENTS(o2);
long i;
for (i=0; i<max; i++)
if (!equal_p(e1[i],e2[i]))
return 0;
return 1;
}
}
} else if (STRING_P(o1)) {
if (STRING_P(o2)) {
long max = STRING_LENGTH(o1);
if (max == STRING_LENGTH(o2)) {
char *p1 = STRING_VALUE(o1);
char *p2 = STRING_VALUE(o2);
while (*p1 && *p2) {
if (*p1++ != *p2++) return 0;
}
return (*p1 == *p2);
}
}
}
return 0;
}
/*---------------------------------------------------------------------*/
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;
}
static void *
arg_host (unsigned int arg)
{
CHECK_ARG (arg, STRING_P);
if ((STRING_LENGTH (ARG_REF (arg))) != (OS_host_address_length ()))
error_bad_range_arg (arg);
return (STRING_POINTER (ARG_REF (arg)));
}
/*---------------------------------------------------------------------*/
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;
}
static void primop_string_ref(long argc) {
object s = *sp++;
long i = the_long(2,*sp);
TYPE_CHECK(STRING_P(s),1,"string",s);
if (i >= STRING_LENGTH(s))
error(*sp,"index out of range");
*sp = make_character(STRING_VALUE(s)[i]);
}
/*---------------------------------------------------------------------*/
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;
}
static datum
arg_datum (int arg)
{
datum d;
CHECK_ARG (arg, STRING_P);
(d . dptr) = (STRING_POINTER (ARG_REF (arg)));
(d . dsize) = (STRING_LENGTH (ARG_REF (arg)));
return (d);
}
static void primop_string_set(long argc) {
object s = *sp;
long i = the_long(2,sp[1]);
char c = the_char(3,sp[2]);
TYPE_CHECK(STRING_P(s),1,"string",s);
if (i >= STRING_LENGTH(s))
error(sp[1],"index out of range");
STRING_VALUE(s)[i] = c;
sp += 2;
}
object make_string_of_size(long length, int zero) {
long i;
object s = make_heap_object(STRING_TYPE,
sizeof(struct string_heap_structure) +
length + 1);
STRING_LENGTH(s) = length;
if (zero)
for (i=0; i<=length; i++) STRING_VALUE(s)[i] = '\0';
else
STRING_VALUE(s)[length] = '\0';
return s;
}
static void primop_string_to_list(long argc) {
long i;
object result = null_object;
PUSH_GC_PROTECT(result);
TYPE_CHECK(STRING_P(sp[0]),1,"string", sp[0]);
i = STRING_LENGTH(sp[0]);
while (i--) {
char c = STRING_VALUE(sp[0])[i];
result = cons(make_character(c),result);
}
POP_GC_PROTECT(1);
*sp = result;
}
/* unprof-src-name */
BGL_EXPORTED_DEF obj_t BGl_unprofzd2srczd2namez00zzengine_linkz00(obj_t
BgL_namez00_1)
{
AN_OBJECT;
{ /* Engine/link.scm 71 */
if (CBOOL(BGl_za2profilezd2modeza2zd2zzengine_paramz00))
{ /* Engine/link.scm 74 */
long BgL_lenz00_218;
BgL_lenz00_218 = STRING_LENGTH(BgL_namez00_1);
{ /* Engine/link.scm 75 */
bool_t BgL_testz00_614;
if ((BgL_lenz00_218 > ((long) 2)))
{ /* Engine/link.scm 75 */
if (
(STRING_REF(BgL_namez00_1,
(BgL_lenz00_218 - ((long) 1))) == ((unsigned char) 'p')))
{ /* Engine/link.scm 76 */
BgL_testz00_614 =
(STRING_REF(BgL_namez00_1,
(BgL_lenz00_218 - ((long) 2))) ==
((unsigned char) '_'));
}
else
{ /* Engine/link.scm 76 */
BgL_testz00_614 = ((bool_t) 0);
}
}
else
{ /* Engine/link.scm 75 */
BgL_testz00_614 = ((bool_t) 0);
}
if (BgL_testz00_614)
{ /* Engine/link.scm 75 */
return
c_substring(BgL_namez00_1, ((long) 0),
(BgL_lenz00_218 - ((long) 2)));
}
else
{ /* Engine/link.scm 75 */
return BgL_namez00_1;
}
}
}
else
{ /* Engine/link.scm 72 */
return BgL_namez00_1;
}
}
}
static void primop_string_append(long argc) {
long i, len = 0;
object s, result;
char *rp;
for (i=0; i<argc; i++) {
s = sp[i];
TYPE_CHECK(STRING_P(s),i+1,"string",s);
len += STRING_LENGTH(s);
}
result = make_string_of_size(len,0);
rp = STRING_VALUE(result);
for (i=0; i<argc; i++) {
char *p = STRING_VALUE(sp[i]);
while (*p) *rp++ = *p++;
}
*rp = '\0';
sp += argc;
*--sp = result;
}
static void primop_substring(long argc) {
object s = sp[0], result;
long start = the_long(2,sp[1]), end = the_long(3,sp[2]);
long i, len;
char *rp, *p;
TYPE_CHECK(STRING_P(s),1,"string",s);
len = STRING_LENGTH(s);
if (start < 0 || start > len)
error(sp[1],"starting index of range");
if (end < start || end > len)
error(sp[1],"ending index of range");
result = make_string_of_size(end-start,0);
p = STRING_VALUE(sp[0]);
rp = STRING_VALUE(result);
p += start;
for (i=start; i < end; i++) {
*rp++ = *p++;
}
*rp = '\0';
sp += 2;
*sp = result;
}
/*---------------------------------------------------------------------*/
obj_t
bgl_seconds_format( long sec, obj_t fmt ) {
char *buffer;
struct tm *p;
int len = (int)STRING_LENGTH( fmt ) + 256;
buffer = (char *)GC_MALLOC_ATOMIC( len + 1 );
bgl_mutex_lock( date_mutex );
p = localtime( (time_t *)&sec );
bgl_mutex_unlock( date_mutex );
len = (int)strftime( buffer, len, BSTRING_TO_STRING( fmt ), p );
if( len > 0 )
return string_to_bstring_len( buffer, len );
else {
C_FAILURE( "seconds-format", "buffer too short!", BINT( 256 ) );
return BUNSPEC;
}
}
/*---------------------------------------------------------------------*/
obj_t
bstring_to_symbol( obj_t name ) {
return bgl_bstring_to_symbol(
____string_to_bstring_len(
BSTRING_TO_STRING( name ), STRING_LENGTH( name ) ) );
}
/* <anonymous:1965> */
obj_t BGl_zc3anonymousza31965ze3z83zz__modulez00(obj_t BgL_envz00_1666, obj_t BgL_fz00_1668)
{ AN_OBJECT;
{ /* Llib/module.scm 213 */
{ /* Llib/module.scm 214 */
obj_t BgL_abasez00_1667;
BgL_abasez00_1667 =
PROCEDURE_REF(BgL_envz00_1666,
(int)(((long)0)));
{
obj_t BgL_fz00_896;
BgL_fz00_896 = BgL_fz00_1668;
{
obj_t BgL_fz00_903;obj_t BgL_abasez00_904;
BgL_fz00_903 = BgL_fz00_896;
BgL_abasez00_904 = BgL_abasez00_1667;
if(
STRINGP(BgL_fz00_903))
{ /* Llib/module.scm 203 */
bool_t BgL_testz00_2175;
if(
bigloo_strcmp(BgL_fz00_903, BGl_string2367z00zz__modulez00))
{ /* Llib/module.scm 203 */
BgL_testz00_2175 = ((bool_t)1)
; } else
{ /* Llib/module.scm 203 */
unsigned char BgL_arg1972z00_909;obj_t BgL_arg1973z00_910;
{ /* Llib/module.scm 203 */
obj_t BgL_s2257z00_1669;
BgL_s2257z00_1669 = BgL_fz00_903;
{ /* Llib/module.scm 203 */
long BgL_l2259z00_1671;
BgL_l2259z00_1671 =
STRING_LENGTH(BgL_s2257z00_1669);
if(
BOUND_CHECK(((long)0), BgL_l2259z00_1671))
{ /* Llib/module.scm 203 */
BgL_arg1972z00_909 =
STRING_REF(BgL_s2257z00_1669, ((long)0)); } else
{
obj_t BgL_auxz00_2182;
BgL_auxz00_2182 =
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7865)), BGl_string2368z00zz__modulez00,
BINT(((long)0)), BgL_s2257z00_1669);
FAILURE(BgL_auxz00_2182,BFALSE,BFALSE);} } }
BgL_arg1973z00_910 =
BGl_filezd2separatorzd2zz__osz00();
{ /* Llib/module.scm 203 */
unsigned char BgL_char2z00_1445;
{ /* Llib/module.scm 203 */
obj_t BgL_auxz00_2188;
if(
CHARP(BgL_arg1973z00_910))
{ /* Llib/module.scm 203 */
BgL_auxz00_2188 = BgL_arg1973z00_910
; } else
{
obj_t BgL_auxz00_2191;
BgL_auxz00_2191 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7897)), BGl_string2369z00zz__modulez00, BGl_string2370z00zz__modulez00, BgL_arg1973z00_910);
FAILURE(BgL_auxz00_2191,BFALSE,BFALSE);}
BgL_char2z00_1445 =
CCHAR(BgL_auxz00_2188); }
BgL_testz00_2175 =
(BgL_arg1972z00_909==BgL_char2z00_1445); } }
if(BgL_testz00_2175)
{ /* Llib/module.scm 203 */
return BgL_fz00_903;} else
{ /* Llib/module.scm 204 */
obj_t BgL_auxz00_2197;
if(
STRINGP(BgL_abasez00_904))
{ /* Llib/module.scm 204 */
BgL_auxz00_2197 = BgL_abasez00_904
; } else
{
obj_t BgL_auxz00_2200;
BgL_auxz00_2200 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7928)), BGl_string2369z00zz__modulez00, BGl_string2355z00zz__modulez00, BgL_abasez00_904);
FAILURE(BgL_auxz00_2200,BFALSE,BFALSE);}
return
BGl_makezd2filezd2namez00zz__osz00(BgL_auxz00_2197, BgL_fz00_903);} } else
{ /* Llib/module.scm 202 */
return BgL_fz00_903;} } } } }
}
static void primop_string_length(long argc) {
object o = *sp;
TYPE_CHECK(STRING_P(o),1,"string",o);
*sp = MAKE_FIXNUM(STRING_LENGTH(o));
}
/* 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);
}
}
}
}
}
}
}
/* display-to-column */
obj_t BGl_displayzd2tozd2columnz00zzwrite_versionz00(obj_t BgL_stringz00_2,
long BgL_columnz00_3, unsigned char BgL_charz00_4)
{
AN_OBJECT;
{ /* Write/version.scm 89 */
{ /* Write/version.scm 90 */
obj_t BgL_arg1565z00_146;
{ /* Write/version.scm 90 */
obj_t BgL_res1582z00_206;
{ /* Write/version.scm 90 */
obj_t BgL_auxz00_360;
BgL_auxz00_360 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1582z00_206 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_360);
}
BgL_arg1565z00_146 = BgL_res1582z00_206;
}
bgl_display_obj(BgL_stringz00_2, BgL_arg1565z00_146);
}
{ /* Write/version.scm 91 */
long BgL_g1509z00_147;
BgL_g1509z00_147 = (((long) 1) + STRING_LENGTH(BgL_stringz00_2));
{
long BgL_lz00_149;
BgL_lz00_149 = BgL_g1509z00_147;
BgL_zc3anonymousza31566ze3z83_150:
if ((BgL_lz00_149 == BgL_columnz00_3))
{ /* Write/version.scm 92 */
return CNST_TABLE_REF(((long) 1));
}
else
{ /* Write/version.scm 92 */
{ /* Write/version.scm 95 */
obj_t BgL_arg1568z00_152;
{ /* Write/version.scm 95 */
obj_t BgL_res1583z00_213;
{ /* Write/version.scm 95 */
obj_t BgL_auxz00_369;
BgL_auxz00_369 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1583z00_213 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_369);
}
BgL_arg1568z00_152 = BgL_res1583z00_213;
}
bgl_display_char(BgL_charz00_4, BgL_arg1568z00_152);
}
{
long BgL_lz00_373;
BgL_lz00_373 = (BgL_lz00_149 + ((long) 1));
BgL_lz00_149 = BgL_lz00_373;
goto BgL_zc3anonymousza31566ze3z83_150;
}
}
}
}
}
}
/* version */
BGL_EXPORTED_DEF obj_t BGl_versionz00zzwrite_versionz00()
{
AN_OBJECT;
{ /* Write/version.scm 37 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1584z00zzwrite_versionz00, ((long) 79),
((unsigned char) '-'));
{ /* Write/version.scm 39 */
obj_t BgL_arg1515z00_92;
{ /* Write/version.scm 39 */
obj_t BgL_res1575z00_164;
{ /* Write/version.scm 39 */
obj_t BgL_auxz00_265;
BgL_auxz00_265 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1575z00_164 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_265);
}
BgL_arg1515z00_92 = BgL_res1575z00_164;
}
bgl_display_char(((unsigned char) '\n'), BgL_arg1515z00_92);
}
{ /* Write/version.scm 40 */
obj_t BgL_arg1517z00_94;
obj_t BgL_arg1518z00_95;
obj_t BgL_arg1519z00_96;
if (
(STRING_REF(BGl_za2bigloozd2dateza2zd2zzengine_paramz00,
((long) 0)) == ((unsigned char) ' ')))
{ /* Write/version.scm 43 */
long BgL_arg1529z00_105;
BgL_arg1529z00_105 =
STRING_LENGTH(BGl_za2bigloozd2dateza2zd2zzengine_paramz00);
BgL_arg1517z00_94 =
c_substring(BGl_za2bigloozd2dateza2zd2zzengine_paramz00,
((long) 1), BgL_arg1529z00_105);
}
else
{ /* Write/version.scm 42 */
BgL_arg1517z00_94 = BGl_za2bigloozd2dateza2zd2zzengine_paramz00;
}
BgL_arg1518z00_95 =
string_append(BGl_string1585z00zzwrite_versionz00,
BGl_za2bigloozd2emailza2zd2zzengine_paramz00);
BgL_arg1519z00_96 =
string_append(BGl_string1586z00zzwrite_versionz00,
BGl_za2bigloozd2urlza2zd2zzengine_paramz00);
{ /* Write/version.scm 40 */
obj_t BgL_list1520z00_97;
{ /* Write/version.scm 40 */
obj_t BgL_arg1521z00_98;
{ /* Write/version.scm 40 */
obj_t BgL_arg1522z00_99;
{ /* Write/version.scm 40 */
obj_t BgL_arg1523z00_100;
{ /* Write/version.scm 40 */
obj_t BgL_arg1524z00_101;
{ /* Write/version.scm 40 */
obj_t BgL_arg1525z00_102;
BgL_arg1525z00_102 = MAKE_PAIR(BgL_arg1519z00_96, BNIL);
BgL_arg1524z00_101 =
MAKE_PAIR(BgL_arg1518z00_95, BgL_arg1525z00_102);
}
BgL_arg1523z00_100 =
MAKE_PAIR(BGl_za2bigloozd2authorza2zd2zzengine_paramz00,
BgL_arg1524z00_101);
}
BgL_arg1522z00_99 =
MAKE_PAIR(BgL_arg1517z00_94, BgL_arg1523z00_100);
}
BgL_arg1521z00_98 =
MAKE_PAIR(BGl_string1587z00zzwrite_versionz00,
BgL_arg1522z00_99);
}
BgL_list1520z00_97 =
MAKE_PAIR(BGl_za2bigloozd2nameza2zd2zzengine_paramz00,
BgL_arg1521z00_98);
}
BGl_horsez00zzwrite_versionz00(BgL_list1520z00_97);
}
}
if (((long) CINT(BGl_za2verboseza2z00zzengine_paramz00) >= ((long) 3)))
{ /* Write/version.scm 48 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1588z00zzwrite_versionz00, ((long) 78),
((unsigned char) '-'));
{ /* Write/version.scm 50 */
obj_t BgL_arg1532z00_108;
{ /* Write/version.scm 50 */
obj_t BgL_res1576z00_177;
{ /* Write/version.scm 50 */
obj_t BgL_auxz00_287;
BgL_auxz00_287 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1576z00_177 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_287);
}
BgL_arg1532z00_108 = BgL_res1576z00_177;
}
bgl_display_char(((unsigned char) '\n'), BgL_arg1532z00_108);
}
{ /* Write/version.scm 51 */
obj_t BgL_list1533z00_109;
{ /* Write/version.scm 51 */
obj_t BgL_arg1535z00_111;
BgL_arg1535z00_111 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1533z00_109 =
MAKE_PAIR(BGl_string1589z00zzwrite_versionz00,
BgL_arg1535z00_111);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1533z00_109);
}
{ /* Write/version.scm 52 */
obj_t BgL_list1536z00_112;
{ /* Write/version.scm 52 */
obj_t BgL_arg1538z00_114;
BgL_arg1538z00_114 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1536z00_112 =
MAKE_PAIR(BGl_string1590z00zzwrite_versionz00,
BgL_arg1538z00_114);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1536z00_112);
}
{ /* Write/version.scm 53 */
obj_t BgL_list1539z00_115;
{ /* Write/version.scm 53 */
obj_t BgL_arg1541z00_117;
BgL_arg1541z00_117 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1539z00_115 =
MAKE_PAIR(BGl_string1591z00zzwrite_versionz00,
BgL_arg1541z00_117);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1539z00_115);
}
{ /* Write/version.scm 54 */
obj_t BgL_list1542z00_118;
{ /* Write/version.scm 54 */
obj_t BgL_arg1544z00_120;
BgL_arg1544z00_120 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1542z00_118 =
MAKE_PAIR(BGl_string1592z00zzwrite_versionz00,
BgL_arg1544z00_120);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1542z00_118);
}}
else
{ /* Write/version.scm 48 */
BFALSE;
}
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1584z00zzwrite_versionz00, ((long) 79),
((unsigned char) '-'));
{ /* Write/version.scm 56 */
obj_t BgL_arg1545z00_121;
{ /* Write/version.scm 56 */
obj_t BgL_res1577z00_180;
{ /* Write/version.scm 56 */
obj_t BgL_auxz00_312;
BgL_auxz00_312 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1577z00_180 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_312);
}
BgL_arg1545z00_121 = BgL_res1577z00_180;
}
bgl_display_char(((unsigned char) '\n'), BgL_arg1545z00_121);
}
{ /* Write/version.scm 57 */
obj_t BgL_arg1546z00_122;
{ /* Write/version.scm 57 */
obj_t BgL_res1578z00_183;
{ /* Write/version.scm 57 */
obj_t BgL_auxz00_316;
BgL_auxz00_316 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1578z00_183 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_316);
}
BgL_arg1546z00_122 = BgL_res1578z00_183;
}
return bgl_display_char(((unsigned char) '\n'), BgL_arg1546z00_122);
}}
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF
obj_t
bgl_display_string( obj_t o, obj_t op ) {
return bgl_write( op, &STRING_REF( o, 0 ), STRING_LENGTH( o ) );
}
