static int ConstructsToC(
char *fileName,
int theImageID,
int max)
{
char fname[FSIZE];
int fileVersion;
struct CodeGeneratorItem *cgPtr;
/*===============================================*/
/* Set the global MaxIndices variable indicating */
/* the maximum number of data structures to save */
/* in each file. */
/*===============================================*/
MaxIndices = max;
/*==================================*/
/* Call the list of functions to be */
/* executed before generating code. */
/*==================================*/
for (cgPtr = ListOfCodeGeneratorItems;
cgPtr != NULL;
cgPtr = cgPtr->next)
{ if (cgPtr->beforeFunction != NULL) (*cgPtr->beforeFunction)(); }
/*=================================================*/
/* Do a periodic cleanup without using heuristics */
/* to get rid of as much garbage as possible so */
/* that it isn't written out as C data structures. */
/*=================================================*/
PeriodicCleanup(FALSE,FALSE);
/*=====================================*/
/* Initialize some global information. */
/*=====================================*/
FilePrefix = fileName;
ImageID = theImageID;
ExpressionFP = NULL;
ExpressionVersion = 1;
ExpressionHeader = TRUE;
ExpressionCount = 0;
/*=====================================================*/
/* Open a header file for dumping general information. */
/*=====================================================*/
sprintf(fname,"%s.h",fileName);
if ((HeaderFP = fopen(fname,"w")) == NULL)
{
OpenErrorMessage("constructs-to-c",fname);
return(0);
}
fprintf(HeaderFP,"#ifndef _CONSTRUCT_COMPILER_HEADER_\n");
fprintf(HeaderFP,"#define _CONSTRUCT_COMPILER_HEADER_\n\n");
fprintf(HeaderFP,"#include <stdio.h>\n");
fprintf(HeaderFP,"#include \"setup.h\"\n");
fprintf(HeaderFP,"#include \"expressn.h\"\n");
fprintf(HeaderFP,"#include \"extnfunc.h\"\n");
fprintf(HeaderFP,"#include \"%s\"\n",API_HEADER);
fprintf(HeaderFP,"\n#define VS (void *)\n");
fprintf(HeaderFP,"\n");
/*=========================================================*/
/* Give extern declarations for user and system functions. */
/*=========================================================*/
WriteFunctionExternDeclarations(HeaderFP);
fprintf(HeaderFP,"\n#endif\n\n");
fprintf(HeaderFP,"/****************************/\n");
fprintf(HeaderFP,"/* EXTERN ARRAY DEFINITIONS */\n");
fprintf(HeaderFP,"/****************************/\n\n");
/*==================================*/
/* Generate code for atomic values, */
/* function definitions, hashed */
/* expressions, and constructs. */
/*==================================*/
AtomicValuesToCode(fileName);
FunctionsToCode(fileName);
HashedExpressionsToCode();
ConstraintsToCode(fileName,4,HeaderFP,ImageID,MaxIndices);
/*===============================*/
/* Call each code generator item */
/* for the various constructs. */
/*===============================*/
fileVersion = 5;
for (cgPtr = ListOfCodeGeneratorItems;
cgPtr != NULL;
cgPtr = cgPtr->next)
{
if (cgPtr->generateFunction != NULL)
{
(*cgPtr->generateFunction)(fileName,fileVersion,HeaderFP,ImageID,MaxIndices);
fileVersion++;
}
}
/*=========================================*/
/* Restore the atomic data bucket values */
/* (which were set to an index reference). */
/*=========================================*/
RestoreAtomicValueBuckets();
/*============================*/
/* Close the expression file. */
/*============================*/
if (ExpressionFP != NULL)
{
fprintf(ExpressionFP,"};\n");
fclose(ExpressionFP);
}
/*====================================*/
/* Write the initialization function. */
/*====================================*/
WriteInitializationFunction(fileName);
/*========================*/
/* Close the header file. */
/*========================*/
fclose(HeaderFP);
/*==================================================*/
/* Return TRUE to indicate that the constructs-to-c */
/* command was successfully executed. */
/*==================================================*/
return(TRUE);
}
globle intBool EnvBsave(
void *theEnv,
EXEC_STATUS,
char *fileName)
{
FILE *fp;
struct BinaryItem *biPtr;
char constructBuffer[CONSTRUCT_HEADER_SIZE];
long saveExpressionCount;
/*===================================*/
/* A bsave can't occur when a binary */
/* image is already loaded. */
/*===================================*/
if (Bloaded(theEnv,execStatus))
{
PrintErrorID(theEnv,execStatus,"BSAVE",1,FALSE);
EnvPrintRouter(theEnv,execStatus,WERROR,
"Cannot perform a binary save while a binary load is in effect.\n");
return(0);
}
/*================*/
/* Open the file. */
/*================*/
if ((fp = GenOpen(theEnv,execStatus,fileName,"wb")) == NULL)
{
OpenErrorMessage(theEnv,execStatus,"bsave",fileName);
return(0);
}
/*==============================*/
/* Remember the current module. */
/*==============================*/
SaveCurrentModule(theEnv,execStatus);
/*==================================*/
/* Write binary header to the file. */
/*==================================*/
WriteBinaryHeader(theEnv,execStatus,fp);
/*===========================================*/
/* Initialize count variables, index values, */
/* and determine some of the data structures */
/* which need to be saved. */
/*===========================================*/
ExpressionData(theEnv,execStatus)->ExpressionCount = 0;
InitializeFunctionNeededFlags(theEnv,execStatus);
InitAtomicValueNeededFlags(theEnv,execStatus);
FindHashedExpressions(theEnv,execStatus);
FindNeededItems(theEnv,execStatus);
SetAtomicValueIndices(theEnv,execStatus,FALSE);
/*===============================*/
/* Save the functions and atoms. */
/*===============================*/
WriteNeededFunctions(theEnv,execStatus,fp);
WriteNeededAtomicValues(theEnv,execStatus,fp);
/*=========================================*/
/* Write out the number of expression data */
/* structures in the binary image. */
/*=========================================*/
GenWrite((void *) &ExpressionData(theEnv,execStatus)->ExpressionCount,(unsigned long) sizeof(unsigned long),fp);
/*===========================================*/
/* Save the numbers indicating the amount of */
/* memory needed to bload the constructs. */
/*===========================================*/
for (biPtr = BsaveData(theEnv,execStatus)->ListOfBinaryItems;
biPtr != NULL;
biPtr = biPtr->next)
{
if (biPtr->bsaveStorageFunction != NULL)
{
genstrncpy(constructBuffer,biPtr->name,CONSTRUCT_HEADER_SIZE);
GenWrite(constructBuffer,(unsigned long) CONSTRUCT_HEADER_SIZE,fp);
(*biPtr->bsaveStorageFunction)(theEnv,execStatus,fp);
}
}
/*====================================*/
/* Write a binary footer to the file. */
/*====================================*/
WriteBinaryFooter(theEnv,execStatus,fp);
/*===================*/
/* Save expressions. */
/*===================*/
ExpressionData(theEnv,execStatus)->ExpressionCount = 0;
BsaveHashedExpressions(theEnv,execStatus,fp);
saveExpressionCount = ExpressionData(theEnv,execStatus)->ExpressionCount;
BsaveConstructExpressions(theEnv,execStatus,fp);
ExpressionData(theEnv,execStatus)->ExpressionCount = saveExpressionCount;
/*===================*/
/* Save constraints. */
/*===================*/
WriteNeededConstraints(theEnv,execStatus,fp);
/*==================*/
/* Save constructs. */
/*==================*/
for (biPtr = BsaveData(theEnv,execStatus)->ListOfBinaryItems;
biPtr != NULL;
biPtr = biPtr->next)
{
if (biPtr->bsaveFunction != NULL)
{
genstrncpy(constructBuffer,biPtr->name,CONSTRUCT_HEADER_SIZE);
GenWrite(constructBuffer,(unsigned long) CONSTRUCT_HEADER_SIZE,fp);
(*biPtr->bsaveFunction)(theEnv,execStatus,fp);
}
}
/*===================================*/
/* Save a binary footer to the file. */
/*===================================*/
WriteBinaryFooter(theEnv,execStatus,fp);
/*===========*/
/* Clean up. */
/*===========*/
RestoreAtomicValueBuckets(theEnv,execStatus);
/*=================*/
/* Close the file. */
/*=================*/
GenClose(theEnv,execStatus,fp);
/*=============================*/
/* Restore the current module. */
/*=============================*/
RestoreCurrentModule(theEnv,execStatus);
/*========================================*/
/* Return TRUE to indicate success. */
/*========================================*/
return(TRUE);
}
