externals.C

Go to the documentation of this file.

/* file externals.c    */

#define MODULE_EXTERNAL 1

#include "animate.h"
#include "callall.h"

static long ExportScript(char *name, char *library);

void DeleteEffect(object *op){
 UnloadEffectLibrary(op);
 if(op->effect != NULL)X__Free(op->effect);
 op->effect=NULL;
}

void AddEffect(object *op, HWND parent){
 long l;
 char tname[256];
 l=strlen(gszDLLfile);
 strcpy((gszDLLfile+l-3),"efx");
 if(SelectSfxFileName(0,gszDLLfile,gszDLLdir,IDX_MISC_OPENEFFECT,
   "(*.EFX)|*.efx|",parent) == TRUE){
   HMODULE hLib;
   FARPROC fpFun;
   long id,result=0;
   X__MEMORY_MANAGER *Evs;
   char *(*fpFun1)(char *, HWND, long, char *, X__MEMORY_MANAGER *);
   Evs=&EviMemoryManager;
   l=strlen(gszDLLfile);
   strcpy((gszDLLfile+l-3),"dll");
   strcpy(tname,gszDLLfile);
   HideWhiteSpaces(tname);
   if((hLib=LoadEffectLibrary(tname,op)) != NULL){
     if((fpFun=GetProcAddress(hLib,"_SetExternalParameters")) != NULL){
       fpFun1 = (void *)fpFun;
       op->effect=(*fpFun1)(op->effect,parent,(long)ruler,tname,Evs);
     }
     else SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
     if(op->effect == NULL)DeleteEffect(op);
   }
   else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 }
 return;
}

void EditActorEffect(object *op, HWND parent){
 HMODULE hLib;
 FARPROC fpFun;
 long l,id,result=0;
 X__MEMORY_MANAGER *Evs;
 char *(*fpFun1)(char *, HWND, long, char *, X__MEMORY_MANAGER *);
 Evs=&EviMemoryManager;
 if(op->effect == NULL){
   SendPrgmQuery(IDQ_NOEFFECT1,3);
   return;
 }
 if((hLib=op->hEffect) != NULL){
   if((fpFun=GetProcAddress(hLib,"_SetExternalParameters")) != NULL){
     fpFun1 = (void *)fpFun;
     op->effect=(*fpFun1)(op->effect,parent,(long)ruler,op->effectname,Evs);
   }
   else SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
   if(op->effect == NULL)DeleteEffect(op); // hopefully never
 }
 else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 return;
}

HMODULE LoadEffectLibrary(char *name, object *op){ /*no spaces in name */
 HMODULE hLib;
 node *Np;
 object *Op;
 char lname[256];
 if(op->hEffect != NULL){
   return op->hEffect;
 }
 if((Np=FirstNp) != NULL)while(Np != NULL){
  if((Op=Np->fobj) != NULL)while(Op != NULL){
    if(Op->hEffect != NULL){
      if(stricmp(name,Op->effectname) == 0){
        op->hEffect=Op->hEffect;
        strcpy(op->effectname,Op->effectname);
        return op->hEffect;
      }
    }
    Op=Op->next;
  }
  Np=Np->next;
 }
 strcpy(lname,name);
 RestoreWhiteSpaces(lname);
 hLib=LoadLibrary(lname);
 if(hLib == NULL){ /* try the default effects directory */
   char *sfname,tfname[256];
   sfname=short_form(lname);
   strcpy(tfname,gszHomeDir); strcat(tfname,"effects\\");
   strcat(tfname,sfname);
   hLib=LoadLibrary(tfname);
 }
 if(hLib != NULL){
   op->hEffect=hLib;
   strcpy(op->effectname,name);
 }
 else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 return hLib;
}

void UnloadEffectLibrary(object *op){
 node *Np;
 object *Op;
 int idcount=0;
 if(op->hEffect == NULL)return;
 if((Np=FirstNp) != NULL)while(Np != NULL){
  if((Op=Np->fobj) != NULL)while(Op != NULL){
    if(Op != op && Op->hEffect == op->hEffect)idcount++;
    Op=Op->next;
  }
  Np=Np->next;
 }
 if(idcount > 0){
   op->hEffect=NULL;
   op->effectname[0]='\0';
   return;
 }
 FreeLibrary(op->hEffect);
 op->hEffect=NULL;
 op->effectname[0]='\0';
}

BOOL PrintImageFile(HWND hwnd){
 BOOL status=FALSE;
 HMODULE hLib;
 FARPROC fpFun;
 char lname[256];
 BOOL (*fpFun1)(HWND, char *);
 if(SelectSfxFileName(0,gszIMGfile,gszIMGdir,IDX_MISC_IMAGEFILE,
   "(*.GIF)|*.gif|(*.TGA)|*.tga|(*.CEL)|*.cel|(*.BMP)|*.bmp|",ghwnd_main) == FALSE)
   return FALSE;
 strcpy(lname,gszHomeDir); strcat(lname,"eprint.dll");
 if((hLib=LoadLibrary(lname)) != NULL){
   if((fpFun=GetProcAddress(hLib,"_PrintBitmap")) != NULL){
     fpFun1 = (void *)fpFun;
     EnableToolPannels(ALL_PANNELS,FALSE);
     status=(*fpFun1)(hwnd,gszIMGfile);
     EnableToolPannels(ALL_PANNELS,TRUE);
   }
   else SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
   FreeLibrary(hLib);
 }
 else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 return status;
}

void EditImageProcess(HWND parent,XIP *Ip){
 HMODULE hLib;
 FARPROC fpFun;
 X__MEMORY_MANAGER *Evs;
 char name[256],nname[256];
 char *(*fpFun1)(char *, HWND, long, char *, X__MEMORY_MANAGER *);
 Evs=&EviMemoryManager;
 if(Ip->p == NULL){
   SendPrgmQuery(IDQ_NOPARAMETERS,3);
   return;
 }
 sscanf(Ip->p,"%s",name);
 strcpy(nname,name);
 RestoreWhiteSpaces(nname);
 hLib=LoadLibrary(nname);
 if(hLib == NULL){ /* try the default post process directory */
   char *sfname,tfname[256];
   sfname=short_form(nname);
   strcpy(tfname,gszHomeDir); strcat(tfname,"postprocess\\");
   strcat(tfname,sfname);
   hLib=LoadLibrary(tfname);
 }
 if(hLib != NULL){
   if((fpFun=GetProcAddress(hLib,"_SetExternalParameters")) != NULL){
     fpFun1 = (void *)fpFun;
     Ip->p=(*fpFun1)(Ip->p,parent,(long)ruler,name,Evs);
   }
   else SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
   FreeLibrary(hLib);
 }
 else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 if(Ip->p == NULL)DeleteImageProcess(Ip);
 return;
}

char *EditObjectImageProcess(HWND parent, char *p){
 HMODULE hLib;
 FARPROC fpFun;
 X__MEMORY_MANAGER *Evs;
 char nname[256],name[256];
 char *(*fpFun1)(char *, HWND, long, char *, X__MEMORY_MANAGER *);
 long l;
 Evs=&EviMemoryManager;
 if(p == NULL){
   l=strlen(gszXIPfile);
   strcpy((gszXIPfile+l-3),"xfx");
   if(SelectSfxFileName(0,gszXIPfile,gszXIPdir,IDX_MISC_XIP,
     "(*.XFX)|*.xfx|",parent) != TRUE)return p;
   l=strlen(gszXIPfile);
   strcpy((gszXIPfile+l-3),"dll");
   strcpy(name,gszXIPfile);
   strcpy(nname,name);
   HideWhiteSpaces(name);
 }
 else{
   sscanf(p,"%s",name);
   strcpy(nname,name);
   RestoreWhiteSpaces(nname);
 }
 RestoreWhiteSpaces(nname);
 hLib=LoadLibrary(nname);
 if(hLib == NULL){ /* try the default post process directory */
   char *sfname,tfname[256];
   sfname=short_form(nname);
   strcpy(tfname,gszHomeDir);  strcat(tfname,"postprocess\\");
   strcat(tfname,sfname);
   hLib=LoadLibrary(tfname);
 }
 if(hLib != NULL){
   if((fpFun=GetProcAddress(hLib,"_SetExternalParameters")) != NULL){
     fpFun1 = (void *)fpFun;
     p=(*fpFun1)(p,parent,(long)ruler,name,Evs);
   }
   else SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
   FreeLibrary(hLib);
 }
 else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 return p;
}

void DeleteImageProcess(XIP *Ip){
 XIP *oldIp;
 if(Ip == NULL)return;
 EDIT_ACTION=YES;
 if(Ip->last != NULL)Ip->last->next=Ip->next;
 if(Ip->next != NULL)Ip->next->last=Ip->last;
 if(Ip == MainIp )MainIp  = Ip->last;
 if(Ip == FirstIp)FirstIp = Ip->next;
 if(Ip->p != NULL)X__Free(Ip->p);
 NimageProcesses--;
 X__Free(Ip);
}

XIP *CreateImageProcess(HWND parent){
 long l;
 XIP *temp;
 char ftemp[256];
 if((temp = (XIP *)X__Malloc(sizeof(XIP))) == NULL){
   SendPrgmQuery(IDQ_NOMEM1,0);
   return NULL;
 }
 if(MainIp == NULL)FirstIp=temp;
 else              MainIp->next=temp;
 temp->last=MainIp;
 temp->next=NULL;
 MainIp = temp;
 MainIp->p=NULL;
 NimageProcesses++;
 if(parent == NULL)return temp; /* used for loading from file  */
 l=strlen(gszXIPfile);
 strcpy((gszXIPfile+l-3),"xfx");
 if(SelectSfxFileName(0,gszXIPfile,gszXIPdir,IDX_MISC_XIP,
   "(*.XFX)|*.xfx|",parent) == TRUE){
   HMODULE hLib;
   FARPROC fpFun;
   X__MEMORY_MANAGER *Evs;
   char *(*fpFun1)(char *, HWND, long, char *, X__MEMORY_MANAGER *);
   Evs=&EviMemoryManager;
   l=strlen(gszXIPfile);
   strcpy((gszXIPfile+l-3),"dll");
   strcpy(ftemp,gszXIPfile);
   HideWhiteSpaces(ftemp);
   if((hLib=LoadLibrary(gszXIPfile)) != NULL){
     if((fpFun=GetProcAddress(hLib,"_SetExternalParameters")) != NULL){
       fpFun1 = (void *)fpFun;
       MainIp->p=(*fpFun1)(MainIp->p,parent,(long)ruler,ftemp,Evs);
     }
     else SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
     FreeLibrary(hLib);
   }
   else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 }
 if(MainIp->p == NULL){
   DeleteImageProcess(MainIp);
   return NULL;
 }
 EDIT_ACTION=YES;
 return temp;
}

void StartExternGL(void){
 static BOOL in_use=FALSE;
 BOOL found=FALSE;
 DWORD version;
 int result;
 char modulename[255];
 HWND hWnd;
 return;   
 version=GetVersion();
 if((version & 0x80000000) == 0x80000000){
   if(LOBYTE(LOWORD(version)) < 4)return;
 }
 if((hWnd=FindWindow("OFX:PlayGL",NULL)) != NULL){
   SetForegroundWindow(hWnd);
   BringWindowToTop(hWnd);
   found=TRUE;
 }
 else{
   strcpy(modulename,gszHomeDir);strcat(modulename,"animategl.exe $SAL$");
   result=WinExec(modulename,SW_SHOW);
   if(result < 32){
     if(result == ERROR_FILE_NOT_FOUND || result == ERROR_PATH_NOT_FOUND)
       SendPrgmQuery(IDQ_NOLOADMODELER,0);
   }
   if((hWnd=FindWindow("OFX:PlayGL",NULL)) != NULL){
     SetForegroundWindow(hWnd);
     BringWindowToTop(hWnd);
     found=TRUE;
   }
 }
 if(found && !in_use){
   in_use=TRUE;
   MakeScript(6,1);
   PostMessage(hWnd,(WM_USER+1),0,0);
   in_use=FALSE;
 }
}

void ExecuteModeler(void){
 int result;
 char modulename[255];
 HWND hWnd;
 if((hWnd=FindWindow("OFX:ModelerClass",NULL)) != NULL){
   SetForegroundWindow(hWnd);
   BringWindowToTop(hWnd);
 }
 else{
   strcpy(modulename,gszHomeDir);strcat(modulename,"design.exe");
   result=WinExec(modulename,SW_SHOW);
   if(result < 32){
     if(result == ERROR_FILE_NOT_FOUND || result == ERROR_PATH_NOT_FOUND)
       SendPrgmQuery(IDQ_NOLOADMODELER,0);
   }
   if((hWnd=FindWindow("OFX:ModelerClass",NULL)) != NULL){
     SetForegroundWindow(hWnd);
     BringWindowToTop(hWnd);
   }
   else SendPrgmQuery(IDQ_NOSTART,3);
 }
}

void UnloadRenderer(void){
 HWND hWnd;
 if((hWnd=FindWindow("OFX:RenderClass",NULL)) != NULL){
   SendMessage(hWnd,WM_COMMAND,IDM_CALLBACK_SHUTDOWN,0);
   return;
 }
 if((hWnd=FindWindow("OFX:PlayGL",NULL)) != NULL){
   SendMessage(hWnd,WM_CLOSE,0,0);
   return;
 }
}

void LoadRenderer(int anim){ /* LPARAM bad use (WM_USER+1) instead */
 char modulename[256];
 HWND hWnd,hWndCall;
 int result;
 if((hWnd=FindWindow("OFX:RenderClass",NULL)) != NULL){
   if(anim == 0){
     PostMessage(hWnd,IDM_CALLBACK_HIDDENLINE,0,(LPARAM)ghwnd_view);
     return;
   }
   else if(anim == 3){
     if(ghwndOpenGLview == NULL)hWndCall=ghwnd_view;
     else{
       hWndCall=GetWindow(ghwndOpenGLview,GW_CHILD);
     }
     if(hWndCall != NULL)PostMessage(hWnd,WM_CALLBACK_MATERIAL,0,(LPARAM)hWndCall);
//     PostMessage(hWnd,WM_CALLBACK_MATERIAL,0,(LPARAM)ghwnd_view);
     return;
   }
   else{
     if(anim == 2)PostMessage(hWnd,WM_COMMAND,IDM_CALLBACK_RUN,
                              (WORD)CurrentFrame);
     else{
       PostMessage(hWnd,IDM_CALLBACK_SETUP_ANIMATOR,0,
                   MAKELPARAM((WORD)CurrentFrame,(WORD)Nframes));
       EnableMenuItem(GetMenu(ghwnd_main),IDM_FRAME_RENDERNOW,MF_ENABLED);
     }
   }
   SetForegroundWindow(hWnd);
   BringWindowToTop(hWnd);
   ShowWindow(hWnd,SW_SHOW);
   return;
 }
 else{
   strcpy(modulename,gszHomeDir);strcat(modulename,"render.exe $SAL$");
   result=WinExec(modulename,SW_SHOW);
   if(result < 32){
     if(result == ERROR_FILE_NOT_FOUND ||
        result == ERROR_PATH_NOT_FOUND)SendPrgmQuery(IDQ_NOSTART,3);
   }
   if((hWnd=FindWindow("OFX:RenderClass",NULL)) != NULL){
     if(anim == 0){
       PostMessage(hWnd,IDM_CALLBACK_HIDDENLINE,0,(LPARAM)ghwnd_view);
       return;
     }
     else if(anim == 3){
       if(ghwndOpenGLview == NULL)hWndCall=ghwnd_view;
       else{
         hWndCall=GetWindow(ghwndOpenGLview,GW_CHILD);
       }
       if(hWndCall != NULL)PostMessage(hWnd,WM_CALLBACK_MATERIAL,0,(LPARAM)hWndCall);
//       PostMessage(hWnd,WM_CALLBACK_MATERIAL,0,(LPARAM)ghwnd_view);
       return;
     }
     else{
       PostMessage(hWnd,IDM_CALLBACK_SETUP_ANIMATOR,0,
                   MAKELPARAM((WORD)CurrentFrame,(WORD)Nframes));
       EnableMenuItem(GetMenu(ghwnd_main),IDM_FRAME_RENDERNOW,MF_ENABLED);
     }
     SetForegroundWindow(hWnd);
     BringWindowToTop(hWnd);
     ShowWindow(hWnd,SW_SHOW);
   }
   else SendPrgmQuery(IDQ_NOSTART,3);
 }
 return;
}

void LoadUtility(char *program, char *class, int message){
 BOOL n=FALSE;
 int result;
 char modulename[255];
 HWND hWnd=NULL;
 if((class == NULL) || ((hWnd=FindWindow(class,NULL)) == NULL)){
   strcpy(modulename,gszHomeDir);strcat(modulename,program);
   result=WinExec(modulename,SW_SHOW);
   n=TRUE;
   if(result < 32){
     if(result == ERROR_FILE_NOT_FOUND ||
        result == ERROR_PATH_NOT_FOUND)SendPrgmQuery(IDQ_NOSTART,3);
     return;
   }
   if(class != NULL)hWnd=FindWindow(class,NULL);
 }
 if(hWnd != NULL && IsWindow(hWnd)){
   SetForegroundWindow(hWnd);
   BringWindowToTop(hWnd);
   ShowWindow(hWnd,SW_SHOW);
   if(n)PostMessage(hWnd,WM_COMMAND,message,0);
 }
 return;
}

BOOL MakeVRMLScript(short type){
 return (BOOL)ExportScript(NULL,"vrmlx.dll");
}

static long ExportScript(char *name, char *library){
 char lname[255];
 long rv=0;
 HMODULE hLib=NULL;
 FARPROC fpFun;
 ANI_STRUCTURE *Evs;
 long (*fpFun1)(HWND, char *, ANI_STRUCTURE *);
 Evs=&AniStructure;
 strcpy(lname,gszHomeDir); strcat(lname,library);
 if((hLib=LoadLibrary(lname)) != NULL){
   if((fpFun=GetProcAddress(hLib,"_Export")) != NULL){
     fpFun1 = (void *)fpFun;
     rv=(*fpFun1)(ghwnd_main,name,Evs);
   }
   else{
     SendPrgmQuery(IDQ_FAILEDFUNCTION,3);
   }
   FreeLibrary(hLib); hLib=NULL;
 }
 else SendPrgmQuery(IDQ_FAILEDLIBRARY,3);
 return rv;
}

void LogOnMessage(void){
 HMODULE hLib;
 FARPROC fpFun;
 char lname[256];
 int (*fpFun1)(HWND,int);
 int id,no_wait;
 if(Preferences.splash == 0)return;
 if(Preferences.default_start)no_wait = -1;
 else                         no_wait=Preferences.splash;
 strcpy(lname,gszHomeDir); strcat(lname,"splash.dll");
 if((hLib=LoadLibrary(lname)) != NULL){
   if((fpFun=GetProcAddress(hLib,"_PrgmLogon")) != NULL){
//   if((fpFun=GetProcAddress(hLib,(LPCSTR)1)) != NULL){
     fpFun1 = (void *)fpFun;
     EnableToolPannels(ALL_PANNELS,FALSE);
     id=(*fpFun1)(ghwnd_main,no_wait);
     EnableToolPannels(ALL_PANNELS,TRUE);
     if(id < 1)PostQuitMessage(0);
     else if(id == 2)PostMessage(ghwnd_main,WM_COMMAND,
                      IDM_FILE_LOAD_ANIMATION,0);
     else if(id == 3)PostMessage(ghwnd_main,WM_COMMAND,
                      IDM_FILE_LOAD_TEMPLATE,0);
     else if(id == 4)PostMessage(ghwnd_main,WM_COMMAND,
                     IDM_HELP_GENERAL,0);
     else if(id == 5)PostMessage(ghwnd_main,WM_COMMAND,
                     IDM_FILE_MODELER,0);
     else if(id == 6)PostMessage(ghwnd_main,WM_COMMAND,
                     IDM_FILE_LOAD_STARTUP,0);
   }
   FreeLibrary(hLib);
 }
 return;
}