implemented CBF images and FPK archives.

ArcFormats/Abel/ArcFPK.cs

@@ -0,0 +1,71 @@
+//! \file       ArcFPK.cs
+//! \date       2018 Mar 29
+//! \brief      Abel resource archive.
+//
+// Copyright (C) 2018 by morkt
+//
+// Permission is hereby granted, free of charge, to any person obtaining a copy
+// of this software and associated documentation files (the "Software"), to
+// deal in the Software without restriction, including without limitation the
+// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+// sell copies of the Software, and to permit persons to whom the Software is
+// furnished to do so, subject to the following conditions:
+//
+// The above copyright notice and this permission notice shall be included in
+// all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+// IN THE SOFTWARE.
+//
+
+using System;
+using System.Collections.Generic;
+using System.ComponentModel.Composition;
+using System.IO;
+
+namespace GameRes.Formats.Abel
+{
+    [Export(typeof(ArchiveFormat))]
+    public class FpkOpener : ArchiveFormat
+    {
+        public override string         Tag { get { return "DAT/FPK"; } }
+        public override string Description { get { return "Abel resource archive"; } }
+        public override uint     Signature { get { return 0x4B5046; } } // 'FPK'
+        public override bool  IsHierarchic { get { return false; } }
+        public override bool      CanWrite { get { return false; } }
+
+        public override ArcFile TryOpen (ArcView file)
+        {
+            int count = file.View.ReadInt32 (4);
+            if (!IsSaneCount (count))
+                return null;
+            uint names_size = file.View.ReadUInt32 (8);
+            if (names_size >= file.MaxOffset)
+                return null;
+            uint index_offset = 12;
+            using (var names = file.CreateStream (index_offset + count*8, names_size))
+            {
+                var dir = new List<Entry> (count);
+                for (int i = 0; i < count; ++i)
+                {
+                    var name = names.ReadCString();
+                    if (string.IsNullOrEmpty (name))
+                        return null;
+                    var entry = FormatCatalog.Instance.Create<Entry> (name);
+                    entry.Offset = file.View.ReadUInt32 (index_offset);
+                    entry.Size   = file.View.ReadUInt32 (index_offset+4);
+                    if (!entry.CheckPlacement (file.MaxOffset))
+                        return null;
+                    dir.Add (entry);
+                    index_offset += 8;
+                }
+                return new ArcFile (file, this, dir);
+            }
+        }
+    }
+}

ArcFormats/Abel/ImageCBF.cs

@@ -0,0 +1,237 @@
+//! \file       ImageCBF.cs
+//! \date       2018 Mar 29
+//! \brief      Abel image format.
+//
+// Copyright (C) 2018 by morkt
+//
+// Permission is hereby granted, free of charge, to any person obtaining a copy
+// of this software and associated documentation files (the "Software"), to
+// deal in the Software without restriction, including without limitation the
+// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+// sell copies of the Software, and to permit persons to whom the Software is
+// furnished to do so, subject to the following conditions:
+//
+// The above copyright notice and this permission notice shall be included in
+// all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+// IN THE SOFTWARE.
+//
+
+using System;
+using System.ComponentModel.Composition;
+using System.IO;
+using System.Windows.Media;
+using GameRes.Compression;
+using GameRes.Utility;
+
+namespace GameRes.Formats.Abel
+{
+    internal class CbfMetaData : ImageMetaData
+    {
+        public int  Compression;
+    }
+
+    [Export(typeof(ImageFormat))]
+    public class CbfFormat : ImageFormat
+    {
+        public override string         Tag { get { return "CBF"; } }
+        public override string Description { get { return "Abel image format"; } }
+        public override uint     Signature { get { return 0x31464243; } } // 'CBF1'
+
+        public CbfFormat ()
+        {
+            Signatures = new uint[] { 0x30464243, 0x31464243, 0x32464243, 0x33464243 };
+        }
+
+        public override ImageMetaData ReadMetaData (IBinaryStream file)
+        {
+            var header = file.ReadHeader (0x18);
+            if (header.ToInt32 (0x10) != 1)
+                return null;
+            int compression = header[3] - '0';
+            if (compression < 0 || compression > 3)
+                return null;
+            return new CbfMetaData {
+                Width  = header.ToUInt32 (4),
+                Height = header.ToUInt32 (8),
+                BPP    = header.ToInt32 (12),
+                Compression = compression,
+            };
+        }
+
+        public override ImageData Read (IBinaryStream file, ImageMetaData info)
+        {
+            var reader = new CbfReader (file, (CbfMetaData)info);
+            var pixels = reader.Unpack();
+            var alp_name = Path.ChangeExtension (file.Name, "alp");
+            if (VFS.FileExists (alp_name))
+            {
+                try
+                {
+                    using (var alp = VFS.OpenBinaryStream (alp_name))
+                        return ReadAlpha (alp, info, pixels);
+                }
+                catch { /* ignore mask read errors */ }
+            }
+            return ImageData.Create (info, PixelFormats.Bgr24, null, pixels);
+        }
+
+        ImageData ReadAlpha (IBinaryStream alp, ImageMetaData info, byte[] image)
+        {
+            var header = alp.ReadHeader (0x10);
+            if (!header.AsciiEqual ("ALP1"))
+                throw new InvalidFormatException();
+            int unpacked_size = header.ToInt32 (8);
+            var alpha = new byte[unpacked_size];
+            int dst = 0;
+            while (dst < alpha.Length)
+            {
+                byte a = alp.ReadUInt8();
+                int count = alp.ReadUInt8();
+                for (int i = 0; i < count; ++i)
+                    alpha[dst++] = a;
+            }
+            int dst_stride = (int)info.Width * 4;
+            var pixels = new byte[dst_stride * (int)info.Height];
+            int a_src = 0;
+            int src = 0;
+            for (dst = 0; dst < pixels.Length; dst += 4)
+            {
+                pixels[dst  ] = image[src++];
+                pixels[dst+1] = image[src++];
+                pixels[dst+2] = image[src++];
+                pixels[dst+3] = alpha[a_src++];
+            }
+            return ImageData.Create (info, PixelFormats.Bgra32, null, pixels, dst_stride);
+        }
+
+        public override void Write (Stream file, ImageData image)
+        {
+            throw new System.NotImplementedException ("CbfFormat.Write not implemented");
+        }
+    }
+
+    internal class CbfReader
+    {
+        IBinaryStream   m_input;
+        byte[]          m_output;
+        int             m_width;
+        int             m_height;
+        int             m_stride;
+        int             m_compression;
+
+        public byte[]        Data { get { return m_output; } }
+
+        public CbfReader (IBinaryStream input, CbfMetaData info)
+        {
+            m_input = input;
+            m_width = (int)info.Width;
+            m_height = (int)info.Height;
+            m_stride = 3 * m_width;
+            m_output = new byte[m_stride * m_height];
+            m_compression = info.Compression;
+        }
+
+        public byte[] Unpack ()
+        {
+            switch (m_compression)
+            {
+            case 0: UnpackV0(); break;
+            case 1: UnpackV1(); break;
+            case 2: UnpackV2(); break;
+            case 3: UnpackV3(); break;
+            default:
+                throw new NotImplementedException (string.Format ("CBF compression {0} not implemented.", m_compression));
+            }
+            return m_output;
+        }
+
+        void UnpackV0 ()
+        {
+            m_input.Position = 0x18;
+            m_input.Read (m_output, 0, m_output.Length);
+        }
+
+        void UnpackV1 ()
+        {
+            m_input.Position = 0x18;
+            using (var lzss = new LzssStream (m_input.AsStream, LzssMode.Decompress, true))
+                lzss.Read (m_output, 0, m_output.Length);
+            for (int i = 3; i < m_output.Length; ++i)
+                m_output[i] += m_output[i-3];
+            var pixels = new byte[m_output.Length];
+            int src = 0;
+            var z_order = GetZigzagBlock();
+            for (int y = 0; y < m_height; y += 8)
+            for (int x = 0; x < m_stride; x += 24)
+            {
+                int dst = x + y * m_stride;
+                for (int i = 0; i < 64; ++i)
+                {
+                    int pos = z_order[i];
+                    pixels[dst + pos++] = m_output[src++];
+                    pixels[dst + pos++] = m_output[src++];
+                    pixels[dst + pos++] = m_output[src++];
+                }
+            }
+            m_output = pixels;
+        }
+
+        void UnpackV2 ()
+        {
+            m_input.Position = 0x18;
+            ReadRle (m_input.AsStream);
+        }
+
+        void UnpackV3 ()
+        {
+            m_input.Position = 0x1C;
+            using (var lzss = new LzssStream (m_input.AsStream, LzssMode.Decompress, true))
+                ReadRle (lzss);
+        }
+
+        void ReadRle (Stream input)
+        {
+            int dst = 0;
+            while (dst < m_output.Length)
+            {
+                if (3 != input.Read (m_output, dst, 3))
+                    break;
+                int count = input.ReadByte();
+                if (count > 0)
+                {
+                    count *= 3;
+                    Binary.CopyOverlapped (m_output, dst, dst+3, count-3);
+                    dst += count;
+                }
+            }
+        }
+
+        int[] GetZigzagBlock ()
+        {
+            var order = new int[64];
+            for (int i = 0; i < 64; ++i)
+            {
+                order[i] = (ZigzagOrder[i] & 7) * 3 + (ZigzagOrder[i] >> 3) * m_stride;
+            }
+            return order;
+        }
+
+        readonly static byte[] ZigzagOrder = {
+            0x00, 0x01, 0x08, 0x10, 0x09, 0x02, 0x03, 0x0A,
+            0x11, 0x18, 0x20, 0x19, 0x12, 0x0B, 0x04, 0x05,
+            0x0C, 0x13, 0x1A, 0x21, 0x28, 0x30, 0x29, 0x22,
+            0x1B, 0x14, 0x0D, 0x06, 0x07, 0x0E, 0x15, 0x1C,
+            0x23, 0x2A, 0x31, 0x38, 0x39, 0x32, 0x2B, 0x24,
+            0x1D, 0x16, 0x0F, 0x17, 0x1E, 0x25, 0x2C, 0x33,
+            0x3A, 0x3B, 0x34, 0x2D, 0x26, 0x1F, 0x27, 0x2E,
+            0x35, 0x3C, 0x3D, 0x36, 0x2F, 0x37, 0x3E, 0x3F,
+        };
+    }
+}

ArcFormats/ArcFormats.csproj

@@ -85,6 +85,8 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="Abel\ArcARC.cs" />
+    <Compile Include="Abel\ArcFPK.cs" />
+    <Compile Include="Abel\ImageCBF.cs" />
     <Compile Include="Abel\ImageGPS.cs" />
     <Compile Include="Abogado\ArcDSK.cs" />
     <Compile Include="Abogado\AudioADP.cs" />