PureBasic Forums - English

Code: Select all

; Assuming you convert...
XIncludeFile "wtypes.pbi"

#BYTE ACTIONPARAM_NONE = 0;
#MaxActionParams.w = 10;

; All reduce to long...
;
;typedef char* pCharArray[MaxActionParams];
;typedef void(__stdcall *AddActionProcType)(int IDNum,char* Name, char* Hint,char Params[]/*,BYTE NumParams*/);
;typedef void(__stdcall *AddFileProcType)(char*,bool AddFlag);
;typedef void(__stdcall *GetVarProcType)(char* VarName, char*& Value);
;typedef void(__stdcall *SetVarProcType)(char* VarName, char* Value);
;typedef void(__stdcall *PlayActionProcType)(char*);
;typedef bool(__stdcall *InterfaceProcType)(int InterfaceID,char* Data);
;typedef void(__stdcall *dllHandlerProcType)(int Reason);

xnbAddAction.l  ; AddActionProcType
nbAddFile.l     ; AddFileProcType 
nbGetVar.l      ; GetVarProcType 
nbSetVar.l      ; SetVarProcType 
nbPlayAction.l  ; PlayActionProcType 
nbInterface.l   ; InterfaceProcType 
nbWinHandle.l   ; HWND 

;extern "C"{
;bool __declspec(dllexport) __stdcall nbEditAction(int IDNum, pCharArray& Params);
;bool __declspec(dllexport) __stdcall nbExecAction(int IDNum, pCharArray& Params);
;void __declspec(dllexport) __stdcall nbMessage(int MsgCode, int Reserved);
;void __declspec(dllexport) __stdcall nbInitPlugIn(HWND WinHandle, char*& PlugInTitle, char*& PlugInPublisher, char*& PlugInHint);
;void __declspec(dllexport) __stdcall nbRegisterScriptProcessor(PlayActionProcType PlayActionProc);
;void __declspec(dllexport) __stdcall nbRegisterInterfaceAccess(InterfaceProcType InterfaceProc);
;void __declspec(dllexport) __stdcall nbRegisterPlugIn(AddActionProcType AddActionProc, AddFileProcType AddFileProc,
;GetVarProcType VarGetFunc, SetVarProcType VarSetFunc);
;
; Not sure if these actually do return byte or long...
;
Declare.b nbEditAction(IDNum.w, Params.l);
Declare.b nbExecAction(IDNum.w, Params.l);
Declare nbMessage(MsgCode.w, Reserved.w);
Declare nbInitPlugIn(WinHandle.l, PlugInTitle.l, PlugInPublisher.l, PlugInHint.l);
Declare nbRegisterScriptProcessor(PlayActionProc.l);
Declare nbRegisterInterfaceAccess(InterfaceProc.l);
Declare nbRegisterPlugIn(AddActionProc.l, AddFileProc.l, VarGetFunc.l, VarSetFunc.l);

;void FreeStr(char* S){
;if(S!=NULL){GlobalFree(HGLOBAL(S));}
;S=NULL;
;}
;
Procedure FreeStr(S.s)
  if S: GlobalFree_(S): endif
  S = 0
EndProcedure

;void SetStr(char*& Dest,char* Source){
;int slngth=0;while(Source[slngth]){slngth++;}
;if(Dest!=NULL){GlobalFree(HGLOBAL(Dest));}
;Dest=(char*)(GlobalAlloc(GMEM_FIXED,slngth+1));
;strcpy(Dest,Source);
}
;
Procedure SetStr(Dest.s, Source.s)
  slngth.w = 0;
  ;while(Source[slngth]){slngth++;}
  slngth = len(Source)
  
  if Dest; GlobalFree_(Dest): endif
  Dest = GlobalAlloc_(#GMEM_FIXED,slngth+1);
  strcpy_(Dest,Source);
EndProcedure


;void nbAddAction(int IDNum,char* Name, char* Hint,char Params[],BYTE NumParams){
;  __asm{
;    push eax
;    xor eax,eax
;    mov al,NumParams
;    push eax
;    push eax
;  }
;  xnbAddAction(IDNum,Name,Hint,Params);
;  __asm pop eax;
;}
ProcedureDLL nbAddAction(IDNum.w, Name.s, Hint.s, Params.b[], NumParams.b) ; UNFINISHED
EndProcedure

; Assumed missing {
;bool __declspec(dllexport) __stdcall nbEditAction(int IDNum, pCharArray& Params){
;  switch(IDNum){
;  case 1:
;  break;
;  }
;  return TRUE;
;}
;
ProcedureDLL nbEditAction(IDNum.w, Params.l);
EndProcedure


; Assumed missing {
;bool __declspec(dllexport) __stdcall nbExecAction(int IDNum, pCharArray& Params){
;  switch(IDNum){
;    case 1:
;    break;
;  }
;  return 0;
;}
;
ProcedureDLL nbExecAction(IDNum.w, Params.l);
EndProcedure


;void __declspec(dllexport) __stdcall nbMessage(int MsgCode, int Reserved){
;  switch(MsgCode){
;    case 1:
;      break;
;    case 2:
;      break;
;    case 3:
;      break;
;    case 4:
;      break;
;    case 5:
;      break;
;    case 6:
;      break;
;  }
;}
;
ProcedureDLL nbMessage(MsgCode.w, Reserved.w);
EndProcedure


;void __declspec(dllexport) __stdcall nbInitPlugIn(HWND WinHandle, char*& PlugInTitle, char*& PlugInPublisher, char*& PlugInHint){
;  nbWinHandle = WinHandle;
;  SetStr( PlugInTitle, "Sample Plug-In");
;  SetStr(PlugInPublisher, "John Doe");
;  SetStr(PlugInHint, "Use this display a Windows message box");
;}
;
ProcedureDLL nbInitPlugIn(WinHandle.l, PlugInTitle.l, PlugInPublisher.l, PlugInHint.l);
EndProcedure

; Things look too suspicious from this point...

void __declspec(dllexport) __stdcall nbRegisterScriptProcessor(PlayActionProcType PlayActionProc)
nbPlayAction=PlayActionProc;

void __declspec(dllexport) __stdcall nbRegisterInterfaceAccess(InterfaceProcType InterfaceProc){
nbInterface = InterfaceProc;

void __declspec(dllexport) __stdcall nbRegisterPlugIn(AddActionProcType AddActionProc, AddFileProcType AddFileProc,
GetVarProcType VarGetFunc, SetVarProcType VarSetFunc){

nbGetVar=VarGetFunc;
nbSetVar=VarSetFunc;
xnbAddAction=AddActionProc;
nbAddFile=AddFileProc;

BOOL WINAPI DllEntryPoint(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved){

if(fdwReason==DLL_PROCESS_DETACH)