• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

C++ MAKE_PAIR函数代码示例

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

本文整理汇总了C++中MAKE_PAIR函数的典型用法代码示例。如果您正苦于以下问题：C++ MAKE_PAIR函数的具体用法？C++ MAKE_PAIR怎么用？C++ MAKE_PAIR使用的例子？那么恭喜您, 这里精选的函数代码示例或许可以为您提供帮助。



在下文中一共展示了MAKE_PAIR函数的20个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于我们的系统推荐出更棒的C++代码示例。

示例1: BGl_cnstzd2initzd2zz__match_expandz00

/* 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);
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:31，代码来源:mexpand.c


示例2: BGl_innerzd2readzd2accesszd2filezd2zzread_accessz00

/* 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);
		}
	}
开发者ID:8l，项目名称:bigloo-llvm，代码行数:34，代码来源:access.c


示例3: BGl_argsza2zd2ze3argszd2listz41zztools_argsz00

/* 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;
						}
				}
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:29，代码来源:args.c


示例4: BGl_zc3anonymousza31945ze3z83zz__modulez00

/* <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);} } } 
}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:56，代码来源:module.c


示例5: BGl_writezd2schemezd2commentz00zzwrite_schemez00

/* 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);
							}
						}
				}
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:52，代码来源:scheme.c


示例6: BGl_cnstzd2initzd2zz__processz00

/* 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);
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:27，代码来源:process.c


示例7: GetModFilePath

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();	
}
开发者ID:c4bbage，项目名称:trochilus，代码行数:30，代码来源:common.cpp


示例8: BGl_makezd2vazd2protoz00zztools_argsz00

/* 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);
				}
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:33，代码来源:args.c


示例9: BGl_loopz72z72zztools_argsz00

/* 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);
				}
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:32，代码来源:args.c


示例10: BGl_makezd2fxzd2protoz00zztools_argsz00

/* 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);
				}
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:33，代码来源:args.c


示例11: BGl_zc3anonymousza31757ze3z83zzengine_linkz00

/* <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;
						}
				}
			}
		}
	}
开发者ID:8l，项目名称:bigloo-llvm，代码行数:48，代码来源:link.c


示例12: passwd2list

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;
   }
}
开发者ID:donaldsonjw，项目名称:bigloo，代码行数:27，代码来源:csystem.c


示例13: BGl_loadzd2producerzd2zzmodule_loadz00

/* 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);
						}
					}
			}
		}
	}
开发者ID:8l，项目名称:bigloo-llvm，代码行数:58，代码来源:load.c


示例14: BGl_enterzd2functionzd2zztools_errorz00

/* 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);
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:11，代码来源:error.c


示例15: get_trace_stack

/*---------------------------------------------------------------------*/
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 );
}
开发者ID:donaldsonjw，项目名称:bigloo，代码行数:21，代码来源:ctrace.c


示例16: BGl_loopz00zztools_argsz00

/* 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);
				}
		}
	}
开发者ID:mbrock，项目名称:bigloo-llvm，代码行数:42，代码来源:args.c


示例17: BGl_processzd2libzd2versionz00zzinit_libzd2dirzd2

/* 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);
								}
						}
					}
				}
			}
		}
	}
开发者ID:8l，项目名称:bigloo-llvm，代码行数:53，代码来源:lib_dir.c


示例18: BGl_setupzd2defaultzd2valuesz00zzinit_setrcz00

/* 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;
							}
					}
				}
			}
		}
	}
开发者ID:8l，项目名称:bigloo-llvm，代码行数:53，代码来源:setrc.c


示例19: bgl_dload

/*---------------------------------------------------------------------*/
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
}
开发者ID:donaldsonjw，项目名称:bigloo，代码行数:40，代码来源:cdlopen.c


示例20: bgl_bstring_to_symbol

/*---------------------------------------------------------------------*/
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;
      }
   }
}
开发者ID:donaldsonjw，项目名称:bigloo，代码行数:38，代码来源:symbol.c



注：本文中的MAKE_PAIR函数示例由纯净天空整理自Github/MSDocs等源码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
C++ MAKE_PAIR32函数代码示例发布时间：2022-05-30
下一篇：
C++ MAKE_NEW_GUID函数代码示例发布时间：2022-05-30
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap