1 files changed, 65 insertions, 0 deletions
diff --git a/plugins/Watrack/formats/fmt_tta.pas b/plugins/Watrack/formats/fmt_tta.pas
new file mode 100644
index 0000000000..c13b329fe2
--- /dev/null
+++ b/plugins/Watrack/formats/fmt_tta.pas
@@ -0,0 +1,65 @@
+{TTA file}
+unit fmt_TTA;
+{$include compilers.inc}
+
+interface
+uses wat_api;
+
+function ReadTTA(var Info:tSongInfo):boolean; cdecl;
+
+implementation
+uses windows,common,io,tags,srv_format;
+
+const
+  TTA1_SIGN = $31415454;
+type
+  tTTAHeader = packed record
+    id           :dword;
+    format       :word;
+    channels     :word;
+    bitspersample:word;
+    samplerate   :dword;
+    datalength   :dword;
+    crc32        :dword;
+  end;
+
+function ReadTTA(var Info:tSongInfo):boolean; cdecl;
+var
+  f:THANDLE;
+  hdr:tTTAHeader;
+begin
+  result:=false;
+  f:=Reset(Info.mfile);
+  if f=THANDLE(INVALID_HANDLE_VALUE) then
+    exit;
+  ReadID3v2(f,Info);
+  BlockRead(f,hdr,SizeOf(tTTAHeader));
+  if hdr.id<>TTA1_SIGN then
+    exit;
+  Info.channels:=hdr.channels;
+  Info.khz     :=hdr.samplerate;
+  Info.kbps    :=hdr.bitspersample div 1000; //!!
+  if hdr.samplerate<>0 then
+    Info.total:=hdr.datalength div hdr.samplerate;
+  ReadID3v1(f,Info);
+  CloseHandle(f);
+  result:=true;
+end;
+
+var
+  LocalFormatLink:twFormat;
+
+procedure InitLink;
+begin
+  LocalFormatLink.Next:=FormatLink;
+
+  LocalFormatLink.This.proc :=@ReadTTA;
+  LocalFormatLink.This.ext  :='TTA';
+  LocalFormatLink.This.flags:=0;
+
+  FormatLink:=@LocalFormatLink;
+end;
+
+initialization
+  InitLink;
+end.