/* 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;
}
}
}
obj_t
substring_to_symbol(obj_t str, const int beg, const int end)
{
const int total_len = str->string_t.length;
#if 0
printf("\nIn substring_to_symbol: %d %d '%.20s' %x\n",beg,end,BSTRING_TO_STRING(str),BSTRING_TO_STRING(str));
#endif
assert( beg >= 0 && beg < total_len );
if( end == total_len )
return string_to_symbol(&STRING_REF( str, beg ));
assert( end >= 0 && end < total_len );
{
char * name = BSTRING_TO_STRING(str);
const char c = name[end]; /* Save the character at name[end] */
obj_t symb;
name[end] = '\0'; /* Forcibly terminate the string */
symb = string_to_symbol(name+beg);
name[end] = c; /* Restore the char name[end] */
return symb;
}
}
/* <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;} } } } }
}
/* 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 ) );
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF
obj_t
bgl_display_substring( obj_t o, long start, long end, obj_t op ) {
return bgl_write( op, &STRING_REF( o, start ), end - start );
}
