shithub: rgbds

ref: e12cb95079f001aae1b1eeecd2463ccc61da1c30
dir: /src/link/library.c/

#include	<stdio.h>
#include	<stdlib.h>
#include	<string.h>
#include	"types.h"
#include	"mylink.h"
#include	"main.h"

static	BBOOL	symboldefined( char *name )
{
	struct	sSection	*pSect;

	pSect=pSections;

	while( pSect )
	{
		ULONG	i;

		for( i=0; i<pSect->nNumberOfSymbols; i+=1 )
		{
			if( (pSect->tSymbols[i]->Type==SYM_EXPORT)
			||	(	(pSect->tSymbols[i]->Type==SYM_LOCAL)
				&&	(pSect==pSect->tSymbols[i]->pSection) ) )
			{
				if( strcmp(pSect->tSymbols[i]->pzName,name)==0 )
					return( 1 );
			}

		}
		pSect=pSect->pNext;
	}
	return( 0 );
}

static	BBOOL	addmodulecontaining( char *name )
{
	struct	sSection	**ppLSect;

	ppLSect=&pLibSections;

	while( *ppLSect )
	{
		ULONG	i;

		for( i=0; i<(*ppLSect)->nNumberOfSymbols; i+=1 )
		{
			if( ((*ppLSect)->tSymbols[i]->Type==SYM_EXPORT)
			||	(	((*ppLSect)->tSymbols[i]->Type==SYM_LOCAL)
				&&	((*ppLSect)==(*ppLSect)->tSymbols[i]->pSection) ) )
			{
				if( strcmp((*ppLSect)->tSymbols[i]->pzName,name)==0 )
				{
					struct	sSection	**ppSect;
					ppSect=&pSections;
					while( *ppSect )
						ppSect=&((*ppSect)->pNext);

					*ppSect = *ppLSect;
					*ppLSect = (*ppLSect)->pNext;
					(*ppSect)->pNext = NULL;
					return( 1 );
				}
			}

		}
		ppLSect=&((*ppLSect)->pNext);
	}
	return( 0 );
}

void	AddNeededModules( void )
{
	struct	sSection	*pSect;

	if( (options&OPT_SMART_C_LINK)==0 )
	{
		struct	sSection	**ppLSect;

		ppLSect=&pLibSections;

		while( *ppLSect )
		{
			struct	sSection	**ppSect;
			ppSect=&pSections;
			while( *ppSect )
				ppSect=&((*ppSect)->pNext);

			*ppSect = *ppLSect;
			*ppLSect = (*ppLSect)->pNext;
			(*ppSect)->pNext = NULL;

			/*ppLSect=&((*ppLSect)->pNext);*/
		}
		return;
	}

	if( options&OPT_SMART_C_LINK )
	{
		if( !addmodulecontaining( smartlinkstartsymbol ) )
		{
			sprintf( temptext, "Can't find start symbol '%s'", smartlinkstartsymbol );
			fatalerror( temptext );
		}
		else
			printf( "Smart linking with symbol '%s'\n", smartlinkstartsymbol );
	}

	pSect=pSections;

	while( pSect )
	{
		ULONG	i;

		for( i=0; i<pSect->nNumberOfSymbols; i+=1 )
		{
			if( (pSect->tSymbols[i]->Type==SYM_IMPORT)
			||	(pSect->tSymbols[i]->Type==SYM_LOCAL) )
			{
				if( !symboldefined(pSect->tSymbols[i]->pzName) )
				{
					addmodulecontaining( pSect->tSymbols[i]->pzName );
				}
			}

		}
		pSect=pSect->pNext;
	}
}