From 864081102a5f252415f41950b3039a896b4ae9c5 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 8 Oct 2012 18:43:29 +0000
Subject: Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Watrack/srv_format.pas | 394 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 394 insertions(+)
 create mode 100644 plugins/Watrack/srv_format.pas

(limited to 'plugins/Watrack/srv_format.pas')

diff --git a/plugins/Watrack/srv_format.pas b/plugins/Watrack/srv_format.pas
new file mode 100644
index 0000000000..aa892bb7da
--- /dev/null
+++ b/plugins/Watrack/srv_format.pas
@@ -0,0 +1,394 @@
+{format service}
+unit srv_format;
+
+interface
+
+uses windows,wat_api;
+
+procedure DefFillFormatList (hwndList:hwnd);
+procedure DefCheckFormatList(hwndList:hwnd);
+function ProcessFormatLink:integer;
+
+function GetFileFormatInfo(var dst:tSongInfo):integer;
+function CheckExt(fname:pWideChar):integer;
+
+function DeleteKnownExt(src:pWideChar):pWideChar;
+function KnownFileType(fname:PWideChar):boolean;
+function isContainer(fname:PWideChar):boolean;
+
+function ServiceFormat(wParam:WPARAM;lParam:LPARAM):integer;cdecl;
+procedure RegisterFormat(ext:PAnsiChar;proc:tReadFormatProc;flags:dword=0);
+procedure ClearFormats;
+
+type
+  MusEnumProc = function(param:PAnsiChar;lParam:LPARAM):bool;stdcall;
+
+function EnumFormats(param:MusEnumProc;lParam:LPARAM):bool;
+
+type
+  pwFormat = ^twFormat;
+  twFormat = record
+    This:tMusicFormat;
+    Next:pwFormat;
+  end;
+
+const
+  FormatLink:pwFormat=nil;
+  
+implementation
+
+uses
+  CommCtrl,common;
+type
+  pFmtArray = ^tFmtArray;
+  tFmtArray = array [0..10] of tMusicFormat;
+
+const
+  StartSize = 32;
+  Step      = 8;
+
+const
+  fmtLink:pFmtArray=nil;
+  FmtNum:integer=0;
+  FmtMax:integer=0;
+
+function ProcessFormatLink:integer;
+var
+  ptr:pwFormat;
+begin
+  result:=0;
+  ptr:=FormatLink;
+  while ptr<>nil do
+  begin
+    RegisterFormat(@ptr.This.ext,ptr.This.proc,ptr.This.flags);
+    inc(result);
+    ptr:=ptr^.Next;
+  end;
+end;
+
+function EnumFormats(param:MusEnumProc;lParam:LPARAM):bool;
+var
+  tmp:pFmtArray;
+  i,j:integer;
+  s:array [0..8] of AnsiChar;
+begin
+  if (FmtNum>0) and (@param<>nil) then
+  begin
+    GetMem(tmp,FmtNum*SizeOf(tMusicFormat));
+    move(fmtLink^,tmp^,FmtNum*SizeOf(tMusicFormat));
+    i:=0;
+    j:=FmtNum;
+    s[8]:=#0;
+    repeat
+      move(tmp^[i].ext,s,8);
+      if not param(s,lParam) then break;
+      inc(i);
+    until i=j;
+    FreeMem(tmp);
+    result:=true;
+  end
+  else
+    result:=false;
+end;
+
+function FindFormat(ext:PAnsiChar):integer;
+var
+  i:integer;
+  ss:array [0..7] of AnsiChar;
+begin
+  i:=0;
+  int64(ss):=0;
+  StrCopy(ss,ext,7);
+  while i<FmtNum do
+  begin
+    if int64(fmtLink^[i].ext)=int64(ss) then
+    begin
+      result:=i;
+      exit;
+    end;
+    inc(i);
+  end;
+  result:=WAT_RES_NOTFOUND;
+end;
+
+procedure DefFillFormatList(hwndList:hwnd);
+var
+  item:LV_ITEMA;
+  lvc:LV_COLUMN;
+  newItem:integer;
+  i:integer;
+  p:pMusicFormat;
+begin
+  FillChar(item,SizeOf(item),0);
+  FillChar(lvc,SizeOf(lvc),0);
+  ListView_SetExtendedListViewStyle(hwndList, LVS_EX_CHECKBOXES);
+  lvc.mask:=LVCF_FMT;
+  lvc.fmt :={LVCFMT_IMAGE or} LVCFMT_LEFT;
+  ListView_InsertColumn(hwndList,0,lvc);
+
+  item.mask:=LVIF_TEXT or LVIF_PARAM;
+  item.iItem:=1000;
+  i:=0;
+  while i<FmtNum do
+  begin
+    p:=@fmtLink^[i];
+    item.pszText:=@p^.ext;
+    item.lParam := p^.flags;
+    newItem:=SendMessageA(hwndList,LVM_INSERTITEMA,0,LPARAM(@item));
+    if newItem>=0 then
+    begin
+      if (p^.flags and WAT_OPT_DISABLED)=0 then
+        ListView_SetCheckState(hwndList,newItem,TRUE);
+    end;
+    inc(i);
+  end;
+  ListView_SetColumnWidth(hwndList,0,LVSCW_AUTOSIZE);
+end;
+
+procedure DefCheckFormatList(hwndList:hwnd);
+var
+  i,j,k:integer;
+  item:LV_ITEMA;
+  szTemp:array [0..109] of AnsiChar;
+  p:pMusicFormat;
+begin
+  FillChar(item,SizeOf(item),0);
+  item.mask:=LVIF_TEXT;
+  item.pszText:=@szTemp;
+  item.cchTextMax:=100;
+  k:=ListView_GetItemCount(hwndList)-1;
+  for i:=0 to k do
+  begin
+    item.iItem:=i;
+    SendMessageA(hwndList,LVM_GETITEMA,0,LPARAM(@item));
+    j:=FindFormat(item.pszText);
+    if j<>WAT_RES_NOTFOUND then // always?
+    begin
+      p:=@fmtLink^[j];
+      if ListView_GetCheckState(hwndList,i)=0 then
+        p^.flags:=p^.flags or WAT_OPT_DISABLED
+      else
+        p^.flags:=p^.flags and not WAT_OPT_DISABLED;
+    end;
+  end;
+end;
+
+function DeleteKnownExt(src:pWideChar):pWideChar;
+var
+  s :array [0..7] of WideChar;
+  ss:array [0..7] of AnsiChar;
+  i,j:integer;
+begin
+  GetExt(src,s);
+  if s[0]<>#0 then
+  begin
+    int64(ss):=0;
+    i:=0;
+    while (s[i]<>#0) and (i<8) do
+    begin
+      ss[i]:=AnsiChar(s[i]);
+      inc(i);
+    end;
+    j:=0;
+    while j<FmtNum do
+    begin
+      if int64(fmtLink^[j].ext)=int64(ss) then
+      begin
+        i:=StrLenW(s);
+        src[integer(StrLenW(src))-i-1]:=#0;
+        break;
+      end;
+      inc(j);
+    end;
+  end;
+  result:=src;
+end;
+
+function KnownFileType(fname:PWideChar):boolean;
+var
+  i:integer;
+  s :array [0..7] of WideChar;
+  ss:array [0..7] of AnsiChar;
+begin
+  result:=false;
+  if (fname=nil) or (fname^=#0) then
+    exit;
+  GetExt(fname,s);
+  int64(ss):=0;
+  if s[0]<>#0 then
+  begin
+    i:=0;
+    while (s[i]<>#0) and (i<8) do
+    begin
+      ss[i]:=AnsiChar(s[i]);
+      inc(i);
+    end;
+    i:=0;
+    while i<FmtNum do
+    begin
+      if (int64(fmtLink^[i].ext)=int64(ss)) then
+      begin
+        if ((fmtLink^[i].flags and WAT_OPT_DISABLED)=0) then
+          result:=true;
+        break;
+      end;
+      inc(i);
+    end;
+  end;
+end;
+
+function isContainer(fname:PWideChar):boolean;
+begin
+  if CheckExt(fname)=WAT_RES_OK then
+  begin
+    result:=(fmtLink^[0].flags and WAT_OPT_CONTAINER)<>0;
+  end
+  else
+    result:=false;
+end;
+
+function GetFileFormatInfo(var dst:tSongInfo):integer;
+begin
+  result:=CheckExt(dst.mfile);
+  if result=WAT_RES_OK then
+  begin
+    fmtLink^[0].proc(dst);
+  end;
+end;
+
+function CheckExt(fname:pWideChar):integer;
+var
+  i:integer;
+  tmp:tMusicFormat;
+  ls:array [0..7] of WideChar;
+  ss:array [0..7] of AnsiChar;
+begin
+  GetExt(fname,ls);
+  i:=0;
+  int64(ss):=0;
+  while (ls[i]<>#0) and (i<8) do
+  begin
+    ss[i]:=AnsiChar(ls[i]);
+    inc(i);
+  end;
+  i:=0;
+  while i<FmtNum do
+  begin
+    if (int64(fmtLink^[i].ext)=int64(ss)) then
+    begin
+      if ((fmtLink^[i].flags and WAT_OPT_DISABLED)=0) then
+      begin
+        if i>0 then
+        begin
+          tmp:=fmtLink^[i];
+          move(fmtLink^[0],fmtLink^[1],SizeOf(tMusicFormat)*i);
+          fmtLink^[0]:=tmp;
+        end;
+        result:=WAT_RES_OK;
+        exit;
+      end
+      else
+        break;
+    end;
+    inc(i);
+  end;
+  result:=WAT_RES_NOTFOUND;
+end;
+
+function ServiceFormat(wParam:WPARAM;lParam:LPARAM):integer;cdecl;
+var
+  p:integer;
+  nl:pFmtArray;
+begin
+  result:=WAT_RES_NOTFOUND;
+  if LoWord(wParam)<>WAT_ACT_REGISTER then
+    p:=FindFormat(PAnsiChar(lParam))
+  else
+    p:=0;
+  case LoWord(wParam) of
+    WAT_ACT_REGISTER: begin
+      if @pMusicFormat(lParam)^.proc=nil then
+        exit;
+      p:=FindFormat(pMusicFormat(lParam)^.ext);
+      if (p=WAT_RES_NOTFOUND) or ((wParam and WAT_ACT_REPLACE)<>0) then
+      begin
+        if (p<>WAT_RES_NOTFOUND) and ((fmtLink^[p].flags and WAT_OPT_ONLYONE)<>0) then
+          exit;
+        if FmtNum=FmtMax then // expand array when append
+        begin
+          if FmtMax=0 then
+            FmtMax:=StartSize
+          else
+            inc(FmtMax,Step);
+          GetMem(nl,FmtMax*SizeOf(tMusicFormat));
+          if fmtLink<>nil then
+          begin
+            move(fmtLink^,nl^,FmtNum*SizeOf(tMusicFormat));
+            FreeMem(fmtLink);
+          end;
+          fmtLink:=nl;
+        end;
+        if p=WAT_RES_NOTFOUND then
+        begin
+          p:=FmtNum;
+          result:=WAT_RES_OK;
+          inc(FmtNum);
+        end
+        else
+          result:=int_ptr(@fmtLink^[p].proc);
+        move(pMusicFormat(lParam)^,fmtLink^[p],SizeOf(tMusicFormat));// fill
+      end;
+    end;
+    WAT_ACT_UNREGISTER: begin
+      if p<>WAT_RES_NOTFOUND then
+      begin
+        dec(FmtNum);
+        if p<FmtNum then // last
+          Move(fmtLink^[p+1],fmtLink^[p],SizeOf(tMusicFormat)*(FmtNum-p));
+        result:=WAT_RES_OK;
+      end;
+    end;
+    WAT_ACT_DISABLE: begin
+      if p<>WAT_RES_NOTFOUND then
+      begin
+        fmtLink^[p].flags:=fmtLink^[p].flags or WAT_OPT_DISABLED;
+        result:=WAT_RES_DISABLED
+      end;
+    end;
+    WAT_ACT_ENABLE: begin
+      if p<>WAT_RES_NOTFOUND then
+      begin
+        fmtLink^[p].flags:=fmtLink^[p].flags and not WAT_OPT_DISABLED;
+        result:=WAT_RES_ENABLED
+      end;
+    end;
+    WAT_ACT_GETSTATUS: begin
+      if p<>WAT_RES_NOTFOUND then
+      begin
+        if (fmtLink^[p].flags and WAT_OPT_DISABLED)<>0 then
+          result:=WAT_RES_DISABLED
+        else
+          result:=WAT_RES_ENABLED;
+      end;
+    end;
+  end;
+end;
+
+procedure RegisterFormat(ext:PAnsiChar;proc:tReadFormatProc;flags:dword=0);
+var
+  tmp:tMusicFormat;
+begin
+  FillChar(tmp,SizeOf(tMusicFormat),0);
+  StrCopy (tmp.ext,ext,7);
+  tmp.proc:=proc;
+  tmp.flags:=flags;
+  ServiceFormat(WAT_ACT_REGISTER,LPARAM(@tmp));
+end;
+
+procedure ClearFormats;
+begin
+  if FmtNum>0 then
+    FreeMem(fmtLink);
+end;
+
+end.
-- 
cgit v1.2.3