当前位置: 首页>>代码示例>>C++>>正文

C++ MAKE_PAIR函数代码示例

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


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


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