2 AcessOS 1 - Dynamic Loader
\r
10 # define DEBUGS(v...) SysDebug(v)
\r
12 # define DEBUGS(v...)
\r
15 // === CONSTANTS ===
\r
16 #define MAX_LOADED_LIBRARIES 64
\r
17 #define MAX_STRINGS_BYTES 4096
\r
18 #define SYSTEM_LIB_DIR "/Acess/Libs/"
\r
20 // === PROTOTYPES ===
\r
21 Uint IsFileLoaded(char *file);
22 int GetSymbolFromBase(Uint base, char *name, Uint *ret);
\r
28 } gLoadedLibraries[MAX_LOADED_LIBRARIES];
\r
29 char gsLoadedStrings[MAX_STRINGS_BYTES];
\r
30 char *gsNextAvailString = gsLoadedStrings;
\r
31 //tLoadLib *gpLoadedLibraries = NULL;
\r
34 char *FindLibrary(char *DestBuf, char *SoName, char *ExtraSearchDir)
\r
36 // -- #1: Executable Specified
\r
39 strcpy(DestBuf, ExtraSearchDir);
\r
40 strcat(DestBuf, "/");
\r
41 strcat(DestBuf, SoName);
\r
42 if(file_exists(DestBuf)) return DestBuf;
\r
46 strcpy(DestBuf, SYSTEM_LIB_DIR);
\r
47 strcat(DestBuf, SoName);
\r
48 if(file_exists(DestBuf)) return DestBuf;
\r
50 // -- #3: Current Directory
\r
51 if(file_exists(SoName)) return SoName;
\r
58 Uint LoadLibrary(char *SoName, char *SearchDir, char **envp)
\r
60 char sTmpName[1024];
\r
63 void (*fEntry)(int, int, char *[], char**);
\r
65 DEBUGS("LoadLibrary: (filename='%s', envp=0x%x)\n", filename, envp);
\r
68 filename = FindLibrary(sTmpName, SoName, SearchDir);
\r
69 if(filename == NULL) {
\r
70 DEBUGS("LoadLibrary: RETURN 0\n");
\r
73 DEBUGS(" LoadLibrary: filename='%s'\n", filename);
\r
75 if( (iArg = IsFileLoaded(filename)) )
\r
79 iArg = SysLoadBin(filename, (Uint*)&fEntry);
\r
81 DEBUGS("LoadLibrary: RETURN 0\n");
\r
85 DEBUGS(" LoadLibrary: iArg=0x%x, iEntry=0x%x\n", iArg, fEntry);
\r
88 fEntry = (void*)DoRelocate( iArg, envp, filename );
\r
91 DEBUGS(" LoadLibrary: '%s' Entry 0x%x\n", SoName, fEntry);
\r
92 fEntry(iArg, 0, NULL, envp);
\r
94 DEBUGS("LoadLibrary: RETURN 1\n");
\r
99 * \fn Uint IsFileLoaded(char *file)
\r
100 * \brief Determine if a file is already loaded
\r
102 Uint IsFileLoaded(char *file)
\r
105 DEBUGS("IsFileLoaded: (file='%s')", file);
\r
106 for( i = 0; i < MAX_LOADED_LIBRARIES; i++ )
\r
108 if(gLoadedLibraries[i].Base == 0) break; // Last entry has Base set to NULL
\r
109 DEBUGS(" strcmp('%s', '%s')", gLoadedLibraries[i].Name, file);
\r
110 if(strcmp(gLoadedLibraries[i].Name, file) == 0) {
\r
111 DEBUGS("IsFileLoaded: Found %i (0x%x)", i, gLoadedLibraries[i].Base);
\r
112 return gLoadedLibraries[i].Base;
\r
115 DEBUGS("IsFileLoaded: Not Found");
\r
120 * \fn void AddLoaded(char *File, Uint base)
\r
121 * \brief Add a file to the loaded list
\r
123 void AddLoaded(char *File, Uint base)
126 char *name = gsNextAvailString;
\r
128 DEBUGS("AddLoaded: (File='%s', base=0x%x)", File, base);
\r
130 // Find a free slot
\r
131 for( i = 0; i < MAX_LOADED_LIBRARIES; i ++ )
\r
133 if(gLoadedLibraries[i].Base == 0) break;
\r
135 if(i == MAX_LOADED_LIBRARIES) {
\r
136 SysDebug("ERROR - ld-acess.so has run out of load slots!");
\r
140 // Check space in string buffer
\r
141 length = strlen(File);
\r
142 if(&name[length+1] >= &gsLoadedStrings[MAX_STRINGS_BYTES]) {
\r
143 SysDebug("ERROR - ld-acess.so has run out of string buffer memory!");
\r
148 gLoadedLibraries[i].Base = base;
\r
149 strcpy(name, File);
\r
150 gLoadedLibraries[i].Name = name;
\r
151 gsNextAvailString = &name[length+1];
\r
152 DEBUGS("'%s' (0x%x) loaded as %i\n", name, base, i);
\r
157 * \fn void Unload(Uint Base)
\r
159 void Unload(Uint Base)
\r
164 for( id = 0; id < MAX_LOADED_LIBRARIES; id++ )
\r
166 if(gLoadedLibraries[id].Base == Base) break;
\r
168 if(id == MAX_LOADED_LIBRARIES) return;
\r
171 SysUnloadBin( Base );
\r
172 // Save String Pointer
\r
173 str = gLoadedLibraries[id].Name;
\r
175 // Compact Loaded List
\r
177 for( i = j + 1; i < MAX_LOADED_LIBRARIES; i++, j++ )
\r
179 if(gLoadedLibraries[i].Base == 0) break;
\r
181 strcpy(str, gLoadedLibraries[i].Name);
\r
182 str += strlen(str)+1;
\r
184 gLoadedLibraries[j].Base = gLoadedLibraries[i].Base;
\r
185 gLoadedLibraries[j].Name = str;
\r
189 gLoadedLibraries[j].Base = 0;
\r
190 gLoadedLibraries[j].Name = NULL;
\r
191 // Save next string
\r
192 gsNextAvailString = str;
\r
196 \fn Uint GetSymbol(char *name)
197 \brief Gets a symbol value from a loaded library
199 Uint GetSymbol(char *name)
203 for(i=0;i<sizeof(gLoadedLibraries)/sizeof(gLoadedLibraries[0]);i++)
\r
205 if(gLoadedLibraries[i].Base == 0) break;
\r
207 //SysDebug(" GetSymbol: Trying 0x%x, '%s'\n",
\r
208 // gLoadedLibraries[i].Base, gLoadedLibraries[i].Name);
209 if(GetSymbolFromBase(gLoadedLibraries[i].Base, name, &ret)) return ret;
\r
211 SysDebug("GetSymbol: === Symbol '%s' not found ===\n", name);
\r
216 \fn int GetSymbolFromBase(Uint base, char *name, Uint *ret)
217 \breif Gets a symbol from a specified library
219 int GetSymbolFromBase(Uint base, char *name, Uint *ret)
221 if(*(Uint32*)base == (0x7F|('E'<<8)|('L'<<16)|('F'<<24)))
222 return ElfGetSymbol(base, name, ret);
223 if(*(Uint16*)base == ('M'|('Z'<<8)))
224 return PE_GetSymbol(base, name, ret);