自学教程：C++ MAKE_PAIR函数代码示例

/* 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_tpasswd2list( 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_tget_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_tbgl_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_tbgl_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_tbglk_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;}