Initial community commit

1 files changed, 458 insertions, 0 deletions

diff --git a/Src/Plugins/Visualization/vis_avs/rlib.cpp b/Src/Plugins/Visualization/vis_avs/rlib.cpp
new file mode 100644
index 00000000..07c92611
--- /dev/null
+++ b/Src/Plugins/Visualization/vis_avs/rlib.cpp
@@ -0,0 +1,458 @@
+/*
+  LICENSE
+  -------
+Copyright 2005 Nullsoft, Inc.
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, 
+are permitted provided that the following conditions are met:
+
+  * Redistributions of source code must retain the above copyright notice,
+    this list of conditions and the following disclaimer. 
+
+  * Redistributions in binary form must reproduce the above copyright notice,
+    this list of conditions and the following disclaimer in the documentation
+    and/or other materials provided with the distribution. 
+
+  * Neither the name of Nullsoft nor the names of its contributors may be used to 
+    endorse or promote products derived from this software without specific prior written permission. 
+ 
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
+IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+*/
+#include <windows.h>
+#include "r_defs.h"
+#include "r_unkn.h"
+#include "r_list.h"
+#include "rlib.h"
+
+#include "ape.h"
+
+#include "avs_eelif.h"
+#include "resource.h"
+#include "../Agave/Language/api_language.h"
+
+#define PUT_INT(y) data[pos]=(y)&255; data[pos+1]=(y>>8)&255; data[pos+2]=(y>>16)&255; data[pos+3]=(y>>24)&255
+#define GET_INT() (data[pos]|(data[pos+1]<<8)|(data[pos+2]<<16)|(data[pos+3]<<24))
+
+void C_RBASE::load_string(RString &s,unsigned char *data, int &pos, int len) // read configuration of max length "len" from data.
+{
+  int size=GET_INT(); pos += 4;
+  if (size > 0 && len-pos >= size)
+	{
+    s.resize(size);
+	  memcpy(s.get(), data+pos, size);
+	  pos+=size;
+	}
+  else 
+  {
+    s.resize(1);
+    s.get()[0]=0;
+  }
+}
+void C_RBASE::save_string(unsigned char *data, int &pos, RString &text)
+{
+  if (text.get() && text.get()[0])
+	{
+    char *p=text.get();
+    int x=32768;
+    while (x-- && *p) p++;
+    if (*p)
+    {
+      MessageBox(NULL,"Yo, this is some long ass shit","FUCK!",MB_OK);
+      //FUCKO
+    }
+    int l=(strlen(text.get())+1);
+	  PUT_INT(l); pos+=4;
+	  memcpy(data+pos, text.get(), strlen(text.get())+1);
+	  pos+=strlen(text.get())+1;
+	}
+  else
+  { 
+    PUT_INT(0); 
+    pos+=4;
+  }
+}
+
+void C_RLibrary::add_dofx(void *rf, int has_r2)
+{
+  if ((NumRetrFuncs&7)==0||!RetrFuncs)
+  {
+    void *newdl=(void *)GlobalAlloc(GMEM_FIXED,sizeof(rfStruct)*(NumRetrFuncs+8));
+    if (!newdl) 
+    {
+      char title[64];
+      MessageBox(NULL,WASABI_API_LNGSTRING(IDS_OUT_OF_MEMORY),
+		 WASABI_API_LNGSTRING_BUF(IDS_AVS_CRITICAL_ERROR,title,64),MB_OK);
+      ExitProcess(0);
+    }
+    memset(newdl,0,sizeof(rfStruct)*(NumRetrFuncs+8));
+    if (RetrFuncs) 
+    {
+      memcpy(newdl,RetrFuncs,NumRetrFuncs*sizeof(rfStruct));
+      GlobalFree(RetrFuncs);
+    }
+    RetrFuncs=(rfStruct*)newdl;    
+  }
+  RetrFuncs[NumRetrFuncs].is_r2=has_r2;
+  *((void**)&RetrFuncs[NumRetrFuncs].rf) = rf;
+  NumRetrFuncs++;
+}
+
+// declarations for built-in effects
+#define DECLARE_EFFECT(name) extern C_RBASE *(name)(char *desc); add_dofx((void*)name,0);
+#define DECLARE_EFFECT2(name) extern C_RBASE *(name)(char *desc); add_dofx((void*)name,1);
+
+void C_RLibrary::initfx(void)
+{
+  DECLARE_EFFECT(R_SimpleSpectrum);
+  DECLARE_EFFECT(R_DotPlane);
+  DECLARE_EFFECT(R_OscStars);
+  DECLARE_EFFECT(R_FadeOut);
+  DECLARE_EFFECT(R_BlitterFB);
+  DECLARE_EFFECT(R_NFClear);
+  DECLARE_EFFECT2(R_Blur);
+  DECLARE_EFFECT(R_BSpin);
+  DECLARE_EFFECT(R_Parts);
+  DECLARE_EFFECT(R_RotBlit);
+  DECLARE_EFFECT(R_SVP);
+  DECLARE_EFFECT2(R_ColorFade);
+  DECLARE_EFFECT(R_ContrastEnhance);
+  DECLARE_EFFECT(R_RotStar);
+  DECLARE_EFFECT(R_OscRings);
+  DECLARE_EFFECT2(R_Trans);
+  DECLARE_EFFECT(R_Scat);
+  DECLARE_EFFECT(R_DotGrid);
+  DECLARE_EFFECT(R_Stack);
+  DECLARE_EFFECT(R_DotFountain);
+  DECLARE_EFFECT2(R_Water);
+  DECLARE_EFFECT(R_Comment);
+  DECLARE_EFFECT2(R_Brightness);
+  DECLARE_EFFECT(R_Interleave);
+  DECLARE_EFFECT(R_Grain);
+  DECLARE_EFFECT(R_Clear);
+  DECLARE_EFFECT(R_Mirror);
+  DECLARE_EFFECT(R_StarField);
+  DECLARE_EFFECT(R_Text);
+  DECLARE_EFFECT(R_Bump);
+  DECLARE_EFFECT(R_Mosaic);
+  DECLARE_EFFECT(R_WaterBump);
+  DECLARE_EFFECT(R_AVI);
+  DECLARE_EFFECT(R_Bpm);
+  DECLARE_EFFECT(R_Picture);
+  DECLARE_EFFECT(R_DDM);
+  DECLARE_EFFECT(R_SScope);
+  DECLARE_EFFECT(R_Invert);
+  DECLARE_EFFECT(R_Onetone);
+  DECLARE_EFFECT(R_Timescope);
+  DECLARE_EFFECT(R_LineMode);
+  DECLARE_EFFECT(R_Interferences);
+  DECLARE_EFFECT(R_Shift);
+  DECLARE_EFFECT2(R_DMove);
+  DECLARE_EFFECT(R_FastBright);
+  DECLARE_EFFECT(R_DColorMod);  
+}
+
+static const struct 
+{
+  char id[33];
+  int newidx;
+} NamedApeToBuiltinTrans[] = 
+{
+  {"Winamp Brightness APE v1", 22},
+  {"Winamp Interleave APE v1", 23},
+  {"Winamp Grain APE v1", 24 },
+  {"Winamp ClearScreen APE v1", 25},
+  {"Nullsoft MIRROR v1", 26},
+  {"Winamp Starfield v1", 27},
+  {"Winamp Text v1", 28 },
+  {"Winamp Bump v1", 29 },
+  {"Winamp Mosaic v1", 30 },
+  {"Winamp AVIAPE v1", 32},
+	{"Nullsoft Picture Rendering v1", 34},
+	{"Winamp Interf APE v1", 41}
+};
+
+void C_RLibrary::initbuiltinape(void)
+{
+#define ADD(sym) extern C_RBASE * sym(char *desc); _add_dll(0,sym,"Builtin_" #sym, 0)  
+#define ADD2(sym,name) extern C_RBASE * sym(char *desc); _add_dll(0,sym,name, 0)  
+#ifdef LASER
+  ADD(RLASER_Cone);
+  ADD(RLASER_BeatHold);
+  ADD(RLASER_Line);
+  ADD(RLASER_Bren); // not including it for now
+  ADD(RLASER_Transform);
+#else
+  ADD2(R_ChannelShift,"Channel Shift");
+  ADD2(R_ColorReduction,"Color Reduction");
+  ADD2(R_Multiplier,"Multiplier");
+  ADD2(R_VideoDelay,"Holden04: Video Delay");
+  ADD2(R_MultiDelay,"Holden05: Multi Delay");
+#endif
+#undef ADD
+#undef ADD2
+}
+
+
+void C_RLibrary::_add_dll(HINSTANCE hlib,class C_RBASE *(__cdecl *cre)(char *),char *inf, int is_r2)
+{
+  if ((NumDLLFuncs&7)==0||!DLLFuncs)
+  {
+    DLLInfo *newdl=(DLLInfo *)GlobalAlloc(GMEM_FIXED,sizeof(DLLInfo)*(NumDLLFuncs+8));
+    if (!newdl) 
+    {
+      char title[64];
+      MessageBox(NULL,WASABI_API_LNGSTRING(IDS_OUT_OF_MEMORY),
+		 WASABI_API_LNGSTRING_BUF(IDS_AVS_CRITICAL_ERROR,title,64),MB_OK);
+      ExitProcess(0);
+    }
+    memset(newdl,0,sizeof(DLLInfo)*(NumDLLFuncs+8));
+    if (DLLFuncs) 
+    {
+      memcpy(newdl,DLLFuncs,NumDLLFuncs*sizeof(DLLInfo));
+      GlobalFree(DLLFuncs);
+    }
+    DLLFuncs=newdl;
+  
+  }
+  DLLFuncs[NumDLLFuncs].hDllInstance=hlib;
+  DLLFuncs[NumDLLFuncs].createfunc=cre;
+  DLLFuncs[NumDLLFuncs].idstring=inf;
+  DLLFuncs[NumDLLFuncs].is_r2=is_r2;
+  NumDLLFuncs++;
+}
+
+
+static APEinfo ext_info=
+{
+  3,
+  0,
+  &g_line_blend_mode,
+  NSEEL_VM_alloc,
+  NSEEL_VM_free,
+  AVS_EEL_IF_resetvars,
+  NSEEL_VM_regvar,
+  AVS_EEL_IF_Compile,
+  AVS_EEL_IF_Execute,
+  NSEEL_code_free,
+  compilerfunctionlist,
+  getGlobalBuffer,
+};
+
+void C_RLibrary::initdll()
+{
+  ext_info.global_registers=NSEEL_getglobalregs();
+
+  HANDLE h;
+  WIN32_FIND_DATA d;
+  char dirmask[MAX_PATH*2];
+#ifdef LASER
+  wsprintf(dirmask,"%s\\*.lpe",g_path);
+#else
+  wsprintf(dirmask,"%s\\*.ape",g_path);
+#endif
+  h = FindFirstFile(dirmask,&d);
+	if (h != INVALID_HANDLE_VALUE)
+	{
+		do {
+      char s[MAX_PATH];
+      HINSTANCE hlib;
+      wsprintf(s,"%s\\%s",g_path,d.cFileName);
+      hlib=LoadLibrary(s);
+      if (hlib)
+      {
+        int cre;
+        char *inf;
+
+        void (*sei)(HINSTANCE hDllInstance, APEinfo *ptr);
+        *(void**)&sei = (void *) GetProcAddress(hlib,"_AVS_APE_SetExtInfo");
+        if (sei)
+          sei(hlib,&ext_info);
+
+#ifdef LASER
+        int (*retr)(HINSTANCE hDllInstance, char **info, int *create, C_LineListBase *linelist);
+        retr = (int (*)(HINSTANCE, char ** ,int *, C_LineListBase*)) GetProcAddress(hlib,"_AVS_LPE_RetrFunc");
+        if (retr && retr(hlib,&inf,&cre,g_laser_linelist))
+        {
+          _add_dll(hlib,(class C_RBASE *(__cdecl *)(char *))cre,inf,0);
+        }
+        else FreeLibrary(hlib);
+#else
+        int (*retr)(HINSTANCE hDllInstance, char **info, int *create);
+        retr = (int (*)(HINSTANCE, char ** ,int *)) GetProcAddress(hlib,"_AVS_APE_RetrFuncEXT2");
+        if (retr && retr(hlib,&inf,&cre))
+        {
+          _add_dll(hlib,(class C_RBASE *(__cdecl *)(char *))cre,inf,1);
+        }
+        else
+        {
+          retr = (int (*)(HINSTANCE, char ** ,int *)) GetProcAddress(hlib,"_AVS_APE_RetrFunc");
+          if (retr && retr(hlib,&inf,&cre))
+          {
+            _add_dll(hlib,(class C_RBASE *(__cdecl *)(char *))cre,inf,0);
+          }
+          else FreeLibrary(hlib);
+        }
+#endif
+      }	  	
+		} while (FindNextFile(h,&d));
+		FindClose(h);
+  }	
+}
+
+
+int C_RLibrary::GetRendererDesc(int which, char *str)
+{
+  *str=0;
+  if (which >= 0 && which < NumRetrFuncs)
+  {    
+    RetrFuncs[which].rf(str);
+    return 1;
+  }
+  if (which >= DLLRENDERBASE)
+  {
+    which-=DLLRENDERBASE;
+    if (which < NumDLLFuncs)
+    {
+      DLLFuncs[which].createfunc(str);
+      return (int)DLLFuncs[which].idstring;
+    }
+  }
+  return 0;
+}
+
+C_RBASE *C_RLibrary::CreateRenderer(int *which, int *has_r2)
+{
+  if (has_r2) *has_r2=0;
+
+  if (*which >= 0 && *which < NumRetrFuncs)
+  {
+    if (has_r2) *has_r2 = RetrFuncs[*which].is_r2;
+    return RetrFuncs[*which].rf(NULL);
+  }
+
+  if (*which == LIST_ID)
+    return (C_RBASE *) new C_RenderListClass();
+
+  if (*which >= DLLRENDERBASE)
+  {
+    int x;
+    char *p=(char *)*which;
+    for (x = 0; x < NumDLLFuncs; x ++)
+    {
+      if (!DLLFuncs[x].createfunc) break;
+      if (DLLFuncs[x].idstring)
+      {
+        if (!strncmp(p,DLLFuncs[x].idstring,32))
+        {
+          *which=(int)DLLFuncs[x].idstring;
+          return DLLFuncs[x].createfunc(NULL);
+        }
+      }
+    }
+    for (x = 0; x < sizeof(NamedApeToBuiltinTrans)/sizeof(NamedApeToBuiltinTrans[0]); x ++)
+    {
+      if (!strncmp(p,NamedApeToBuiltinTrans[x].id,32))
+      {
+        *which=NamedApeToBuiltinTrans[x].newidx;
+        if (has_r2) *has_r2 = RetrFuncs[*which].is_r2;
+        return RetrFuncs[*which].rf(NULL);
+      }
+    }
+  }
+  int r=*which;
+  *which=UNKN_ID;
+  C_UnknClass *p=new C_UnknClass();
+  p->SetID(r,(r >= DLLRENDERBASE)?(char*)r:"");
+  return (C_RBASE *)p;
+}
+
+C_RLibrary::C_RLibrary()
+{
+  DLLFuncs=NULL;
+  NumDLLFuncs=0;
+  RetrFuncs=0;
+  NumRetrFuncs=0;
+
+  initfx();
+  initdll();
+  initbuiltinape();
+
+}
+
+C_RLibrary::~C_RLibrary()
+{
+  if (RetrFuncs) GlobalFree(RetrFuncs);
+  RetrFuncs=0;
+  NumRetrFuncs=0;
+
+  if (DLLFuncs)
+  {
+    int x;
+    for (x = 0; x < NumDLLFuncs; x ++)
+    {
+      if (DLLFuncs[x].hDllInstance)
+        FreeLibrary(DLLFuncs[x].hDllInstance);
+    }
+    GlobalFree(DLLFuncs);
+  }
+  DLLFuncs=NULL;
+  NumDLLFuncs=0;
+}
+
+HINSTANCE C_RLibrary::GetRendererInstance(int which, HINSTANCE hThisInstance)
+{
+  if (which < DLLRENDERBASE || which == UNKN_ID || which == LIST_ID) return hThisInstance;
+  int x;
+  char *p=(char *)which;
+  for (x = 0; x < NumDLLFuncs; x ++)
+  {
+    if (DLLFuncs[x].idstring)
+    {
+      if (!strncmp(p,DLLFuncs[x].idstring,32))
+      {
+        if (DLLFuncs[x].hDllInstance)
+          return DLLFuncs[x].hDllInstance;
+        break;
+      }
+    }
+  }
+  return hThisInstance;
+}
+
+
+void *g_n_buffers[NBUF];
+int g_n_buffers_w[NBUF],g_n_buffers_h[NBUF];
+
+
+void *getGlobalBuffer(int w, int h, int n, int do_alloc)
+{
+  if (n < 0 || n >= NBUF) return 0;
+
+  if (!g_n_buffers[n] || g_n_buffers_w[n] != w || g_n_buffers_h[n] != h)
+  {
+    if (g_n_buffers[n]) GlobalFree(g_n_buffers[n]);
+    if (do_alloc)
+    {
+      g_n_buffers_w[n]=w;
+      g_n_buffers_h[n]=h;
+      return g_n_buffers[n]=GlobalAlloc(GPTR,sizeof(int)*w*h);
+    }
+
+    g_n_buffers[n]=NULL;
+    g_n_buffers_w[n]=0;
+    g_n_buffers_h[n]=0;
+
+    return 0;
+  }
+  return g_n_buffers[n];
+}
+