mirror of
https://github.com/dhewm/dhewm3.git
synced 2024-12-12 22:02:06 +00:00
177 lines
4.6 KiB
C
177 lines
4.6 KiB
C
/* DLL Startup function
|
|
* This file gets linked in when the user does not define a main function
|
|
* that is, if he wants to compile a dll
|
|
*/
|
|
|
|
#define DEBUG 1
|
|
|
|
#include <aros/debug.h>
|
|
|
|
#define __DLL_LIB_BUILD
|
|
|
|
#include <exec/exec.h>
|
|
#include <proto/exec.h>
|
|
#include <proto/dos.h>
|
|
#include <clib/alib_protos.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include "dll.h"
|
|
|
|
/*
|
|
* Only DLL's can export symbols so this function is defined here.
|
|
* Note that on the other hand normal executables *can* have a symbolimport table,
|
|
* so dllImportSymbols is defined elsewhere.
|
|
*/
|
|
|
|
void dllExportSymbol(dll_tSymbolQuery *sym)
|
|
{
|
|
dll_tExportSymbol *symtable=DLL_ExportSymbols; //reference DLL's export symbol table
|
|
|
|
if(!sym->SymbolPointer)
|
|
return; //Paranoia
|
|
|
|
while(symtable->SymbolAddress) //End of table ??
|
|
{
|
|
if(strcmp(symtable->SymbolName,sym->SymbolName)==0)
|
|
{
|
|
//FIXME: Stackframe handling
|
|
*sym->SymbolPointer=symtable->SymbolAddress;
|
|
return;
|
|
}
|
|
symtable++;
|
|
}
|
|
|
|
*sym->SymbolPointer=0L; //Symbol not found
|
|
}
|
|
|
|
/*
|
|
** The actual main function of a DLL
|
|
*/
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
struct MsgPort *myport;
|
|
char PortName[255];
|
|
dll_tMessage *msg;
|
|
int expunge=0L;
|
|
int opencount=0L;
|
|
|
|
bug("[DynFile] %s('%s')\n", __PRETTY_FUNCTION__, argv[0]);
|
|
|
|
/*
|
|
* If an argument was passed, use it as the port name,
|
|
* otherwise use the program name
|
|
*/
|
|
if (argc>1)
|
|
{
|
|
char *argPort = argv[1];
|
|
|
|
if (argPort[0] == '"')
|
|
strncpy(PortName, &argPort[1], strlen(argPort) - 2);
|
|
else
|
|
strcpy(PortName, argPort);
|
|
}
|
|
else
|
|
{
|
|
strcpy(PortName, argv[0]);
|
|
}
|
|
|
|
bug("[DynFile] %s: Portname '%s'\n", __PRETTY_FUNCTION__, PortName);
|
|
/*
|
|
* Process symbol import table
|
|
*/
|
|
if(!dllImportSymbols())
|
|
exit(0L);
|
|
|
|
bug("[DynFile] %s: symbols imported\n", __PRETTY_FUNCTION__);
|
|
|
|
/*
|
|
* Call DLL specific constructor
|
|
*/
|
|
if(!DLL_Init())
|
|
exit(0L);
|
|
|
|
bug("[DynFile] %s: initialised\n", __PRETTY_FUNCTION__);
|
|
|
|
/*
|
|
* Create a (public) message port
|
|
*/
|
|
myport = CreatePort(PortName,0);
|
|
if (!myport)
|
|
exit(0l);
|
|
|
|
bug("[DynFile] %s: port @ 0x%p\n", __PRETTY_FUNCTION__, myport);
|
|
|
|
/*
|
|
** Loop until DLL expunges (that is if a CloseMessage leads to opencount==0)
|
|
** and no pending Messages are left
|
|
*/
|
|
while((msg=(dll_tMessage *)GetMsg(myport))||(!expunge))
|
|
{
|
|
if (msg)
|
|
{
|
|
switch(msg->dllMessageType)
|
|
{
|
|
case DLLMTYPE_Open:
|
|
bug("[DynFile] %s: DLLMTYPE_Open\n", __PRETTY_FUNCTION__);
|
|
/*
|
|
* Stack type checking should go here. Might be ommited for strictly
|
|
* private DLLs, or when stack frame compatibility can be 100% assured.
|
|
* FIXME: Not handled for now
|
|
*/
|
|
opencount++;
|
|
if(opencount>0)
|
|
expunge=0L;
|
|
msg->dllMessageData.dllOpen.ErrorCode=DLLERR_NoError;
|
|
break;
|
|
|
|
case DLLMTYPE_Close:
|
|
bug("[DynFile] %s: DLLMTYPE_Close\n", __PRETTY_FUNCTION__);
|
|
opencount--;
|
|
if(opencount<=0L) // <0 ????
|
|
expunge=1L;
|
|
break;
|
|
|
|
case DLLMTYPE_SymbolQuery:
|
|
bug("[DynFile] %s: DLLMTYPE_SymbolQuery\n", __PRETTY_FUNCTION__);
|
|
dllExportSymbol(&msg->dllMessageData.dllSymbolQuery);
|
|
//printf("Symbol Query for %s : %p\n",msg->dllMessageData.dllSymbolQuery.SymbolName,
|
|
// *msg->dllMessageData.dllSymbolQuery.SymbolPointer);
|
|
break;
|
|
|
|
case DLLMTYPE_Kill:
|
|
bug("[DynFile] %s: DLLMTYPE_Kill\n", __PRETTY_FUNCTION__);
|
|
expunge=1L;
|
|
break;
|
|
}
|
|
|
|
/*
|
|
* Send the message back
|
|
*/
|
|
ReplyMsg((struct Message *)msg);
|
|
}
|
|
|
|
/*
|
|
* Wait for messages to pop up
|
|
* Note that if the DLL is expunged it doesn't wait anymore,
|
|
* but it still processes all pending messages (including open messages
|
|
* which can disable the expunge flag).
|
|
* FIXME: Is this multithread safe ??
|
|
*/
|
|
if(!expunge)
|
|
WaitPort(myport);
|
|
}
|
|
|
|
/*
|
|
* Delete public port
|
|
*/
|
|
DeletePort(myport);
|
|
|
|
/*
|
|
* Call DLL specific destructor
|
|
*/
|
|
DLL_DeInit();
|
|
|
|
return 0L;
|
|
}
|