/*   for the FactJNGetvar2 function. *//*************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactJNGetVar2(  void *theEnv,  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_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }/*************************************//* PrintFactJNGetVar3: Print routine *//*   for the FactJNGetVar3 function. *//*************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactJNGetVar3(  void *theEnv,  char *logicalName,  void *theValue)  {#if DEVELOPER   struct factGetVarJN3Call *hack;   hack = (struct factGetVarJN3Call *) ValueToBitMap(theValue);   EnvPrintRouter(theEnv,logicalName,"(fact-jn-getvar-3 ");   if (hack->fromBeginning) EnvPrintRouter(theEnv,logicalName,"t ");   else EnvPrintRouter(theEnv,logicalName,"f ");   if (hack->fromEnd) EnvPrintRouter(theEnv,logicalName,"t ");   else EnvPrintRouter(theEnv,logicalName,"f ");   PrintLongInteger(theEnv,logicalName,(long long) hack->beginOffset);   EnvPrintRouter(theEnv,logicalName," ");   PrintLongInteger(theEnv,logicalName,(long long) hack->endOffset);   EnvPrintRouter(theEnv,logicalName," ");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);   EnvPrintRouter(theEnv,logicalName," p");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichPattern + 1);   if (hack->lhs)     { EnvPrintRouter(theEnv,logicalName," L"); }   else if (hack->rhs)     { EnvPrintRouter(theEnv,logicalName," R"); }        EnvPrintRouter(theEnv,logicalName,")");#else#if MAC_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }/*************************************//* PrintFactPNGetVar1: Print routine *//*   for the FactPNGetvar1 function. *//*************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactPNGetVar1(  void *theEnv,  char *logicalName,  void *theValue)  {#if DEVELOPER   struct factGetVarPN1Call *hack;   hack = (struct factGetVarPN1Call *) ValueToBitMap(theValue);   EnvPrintRouter(theEnv,logicalName,"(fact-pn-getvar-1 ");   if (hack->factAddress) EnvPrintRouter(theEnv,logicalName,"t ");   else EnvPrintRouter(theEnv,logicalName,"f ");   if (hack->allFields) EnvPrintRouter(theEnv,logicalName,"t F");   else EnvPrintRouter(theEnv,logicalName,"f F");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichField);   EnvPrintRouter(theEnv,logicalName," S");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);   EnvPrintRouter(theEnv,logicalName,")");#else#if MAC_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }/*************************************//* PrintFactPNGetVar2: Print routine *//*   for the FactPNGetvar2 function. *//*************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactPNGetVar2(  void *theEnv,  char *logicalName,  void *theValue)  {#if DEVELOPER   struct factGetVarPN2Call *hack;   hack = (struct factGetVarPN2Call *) ValueToBitMap(theValue);;   EnvPrintRouter(theEnv,logicalName,"(fact-pn-getvar-2 S");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);   EnvPrintRouter(theEnv,logicalName,")");#else#if MAC_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }/*************************************//* PrintFactPNGetVar3: Print routine *//*   for the FactPNGetvar3 function. *//*************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactPNGetVar3(  void *theEnv,  char *logicalName,  void *theValue)  {#if DEVELOPER   struct factGetVarPN3Call *hack;   hack = (struct factGetVarPN3Call *) ValueToBitMap(theValue);   EnvPrintRouter(theEnv,logicalName,"(fact-pn-getvar-3 ");   if (hack->fromBeginning) EnvPrintRouter(theEnv,logicalName,"t ");   else EnvPrintRouter(theEnv,logicalName,"f ");   if (hack->fromEnd) EnvPrintRouter(theEnv,logicalName,"t B");   else EnvPrintRouter(theEnv,logicalName,"f B");   PrintLongInteger(theEnv,logicalName,(long long) hack->beginOffset);   EnvPrintRouter(theEnv,logicalName," E");   PrintLongInteger(theEnv,logicalName,(long long) hack->endOffset);   EnvPrintRouter(theEnv,logicalName," S");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);   EnvPrintRouter(theEnv,logicalName,")");#else#if MAC_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }/***************************************//* PrintFactPNConstant1: Print routine *//*   for the FactPNConstant1 function. *//***************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactPNConstant1(  void *theEnv,  char *logicalName,  void *theValue)  {#if DEVELOPER   struct factConstantPN1Call *hack;   hack = (struct factConstantPN1Call *) ValueToBitMap(theValue);   EnvPrintRouter(theEnv,logicalName,"(fact-pn-constant1 ");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);   if (hack->testForEquality) EnvPrintRouter(theEnv,logicalName," = ");   else EnvPrintRouter(theEnv,logicalName," != ");   PrintAtom(theEnv,logicalName,GetFirstArgument()->type,GetFirstArgument()->value);   EnvPrintRouter(theEnv,logicalName,")");#else#if MAC_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }/***************************************//* PrintFactPNConstant2: Print routine *//*   for the FactPNConstant2 function. *//***************************************/#if IBM_TBC && (! DEVELOPER)#pragma argsused#endifgloble void PrintFactPNConstant2(  void *theEnv,  char *logicalName,  void *theValue)  {#if DEVELOPER   struct factConstantPN2Call *hack;   hack = (struct factConstantPN2Call *) ValueToBitMap(theValue);   EnvPrintRouter(theEnv,logicalName,"(fact-pn-constant2 ");   PrintLongInteger(theEnv,logicalName,(long long) hack->whichSlot);   EnvPrintRouter(theEnv,logicalName," ");   PrintLongInteger(theEnv,logicalName,(long long) hack->offset);   if (hack->testForEquality) EnvPrintRouter(theEnv,logicalName," = ");   else EnvPrintRouter(theEnv,logicalName," != ");   PrintAtom(theEnv,logicalName,GetFirstArgument()->type,GetFirstArgument()->value);   EnvPrintRouter(theEnv,logicalName,")");#else#if MAC_MCW || IBM_MCW || MAC_XCD#pragma unused(theEnv)#pragma unused(logicalName)#pragma unused(theValue)#endif#endif  }#endif /* DEFTEMPLATE_CONSTRUCT && DEFRULE_CONSTRUCT */