本文整理汇总了C++中PrintLongInteger函数的典型用法代码示例。如果您正苦于以下问题:C++ PrintLongInteger函数的具体用法?C++ PrintLongInteger怎么用?C++ PrintLongInteger使用的例子?那么恭喜您, 这里精选的函数代码示例或许可以为您提供帮助。
在下文中一共展示了PrintLongInteger函数的20个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于我们的系统推荐出更棒的C++代码示例。
示例1: PrintFactJNGetVar2
globle void PrintFactJNGetVar2(
void *theEnv,
const char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factGetVarJN2Call *hack;
hack = (struct factGetVarJN2Call *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,"(fact-jn-getvar-2");
EnvPrintRouter(theEnv,logicalName," p");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern + 1);
EnvPrintRouter(theEnv,logicalName," s");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);
if (hack->lhs)
{ EnvPrintRouter(theEnv,logicalName," L"); }
else if (hack->rhs)
{ EnvPrintRouter(theEnv,logicalName," R"); }
EnvPrintRouter(theEnv,logicalName,")");
#else
#if MAC_XCD
#pragma unused(theEnv)
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:Khenji55,项目名称:Computacion_UCLM,代码行数:28,代码来源:factprt.c
示例2: PrintFactPNConstant2
globle void PrintFactPNConstant2(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factConstantPN2Call *hack;
hack = (struct factConstantPN2Call *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,(char*)"(fact-pn-constant2 ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);
EnvPrintRouter(theEnv,logicalName,(char*)" ");
PrintLongInteger(theEnv,logicalName,(long long) hack->offset);
if (hack->testForEquality) EnvPrintRouter(theEnv,logicalName,(char*)" = ");
else EnvPrintRouter(theEnv,logicalName,(char*)" != ");
PrintAtom(theEnv,logicalName,GetFirstArgument()->type,GetFirstArgument()->value);
EnvPrintRouter(theEnv,logicalName,(char*)")");
#else
#endif
}
开发者ID:DrItanium,项目名称:AdventureEngine,代码行数:26,代码来源:factprt.c
示例3: PrintObjectGetVarJN2
static void PrintObjectGetVarJN2(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct ObjectMatchVar2 *hack;
hack = (struct ObjectMatchVar2 *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,"(obj-slot-quick-var ");
PrintLongInteger(theEnv,logicalName,(long) hack->whichPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->whichSlot)));
if (hack->fromBeginning)
{
EnvPrintRouter(theEnv,logicalName," B");
PrintLongInteger(theEnv,logicalName,(long) (hack->beginningOffset + 1));
}
if (hack->fromEnd)
{
EnvPrintRouter(theEnv,logicalName," E");
PrintLongInteger(theEnv,logicalName,(long) (hack->endOffset + 1));
}
EnvPrintRouter(theEnv,logicalName,")");
#else
#if MAC_MCW || IBM_MCW || MAC_XCD
#pragma unused(theEnv)
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:bitcababy,项目名称:ObjectiveCLIPS,代码行数:32,代码来源:objrtfnx.c
示例4: PrintFactJNGetVar3
globle void PrintFactJNGetVar3(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factGetVarJN3Call *hack;
hack = (struct factGetVarJN3Call *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,(char*)"(fact-jn-getvar-3 ");
if (hack->fromBeginning) EnvPrintRouter(theEnv,logicalName,(char*)"t ");
else EnvPrintRouter(theEnv,logicalName,(char*)"f ");
if (hack->fromEnd) EnvPrintRouter(theEnv,logicalName,(char*)"t ");
else EnvPrintRouter(theEnv,logicalName,(char*)"f ");
PrintLongInteger(theEnv,logicalName,(long long) hack->beginOffset);
EnvPrintRouter(theEnv,logicalName,(char*)" ");
PrintLongInteger(theEnv,logicalName,(long long) hack->endOffset);
EnvPrintRouter(theEnv,logicalName,(char*)" ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);
EnvPrintRouter(theEnv,logicalName,(char*)" p");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern + 1);
if (hack->lhs)
{ EnvPrintRouter(theEnv,logicalName,(char*)" L"); }
else if (hack->rhs)
{ EnvPrintRouter(theEnv,logicalName,(char*)" R"); }
EnvPrintRouter(theEnv,logicalName,(char*)")");
#else
#endif
}
开发者ID:DrItanium,项目名称:AdventureEngine,代码行数:33,代码来源:factprt.c
示例5: PrintFactPNGetVar3
globle void PrintFactPNGetVar3(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factGetVarPN3Call *hack;
hack = (struct factGetVarPN3Call *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,(char*)"(fact-pn-getvar-3 ");
if (hack->fromBeginning) EnvPrintRouter(theEnv,logicalName,(char*)"t ");
else EnvPrintRouter(theEnv,logicalName,(char*)"f ");
if (hack->fromEnd) EnvPrintRouter(theEnv,logicalName,(char*)"t B");
else EnvPrintRouter(theEnv,logicalName,(char*)"f B");
PrintLongInteger(theEnv,logicalName,(long long) hack->beginOffset);
EnvPrintRouter(theEnv,logicalName,(char*)" E");
PrintLongInteger(theEnv,logicalName,(long long) hack->endOffset);
EnvPrintRouter(theEnv,logicalName,(char*)" S");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);
EnvPrintRouter(theEnv,logicalName,(char*)")");
#else
#endif
}
开发者ID:DrItanium,项目名称:AdventureEngine,代码行数:25,代码来源:factprt.c
示例6: EnvArgRangeCheck
globle int EnvArgRangeCheck(
void *theEnv,
char *functionName,
int min,
int max)
{
int numberOfArguments;
numberOfArguments = EnvRtnArgCount(theEnv);
if ((numberOfArguments < min) || (numberOfArguments > max))
{
PrintErrorID(theEnv,"ARGACCES",1,FALSE);
EnvPrintRouter(theEnv,WERROR,"Function ");
EnvPrintRouter(theEnv,WERROR,functionName);
EnvPrintRouter(theEnv,WERROR," expected at least ");
PrintLongInteger(theEnv,WERROR,(long) min);
EnvPrintRouter(theEnv,WERROR," and no more than ");
PrintLongInteger(theEnv,WERROR,(long) max);
EnvPrintRouter(theEnv,WERROR," arguments.\n");
SetHaltExecution(theEnv,TRUE);
SetEvaluationError(theEnv,TRUE);
return(-1);
}
return(numberOfArguments);
}
开发者ID:femto,项目名称:rbclips,代码行数:26,代码来源:argacces.c
示例7: PrintFactJNGetVar1
globle void PrintFactJNGetVar1(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factGetVarJN1Call *hack;
hack = (struct factGetVarJN1Call *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,(char*)"(fact-jn-getvar-1 ");
if (hack->factAddress) EnvPrintRouter(theEnv,logicalName,(char*)"t ");
else EnvPrintRouter(theEnv,logicalName,(char*)"f ");
if (hack->allFields) EnvPrintRouter(theEnv,logicalName,(char*)"t ");
else EnvPrintRouter(theEnv,logicalName,(char*)"f ");
EnvPrintRouter(theEnv,logicalName,(char*)"p");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern + 1);
EnvPrintRouter(theEnv,logicalName,(char*)" ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichField);
EnvPrintRouter(theEnv,logicalName,(char*)" s");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);
if (hack->lhs)
{ EnvPrintRouter(theEnv,logicalName,(char*)" L"); }
else if (hack->rhs)
{ EnvPrintRouter(theEnv,logicalName,(char*)" R"); }
EnvPrintRouter(theEnv,logicalName,(char*)")");
#else
#endif
}
开发者ID:DrItanium,项目名称:AdventureEngine,代码行数:30,代码来源:factprt.c
示例8: PrintFactPNConstant2
globle void PrintFactPNConstant2(
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factConstantPN2Call *hack;
hack = (struct factConstantPN2Call *) ValueToBitMap(theValue);
PrintRouter(logicalName,"(fact-pn-constant2 ");
PrintLongInteger(logicalName,(long) hack->whichSlot);
PrintRouter(logicalName," ");
PrintLongInteger(logicalName,(long) hack->offset);
if (hack->testForEquality) PrintRouter(logicalName," = ");
else PrintRouter(logicalName," != ");
PrintAtom(logicalName,GetFirstArgument()->type,GetFirstArgument()->value);
PrintRouter(logicalName,")");
#else
#if MAC_MPW || MAC_MCW
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:outoftrun,项目名称:FuzzyCLIPS,代码行数:29,代码来源:factprt.c
示例9: PrintObjectGetVarJN1
static void PrintObjectGetVarJN1(
void *theEnv,
const char *logicalName,
void *theValue)
{
#if DEVELOPER
struct ObjectMatchVar1 *hack;
hack = (struct ObjectMatchVar1 *) ValueToBitMap(theValue);
if (hack->objectAddress)
{
EnvPrintRouter(theEnv,logicalName,"(obj-ptr ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern);
}
else if (hack->allFields)
{
EnvPrintRouter(theEnv,logicalName,"(obj-slot-contents ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->whichSlot)));
}
else
{
EnvPrintRouter(theEnv,logicalName,"(obj-slot-var ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->whichSlot)));
EnvPrintRouter(theEnv,logicalName," ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichField);
}
EnvPrintRouter(theEnv,logicalName,")");
#else
#endif
}
开发者ID:DrItanium,项目名称:durandal,代码行数:35,代码来源:objrtfnx.c
示例10: PrintFactPNGetVar1
globle void PrintFactPNGetVar1(
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factGetVarPN1Call *hack;
hack = (struct factGetVarPN1Call *) ValueToBitMap(theValue);
PrintRouter(logicalName,"(fact-pn-getvar-1 ");
if (hack->factAddress) PrintRouter(logicalName,"t ");
else PrintRouter(logicalName,"f ");
if (hack->allFields) PrintRouter(logicalName,"t F");
else PrintRouter(logicalName,"f F");
PrintLongInteger(logicalName,(long) hack->whichField);
PrintRouter(logicalName," S");
PrintLongInteger(logicalName,(long) hack->whichSlot);
PrintRouter(logicalName,")");
#else
#if MAC_MPW || MAC_MCW
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:outoftrun,项目名称:FuzzyCLIPS,代码行数:25,代码来源:factprt.c
示例11: PrintFactPNGetVar3
globle void PrintFactPNGetVar3(
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factGetVarPN3Call *hack;
hack = (struct factGetVarPN3Call *) ValueToBitMap(theValue);
PrintRouter(logicalName,"(fact-pn-getvar-3 ");
if (hack->fromBeginning) PrintRouter(logicalName,"t ");
else PrintRouter(logicalName,"f ");
if (hack->fromEnd) PrintRouter(logicalName,"t B");
else PrintRouter(logicalName,"f B");
PrintLongInteger(logicalName,(long) hack->beginOffset);
PrintRouter(logicalName," E");
PrintLongInteger(logicalName,(long) hack->endOffset);
PrintRouter(logicalName," S");
PrintLongInteger(logicalName,(long) hack->whichSlot);
PrintRouter(logicalName,")");
#else
#if MAC_MPW || MAC_MCW
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:outoftrun,项目名称:FuzzyCLIPS,代码行数:28,代码来源:factprt.c
示例12: PrintObjectGetVarPN2
static void PrintObjectGetVarPN2(
void *theEnv,
const char *logicalName,
void *theValue)
{
#if DEVELOPER
struct ObjectMatchVar2 *hack;
hack = (struct ObjectMatchVar2 *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,"(ptn-obj-slot-quick-var ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->whichSlot)));
if (hack->fromBeginning)
{
EnvPrintRouter(theEnv,logicalName," B");
PrintLongInteger(theEnv,logicalName,(long long) (hack->beginningOffset + 1));
}
if (hack->fromEnd)
{
EnvPrintRouter(theEnv,logicalName," E");
PrintLongInteger(theEnv,logicalName,(long long) (hack->endOffset + 1));
}
EnvPrintRouter(theEnv,logicalName,")");
#else
#endif
}
开发者ID:DrItanium,项目名称:durandal,代码行数:25,代码来源:objrtfnx.c
示例13: PrintJNSimpleCompareFunction3
static void PrintJNSimpleCompareFunction3(
void *theEnv,
const char *logicalName,
void *theValue)
{
#if DEVELOPER
struct ObjectCmpJoinSingleSlotVars3 *hack;
hack = (struct ObjectCmpJoinSingleSlotVars3 *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,"(jslot-cmp3 ");
EnvPrintRouter(theEnv,logicalName,hack->pass ? "p " : "n ");
PrintLongInteger(theEnv,logicalName,(long long) hack->firstPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->firstSlot)));
EnvPrintRouter(theEnv,logicalName,hack->firstFromBeginning ? " B" : " E");
PrintLongInteger(theEnv,logicalName,(long long) hack->firstOffset);
EnvPrintRouter(theEnv,logicalName," ");
PrintLongInteger(theEnv,logicalName,(long long) hack->secondPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->secondSlot)));
EnvPrintRouter(theEnv,logicalName,hack->secondFromBeginning ? " B" : " E");
PrintLongInteger(theEnv,logicalName,(long long) hack->secondOffset);
EnvPrintRouter(theEnv,logicalName,")");
#else
#endif
}
开发者ID:DrItanium,项目名称:durandal,代码行数:27,代码来源:objrtfnx.c
示例14: PrintJNSimpleCompareFunction2
static void PrintJNSimpleCompareFunction2(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct ObjectCmpJoinSingleSlotVars2 *hack;
hack = (struct ObjectCmpJoinSingleSlotVars2 *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,"(jslot-cmp2 ");
EnvPrintRouter(theEnv,logicalName,hack->pass ? "p " : "n ");
PrintLongInteger(theEnv,logicalName,(long) hack->firstPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->firstSlot)));
EnvPrintRouter(theEnv,logicalName,hack->fromBeginning ? " B" : " E");
PrintLongInteger(theEnv,logicalName,(long) hack->offset);
EnvPrintRouter(theEnv,logicalName," ");
PrintLongInteger(theEnv,logicalName,(long) hack->secondPattern);
EnvPrintRouter(theEnv,logicalName," ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->secondSlot)));
EnvPrintRouter(theEnv,logicalName,")");
#else
#if MAC_MCW || IBM_MCW || MAC_XCD
#pragma unused(theEnv)
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:bitcababy,项目名称:ObjectiveCLIPS,代码行数:30,代码来源:objrtfnx.c
示例15: PrintFactSlotLength
globle void PrintFactSlotLength(
void *theEnv,
const char *logicalName,
void *theValue)
{
#if DEVELOPER
struct factCheckLengthPNCall *hack;
hack = (struct factCheckLengthPNCall *) ValueToBitMap(theValue);
EnvPrintRouter(theEnv,logicalName,"(slot-length ");
PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);
EnvPrintRouter(theEnv,logicalName," ");
if (hack->exactly) EnvPrintRouter(theEnv,logicalName,"= ");
else EnvPrintRouter(theEnv,logicalName,">= ");
PrintLongInteger(theEnv,logicalName,(long long) hack->minLength);
EnvPrintRouter(theEnv,logicalName,")");
#else
#if MAC_XCD
#pragma unused(theEnv)
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:Khenji55,项目名称:Computacion_UCLM,代码行数:25,代码来源:factprt.c
示例16: ShowFactPatternNetwork
globle void ShowFactPatternNetwork(
void *theEnv)
{
struct factPatternNode *patternPtr;
struct deftemplate *theDeftemplate;
char *theName;
int depth = 0, i;
theName = GetConstructName(theEnv,(char*)"show-fpn",(char*)"template name");
if (theName == NULL) return;
theDeftemplate = (struct deftemplate *) EnvFindDeftemplate(theEnv,theName);
if (theDeftemplate == NULL) return;
patternPtr = theDeftemplate->patternNetwork;
while (patternPtr != NULL)
{
for (i = 0; i < depth; i++) EnvPrintRouter(theEnv,WDISPLAY,(char*)" ");
if (patternPtr->header.singlefieldNode) EnvPrintRouter(theEnv,WDISPLAY,(char*)"SF ");
else if (patternPtr->header.multifieldNode)
{
EnvPrintRouter(theEnv,WDISPLAY,(char*)"MF");
if (patternPtr->header.endSlot) EnvPrintRouter(theEnv,WDISPLAY,(char*)")");
else EnvPrintRouter(theEnv,WDISPLAY,(char*)"*");
PrintLongInteger(theEnv,WDISPLAY,(long long) patternPtr->leaveFields);
EnvPrintRouter(theEnv,WDISPLAY,(char*)" ");
}
EnvPrintRouter(theEnv,WDISPLAY,(char*)"Slot: ");
PrintLongInteger(theEnv,WDISPLAY,(long long) patternPtr->whichSlot);
EnvPrintRouter(theEnv,WDISPLAY,(char*)" Field: ");
PrintLongInteger(theEnv,WDISPLAY,(long long) patternPtr->whichField);
EnvPrintRouter(theEnv,WDISPLAY,(char*)" Expression: ");
if (patternPtr->networkTest == NULL) EnvPrintRouter(theEnv,WDISPLAY,(char*)"None");
else PrintExpression(theEnv,WDISPLAY,patternPtr->networkTest);
EnvPrintRouter(theEnv,WDISPLAY,(char*)" RightHash: ");
if (patternPtr->header.rightHash == NULL) EnvPrintRouter(theEnv,WDISPLAY,(char*)"None");
else PrintExpression(theEnv,WDISPLAY,patternPtr->header.rightHash);
EnvPrintRouter(theEnv,WDISPLAY,(char*)"\n");
if (patternPtr->nextLevel == NULL)
{
while (patternPtr->rightNode == NULL)
{
patternPtr = patternPtr->lastLevel;
depth--;
if (patternPtr == NULL) return;
}
patternPtr = patternPtr->rightNode;
}
else
{
patternPtr = patternPtr->nextLevel;
depth++;
}
}
}
开发者ID:DrItanium,项目名称:electron-platform,代码行数:58,代码来源:developr.c
示例17: SalienceRangeError
globle void SalienceRangeError(
int min,
int max)
{
PrintErrorID("PRNTUTIL",9,TRUE);
PrintRouter(WERROR,"Salience value out of range ");
PrintLongInteger(WERROR,(long int) min);
PrintRouter(WERROR," to ");
PrintLongInteger(WERROR,(long int) max);
PrintRouter(WERROR,".\n");
}
开发者ID:ahmed-masud,项目名称:FuzzyCLIPS,代码行数:11,代码来源:prntutil.c
示例18: ConstraintConflictMessage
static void ConstraintConflictMessage(
void *theEnv,
struct symbolHashNode *variableName,
int thePattern,
int theField,
struct symbolHashNode *theSlot)
{
/*=========================*/
/* Print the error header. */
/*=========================*/
PrintErrorID(theEnv,"RULECSTR",1,TRUE);
/*======================================================*/
/* Print the variable name (if available) and CE number */
/* for which the constraint violation occurred. */
/*======================================================*/
if (variableName != NULL)
{
EnvPrintRouter(theEnv,WERROR,"Variable ?");
EnvPrintRouter(theEnv,WERROR,ValueToString(variableName));
EnvPrintRouter(theEnv,WERROR," in CE #");
PrintLongInteger(theEnv,WERROR,(long int) thePattern);
}
else
{
EnvPrintRouter(theEnv,WERROR,"Pattern #");
PrintLongInteger(theEnv,WERROR,(long int) thePattern);
}
/*=======================================*/
/* Print the slot name or field position */
/* in which the violation occurred. */
/*=======================================*/
if (theSlot == NULL)
{
EnvPrintRouter(theEnv,WERROR," field #");
PrintLongInteger(theEnv,WERROR,(long int) theField);
}
else
{
EnvPrintRouter(theEnv,WERROR," slot ");
EnvPrintRouter(theEnv,WERROR,ValueToString(theSlot));
}
/*======================================*/
/* Print the rest of the error message. */
/*======================================*/
EnvPrintRouter(theEnv,WERROR,"\nhas constraint conflicts which make the pattern unmatchable.\n");
}
开发者ID:aliverobotics,项目名称:Pumas-SmallSize,代码行数:53,代码来源:rulecstr.c
示例19: PrintObjectGetVarPN1
static void PrintObjectGetVarPN1(
void *theEnv,
char *logicalName,
void *theValue)
{
#if DEVELOPER
struct ObjectMatchVar1 *hack;
hack = (struct ObjectMatchVar1 *) ValueToBitMap(theValue);
if (hack->objectAddress)
EnvPrintRouter(theEnv,logicalName,"(ptn-obj-ptr ");
else if (hack->allFields)
{
EnvPrintRouter(theEnv,logicalName,"(ptn-obj-slot-contents ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->whichSlot)));
}
else
{
EnvPrintRouter(theEnv,logicalName,"(ptn-obj-slot-var ");
EnvPrintRouter(theEnv,logicalName,ValueToString(FindIDSlotName(theEnv,(unsigned) hack->whichSlot)));
EnvPrintRouter(theEnv,logicalName," ");
PrintLongInteger(theEnv,logicalName,(long) hack->whichField);
}
EnvPrintRouter(theEnv,logicalName,")");
#else
#if MAC_MCW || IBM_MCW || MAC_XCD
#pragma unused(theEnv)
#pragma unused(logicalName)
#pragma unused(theValue)
#endif
#endif
}
开发者ID:bitcababy,项目名称:ObjectiveCLIPS,代码行数:33,代码来源:objrtfnx.c
示例20: SaveDeffunctionHeader
/***************************************************
NAME : SaveDeffunctionHeader
DESCRIPTION : Writes a deffunction forward
declaration to the save file
INPUTS : 1) The deffunction
2) The logical name of the output
RETURNS : Nothing useful
SIDE EFFECTS : Defffunction header written
NOTES : None
***************************************************/
static void SaveDeffunctionHeader(
void *theEnv,
struct constructHeader *theDeffunction,
void *userBuffer)
{
DEFFUNCTION *dfnxPtr = (DEFFUNCTION *) theDeffunction;
char *logicalName = (char *) userBuffer;
register int i;
if (EnvGetDeffunctionPPForm(theEnv,(void *) dfnxPtr) != NULL)
{
EnvPrintRouter(theEnv,logicalName,(char*)"(deffunction ");
EnvPrintRouter(theEnv,logicalName,EnvDeffunctionModule(theEnv,(void *) dfnxPtr));
EnvPrintRouter(theEnv,logicalName,(char*)"::");
EnvPrintRouter(theEnv,logicalName,EnvGetDeffunctionName(theEnv,(void *) dfnxPtr));
EnvPrintRouter(theEnv,logicalName,(char*)" (");
for (i = 0 ; i < dfnxPtr->minNumberOfParameters ; i++)
{
EnvPrintRouter(theEnv,logicalName,(char*)"?p");
PrintLongInteger(theEnv,logicalName,(long long) i);
if (i != dfnxPtr->minNumberOfParameters-1)
EnvPrintRouter(theEnv,logicalName,(char*)" ");
}
if (dfnxPtr->maxNumberOfParameters == -1)
{
if (dfnxPtr->minNumberOfParameters != 0)
EnvPrintRouter(theEnv,logicalName,(char*)" ");
EnvPrintRouter(theEnv,logicalName,(char*)"$?wildargs))\n\n");
}
else
EnvPrintRouter(theEnv,logicalName,(char*)"))\n\n");
}
}
开发者ID:DrItanium,项目名称:AdventureEngine,代码行数:43,代码来源:dffnxfun.c
注:本文中的PrintLongInteger函数示例由纯净天空整理自Github/MSDocs等源码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。 |
请发表评论