globle int EnvPrintRouter(
void *theEnv,
EXEC_STATUS,
char *logicalName,
char *str)
{
struct router *currentPtr;
/*===================================================*/
/* If the "fast save" option is being used, then the */
/* logical name is actually a pointer to a file and */
/* fprintf can be called directly to bypass querying */
/* all of the routers. */
/*===================================================*/
if (((char *) RouterData(theEnv,execStatus)->FastSaveFilePtr) == logicalName)
{
fprintf(RouterData(theEnv,execStatus)->FastSaveFilePtr,"%s",str);
return(2);
}
/*==============================================*/
/* Search through the list of routers until one */
/* is found that will handle the print request. */
/*==============================================*/
currentPtr = RouterData(theEnv,execStatus)->ListOfRouters;
while (currentPtr != NULL)
{
if ((currentPtr->printer != NULL) ? QueryRouter(theEnv,execStatus,logicalName,currentPtr) : FALSE)
{
SetEnvironmentRouterContext(theEnv,execStatus,currentPtr->context);
if (currentPtr->environmentAware)
{ (*currentPtr->printer)(theEnv,execStatus,logicalName,str); }
else
{ ((int (*)(char *,char *)) (*currentPtr->printer))(logicalName,str); }
return(1);
}
currentPtr = currentPtr->next;
}
/*=====================================================*/
/* The logical name was not recognized by any routers. */
/*=====================================================*/
if (strcmp(WERROR,logicalName) != 0) UnrecognizedRouterMessage(theEnv,execStatus,logicalName);
return(0);
}
globle int EnvUngetcRouter(
void *theEnv,
int ch,
char *logicalName)
{
struct router *currentPtr;
/*===================================================*/
/* If the "fast load" option is being used, then the */
/* logical name is actually a pointer to a file and */
/* ungetc can be called directly to bypass querying */
/* all of the routers. */
/*===================================================*/
if (((char *) RouterData(theEnv)->FastLoadFilePtr) == logicalName)
{
if ((ch == '\r') || (ch == '\n'))
{
if (((char *) RouterData(theEnv)->FastLoadFilePtr) == RouterData(theEnv)->LineCountRouter)
{ DecrementLineCount(theEnv); }
}
return(ungetc(ch,RouterData(theEnv)->FastLoadFilePtr));
}
/*===============================================*/
/* If the "fast string get" option is being used */
/* for the specified logical name, then bypass */
/* the router system and unget the character */
/* directly from the fast get string. */
/*===============================================*/
if (RouterData(theEnv)->FastCharGetRouter == logicalName)
{
if ((ch == '\r') || (ch == '\n'))
{
if (RouterData(theEnv)->FastCharGetRouter == RouterData(theEnv)->LineCountRouter)
{ DecrementLineCount(theEnv); }
}
if (RouterData(theEnv)->FastCharGetIndex > 0) RouterData(theEnv)->FastCharGetIndex--;
return(ch);
}
/*===============================================*/
/* Search through the list of routers until one */
/* is found that will handle the ungetc request. */
/*===============================================*/
currentPtr = RouterData(theEnv)->ListOfRouters;
while (currentPtr != NULL)
{
if ((currentPtr->charunget != NULL) ? QueryRouter(theEnv,logicalName,currentPtr) : FALSE)
{
if ((ch == '\r') || (ch == '\n'))
{
if ((RouterData(theEnv)->LineCountRouter != NULL) &&
(strcmp(logicalName,RouterData(theEnv)->LineCountRouter) == 0))
{ DecrementLineCount(theEnv); }
}
if (currentPtr->environmentAware)
{ return((*currentPtr->charunget)(theEnv,ch,logicalName)); }
else
{ return(((int (*)(int,char *)) (*currentPtr->charunget))(ch,logicalName)); }
}
currentPtr = currentPtr->next;
}
/*=====================================================*/
/* The logical name was not recognized by any routers. */
/*=====================================================*/
UnrecognizedRouterMessage(theEnv,logicalName);
return(-1);
}
globle int EnvGetcRouter(
void *theEnv,
char *logicalName)
{
struct router *currentPtr;
int inchar;
/*===================================================*/
/* If the "fast load" option is being used, then the */
/* logical name is actually a pointer to a file and */
/* getc can be called directly to bypass querying */
/* all of the routers. */
/*===================================================*/
if (((char *) RouterData(theEnv)->FastLoadFilePtr) == logicalName)
{
inchar = getc(RouterData(theEnv)->FastLoadFilePtr);
if ((inchar == '\r') || (inchar == '\n'))
{
if (((char *) RouterData(theEnv)->FastLoadFilePtr) == RouterData(theEnv)->LineCountRouter)
{ IncrementLineCount(theEnv); }
}
/* if (inchar == '\r') return('\n'); */
return(inchar);
}
/*===============================================*/
/* If the "fast string get" option is being used */
/* for the specified logical name, then bypass */
/* the router system and extract the character */
/* directly from the fast get string. */
/*===============================================*/
if (RouterData(theEnv)->FastCharGetRouter == logicalName)
{
inchar = (unsigned char) RouterData(theEnv)->FastCharGetString[RouterData(theEnv)->FastCharGetIndex];
RouterData(theEnv)->FastCharGetIndex++;
if (inchar == '\0') return(EOF);
if ((inchar == '\r') || (inchar == '\n'))
{
if (RouterData(theEnv)->FastCharGetRouter == RouterData(theEnv)->LineCountRouter)
{ IncrementLineCount(theEnv); }
}
return(inchar);
}
/*==============================================*/
/* Search through the list of routers until one */
/* is found that will handle the getc request. */
/*==============================================*/
currentPtr = RouterData(theEnv)->ListOfRouters;
while (currentPtr != NULL)
{
if ((currentPtr->charget != NULL) ? QueryRouter(theEnv,logicalName,currentPtr) : FALSE)
{
SetEnvironmentRouterContext(theEnv,currentPtr->context);
if (currentPtr->environmentAware)
{ inchar = (*currentPtr->charget)(theEnv,logicalName); }
else
{ inchar = ((int (*)(char *)) (*currentPtr->charget))(logicalName); }
if ((inchar == '\r') || (inchar == '\n'))
{
if ((RouterData(theEnv)->LineCountRouter != NULL) &&
(strcmp(logicalName,RouterData(theEnv)->LineCountRouter) == 0))
{ IncrementLineCount(theEnv); }
}
return(inchar);
}
currentPtr = currentPtr->next;
}
/*=====================================================*/
/* The logical name was not recognized by any routers. */
/*=====================================================*/
UnrecognizedRouterMessage(theEnv,logicalName);
return(-1);
}
globle void PPFactFunction(
void *theEnv)
{
struct fact *theFact;
int numberOfArguments;
const char *logicalName = NULL; /* Avoids warning */
int ignoreDefaults = FALSE;
DATA_OBJECT theArg;
if ((numberOfArguments = EnvArgRangeCheck(theEnv,"ppfact",1,3)) == -1) return;
theFact = GetFactAddressOrIndexArgument(theEnv,"ppfact",1,TRUE);
if (theFact == NULL) return;
/*===============================================================*/
/* Determine the logical name to which the fact will be printed. */
/*===============================================================*/
if (numberOfArguments == 1)
{ logicalName = STDOUT; }
else
{
logicalName = GetLogicalName(theEnv,2,STDOUT);
if (logicalName == NULL)
{
IllegalLogicalNameMessage(theEnv,"ppfact");
EnvSetHaltExecution(theEnv,TRUE);
EnvSetEvaluationError(theEnv,TRUE);
return;
}
}
/*=========================================*/
/* Should slot values be printed if they */
/* are the same as the default slot value. */
/*=========================================*/
if (numberOfArguments == 3)
{
EnvRtnUnknown(theEnv,3,&theArg);
if ((theArg.value == EnvFalseSymbol(theEnv)) && (theArg.type == SYMBOL))
{ ignoreDefaults = FALSE; }
else
{ ignoreDefaults = TRUE; }
}
/*============================================================*/
/* Determine if any router recognizes the output destination. */
/*============================================================*/
if (strcmp(logicalName,"nil") == 0)
{ return; }
else if (QueryRouters(theEnv,logicalName) == FALSE)
{
UnrecognizedRouterMessage(theEnv,logicalName);
return;
}
EnvPPFact(theEnv,theFact,logicalName,ignoreDefaults);
}
