void CleanSym( void ) /*************************/ { symbol * sym; symbol * next; #ifdef _INT_DEBUG DumpHashTable(); #endif if( !(LinkFlags & INC_LINK_FLAG) ) { for( sym = HeadSym; sym != NULL; sym = next ) { next = sym->link; FreeSymbol( sym ); } } RelSymBlock(); ReleasePass1(); }
Int2 Main(void) { Int4 StsCount = 0, StsInvalid = 0; STSHashPtr PNTR StsHashTable; STSDbNamesPtr db_name; if (!GetArgs("setsts",NUMARGS,dump_args)) { return 1; } if (!ErrSetLog (LogFileName)) { ErrShow(); } else { ErrSetOpts (ERR_CONTINUE, ERR_LOG_ON); } db_name = MemNew(sizeof(STSDbNames)); db_name->sts_db_name = StsName; db_name->sts_map_name = MapName; db_name->sts_org_name = OrgName; if((StsHashTable = InitHashTable(db_name, &StsCount, &StsInvalid)) == NULL) { ErrLogPrintf("Error in initialization of Hash Table. Exiting..."); return 1; } ErrLogPrintf("Invalid database entries found: %d\n", StsInvalid); ErrLogPrintf("Hash table created with %d sequences\n", StsCount); if((StsCount = DumpHashTable(db_name, StsHashTable)) < 0) { ErrLogPrintf("Error in dumping of Hash Table. Exiting..."); return 1; } ErrLogPrintf("Map file dumped with %d sequences\n", StsCount); return 0; }