functionArray GetFunctions(){
numerate(true);
functionArray funcs = (functionArray)calloc(NUMFUNCS, sizeof(void *));
funcs[numerate(false)] = TS_OpenFilePointer;
funcs[numerate(false)] = TS_RemoveFilePointer;
funcs[numerate(false)] = TS_GetFileListPointer;
funcs[numerate(false)] = TS_DoesFileExistPointer;
return funcs;
}
void generateghosts(vcsect* vcs,hlpcsptr* alll)
{ hlpcsptr indpl;
vcs_stat=*vcs;
fillLgrArray(); /* for every diagram vertex a list */
/* of lagrangian vertex is attached */
makeSkelet(); /* this is a set of program */
mkindeploops(&indpl); /* to create list of all posible */
mkallloops(indpl,alll); /* ghost and antiGhost loops */
mkorientedloops(alll); /* */
insertPermition(*alll);
preliminaryTest(alll); /* remove Ghost maps that have */
insert_v_s_t(alll);
numerate(*alll);
setLorInd(*alll);
vectorFactor(*alll);
*vcs=vcs_stat;
} /* GenerateGousts */
