X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Usermode%2FLibraries%2Fld-acess.so_src%2Floadlib.c;h=31dcbd8acfa23840d954df1e2b555c7a78fee44f;hb=d8d31a4ec9a28eb8de493146ce75e8238e8e13b1;hp=e5090ddd99273b2a5e9abec52d079da3ee270aeb;hpb=43f12a083f112a410859597c5f45e78b1de2e7c8;p=tpg%2Facess2.git

diff --git a/Usermode/Libraries/ld-acess.so_src/loadlib.c b/Usermode/Libraries/ld-acess.so_src/loadlib.c
index e5090ddd..31dcbd8a 100644
--- a/Usermode/Libraries/ld-acess.so_src/loadlib.c
+++ b/Usermode/Libraries/ld-acess.so_src/loadlib.c
@@ -3,6 +3,9 @@
  By thePowersGang
 */
 #include "common.h"
+#include <stdint.h>
+#include <stdbool.h>
+#include <acess/sys.h>
 
 #define DEBUG	0
 
@@ -12,26 +15,62 @@
 # define DEBUGS(v...)	
 #endif
 
-// === PROTOTYPES ===
-Uint	IsFileLoaded(char *file);
- int	GetSymbolFromBase(Uint base, char *name, Uint *ret);
+#define MAX_QUEUED_ENTRYPOINTS	8
 
-// === CONSTANTS ===
-const struct {
-	Uint	Value;
+// === IMPORTS ===
+extern const struct {
+	void	*Value;
 	char	*Name;
-}	caLocalExports[] = {
-	{(Uint)gLoadedLibraries, "gLoadedLibraries"}
-};
+}	caLocalExports[];
+extern const int	ciNumLocalExports;
+extern char	**gEnvP;
+extern char	gLinkedBase[];
+
+// === TYPES ===
+typedef void	tLibEntry(void *, int, char *[], char**);
+
+// === PROTOTYPES ===
+void	*IsFileLoaded(const char *file);
 
 // === GLOABLS ===
 tLoadedLib	gLoadedLibraries[MAX_LOADED_LIBRARIES];
 char	gsLoadedStrings[MAX_STRINGS_BYTES];
 char	*gsNextAvailString = gsLoadedStrings;
+struct sQueuedEntry {
+	void	*Base;
+	tLibEntry	*Entry;
+}	gaQueuedEntrypoints[MAX_QUEUED_ENTRYPOINTS];
+ int	giNumQueuedEntrypoints;
 //tLoadLib	*gpLoadedLibraries = NULL;
 
 // === CODE ===
-char *FindLibrary(char *DestBuf, char *SoName, char *ExtraSearchDir)
+void ldacess_DumpLoadedLibraries(void)
+{
+	for( int i = 0; i < MAX_LOADED_LIBRARIES; i ++ )
+	{
+		if(gLoadedLibraries[i].Base == 0)	break;	// Last entry has Base set to NULL
+		_SysDebug("%p: %s",
+			gLoadedLibraries[i].Base,
+			gLoadedLibraries[i].Name
+			);
+	}
+}
+
+/**
+ * \brief Call queued up entry points (after relocations completed) 
+ */
+void CallQueuedEntrypoints(char **EnvP)
+{
+	while( giNumQueuedEntrypoints )
+	{
+		giNumQueuedEntrypoints --;
+		const struct sQueuedEntry	*qe = &gaQueuedEntrypoints[giNumQueuedEntrypoints];
+		DEBUGS("Calling EP %p for %p", qe->Entry, qe->Base);
+		qe->Entry(qe->Base, 0, NULL, EnvP);
+	}
+}
+
+const char *FindLibrary(char *DestBuf, const char *SoName, const char *ExtraSearchDir)
 {	
 	// -- #1: Executable Specified
 	if(ExtraSearchDir)
@@ -55,60 +94,79 @@ char *FindLibrary(char *DestBuf, char *SoName, char *ExtraSearchDir)
 
 /**
  */
-Uint LoadLibrary(char *SoName, char *SearchDir, char **envp)
+void *LoadLibrary(const char *SoName, const char *SearchDir, char **envp)
 {
 	char	sTmpName[1024];
-	char	*filename;
-	Uint	iArg;
-	void	(*fEntry)(int, int, char *[], char**);
+	void	*base;
 	
-	DEBUGS("LoadLibrary: (filename='%s', envp=0x%x)\n", filename, envp);
+	DEBUGS("LoadLibrary: (SoName='%s', SearchDir='%s', envp=%p)", SoName, SearchDir, envp);
 	
 	// Create Temp Name
-	filename = FindLibrary(sTmpName, SoName, SearchDir);
+	const char *filename = FindLibrary(sTmpName, SoName, SearchDir);
 	if(filename == NULL) {
-		DEBUGS("LoadLibrary: RETURN 0\n");
+		DEBUGS("LoadLibrary: RETURN 0");
 		return 0;
 	}
-	DEBUGS(" LoadLibrary: filename='%s'\n", filename);
-	
-	if( (iArg = IsFileLoaded(filename)) )
-		return iArg;
+	DEBUGS(" LoadLibrary: filename='%s'", filename);
 	
+	if( (base = IsFileLoaded(filename)) )
+		return base;
+
+	DEBUGS(" LoadLibrary: SysLoadBin()");	
 	// Load Library
-	iArg = SysLoadBin(filename, (Uint*)&fEntry);
-	if(iArg == 0) {
-		DEBUGS("LoadLibrary: RETURN 0\n");
+	tLibEntry	*fEntry;
+	base = _SysLoadBin(filename, (void**)&fEntry);
+	if(!base) {
+		DEBUGS("LoadLibrary: RETURN 0");
 		return 0;
 	}
 	
-	DEBUGS(" LoadLibrary: iArg=0x%x, iEntry=0x%x\n", iArg, fEntry);
+	DEBUGS(" LoadLibrary: iArg=%p, fEntry=%p", base, fEntry);
 	
 	// Load Symbols
-	fEntry = (void*)DoRelocate( iArg, envp, filename );
+	fEntry = DoRelocate( base, envp, filename );
+	if( !fEntry ) {
+		return 0;
+	}
 	
 	// Call Entrypoint
-	DEBUGS(" LoadLibrary: '%s' Entry 0x%x\n", SoName, fEntry);
-	fEntry(iArg, 0, NULL, envp);
+	// - TODO: Queue entrypoint calls
+	if( giNumQueuedEntrypoints >= MAX_QUEUED_ENTRYPOINTS ) {
+		SysDebug("ERROR - Maximum number of queued entrypoints exceeded on %p '%s'",
+			base, SoName);
+		return 0;
+	}
+	gaQueuedEntrypoints[giNumQueuedEntrypoints].Base  = base;
+	gaQueuedEntrypoints[giNumQueuedEntrypoints].Entry = fEntry;
+	giNumQueuedEntrypoints ++;
 	
-	DEBUGS("LoadLibrary: RETURN 1\n");
-	return iArg;
+	DEBUGS("LoadLibrary: RETURN success");
+	return base;
 }
 
 /**
  * \fn Uint IsFileLoaded(char *file)
  * \brief Determine if a file is already loaded
  */
-Uint IsFileLoaded(char *file)
+void *IsFileLoaded(const char *file)
 {
 	 int	i;
 	DEBUGS("IsFileLoaded: (file='%s')", file);
+
+	// Applications link against either libld-acess.so or ld-acess.so
+	if( strcmp(file, "/Acess/Libs/libld-acess.so") == 0
+	 || strcmp(file, "/Acess/Libs/ld-acess.so") == 0 )
+	{
+		DEBUGS("IsFileLoaded: Found local (%p)", &gLinkedBase);
+		return &gLinkedBase;
+	}
+
 	for( i = 0; i < MAX_LOADED_LIBRARIES; i++ )
 	{
 		if(gLoadedLibraries[i].Base == 0)	break;	// Last entry has Base set to NULL
 		DEBUGS(" strcmp('%s', '%s')", gLoadedLibraries[i].Name, file);
 		if(strcmp(gLoadedLibraries[i].Name, file) == 0) {
-			DEBUGS("IsFileLoaded: Found %i (0x%x)", i, gLoadedLibraries[i].Base);
+			DEBUGS("IsFileLoaded: Found %i (%p)", i, gLoadedLibraries[i].Base);
 			return gLoadedLibraries[i].Base;
 		}
 	}
@@ -120,12 +178,12 @@ Uint IsFileLoaded(char *file)
  * \fn void AddLoaded(char *File, Uint base)
  * \brief Add a file to the loaded list
  */
-void AddLoaded(char *File, Uint base)
+void AddLoaded(const char *File, void *base)
 {
 	 int	i, length;
 	char	*name = gsNextAvailString;
 	
-	DEBUGS("AddLoaded: (File='%s', base=0x%x)", File, base);
+	DEBUGS("AddLoaded: (File='%s', base=%p)", File, base);
 	
 	// Find a free slot
 	for( i = 0; i < MAX_LOADED_LIBRARIES; i ++ )
@@ -149,14 +207,14 @@ void AddLoaded(char *File, Uint base)
 	strcpy(name, File);
 	gLoadedLibraries[i].Name = name;
 	gsNextAvailString = &name[length+1];
-	DEBUGS("'%s' (0x%x) loaded as %i\n", name, base, i);
+	DEBUGS("'%s' (%p) loaded as %i", name, base, i);
 	return;
 }
 
 /**
  * \fn void Unload(Uint Base)
  */
-void Unload(Uint Base)
+void Unload(void *Base)
 {	
 	 int	i, j;
 	 int	id;
@@ -168,7 +226,7 @@ void Unload(Uint Base)
 	if(id == MAX_LOADED_LIBRARIES)	return;
 	
 	// Unload Binary
-	SysUnloadBin( Base );
+	_SysUnloadBin( Base );
 	// Save String Pointer
 	str = gLoadedLibraries[id].Name;
 	
@@ -193,41 +251,68 @@ void Unload(Uint Base)
 }
 
 /**
- \fn Uint GetSymbol(char *name)
+ \fn Uint GetSymbol(const char *name)
  \brief Gets a symbol value from a loaded library
 */
-Uint GetSymbol(char *name)
+int GetSymbol(const char *name, void **Value, size_t *Size, void *IgnoreBase)
 {
-	 int	i;
-	Uint	ret;
-	for(i=0;i<sizeof(caLocalExports)/sizeof(caLocalExports[0]);i++)
+	//SysDebug("GetSymbol: (%s)");
+	for( int i = 0; i < ciNumLocalExports; i ++ )
 	{
-		if( strcmp(caLocalExports[i].Name, name) == 0 )
-			return caLocalExports[i].Value;
+		if( strcmp(caLocalExports[i].Name, name) == 0 ) {
+			*Value = caLocalExports[i].Value;
+			if(Size)
+				*Size = 0;
+			//SysDebug("GetSymbol: Local %p+0x%x", *Value, 0);
+			return 1;
+		}
 	}
-	
-	for(i=0;i<sizeof(gLoadedLibraries)/sizeof(gLoadedLibraries[0]);i++)
+
+	bool have_weak = false;	
+	for(int i = 0; i < MAX_LOADED_LIBRARIES && gLoadedLibraries[i].Base != 0; i ++)
 	{
-		if(gLoadedLibraries[i].Base == 0)	break;
+		// Allow ignoring the current module
+		if( gLoadedLibraries[i].Base == IgnoreBase ) {
+			//SysDebug("GetSymbol: Ignore %p", gLoadedLibraries[i].Base);
+			continue ;
+		}
 		
-		//SysDebug(" GetSymbol: Trying 0x%x, '%s'\n",
+		//SysDebug(" GetSymbol: Trying 0x%x, '%s'",
 		//	gLoadedLibraries[i].Base, gLoadedLibraries[i].Name);
-		if(GetSymbolFromBase(gLoadedLibraries[i].Base, name, &ret))	return ret;
+		void	*tmpval;
+		size_t	tmpsize;
+		int rv = GetSymbolFromBase(gLoadedLibraries[i].Base, name, &tmpval, &tmpsize);
+		if(rv)
+		{
+			*Value = tmpval;
+			*Size = tmpsize;
+			if( rv == 1 ) {
+				return 1;
+			}
+			have_weak = true;
+		}
+	}
+	if(have_weak) {
+		return 2;
+	}
+	else {
+		return 0;
 	}
-	SysDebug("GetSymbol: === Symbol '%s' not found ===\n", name);
-	return 0;
 }
 
 /**
  \fn int GetSymbolFromBase(Uint base, char *name, Uint *ret)
  \breif Gets a symbol from a specified library
 */
-int GetSymbolFromBase(Uint base, char *name, Uint *ret)
+int GetSymbolFromBase(void *base, const char *name, void **ret, size_t *Size)
 {
-	if(*(Uint32*)base == (0x7F|('E'<<8)|('L'<<16)|('F'<<24)))
-		return ElfGetSymbol(base, name, ret);
-	if(*(Uint16*)base == ('M'|('Z'<<8)))
-		return PE_GetSymbol(base, name, ret);
+	uint8_t	*hdr = base;
+	if(hdr[0] == 0x7F && hdr[1] == 'E' && hdr[2] == 'L' && hdr[3] == 'F')
+		return ElfGetSymbol(base, name, ret, Size);
+	if(hdr[0] == 'M' && hdr[1] == 'Z')
+		return PE_GetSymbol(base, name, ret, Size);
+	SysDebug("Unknown type at %p (%02x %02x %02x %02x)", base,
+		hdr[0], hdr[1], hdr[2], hdr[3]);
 	return 0;
 }