static int UngetcBatch(
void *theEnv,
int ch,
char *logicalName)
{
#if MAC_XCD
#pragma unused(logicalName)
#endif
if (FileCommandData(theEnv)->BatchCurrentPosition > 0) FileCommandData(theEnv)->BatchCurrentPosition--;
if (FileCommandData(theEnv)->BatchBuffer != NULL) FileCommandData(theEnv)->BatchBuffer[FileCommandData(theEnv)->BatchCurrentPosition] = EOS;
if (FileCommandData(theEnv)->BatchType == FILE_BATCH)
{ return(ungetc(ch,(FILE *) FileCommandData(theEnv)->BatchSource)); }
return(EnvUngetcRouter(theEnv,ch,(char *) FileCommandData(theEnv)->BatchSource));
}
bool DribbleOn(
Environment *theEnv,
const char *fileName)
{
/*==============================*/
/* If a dribble file is already */
/* open, then close it. */
/*==============================*/
if (FileCommandData(theEnv)->DribbleFP != NULL)
{ DribbleOff(theEnv); }
/*========================*/
/* Open the dribble file. */
/*========================*/
FileCommandData(theEnv)->DribbleFP = GenOpen(theEnv,fileName,"w");
if (FileCommandData(theEnv)->DribbleFP == NULL)
{
OpenErrorMessage(theEnv,"dribble-on",fileName);
return false;
}
/*============================*/
/* Create the dribble router. */
/*============================*/
AddRouter(theEnv,"dribble",40,
QueryDribbleCallback,WriteDribbleCallback,
ReadDribbleCallback,UnreadDribbleCallback,
ExitDribbleCallback,NULL);
FileCommandData(theEnv)->DribbleCurrentPosition = 0;
/*================================================*/
/* Call the dribble status function. This is used */
/* by some of the machine specific interfaces to */
/* do things such as changing the wording of menu */
/* items from "Turn Dribble On..." to */
/* "Turn Dribble Off..." */
/*================================================*/
if (FileCommandData(theEnv)->DribbleStatusFunction != NULL)
{ (*FileCommandData(theEnv)->DribbleStatusFunction)(theEnv,true); }
/*=====================================*/
/* Return true to indicate the dribble */
/* file was successfully opened. */
/*=====================================*/
return true;
}
globle intBool EnvDribbleOn(
void *theEnv,
char *fileName)
{
/*==============================*/
/* If a dribble file is already */
/* open, then close it. */
/*==============================*/
if (FileCommandData(theEnv)->DribbleFP != NULL)
{ EnvDribbleOff(theEnv); }
/*========================*/
/* Open the dribble file. */
/*========================*/
FileCommandData(theEnv)->DribbleFP = GenOpen(theEnv,fileName,"w");
if (FileCommandData(theEnv)->DribbleFP == NULL)
{
OpenErrorMessage(theEnv,"dribble-on",fileName);
return(0);
}
/*============================*/
/* Create the dribble router. */
/*============================*/
EnvAddRouter(theEnv,"dribble", 40,
FindDribble, PrintDribble,
GetcDribble, UngetcDribble,
ExitDribble);
FileCommandData(theEnv)->DribbleCurrentPosition = 0;
/*================================================*/
/* Call the dribble status function. This is used */
/* by some of the machine specific interfaces to */
/* do things such as changing the wording of menu */
/* items from "Turn Dribble On..." to */
/* "Turn Dribble Off..." */
/*================================================*/
if (FileCommandData(theEnv)->DribbleStatusFunction != NULL)
{ (*FileCommandData(theEnv)->DribbleStatusFunction)(theEnv,TRUE); }
/*=====================================*/
/* Return TRUE to indicate the dribble */
/* file was successfully opened. */
/*=====================================*/
return(TRUE);
}
static int UnreadBatchCallback(
Environment *theEnv,
const char *logicalName,
int ch,
void *context)
{
#if MAC_XCD
#pragma unused(logicalName)
#endif
if (FileCommandData(theEnv)->BatchCurrentPosition > 0) FileCommandData(theEnv)->BatchCurrentPosition--;
if (FileCommandData(theEnv)->BatchBuffer != NULL) FileCommandData(theEnv)->BatchBuffer[FileCommandData(theEnv)->BatchCurrentPosition] = EOS;
if (FileCommandData(theEnv)->BatchType == FILE_BATCH)
{ return ungetc(ch,FileCommandData(theEnv)->BatchFileSource); }
return UnreadRouter(theEnv,FileCommandData(theEnv)->BatchLogicalSource,ch);
}
bool OpenStringBatch(
Environment *theEnv,
const char *stringName,
const char *theString,
bool placeAtEnd)
{
if (OpenStringSource(theEnv,stringName,theString,0) == false)
{ return false; }
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
AddRouter(theEnv,"batch", 20,
QueryBatchCallback,NULL,
ReadBatchCallback,UnreadBatchCallback,
ExitBatchCallback,NULL);
}
AddBatch(theEnv,placeAtEnd,NULL,stringName,STRING_BATCH,theString,NULL);
return true;
}
globle int OpenStringBatch(
void *theEnv,
char *stringName,
char *theString,
int placeAtEnd)
{
if (OpenStringSource(theEnv,stringName,theString,0) == 0)
{ return(0); }
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
EnvAddRouter(theEnv,"batch", 20,
FindBatch, NULL,
GetcBatch, UngetcBatch,
ExitBatch);
}
AddBatch(theEnv,placeAtEnd,(void *) stringName,STRING_BATCH,theString);
return(1);
}
bool RemoveBatch(
Environment *theEnv)
{
struct batchEntry *bptr;
bool rv, fileBatch = false;
if (FileCommandData(theEnv)->TopOfBatchList == NULL) return false;
/*==================================================*/
/* Close the source from which batch input is read. */
/*==================================================*/
if (FileCommandData(theEnv)->TopOfBatchList->batchType == FILE_BATCH)
{
fileBatch = true;
GenClose(theEnv,FileCommandData(theEnv)->TopOfBatchList->fileSource);
#if (! RUN_TIME) && (! BLOAD_ONLY)
FlushParsingMessages(theEnv);
DeleteErrorCaptureRouter(theEnv);
#endif
}
else
{
CloseStringSource(theEnv,FileCommandData(theEnv)->TopOfBatchList->logicalSource);
rm(theEnv,(void *) FileCommandData(theEnv)->TopOfBatchList->theString,
strlen(FileCommandData(theEnv)->TopOfBatchList->theString) + 1);
}
/*=================================*/
/* Remove the entry from the list. */
/*=================================*/
DeleteString(theEnv,(char *) FileCommandData(theEnv)->TopOfBatchList->fileName);
bptr = FileCommandData(theEnv)->TopOfBatchList;
FileCommandData(theEnv)->TopOfBatchList = FileCommandData(theEnv)->TopOfBatchList->next;
DeleteString(theEnv,(char *) bptr->logicalSource);
rtn_struct(theEnv,batchEntry,bptr);
/*========================================================*/
/* If there are no batch files remaining to be processed, */
/* then free the space used by the batch buffer. */
/*========================================================*/
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
FileCommandData(theEnv)->BottomOfBatchList = NULL;
FileCommandData(theEnv)->BatchFileSource = NULL;
FileCommandData(theEnv)->BatchLogicalSource = NULL;
if (FileCommandData(theEnv)->BatchBuffer != NULL)
{
rm(theEnv,FileCommandData(theEnv)->BatchBuffer,FileCommandData(theEnv)->BatchMaximumPosition);
FileCommandData(theEnv)->BatchBuffer = NULL;
}
FileCommandData(theEnv)->BatchCurrentPosition = 0;
FileCommandData(theEnv)->BatchMaximumPosition = 0;
rv = false;
#if (! RUN_TIME) && (! BLOAD_ONLY)
if (fileBatch)
{
SetParsingFileName(theEnv,FileCommandData(theEnv)->batchPriorParsingFile);
DeleteString(theEnv,FileCommandData(theEnv)->batchPriorParsingFile);
FileCommandData(theEnv)->batchPriorParsingFile = NULL;
}
#endif
}
/*===========================================*/
/* Otherwise move on to the next batch file. */
/*===========================================*/
else
{
FileCommandData(theEnv)->BatchType = FileCommandData(theEnv)->TopOfBatchList->batchType;
FileCommandData(theEnv)->BatchFileSource = FileCommandData(theEnv)->TopOfBatchList->fileSource;
FileCommandData(theEnv)->BatchLogicalSource = FileCommandData(theEnv)->TopOfBatchList->logicalSource;
FileCommandData(theEnv)->BatchCurrentPosition = 0;
rv = true;
#if (! RUN_TIME) && (! BLOAD_ONLY)
if (FileCommandData(theEnv)->TopOfBatchList->batchType == FILE_BATCH)
{ SetParsingFileName(theEnv,FileCommandData(theEnv)->TopOfBatchList->fileName); }
SetLineCount(theEnv,FileCommandData(theEnv)->TopOfBatchList->lineNumber);
#endif
}
/*====================================================*/
/* Return true if a batch file if there are remaining */
/* batch files to be processed, otherwise false. */
/*====================================================*/
return(rv);
}
static void AddBatch(
Environment *theEnv,
bool placeAtEnd,
FILE *theFileSource,
const char *theLogicalSource,
int type,
const char *theString,
const char *theFileName)
{
struct batchEntry *bptr;
/*=========================*/
/* Create the batch entry. */
/*=========================*/
bptr = get_struct(theEnv,batchEntry);
bptr->batchType = type;
bptr->fileSource = theFileSource;
bptr->logicalSource = CopyString(theEnv,theLogicalSource);
bptr->theString = theString;
bptr->fileName = CopyString(theEnv,theFileName);
bptr->lineNumber = 0;
bptr->next = NULL;
/*============================*/
/* Add the entry to the list. */
/*============================*/
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
FileCommandData(theEnv)->TopOfBatchList = bptr;
FileCommandData(theEnv)->BottomOfBatchList = bptr;
FileCommandData(theEnv)->BatchType = type;
FileCommandData(theEnv)->BatchFileSource = theFileSource;
FileCommandData(theEnv)->BatchLogicalSource = bptr->logicalSource;
FileCommandData(theEnv)->BatchCurrentPosition = 0;
}
else if (placeAtEnd == false)
{
bptr->next = FileCommandData(theEnv)->TopOfBatchList;
FileCommandData(theEnv)->TopOfBatchList = bptr;
FileCommandData(theEnv)->BatchType = type;
FileCommandData(theEnv)->BatchFileSource = theFileSource;
FileCommandData(theEnv)->BatchLogicalSource = bptr->logicalSource;
FileCommandData(theEnv)->BatchCurrentPosition = 0;
}
else
{
FileCommandData(theEnv)->BottomOfBatchList->next = bptr;
FileCommandData(theEnv)->BottomOfBatchList = bptr;
}
}
bool OpenBatch(
Environment *theEnv,
const char *fileName,
bool placeAtEnd)
{
FILE *theFile;
/*======================*/
/* Open the batch file. */
/*======================*/
theFile = GenOpen(theEnv,fileName,"r");
if (theFile == NULL)
{
OpenErrorMessage(theEnv,"batch",fileName);
return false;
}
/*============================*/
/* Create the batch router if */
/* it doesn't already exist. */
/*============================*/
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
AddRouter(theEnv,"batch",20,QueryBatchCallback,NULL,
ReadBatchCallback,UnreadBatchCallback,
ExitBatchCallback,NULL);
}
/*===============================================================*/
/* If a batch file is already open, save its current line count. */
/*===============================================================*/
if (FileCommandData(theEnv)->TopOfBatchList != NULL)
{ FileCommandData(theEnv)->TopOfBatchList->lineNumber = GetLineCount(theEnv); }
#if (! RUN_TIME) && (! BLOAD_ONLY)
/*========================================================================*/
/* If this is the first batch file, remember the prior parsing file name. */
/*========================================================================*/
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{ FileCommandData(theEnv)->batchPriorParsingFile = CopyString(theEnv,GetParsingFileName(theEnv)); }
/*=======================================================*/
/* Create the error capture router if it does not exist. */
/*=======================================================*/
SetParsingFileName(theEnv,fileName);
SetLineCount(theEnv,0);
CreateErrorCaptureRouter(theEnv);
#endif
/*====================================*/
/* Add the newly opened batch file to */
/* the list of batch files opened. */
/*====================================*/
AddBatch(theEnv,placeAtEnd,theFile,NULL,FILE_BATCH,NULL,fileName);
/*===================================*/
/* Return true to indicate the batch */
/* file was successfully opened. */
/*===================================*/
return true;
}
int LLGetcBatch(
Environment *theEnv,
const char *logicalName,
bool returnOnEOF)
{
int rv = EOF, flag = 1;
/*=================================================*/
/* Get a character until a valid character appears */
/* or no more batch files are left. */
/*=================================================*/
while ((rv == EOF) && (flag == 1))
{
if (FileCommandData(theEnv)->BatchType == FILE_BATCH)
{ rv = getc(FileCommandData(theEnv)->BatchFileSource); }
else
{ rv = ReadRouter(theEnv,FileCommandData(theEnv)->BatchLogicalSource); }
if (rv == EOF)
{
if (FileCommandData(theEnv)->BatchCurrentPosition > 0) WriteString(theEnv,STDOUT,(char *) FileCommandData(theEnv)->BatchBuffer);
flag = RemoveBatch(theEnv);
}
}
/*=========================================================*/
/* If the character retrieved is an end-of-file character, */
/* then there are no batch files with character input */
/* remaining. Remove the batch router. */
/*=========================================================*/
if (rv == EOF)
{
if (FileCommandData(theEnv)->BatchCurrentPosition > 0) WriteString(theEnv,STDOUT,(char *) FileCommandData(theEnv)->BatchBuffer);
DeleteRouter(theEnv,"batch");
RemoveBatch(theEnv);
if (returnOnEOF == true)
{ return (EOF); }
else
{ return ReadRouter(theEnv,logicalName); }
}
/*========================================*/
/* Add the character to the batch buffer. */
/*========================================*/
if (RouterData(theEnv)->InputUngets == 0)
{
FileCommandData(theEnv)->BatchBuffer = ExpandStringWithChar(theEnv,(char) rv,FileCommandData(theEnv)->BatchBuffer,&FileCommandData(theEnv)->BatchCurrentPosition,
&FileCommandData(theEnv)->BatchMaximumPosition,FileCommandData(theEnv)->BatchMaximumPosition+BUFFER_SIZE);
}
/*======================================*/
/* If a carriage return is encountered, */
/* then flush the batch buffer. */
/*======================================*/
if ((char) rv == '\n')
{
WriteString(theEnv,STDOUT,(char *) FileCommandData(theEnv)->BatchBuffer);
FileCommandData(theEnv)->BatchCurrentPosition = 0;
if ((FileCommandData(theEnv)->BatchBuffer != NULL) && (FileCommandData(theEnv)->BatchMaximumPosition > BUFFER_SIZE))
{
rm(theEnv,FileCommandData(theEnv)->BatchBuffer,FileCommandData(theEnv)->BatchMaximumPosition);
FileCommandData(theEnv)->BatchMaximumPosition = 0;
FileCommandData(theEnv)->BatchBuffer = NULL;
}
}
/*=============================*/
/* Increment the line counter. */
/*=============================*/
if (((char) rv == '\r') || ((char) rv == '\n'))
{ IncrementLineCount(theEnv); }
/*=====================================================*/
/* Return the character retrieved from the batch file. */
/*=====================================================*/
return(rv);
}
bool DribbleOff(
Environment *theEnv)
{
bool rv = false;
/*================================================*/
/* Call the dribble status function. This is used */
/* by some of the machine specific interfaces to */
/* do things such as changing the wording of menu */
/* items from "Turn Dribble On..." to */
/* "Turn Dribble Off..." */
/*================================================*/
if (FileCommandData(theEnv)->DribbleStatusFunction != NULL)
{ (*FileCommandData(theEnv)->DribbleStatusFunction)(theEnv,false); }
/*=======================================*/
/* Close the dribble file and deactivate */
/* the dribble router. */
/*=======================================*/
if (FileCommandData(theEnv)->DribbleFP != NULL)
{
if (FileCommandData(theEnv)->DribbleCurrentPosition > 0)
{ fprintf(FileCommandData(theEnv)->DribbleFP,"%s",FileCommandData(theEnv)->DribbleBuffer); }
DeleteRouter(theEnv,"dribble");
if (GenClose(theEnv,FileCommandData(theEnv)->DribbleFP) == 0) rv = true;
}
else
{ rv = true; }
FileCommandData(theEnv)->DribbleFP = NULL;
/*============================================*/
/* Free the space used by the dribble buffer. */
/*============================================*/
if (FileCommandData(theEnv)->DribbleBuffer != NULL)
{
rm(theEnv,FileCommandData(theEnv)->DribbleBuffer,FileCommandData(theEnv)->DribbleMaximumPosition);
FileCommandData(theEnv)->DribbleBuffer = NULL;
}
FileCommandData(theEnv)->DribbleCurrentPosition = 0;
FileCommandData(theEnv)->DribbleMaximumPosition = 0;
/*============================================*/
/* Return true if the dribble file was closed */
/* without error, otherwise return false. */
/*============================================*/
return(rv);
}
static void PutcDribbleBuffer(
Environment *theEnv,
int rv)
{
/*===================================================*/
/* Receiving an end-of-file character will cause the */
/* contents of the dribble buffer to be flushed. */
/*===================================================*/
if (rv == EOF)
{
if (FileCommandData(theEnv)->DribbleCurrentPosition > 0)
{
fprintf(FileCommandData(theEnv)->DribbleFP,"%s",FileCommandData(theEnv)->DribbleBuffer);
FileCommandData(theEnv)->DribbleCurrentPosition = 0;
FileCommandData(theEnv)->DribbleBuffer[0] = EOS;
}
}
/*===========================================================*/
/* If we aren't receiving command input, then the character */
/* just received doesn't need to be placed in the dribble */
/* buffer--It can be written directly to the file. This will */
/* occur for example when the command prompt is being */
/* printed (the AwaitingInput variable will be false because */
/* command input has not been receivied yet). Before writing */
/* the character to the file, the dribble buffer is flushed. */
/*===========================================================*/
else if (RouterData(theEnv)->AwaitingInput == false)
{
if (FileCommandData(theEnv)->DribbleCurrentPosition > 0)
{
fprintf(FileCommandData(theEnv)->DribbleFP,"%s",FileCommandData(theEnv)->DribbleBuffer);
FileCommandData(theEnv)->DribbleCurrentPosition = 0;
FileCommandData(theEnv)->DribbleBuffer[0] = EOS;
}
fputc(rv,FileCommandData(theEnv)->DribbleFP);
}
/*=====================================================*/
/* Otherwise, add the character to the dribble buffer. */
/*=====================================================*/
else
{
FileCommandData(theEnv)->DribbleBuffer = ExpandStringWithChar(theEnv,rv,FileCommandData(theEnv)->DribbleBuffer,
&FileCommandData(theEnv)->DribbleCurrentPosition,
&FileCommandData(theEnv)->DribbleMaximumPosition,
FileCommandData(theEnv)->DribbleMaximumPosition+BUFFER_SIZE);
}
}
globle int RemoveBatch(
void *theEnv)
{
struct batchEntry *bptr;
int rv;
if (FileCommandData(theEnv)->TopOfBatchList == NULL) return(FALSE);
/*==================================================*/
/* Close the source from which batch input is read. */
/*==================================================*/
if (FileCommandData(theEnv)->TopOfBatchList->batchType == FILE_BATCH)
{ GenClose(theEnv,(FILE *) FileCommandData(theEnv)->TopOfBatchList->inputSource); }
else
{
CloseStringSource(theEnv,(char *) FileCommandData(theEnv)->TopOfBatchList->inputSource);
rm(theEnv,FileCommandData(theEnv)->TopOfBatchList->theString,strlen(FileCommandData(theEnv)->TopOfBatchList->theString) + 1);
}
/*=================================*/
/* Remove the entry from the list. */
/*=================================*/
bptr = FileCommandData(theEnv)->TopOfBatchList;
FileCommandData(theEnv)->TopOfBatchList = FileCommandData(theEnv)->TopOfBatchList->next;
rtn_struct(theEnv,batchEntry,bptr);
/*========================================================*/
/* If there are no batch files remaining to be processed, */
/* then free the space used by the batch buffer. */
/*========================================================*/
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
FileCommandData(theEnv)->BottomOfBatchList = NULL;
FileCommandData(theEnv)->BatchSource = NULL;
if (FileCommandData(theEnv)->BatchBuffer != NULL)
{
rm(theEnv,FileCommandData(theEnv)->BatchBuffer,FileCommandData(theEnv)->BatchMaximumPosition);
FileCommandData(theEnv)->BatchBuffer = NULL;
}
FileCommandData(theEnv)->BatchCurrentPosition = 0;
FileCommandData(theEnv)->BatchMaximumPosition = 0;
rv = 0;
}
/*===========================================*/
/* Otherwise move on to the next batch file. */
/*===========================================*/
else
{
FileCommandData(theEnv)->BatchType = FileCommandData(theEnv)->TopOfBatchList->batchType;
FileCommandData(theEnv)->BatchSource = FileCommandData(theEnv)->TopOfBatchList->inputSource;
FileCommandData(theEnv)->BatchCurrentPosition = 0;
rv = 1;
}
/*====================================================*/
/* Return TRUE if a batch file if there are remaining */
/* batch files to be processed, otherwise FALSE. */
/*====================================================*/
return(rv);
}
static void AddBatch(
void *theEnv,
int placeAtEnd,
void *theSource,
int type,
char *theString)
{
struct batchEntry *bptr;
/*=========================*/
/* Create the batch entry. */
/*=========================*/
bptr = get_struct(theEnv,batchEntry);
bptr->batchType = type;
bptr->inputSource = theSource;
bptr->theString = theString;
bptr->next = NULL;
/*============================*/
/* Add the entry to the list. */
/*============================*/
if (FileCommandData(theEnv)->TopOfBatchList == NULL)
{
FileCommandData(theEnv)->TopOfBatchList = bptr;
FileCommandData(theEnv)->BottomOfBatchList = bptr;
FileCommandData(theEnv)->BatchType = type;
FileCommandData(theEnv)->BatchSource = theSource;
FileCommandData(theEnv)->BatchCurrentPosition = 0;
}
else if (placeAtEnd == FALSE)
{
bptr->next = FileCommandData(theEnv)->TopOfBatchList;
FileCommandData(theEnv)->TopOfBatchList = bptr;
FileCommandData(theEnv)->BatchType = type;
FileCommandData(theEnv)->BatchSource = theSource;
FileCommandData(theEnv)->BatchCurrentPosition = 0;
}
else
{
FileCommandData(theEnv)->BottomOfBatchList->next = bptr;
FileCommandData(theEnv)->BottomOfBatchList = bptr;
}
}
globle int LLGetcBatch(
void *theEnv,
char *logicalName,
int returnOnEOF)
{
int rv = EOF, flag = 1;
/*=================================================*/
/* Get a character until a valid character appears */
/* or no more batch files are left. */
/*=================================================*/
while ((rv == EOF) && (flag == 1))
{
if (FileCommandData(theEnv)->BatchType == FILE_BATCH)
{ rv = getc((FILE *) FileCommandData(theEnv)->BatchSource); }
else
{ rv = EnvGetcRouter(theEnv,(char *) FileCommandData(theEnv)->BatchSource); }
if (rv == EOF)
{
if (FileCommandData(theEnv)->BatchCurrentPosition > 0) EnvPrintRouter(theEnv,"stdout",(char *) FileCommandData(theEnv)->BatchBuffer);
flag = RemoveBatch(theEnv);
}
}
/*=========================================================*/
/* If the character retrieved is an end-of-file character, */
/* then there are no batch files with character input */
/* remaining. Remove the batch router. */
/*=========================================================*/
if (rv == EOF)
{
if (FileCommandData(theEnv)->BatchCurrentPosition > 0) EnvPrintRouter(theEnv,"stdout",(char *) FileCommandData(theEnv)->BatchBuffer);
EnvDeleteRouter(theEnv,"batch");
RemoveBatch(theEnv);
if (returnOnEOF == TRUE)
{ return (EOF); }
else
{ return(EnvGetcRouter(theEnv,logicalName)); }
}
/*========================================*/
/* Add the character to the batch buffer. */
/*========================================*/
FileCommandData(theEnv)->BatchBuffer = ExpandStringWithChar(theEnv,(char) rv,FileCommandData(theEnv)->BatchBuffer,&FileCommandData(theEnv)->BatchCurrentPosition,
&FileCommandData(theEnv)->BatchMaximumPosition,FileCommandData(theEnv)->BatchMaximumPosition+BUFFER_SIZE);
/*======================================*/
/* If a carriage return is encountered, */
/* then flush the batch buffer. */
/*======================================*/
if ((char) rv == '\n')
{
EnvPrintRouter(theEnv,"stdout",(char *) FileCommandData(theEnv)->BatchBuffer);
FileCommandData(theEnv)->BatchCurrentPosition = 0;
if ((FileCommandData(theEnv)->BatchBuffer != NULL) && (FileCommandData(theEnv)->BatchMaximumPosition > BUFFER_SIZE))
{
rm(theEnv,FileCommandData(theEnv)->BatchBuffer,FileCommandData(theEnv)->BatchMaximumPosition);
FileCommandData(theEnv)->BatchMaximumPosition = 0;
FileCommandData(theEnv)->BatchBuffer = NULL;
}
}
/*=====================================================*/
/* Return the character retrieved from the batch file. */
/*=====================================================*/
return(rv);
}
globle void SetDribbleStatusFunction(
void *theEnv,
int (*fnptr)(void *,int))
{
FileCommandData(theEnv)->DribbleStatusFunction = fnptr;
}
