/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__match_expandz00()
{
AN_OBJECT;
{ /* Match/mexpand.scm 26 */
BGl_symbol2306z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2307z00zz__match_expandz00);
BGl_symbol2309z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2310z00zz__match_expandz00);
BGl_list2308z00zz__match_expandz00 =
MAKE_PAIR(BGl_symbol2309z00zz__match_expandz00, BNIL);
BGl_list2305z00zz__match_expandz00 =
MAKE_PAIR(BGl_symbol2306z00zz__match_expandz00,
MAKE_PAIR(BGl_list2308z00zz__match_expandz00, BNIL));
BGl_symbol2312z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2313z00zz__match_expandz00);
BGl_symbol2314z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2315z00zz__match_expandz00);
BGl_symbol2316z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2317z00zz__match_expandz00);
BGl_symbol2319z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2320z00zz__match_expandz00);
BGl_symbol2322z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2323z00zz__match_expandz00);
BGl_list2321z00zz__match_expandz00 =
MAKE_PAIR(BGl_symbol2322z00zz__match_expandz00,
MAKE_PAIR(BGl_symbol2314z00zz__match_expandz00, BNIL));
return (BGl_symbol2324z00zz__match_expandz00 =
bstring_to_symbol(BGl_string2325z00zz__match_expandz00), BUNSPEC);
}
}
/* inner-read-access-file */
obj_t BGl_innerzd2readzd2accesszd2filezd2zzread_accessz00(obj_t
BgL_namez00_98)
{
AN_OBJECT;
{ /* Read/access.scm 28 */
{ /* Read/access.scm 28 */
obj_t BgL_list1518z00_100;
{ /* Read/access.scm 28 */
obj_t BgL_arg1520z00_102;
{ /* Read/access.scm 28 */
obj_t BgL_arg1521z00_103;
{ /* Read/access.scm 28 */
obj_t BgL_arg1523z00_105;
BgL_arg1523z00_105 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg1521z00_103 =
MAKE_PAIR(BGl_string1526z00zzread_accessz00,
BgL_arg1523z00_105);
}
BgL_arg1520z00_102 = MAKE_PAIR(BgL_namez00_98, BgL_arg1521z00_103);
}
BgL_list1518z00_100 =
MAKE_PAIR(BGl_string1527z00zzread_accessz00, BgL_arg1520z00_102);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list1518z00_100);
}
return BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(BgL_namez00_98);
}
}
/* args*->args-list */
BGL_EXPORTED_DEF obj_t BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(obj_t
BgL_expz00_6)
{
AN_OBJECT;
{ /* Tools/args.scm 106 */
if (NULLP(BgL_expz00_6))
{ /* Tools/args.scm 108 */
return BNIL;
}
else
{ /* Tools/args.scm 108 */
if (PAIRP(BgL_expz00_6))
{ /* Tools/args.scm 110 */
return
MAKE_PAIR(CAR(BgL_expz00_6),
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(CDR
(BgL_expz00_6)));
}
else
{ /* Tools/args.scm 111 */
obj_t BgL_list1538z00_144;
BgL_list1538z00_144 = MAKE_PAIR(BgL_expz00_6, BNIL);
return BgL_list1538z00_144;
}
}
}
}
/* <anonymous:1945> */
obj_t BGl_zc3anonymousza31945ze3z83zz__modulez00(obj_t BgL_envz00_1657, obj_t BgL_xz00_1658)
{ AN_OBJECT;
{ /* Llib/module.scm 187 */
{
obj_t BgL_xz00_862;
{ /* Llib/module.scm 188 */
bool_t BgL_auxz00_2079;
BgL_xz00_862 = BgL_xz00_1658;
{ /* Llib/module.scm 188 */
bool_t BgL_testz00_2080;
if(
PAIRP(BgL_xz00_862))
{ /* Llib/module.scm 188 */
bool_t BgL_testz00_2083;
{ /* Llib/module.scm 188 */
obj_t BgL_auxz00_2084;
BgL_auxz00_2084 =
CAR(BgL_xz00_862);
BgL_testz00_2083 =
SYMBOLP(BgL_auxz00_2084); }
if(BgL_testz00_2083)
{ /* Llib/module.scm 188 */
BgL_testz00_2080 =
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_xz00_862))
; } else
{ /* Llib/module.scm 188 */
BgL_testz00_2080 = ((bool_t)0)
; } } else
{ /* Llib/module.scm 188 */
BgL_testz00_2080 = ((bool_t)0)
; }
if(BgL_testz00_2080)
{ /* Llib/module.scm 188 */
BgL_auxz00_2079 = ((bool_t)1)
; } else
{ /* Llib/module.scm 188 */
{ /* Llib/module.scm 191 */
obj_t BgL_list1947z00_865;
{ /* Llib/module.scm 191 */
obj_t BgL_arg1948z00_866;obj_t BgL_arg1949z00_867;
BgL_arg1948z00_866 = BGl_symbol2360z00zz__modulez00;
{ /* Llib/module.scm 191 */
obj_t BgL_arg1951z00_869;
BgL_arg1951z00_869 =
MAKE_PAIR(BgL_xz00_862, BNIL);
BgL_arg1949z00_867 =
MAKE_PAIR(BGl_string2361z00zz__modulez00, BgL_arg1951z00_869); }
BgL_list1947z00_865 =
MAKE_PAIR(BgL_arg1948z00_866, BgL_arg1949z00_867); }
BGl_warningz00zz__errorz00(BgL_list1947z00_865); }
BgL_auxz00_2079 = ((bool_t)0); } }
return
BBOOL(BgL_auxz00_2079);} } }
}
/* write-scheme-comment */
BGL_EXPORTED_DEF obj_t BGl_writezd2schemezd2commentz00zzwrite_schemez00(obj_t
BgL_portz00_3, obj_t BgL_sexpz00_4)
{
AN_OBJECT;
{ /* Write/scheme.scm 34 */
if (NULLP(BgL_sexpz00_4))
{ /* Write/scheme.scm 36 */
bgl_display_string(BGl_string1527z00zzwrite_schemez00, BgL_portz00_3);
return bgl_display_char(((unsigned char) '\n'), BgL_portz00_3);
}
else
{ /* Write/scheme.scm 36 */
if (NULLP(CDR(BgL_sexpz00_4)))
{ /* Write/scheme.scm 38 */
bgl_display_string(BGl_string1525z00zzwrite_schemez00,
BgL_portz00_3);
bgl_display_obj(CAR(BgL_sexpz00_4), BgL_portz00_3);
return bgl_display_char(((unsigned char) '\n'), BgL_portz00_3);
}
else
{ /* Write/scheme.scm 41 */
obj_t BgL_runner1522z00_104;
{ /* Write/scheme.scm 41 */
obj_t BgL_list1518z00_100;
{ /* Write/scheme.scm 41 */
obj_t BgL_arg1520z00_102;
BgL_arg1520z00_102 = MAKE_PAIR(BgL_sexpz00_4, BNIL);
BgL_list1518z00_100 =
MAKE_PAIR(BGl_string1525z00zzwrite_schemez00,
BgL_arg1520z00_102);
}
BgL_runner1522z00_104 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_3,
BgL_list1518z00_100);
}
{ /* Write/scheme.scm 41 */
obj_t BgL_aux1521z00_103;
BgL_aux1521z00_103 = CAR(BgL_runner1522z00_104);
BgL_runner1522z00_104 = CDR(BgL_runner1522z00_104);
return
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_aux1521z00_103,
BgL_runner1522z00_104);
}
}
}
}
}
/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__processz00()
{
AN_OBJECT;
{ /* Llib/process.scm 15 */
BGl_keyword2217z00zz__processz00 =
bstring_to_keyword(BGl_string2218z00zz__processz00);
BGl_list2216z00zz__processz00 =
MAKE_PAIR(BGl_keyword2217z00zz__processz00, BNIL);
BGl_keyword2219z00zz__processz00 =
bstring_to_keyword(BGl_string2220z00zz__processz00);
BGl_keyword2223z00zz__processz00 =
bstring_to_keyword(BGl_string2224z00zz__processz00);
BGl_keyword2225z00zz__processz00 =
bstring_to_keyword(BGl_string2226z00zz__processz00);
BGl_keyword2227z00zz__processz00 =
bstring_to_keyword(BGl_string2228z00zz__processz00);
BGl_keyword2229z00zz__processz00 =
bstring_to_keyword(BGl_string2230z00zz__processz00);
BGl_keyword2231z00zz__processz00 =
bstring_to_keyword(BGl_string2232z00zz__processz00);
BGl_keyword2233z00zz__processz00 =
bstring_to_keyword(BGl_string2234z00zz__processz00);
return (BGl_keyword2235z00zz__processz00 =
bstring_to_keyword(BGl_string2236z00zz__processz00), BUNSPEC);
}
}
tstring GetModFilePath(LPCTSTR moduleName)
{
tstring binFilePath;
ModPathMap::iterator it = g_modulePath.find(moduleName);
if (it != g_modulePath.end())
{
return it->second;
}
HMODULE hMod = NULL;
if (NULL != moduleName)
{
hMod = ::GetModuleHandle(moduleName);
}
TCHAR baseName[MAX_PATH] = {0};
DWORD dwBaseNameSize = GetModuleFileName(hMod, baseName, MAX_PATH);
while (dwBaseNameSize > 0 && baseName[dwBaseNameSize] != '\\')
{
dwBaseNameSize--;
}
baseName[dwBaseNameSize + 1] = '\0';
binFilePath = baseName;
g_modulePath.insert(MAKE_PAIR(ModPathMap,moduleName,binFilePath));
return g_modulePath[moduleName].c_str();
}
/* 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);
}
}
}
/* <anonymous:1757> */
obj_t BGl_zc3anonymousza31757ze3z83zzengine_linkz00(obj_t BgL_envz00_530,
obj_t BgL_clausesz00_531)
{
AN_OBJECT;
{ /* Engine/link.scm 126 */
{
obj_t BgL_clausesz00_347;
BgL_clausesz00_347 = BgL_clausesz00_531;
{
obj_t BgL_libsz00_349;
if (PAIRP(BgL_clausesz00_347))
{ /* Engine/link.scm 126 */
if ((CAR(BgL_clausesz00_347) == CNST_TABLE_REF(((long) 1))))
{ /* Engine/link.scm 126 */
BgL_libsz00_349 = CDR(BgL_clausesz00_347);
{ /* Engine/link.scm 128 */
obj_t BgL_arg1769z00_358;
obj_t BgL_arg1770z00_359;
BgL_arg1769z00_358 = CNST_TABLE_REF(((long) 2));
{ /* Engine/link.scm 128 */
obj_t BgL_list1771z00_360;
BgL_list1771z00_360 = MAKE_PAIR(BNIL, BNIL);
BgL_arg1770z00_359 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_clausesz00_347, BgL_list1771z00_360);
}
return MAKE_PAIR(BgL_arg1769z00_358, BgL_arg1770z00_359);
}
}
else
{ /* Engine/link.scm 126 */
return BFALSE;
}
}
else
{ /* Engine/link.scm 126 */
return BFALSE;
}
}
}
}
}
static obj_t
passwd2list( struct passwd *pw ) {
if( !pw ) {
return BFALSE;
} else {
obj_t res;
/* the shell */
res = MAKE_PAIR( string_to_bstring( pw->pw_shell ), BNIL );
/* the home directory */
res = MAKE_PAIR( string_to_bstring( pw->pw_dir ), res );
/* the real name */
#if BGL_HAVE_GECOS
res = MAKE_PAIR( string_to_bstring( pw->pw_gecos ), res );
#endif
/* the group id */
res = MAKE_PAIR( BINT( pw->pw_gid ), res );
/* the user id */
res = MAKE_PAIR( BINT( pw->pw_uid ), res );
/* the password */
res = MAKE_PAIR( string_to_bstring( pw->pw_passwd ), res );
/* the name */
res = MAKE_PAIR( string_to_bstring( pw->pw_name ), res );
return res;
}
}
/* load-producer */
obj_t BGl_loadzd2producerzd2zzmodule_loadz00(obj_t BgL_clausez00_1)
{
AN_OBJECT;
{ /* Module/load.scm 37 */
{
obj_t BgL_protosz00_394;
if (PAIRP(BgL_clausez00_1))
{ /* Module/load.scm 38 */
obj_t BgL_arg2139z00_399;
BgL_arg2139z00_399 = CDR(BgL_clausez00_1);
{ /* Module/load.scm 38 */
bool_t BgL_auxz00_671;
BgL_protosz00_394 = BgL_arg2139z00_399;
{
obj_t BgL_l2114z00_401;
BgL_l2114z00_401 = BgL_protosz00_394;
BgL_zc3anonymousza32140ze3z83_402:
if (PAIRP(BgL_l2114z00_401))
{ /* Module/load.scm 40 */
BGl_loadzd2parserzd2zzmodule_loadz00(CAR(BgL_l2114z00_401),
BgL_clausez00_1);
{
obj_t BgL_l2114z00_676;
BgL_l2114z00_676 = CDR(BgL_l2114z00_401);
BgL_l2114z00_401 = BgL_l2114z00_676;
goto BgL_zc3anonymousza32140ze3z83_402;
}
}
else
{ /* Module/load.scm 40 */
BgL_auxz00_671 = ((bool_t) 1);
}
}
return BBOOL(BgL_auxz00_671);
}
}
else
{ /* Module/load.scm 38 */
{ /* Module/load.scm 42 */
obj_t BgL_list2146z00_407;
BgL_list2146z00_407 = MAKE_PAIR(BNIL, BNIL);
return
BGl_userzd2errorzd2zztools_errorz00
(BGl_string2258z00zzmodule_loadz00,
BGl_string2259z00zzmodule_loadz00, BgL_clausez00_1,
BgL_list2146z00_407);
}
}
}
}
}
/* enter-function */
BGL_EXPORTED_DEF obj_t BGl_enterzd2functionzd2zztools_errorz00(obj_t
BgL_varz00_37)
{
AN_OBJECT;
{ /* Tools/error.scm 158 */
return (BGl_za2sfunzd2stackza2zd2zztools_errorz00 =
MAKE_PAIR(BgL_varz00_37, BGl_za2sfunzd2stackza2zd2zztools_errorz00),
BUNSPEC);
}
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF obj_t
get_trace_stack( int depth ) {
long level = 0L;
struct bgl_dframe *runner = BGL_ENV_GET_TOP_OF_FRAME( BGL_CURRENT_DYNAMIC_ENV() );
obj_t l = MAKE_PAIR( BNIL, BNIL );
obj_t r = l;
while( ((depth < 0) || (level < depth)) && runner ) {
if( SYMBOLP( runner->name ) ) {
obj_t p = MAKE_PAIR( runner->name, MAKE_PAIR( runner->location, BNIL ) );
SET_CDR( r, MAKE_PAIR( p, BNIL ) );
r = CDR( r );
level++;
}
runner = runner->link;
}
return CDR( l );
}
/* loop */
obj_t BGl_loopz00zztools_argsz00(obj_t BgL_nilz00_314, obj_t BgL_consz00_313,
obj_t BgL_argsz00_162)
{
AN_OBJECT;
{ /* Tools/args.scm 145 */
if (NULLP(BgL_argsz00_162))
{ /* Tools/args.scm 146 */
return BgL_nilz00_314;
}
else
{ /* Tools/args.scm 148 */
obj_t BgL_arg1552z00_165;
{ /* Tools/args.scm 148 */
obj_t BgL_arg1553z00_166;
obj_t BgL_arg1554z00_167;
BgL_arg1553z00_166 = CAR(BgL_argsz00_162);
BgL_arg1554z00_167 =
BGl_loopz00zztools_argsz00(BgL_nilz00_314, BgL_consz00_313,
CDR(BgL_argsz00_162));
{ /* Tools/args.scm 148 */
obj_t BgL_list1556z00_169;
{ /* Tools/args.scm 148 */
obj_t BgL_arg1557z00_170;
BgL_arg1557z00_170 = MAKE_PAIR(BNIL, BNIL);
BgL_list1556z00_169 =
MAKE_PAIR(BgL_arg1554z00_167, BgL_arg1557z00_170);
}
BgL_arg1552z00_165 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1553z00_166,
BgL_list1556z00_169);
}
}
return MAKE_PAIR(BgL_consz00_313, BgL_arg1552z00_165);
}
}
}
/* process-lib-version */
obj_t BGl_processzd2libzd2versionz00zzinit_libzd2dirzd2(obj_t BgL_pz00_4,
obj_t BgL_fz00_5)
{
AN_OBJECT;
{ /* Init/lib_dir.scm 39 */
{ /* Init/lib_dir.scm 40 */
obj_t BgL_libzd2versionzd2_106;
BgL_libzd2versionzd2_106 =
BGl_safezd2readzd2zzinit_libzd2dirzd2(BgL_pz00_4,
CNST_TABLE_REF(((long) 0)), BgL_fz00_5);
{ /* Init/lib_dir.scm 40 */
obj_t BgL_libzd2specificzd2versionz00_107;
BgL_libzd2specificzd2versionz00_107 =
BGl_safezd2readzd2zzinit_libzd2dirzd2(BgL_pz00_4,
CNST_TABLE_REF(((long) 0)), BgL_fz00_5);
{ /* Init/lib_dir.scm 41 */
{ /* Init/lib_dir.scm 42 */
bool_t BgL_testz00_221;
if (bigloo_strcmp(BGl_za2bigloozd2versionza2zd2zzengine_paramz00,
BgL_libzd2versionzd2_106))
{ /* Init/lib_dir.scm 42 */
BgL_testz00_221 =
bigloo_strcmp
(BGl_za2bigloozd2specificzd2versionza2z00zzengine_paramz00,
BgL_libzd2specificzd2versionz00_107);
}
else
{ /* Init/lib_dir.scm 42 */
BgL_testz00_221 = ((bool_t) 0);
}
if (BgL_testz00_221)
{ /* Init/lib_dir.scm 42 */
return BFALSE;
}
else
{ /* Init/lib_dir.scm 46 */
obj_t BgL_list1518z00_109;
BgL_list1518z00_109 =
MAKE_PAIR(BGl_string1534z00zzinit_libzd2dirzd2, BNIL);
return BGl_warningz00zz__errorz00(BgL_list1518z00_109);
}
}
}
}
}
}
}
/* setup-default-values */
BGL_EXPORTED_DEF obj_t BGl_setupzd2defaultzd2valuesz00zzinit_setrcz00()
{
AN_OBJECT;
{ /* Init/setrc.scm 25 */
{ /* Init/setrc.scm 26 */
obj_t BgL_pathz00_87;
{ /* Init/setrc.scm 26 */
obj_t BgL_homez00_91;
BgL_homez00_91 =
BGl_getenvz00zz__osz00(BSTRING_TO_STRING
(BGl_string1523z00zzinit_setrcz00));
if (STRINGP(BgL_homez00_91))
{ /* Init/setrc.scm 27 */
BgL_pathz00_87 =
MAKE_PAIR(BgL_homez00_91,
BGl_za2libzd2dirza2zd2zzengine_paramz00);
}
else
{ /* Init/setrc.scm 27 */
BgL_pathz00_87 = BGl_za2libzd2dirza2zd2zzengine_paramz00;
}
}
{ /* Init/setrc.scm 26 */
obj_t BgL_fnamez00_88;
BgL_fnamez00_88 =
BGl_findzd2filezf2pathz20zz__osz00(BGl_string1524z00zzinit_setrcz00,
BgL_pathz00_87);
{ /* Init/setrc.scm 30 */
if (CBOOL(BgL_fnamez00_88))
{ /* Init/setrc.scm 32 */
obj_t BgL_envz00_90;
BgL_envz00_90 = BGl_defaultzd2environmentzd2zz__evalz00();
{ /* Init/setrc.scm 32 */
return
BGl_loadqz00zz__evalz00(BgL_fnamez00_88, BgL_envz00_90);
}
}
else
{ /* Init/setrc.scm 31 */
return BFALSE;
}
}
}
}
}
}
/*---------------------------------------------------------------------*/
obj_t
bgl_dload( char *filename, char *init_sym, char *init_mod ) {
#if !HAVE_DLOPEN
strcpy( dload_error, "Feature not supported" );
return __dload_noarch;
#else
void *handle = dlopen( filename, RTLD_LAZY | RTLD_GLOBAL );
obj_t p;
if( !handle ) {
char *error;
if( (error = dlerror()) != NULL ) {
strncpy( dload_error, error, DLOAD_ERROR_LEN );
} else {
strcpy( dload_error, "dlopen error" );
}
return __dload_error;
} else {
p = MAKE_PAIR( string_to_bstring( filename ), handle );
BGL_MUTEX_LOCK( dload_mutex );
dload_list = MAKE_PAIR( p, dload_list );
BGL_MUTEX_UNLOCK( dload_mutex );
if( *init_sym ) {
return dload_init_call( handle, init_sym );
}
if( *init_mod ) {
return dload_init_call( handle, init_mod );
}
return __dload_noinit;
}
#endif
}
/*---------------------------------------------------------------------*/
static obj_t
bgl_bstring_to_symbol( obj_t name ) {
long hash_number;
obj_t bucket;
char *cname = BSTRING_TO_STRING( name );
hash_number = ____get_hash_power_number( cname, SYMBOL_HASH_TABLE_SIZE_SHIFT );
bucket = VECTOR_REF( ____bgl_get_symtab(), hash_number );
if( NULLP( bucket ) ) {
obj_t symbol = make_symbol( name );
obj_t pair = MAKE_PAIR( symbol, BNIL );
VECTOR_SET( ____bgl_get_symtab(), hash_number, pair );
return symbol;
} else {
obj_t run = bucket, back = bucket;
while( !NULLP( run ) &&
SYMBOL( CAR( run ) ).string &&
!bigloo_strcmp( SYMBOL( CAR( run ) ).string, name ) )
back = run, run = CDR( run );
if( !NULLP( run ) ) {
return CAR( run );
}
else {
obj_t symbol = make_symbol( name );
obj_t pair = MAKE_PAIR( symbol, BNIL );
SET_CDR( back, pair );
return symbol;
}
}
}
/* 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;
}
}
}
}
}
}
/* 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);
}
}
}
}
/* duplicate-main-error */
obj_t BGl_duplicatezd2mainzd2errorz00zzmodule_mainz00(obj_t BgL_clausez00_5)
{
AN_OBJECT;
{ /* Module/main.scm 89 */
{ /* Module/main.scm 90 */
obj_t BgL_list2294z00_525;
BgL_list2294z00_525 = MAKE_PAIR(BNIL, BNIL);
return
BGl_userzd2errorzd2zztools_errorz00(BGl_string2380z00zzmodule_mainz00,
BGl_string2382z00zzmodule_mainz00, BgL_clausez00_5,
BgL_list2294z00_525);
}
}
}
/* dup */
obj_t BGl_dupz00zzexpand_assertz00(obj_t BgL_predz00_21)
{
AN_OBJECT;
{ /* Expand/assert.scm 77 */
if (PAIRP(BgL_predz00_21))
{ /* Expand/assert.scm 79 */
return
MAKE_PAIR(BGl_dupz00zzexpand_assertz00(CAR(BgL_predz00_21)),
BGl_dupz00zzexpand_assertz00(CDR(BgL_predz00_21)));
}
else
{ /* Expand/assert.scm 79 */
return BgL_predz00_21;
}
}
}
/* early-with-clauses */
BGL_EXPORTED_DEF obj_t BGl_earlyzd2withzd2clausesz00zzmodule_withz00()
{
AN_OBJECT;
{ /* Module/with.scm 109 */
{ /* Module/with.scm 110 */
obj_t BgL_arg1584z00_176;
obj_t BgL_arg1585z00_177;
BgL_arg1584z00_176 = CNST_TABLE_REF(((long) 0));
BgL_arg1585z00_177 =
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BGl_za2earlyzd2withzd2modulesza2z00zzengine_paramz00, BNIL);
return MAKE_PAIR(BgL_arg1584z00_176, BgL_arg1585z00_177);
}
}
}
void ClientControlPanelManager::AddWorkThread(LPCTSTR clientid,DWORD id)
{
m_mapSection.Enter();
{
ThreadIdMap::iterator it = m_threadList.find(clientid);
if (it != m_threadList.end())
{
it->second.push_back(id);
}
else
{
ThreadIdList list;
list.push_back(id);
m_threadList.insert(MAKE_PAIR(ThreadIdMap,clientid,list));
}
}
m_mapSection.Leave();
}
/* process-lib-dir-parameter */
BGL_EXPORTED_DEF obj_t
BGl_processzd2libzd2dirzd2parameterzd2zzinit_libzd2dirzd2(obj_t
BgL_paramz00_9)
{
AN_OBJECT;
{ /* Init/lib_dir.scm 76 */
{ /* Init/lib_dir.scm 77 */
obj_t BgL_dirz00_134;
BgL_dirz00_134 =
BGl_filezd2namezd2canonicaliza7ez12zb5zz__osz00(BgL_paramz00_9);
if (directoryp(BSTRING_TO_STRING(BgL_dirz00_134)))
{ /* Init/lib_dir.scm 78 */
BFALSE;
}
else
{ /* Init/lib_dir.scm 78 */
BGl_errorz00zz__errorz00(CNST_TABLE_REF(((long) 2)),
BGl_string1535z00zzinit_libzd2dirzd2, BgL_dirz00_134);
}
{ /* Init/lib_dir.scm 80 */
obj_t BgL_config_schz00_136;
BgL_config_schz00_136 =
BGl_makezd2filezd2pathz00zz__osz00(BgL_dirz00_134,
BGl_string1536z00zzinit_libzd2dirzd2, BNIL);
if (fexists(BSTRING_TO_STRING(BgL_config_schz00_136)))
{ /* Init/lib_dir.scm 81 */
BGl_readzd2config_schzd2zzinit_libzd2dirzd2
(BgL_config_schz00_136);
}
else
{ /* Init/lib_dir.scm 81 */
BFALSE;
}
return (BGl_za2libzd2dirza2zd2zzengine_paramz00 =
MAKE_PAIR(BgL_dirz00_134, BGl_za2libzd2dirza2zd2zzengine_paramz00),
BUNSPEC);
}
}
}
}
/* show-stat! */
bool_t BGl_showzd2statz12zc0zzinline_walkz00()
{
AN_OBJECT;
{ /* Inline/walk.scm 85 */
{ /* Inline/walk.scm 86 */
obj_t BgL_list3330z00_858;
{ /* Inline/walk.scm 86 */
obj_t BgL_arg3332z00_860;
{ /* Inline/walk.scm 86 */
obj_t BgL_arg3333z00_861;
BgL_arg3333z00_861 =
MAKE_PAIR(BGl_string3401z00zzinline_walkz00, BNIL);
BgL_arg3332z00_860 =
MAKE_PAIR(BGl_za2inlinedzd2callsza2zd2zzinline_walkz00,
BgL_arg3333z00_861);
}
BgL_list3330z00_858 =
MAKE_PAIR(BGl_string3402z00zzinline_walkz00, BgL_arg3332z00_860);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list3330z00_858);
}
{ /* Inline/walk.scm 87 */
obj_t BgL_list3334z00_862;
{ /* Inline/walk.scm 87 */
obj_t BgL_arg3336z00_864;
{ /* Inline/walk.scm 87 */
obj_t BgL_arg3337z00_865;
BgL_arg3337z00_865 =
MAKE_PAIR(BGl_string3401z00zzinline_walkz00, BNIL);
BgL_arg3336z00_864 =
MAKE_PAIR(BGl_za2nonzd2inlinedzd2callsza2z00zzinline_walkz00,
BgL_arg3337z00_865);
}
BgL_list3334z00_862 =
MAKE_PAIR(BGl_string3403z00zzinline_walkz00, BgL_arg3336z00_864);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list3334z00_862);
}
return ((bool_t) 1);
}
}
/* user-error */
BGL_EXPORTED_DEF obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t
BgL_procz00_28, obj_t BgL_mesz00_29, obj_t BgL_objz00_30,
obj_t BgL_continuez00_31)
{
AN_OBJECT;
{ /* Tools/error.scm 105 */
if (PAIRP(BgL_continuez00_31))
{ /* Tools/error.scm 107 */
obj_t BgL_arg3287z00_856;
obj_t BgL_arg3288z00_857;
obj_t BgL_arg3289z00_858;
BgL_arg3287z00_856 =
BGl_findzd2locationzd2zztools_locationz00(BgL_objz00_30);
BgL_arg3288z00_857 = BGl_shapez00zztools_shapez00(BgL_objz00_30);
BgL_arg3289z00_858 = CAR(BgL_continuez00_31);
{ /* Tools/error.scm 107 */
obj_t BgL_list3290z00_859;
BgL_list3290z00_859 = MAKE_PAIR(BgL_arg3289z00_858, BNIL);
return
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_arg3287z00_856,
BgL_procz00_28, BgL_mesz00_29, BgL_arg3288z00_857,
BgL_list3290z00_859);
}
}
else
{ /* Tools/error.scm 106 */
return
BGl_userzd2errorzf2locationz20zztools_errorz00
(BGl_findzd2locationzd2zztools_locationz00(BgL_objz00_30),
BgL_procz00_28, BgL_mesz00_29,
BGl_shapez00zztools_shapez00(BgL_objz00_30), BNIL);
}
}
}
/*---------------------------------------------------------------------*/
obj_t
bglk_gtk_container_children( GtkContainer *c ) {
GList *lst = gtk_container_children( c );
obj_t res = BNIL;
while( lst ) {
GtkObject *data;
GtkArg arg;
obj_t obj;
data = GTK_OBJECT( lst->data );
arg.name = "user_data";
gtk_object_arg_get( data, &arg, NULL );
obj = (( arg.type == GTK_TYPE_POINTER ) ?
(obj_t)GTK_VALUE_POINTER( arg ) :
BUNSPEC);
if( obj ) res = MAKE_PAIR( obj, res );
lst = lst->next;
}
return res;
}
