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 ) ); }