/*------------------------------------------------------------------------------
	FILE	:	Link.c
	CREATED	:	19/05/97
	AUTHOR	:	Catalin Cocos
	CONTENTS:	linktable/position functions
------------------------------------------------------------------------------*/

#include "StdInc.h"
#include "Register.h"
#include "Parser.h"

/* Globals
-------------*/

tdst_DSHash	g_HashLinks;	/* the linktable */
tdst_DSArray	g_ArRefs;		/* thereferences, grouped by file */
tdst_DSArray	g_ArFilenames;	/* thefilename strings */

int InstanceCount = 0;			/* init counter */

char LDT_EMPTY_STR[1] = {0};

/*------------------------------------------------------------------------------
	DESC.	:	computes the dispersion value for a link
	CREATED	:	98/05/19        
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
int LDT_Link_Dispersion( LDT_tdst_Link* pObj )
{
	char* szName;
	unsigned char pHashVal = 0;
	if( !pObj ) return 256;
	szName = (pObj->dwFlags & LDT_LF_FILE)? pObj->szFile: pObj->szName;
	while(*szName)	pHashVal = (unsigned char) ( (pHashVal<<5) + pHashVal + *szName++);
	return pHashVal;
/*/
	unsigned long pHashVal = 0;
	if( !pObj ) return 65536;
	szName = (pObj->dwFlags & LDT_LF_FILE)? pObj->szFile: pObj->szName;
	while(*szName)	pHashVal = ((pHashVal<<7) + pHashVal + *szName++);
	return (unsigned short)pHashVal;*/
}


/*------------------------------------------------------------------------------
	DESC.	:	Compares two links
	CREATED	:	98/05/19        
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
int LDT_Compare_Links(const void** _pA, const void** _pB)
{
	LDT_tdst_Link* A = (LDT_tdst_Link*) *_pA;
	LDT_tdst_Link* B = (LDT_tdst_Link*) *_pB;
	
	int Result = A->szFile - B->szFile;
	if(Result == 0)
	{
		Result =  A->Type - B->Type;
		if(Result == 0)
		{
			Result = strcmp( A->szParent, B->szParent);
			if(Result == 0)
				Result = strcmp( A->szName, B->szName );
		}
	}
	if( Result<0 ) return -1;
	return Result;
}

/*------------------------------------------------------------------------------
	DESC.	:	creates a link record, given its description
	CREATED	:	98/05/21   
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
LDT_tdst_Link* LDT_CreateLinkFromReference(	char* szSection )	/* the section description */
{
	unsigned long	dwFlags = 0;
	LDT_tdst_CallbackEntry* Type;
	
	LDT_tdst_Link* Link = NULL;
	char *szType, *szParent = NULL, *szName = NULL, *szFile = NULL;

	/* convert the input string to lower case */
	char *sz=szSection;
	for( ; *sz; sz++ )
	  if( ( *sz>='A') && ( *sz<='Z' ) )
	    *sz+='a'-'A';

	
	szParent = strchr( szSection, '^');	/* get the parent description */
	szType = strrchr( szSection, '^');	/* get the section type name */

	/* get the section type */
	if(!szType)
	{
		/* the reference is to a file */
		dwFlags = LDT_LF_FILE;			
		if((szType = strrchr( szSection, '.' )) != NULL)
			szType++;
		Type = GetType( szType, LDT_REG_FILE );
		szType = NULL;
	}
	else
	{
		/* the reference is to a section */
		szName = strrchr(szType, ':');	/* get the section name */
		if(szName) *szName++ = 0;
		*szType = 0;
		Type = GetType( szType+1, LDT_REG_SECTION);
		if( szType == szParent ) szParent = NULL;
		else *szParent++ = 0;
	}
	
	/* get the name of the file (in which the section is located) */
	if( *szSection == '*')/* the current file */
	{
		if( g_FileDesc ) szFile = g_FileDesc->szFile; /* we are inside a file, all correct */
	}
	else
	{	/* an absolute path */
		int iidx, idx = DSAr_Index( &g_ArFilenames, szSection, &iidx );
		if(idx>=0) szFile = g_ArFilenames.pData[idx]; /* we have it in the string table */
		else
		{	/* the filename is not present in the string table - it is added now */
			strcpy( szFile = (char*) malloc( strlen(szSection) + 1 ), szSection);
			DSAr_InsertAt(&g_ArFilenames, iidx, szFile );
		}
	}

	if( szFile )
	{
		/* we have a valid section description */
		Link= (LDT_tdst_Link *) malloc( sizeof( LDT_tdst_Link ) );
		if( szName && *szName)
		{
			Link->szName=(char*) malloc( strlen( szName ) +1 );
			strcpy( Link->szName, szName );
		}
		else Link->szName=LDT_EMPTY_STR;
		if( szParent )
		{
			Link->szParent=(char*) malloc( strlen( szParent) +1 );
			strcpy( Link->szParent, szParent );
		}
		else Link->szParent=LDT_EMPTY_STR;

		Link->szFile = szFile;
		Link->Type = Type;
		Link->dwFlags = dwFlags;
		Link->pObject = NULL;
		Link->pParent = g_CrtSection;
	}

	if( szType) *( szType ) = '^';
	if( szName ) *( szName-1 ) = ':';
	if( szParent) *( szParent -1 ) = '^';
	return Link;
}

/*------------------------------------------------------------------------------
	DESC.	:	creates a link record
	CREATED	:	98/05/21   
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
LDT_tdst_Link* LDT_Create_Link(	char*	szName,				/* the section name */
								char*	szParent,			/* the section parent */
								char*	szFile,				/* the file containing the section  - stored in a string table */
								LDT_tdst_CallbackEntry*	Type,
								unsigned long	dwFlags,	/* flags */
								void*			pObject,	/* the allocated memory structure or NULL */
								LDT_tdst_Link*	pParent)	/* the section that requested the loading */
{
	LDT_tdst_Link *Link;
	if (!Type) return NULL;

	Link = (LDT_tdst_Link *) malloc( sizeof( LDT_tdst_Link ) );
	if( szName && *szName )
	{
		Link->szName=(char*) malloc( strlen( szName ) +1 );
		strcpy( Link->szName, szName );
	}
	else Link->szName=LDT_EMPTY_STR;
	if( szParent && *szParent )
	{
		Link->szParent=(char*) malloc( strlen( szParent) +1 );
		strcpy( Link->szParent, szParent );
	}
	else Link->szParent=LDT_EMPTY_STR;

	Link->szFile = szFile;
	Link->Type = Type;
	Link->dwFlags = dwFlags;
	Link->pObject = pObject;
	Link->pParent = pParent;

	return Link;
}

/*------------------------------------------------------------------------------
	DESC.	:	destroys a link record
	CREATED	:	98/05/21   
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/

void LDT_Delete_Link( LDT_tdst_Link *Link )
{
	if( Link->szName != LDT_EMPTY_STR ) free( Link->szName );
	if( Link->szParent != LDT_EMPTY_STR ) free( Link->szParent );
	free(Link);
}

/*------------------------------------------------------------------------------
	DESC.	:	deletes an existing array
	CREATED	:	98/05/19        
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
int LDT_Compare_Positions(const void** _pA, const void** _pB)
{
	LDT_tdst_Position* A = (LDT_tdst_Position*) *_pA;
	LDT_tdst_Position* B = (LDT_tdst_Position*) *_pB;
	int Result = strcmp( A->szName, B->szName );
	if(Result == 0)
	{
		Result = A->Type - B->Type ;
		if(Result == 0)
			Result = strcmp( A->szParent, B->szParent);
	}
	if( Result<0 ) return -1;
	return Result;
}

/*------------------------------------------------------------------------------
	DESC.	:	creates a section position record
	CREATED	:	98/05/19        
	AUTHOR	:	Mircea Petrescu
	MODIFIED:	Catalin Cocos 98/05/22
------------------------------------------------------------------------------*/

LDT_tdst_Position *LDT_Create_Position(	char *szName,
										char *szParent,
										LDT_tdst_CallbackEntry*	Type,
										unsigned short uwFlags,
										unsigned long ulPos,
										unsigned long	nLine, 
										int iLevel
)
{
	LDT_tdst_Position *pos= (LDT_tdst_Position *) malloc( sizeof( LDT_tdst_Position ) );
	if( szName )
	{
		pos->szName=(char*) malloc( strlen( szName ) +1 );
		strcpy( pos->szName, szName );
	}
	else pos->szName=LDT_EMPTY_STR;
	if( szParent )
	{
		pos->szParent=(char*) malloc( strlen( szParent) +1 );
		strcpy( pos->szParent, szParent );
	}
	else pos->szParent=LDT_EMPTY_STR;

	pos->Type = Type;
	pos->uwFlags=uwFlags;
	pos->dwPos=ulPos;
	pos->nLine = nLine;
	pos->iLevel=iLevel;
	return pos;
}

/*------------------------------------------------------------------------------
	DESC.	:	destroys a section position record
	CREATED	:	98/05/19        
	AUTHOR	:	Mircea Petrescu
------------------------------------------------------------------------------*/

void LDT_Delete_Position( LDT_tdst_Position *pos )
{
	if( pos->szName != LDT_EMPTY_STR ) free( pos->szName );
	if( pos->szParent != LDT_EMPTY_STR ) free( pos->szParent );
	free( pos );
}




/*------------------------------------------------------------------------------
	DESC.	:	Compares two names
	CREATED	:	98/05/22
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
int LDT_Compare_Strings(const void** _pA, const void** _pB)
{
	int Result = strcmp( (char*)(*_pA), (char*)(*_pB) );
	if( Result<0 ) return -1;
	return Result;
}

/* Reference - related */

/*------------------------------------------------------------------------------
	DESC.	:	Adds a reference in the reference structure
	CREATED	:	98/05/22
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
void AddReference( LDT_tdst_Link* pLink )
{
	int idx, position;
	tdst_DSArray* pRefs;
	idx = DSAr_Index( &g_ArRefs, (LDT_tdst_Refs*) pLink, &position );
	if( idx<0 )
	{
		LDT_tdst_Refs* pNewRef = (LDT_tdst_Refs*) malloc( sizeof(LDT_tdst_Refs));
		pNewRef->szFile = pLink->szFile;
		pRefs = &(pNewRef->Links);
		DSAr_Init( pRefs );
		DSAr_SetSortMethod( pRefs, LDT_Compare_Links );
		
#ifdef LDT_MULTITHREADED
		pNewRef->pFile = NULL;
		EnterCriticalSection( &GReadExclusion );
#endif
		DSAr_InsertAt( &g_ArRefs, idx = position, pNewRef );

#ifdef LDT_MULTITHREADED
		ReleaseSemaphore( GFileLimit, 1, NULL ); /* a new file is available for reading */
		LeaveCriticalSection( &GReadExclusion );
#endif
	}
	pRefs = &( ((LDT_tdst_Refs*)g_ArRefs.pData[idx])->Links); /* the reference collection */
	if( pLink->dwFlags & LDT_LF_FILE )
	{
		/* the whole file is to be added */
		DSAr_RemoveAll( pRefs );		/* remove all the existing references */
		DSAr_Add( pRefs, pLink );		/* add the unique reference to the file */
	}
	else
	{
		if(DSAr_GetSize( pRefs ) && (((LDT_tdst_Link*)pRefs->pData[0])->dwFlags & LDT_LF_FILE ) )
			return;
		DSAr_SAdd( pRefs, pLink, 0, NULL );
	}
}


/*------------------------------------------------------------------------------
	DESC.	:	Compares two refs
	CREATED	:	98/05/22
	AUTHOR	:	Catalin Cocos
------------------------------------------------------------------------------*/
int LDT_Compare_Refs(const void** _pA, const void** _pB)
{
	int Result =  ((LDT_tdst_Refs*)*_pA)->szFile - ((LDT_tdst_Refs*)*_pB)->szFile;
	if( Result<0 ) return -1;
	return Result;
}