TEACL is a fork of TECOC created for the purpose of describing diffs in a document being collaboratively edited
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

50 lines
1.7 KiB

/*****************************************************************************
ClenUp()
This function "cleans up" in preparation for terminating TECO-C. All
open files are closed and memory is freed.
*****************************************************************************/
#include "zport.h" /* define portability identifiers */
#include "tecoc.h" /* define general identifiers */
#include "defext.h" /* define external global variables */
VVOID ClenUp (VVOID) /* cleanup for TECO-C abort */
{
QRptr QRp;
int i;
ZIClos(PINPFL); /* Close the primary and secondary... */
ZIClos(SINPFL); /* ...input streams, if they're open */
ZOClDe(POUTFL); /* Close the primary and secondary... */
ZOClDe(SOUTFL); /* ...output streams, if they're open */
/*
* free dynamically allocated buffers
*/
if (CBfBeg) ZFree((voidptr)CBfBeg); /* the command buffer */
if (DBfBeg) ZFree((voidptr)DBfBeg); /* the digit buffer */
if (EBfBeg) ZFree((voidptr)EBfBeg); /* the edit buffer */
if (FBfBeg) ZFree((voidptr)FBfBeg); /* the filename buffer */
if (SBfBeg) ZFree((voidptr)SBfBeg); /* the search string buffer */
/*
* free the global [0-35] and main-level local [36-71] Q-registers,
* and then the Q-register stack.
*/
for (QRp = QRgstr, i = 0; i < 72; ++i, ++QRp) {
if (QRp->Start != NULL) {
ZFree((voidptr)QRp->Start);
}
}
for (QRp = QStack, i = 0; i < QRS_SIZE; ++i, ++QRp) {
if (QRp->Start != NULL) {
ZFree((voidptr)QRp->Start);
}
}
ZClnUp(); /* do system-dependent cleanup */
#if DEBUGGING
{
/*
* at this point, there shouldn't be any block malloc'ed by TECO-C.
* except if we're here because we EX'ed out of a macro, and we can't
* get to the ZBf buffer allocated in ExeEI, so the ZBf buffer is
* left hanging.
*/
}
#endif
}