/*
 * Copyright (c) 1987 Fujitsu
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */
/*
	map.c -- Routines to print out load map for the Slinky linker.

	Chip Morningstar -- Lucasfilm Ltd.

	26-March-1985

*/

#include "slinkyTypes.h"
#include "slinkyGlobals.h"
#include "map.h"
#include "debugPrint.h"
#include "link.h"

  int
compareLoadMapEntries(loadMapTableEntryType *entry1, loadMapTableEntryType *entry2)
{
	int	result;

	if ((result = strcmplc(entry1->symbol->symbolName, entry2->
			symbol->symbolName)) != 0)
		return(result);
	else if (entry1->symbol->symbolValue < entry2->symbol->symbolValue)
		return(-1);
	else if (entry1->symbol->symbolValue > entry2->symbol->symbolValue)
		return(1);
	else
		return(strcmplc(entry1->fileName, entry2->fileName));
}

  void
outputLoadMap(void)
{
	loadMapTableEntryType	*loadMapTable;
	loadMapTableEntryType	*loadMapPtr;
	objectFileListType	*inputFileList;
	int			 symbolCount;
	int			 i;

	loadMapPtr = loadMapTable = typeAllocBlock(loadMapTableEntryType,
	    totalSymbolCount);
	for (inputFileList = objectFileList; inputFileList != NULL;
		inputFileList = inputFileList->nextObjectFile) {
	    if (inputFileList->name != NULL) {
	        for (symbolCount=0; symbolCount < inputFileList->symbolCount;
		        symbolCount++) {
		    loadMapPtr->symbol = inputFileList->symbolTable[
			symbolCount];
		    loadMapPtr->fileName = inputFileList->name;
		    loadMapPtr++;
		}
	    }
	}
	qsort(loadMapTable, totalSymbolCount, sizeof(loadMapTableEntryType),
	    compareLoadMapEntries);
	loadMapPtr = loadMapTable;
	for (i=0; i<totalSymbolCount; i++) {
		if (i!=0 && strcmplc(loadMapPtr->symbol->symbolName,
				(loadMapPtr-1)->symbol->symbolName)==0 &&
				loadMapPtr->symbol->symbolValue==(loadMapPtr-
				1)->symbol->symbolValue && loadMapPtr->
				symbol->symbolClass==(loadMapPtr-1)->symbol->
				symbolClass) {
			if (!leaveOffLoadFiles)
				fprintf(mapFileOutput, ", %s", loadMapPtr->
					fileName);
		} else {
			fprintf(mapFileOutput, "\n");
			printLoadMapSymbol(loadMapPtr->symbol);
			if (!leaveOffLoadFiles)
				fprintf(mapFileOutput, " %s", loadMapPtr->
					fileName);
		}
		loadMapPtr++;
	}
	fprintf(mapFileOutput, "\n");
}