GARbro-mirror/ArcFormats/Glib2/ImagePGX.cs

//! \file       ImagePGX.cs
//! \date       Tue Dec 08 02:50:45 2015
//! \brief      Glib2 image format.
//
// Copyright (C) 2015 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 GameRes.Utility;
using System;
using System.Collections.Generic;
using System.ComponentModel.Composition;
using System.Diagnostics;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Windows.Media;

namespace GameRes.Formats.Glib2
{
    internal class PgxMetaData : ImageMetaData
    {
        public int  PackedSize;
    }

    internal class StxLayerInfo
    {
        public string       Path;
        public Rectangle?   Rect;
        public string       Effect;
        public int          Blend;
    }

    [Export(typeof(ImageFormat))]
    public class PgxFormat : ImageFormat
    {
        public override string         Tag { get { return "PGX"; } }
        public override string Description { get { return "Glib2 engine image format"; } }
        public override uint     Signature { get { return 0x00584750; } } // 'PGX'

        static readonly InfoReader InfoCache = new InfoReader();

        public override ImageMetaData ReadMetaData (Stream stream)
        {
            var header = new byte[0x18];
            if (header.Length != stream.Read (header, 0, header.Length))
                return null;
            return new PgxMetaData
            {
                Width   = LittleEndian.ToUInt32 (header, 8),
                Height  = LittleEndian.ToUInt32 (header, 12),
                BPP     = LittleEndian.ToInt16 (header, 0x10) == 0 ? 24 : 32,
                PackedSize = LittleEndian.ToInt32 (header, 0x14),
            };
        }

        public override ImageData Read (Stream stream, ImageMetaData info)
        {
            var meta = (PgxMetaData)info;
            PixelFormat format = 32 == meta.BPP ? PixelFormats.Bgra32 : PixelFormats.Bgr32;
            int stride = (int)meta.Width * 4;
            var pixels = new byte[stride * (int)meta.Height];
            stream.Seek (-meta.PackedSize, SeekOrigin.End);
            LzssUnpack (stream, pixels);
            var layer = InfoCache.GetInfo (info.FileName);
            if (null != layer && null != layer.Rect)
            {
                info.OffsetX = layer.Rect.Value.X;
                info.OffsetY = layer.Rect.Value.Y;
            }
            return ImageData.Create (info, format, null, pixels);
        }

        public override void Write (Stream file, ImageData image)
        {
            throw new System.NotImplementedException ("PgxFormat.Write not implemented");
        }

        static void LzssUnpack (Stream input, byte[] output)
        {
            var frame = new byte[0x1000];
            int frame_pos = 0xFEE;
            using (var lz = new ArcView.Reader (input))
            {
                int dst = 0;
                int bits = 1;
                while (dst < output.Length)
                {
                    if (1 == bits)
                        bits = lz.ReadByte() | 0x100;

                    if (0 != (bits & 1))
                    {
                        byte b = lz.ReadByte();
                        output[dst++] = b;
                        frame[frame_pos++] = b;
                        frame_pos &= 0xFFF;
                    }
                    else
                    {
                        byte lo = lz.ReadByte();
                        byte hi = lz.ReadByte();
                        int offset = (hi & 0xF0) << 4 | lo;
                        int count = Math.Min ((~hi & 0xF) + 3, output.Length-dst);
                        for (int i = 0; i < count; ++i)
                        {
                            byte b = frame[offset++ & 0xFFF];
                            output[dst++] = b;
                            frame[frame_pos++] = b;
                            frame_pos &= 0xFFF;
                        }
                    }
                    bits >>= 1;
                }
            }
        }
    }

    internal class InfoReader
    {
        string                              m_last_info_dir;
        Dictionary<string, StxLayerInfo>    m_layer_map;

        internal class StxEntry
        {
            public string   FullName;
            public string   Name;
            public int      Attr;
            public uint     InfoOffset;
            public uint     InfoSize;
        }

        public StxLayerInfo GetInfo (string image_name)
        {
            try
            {
                var info_name = VFS.CombinePath (VFS.GetDirectoryName (image_name), "info");
                if (!VFS.FileExists (info_name))
                    return null;
                if (string.IsNullOrEmpty (m_last_info_dir)
                    || string.Join (":", VFS.FullPath) != m_last_info_dir)
                    ParseInfo (info_name);

                var layer_name = Path.GetFileName (image_name);
                return GetLayerInfo (layer_name);
            }
            catch (Exception X)
            {
                Trace.WriteLine (X.Message, "[Glib2] STX parse error");
                return null;
            }
        }

        StxLayerInfo GetLayerInfo (string layer_name)
        {
            if (null == m_layer_map)
                return null;
            StxLayerInfo info;
            m_layer_map.TryGetValue (layer_name, out info);
            return info;
        }

        void ParseInfo (string info_name)
        {
            if (null == m_layer_map)
                m_layer_map = new Dictionary<string, StxLayerInfo>();
            else
                m_layer_map.Clear();

            using (var info = VFS.OpenView (info_name))
            {
                if (!info.View.AsciiEqual (0, "CDBD"))
                    return;
                int count = info.View.ReadInt32 (4);
                uint current_offset = 0x10;
                uint info_base = current_offset + info.View.ReadUInt32 (8);
                uint info_total_size = info.View.ReadUInt32 (12);
                info.View.Reserve (0, info_base+info_total_size);
                uint names_base = current_offset + (uint)count * 0x18;
                var dir = new List<StxEntry> (count);
                for (int i = 0; i < count; ++i)
                {
                    uint name_offset = names_base + info.View.ReadUInt32 (current_offset);
                    int parent_dir = info.View.ReadInt32 (current_offset+8);
                    int attr = info.View.ReadInt32 (current_offset+0xC);
                    uint info_offset = info.View.ReadUInt32 (current_offset+0x10);
                    uint info_size   = info.View.ReadUInt32 (current_offset+0x14);

                    var name = info.View.ReadString (name_offset, info_base-name_offset);
                    string path_name = name;
                    if (parent_dir != -1)
                        path_name = Path.Combine (dir[parent_dir].FullName, path_name);

                    if (attr != -1 && info_size != 0)
                        info_offset += info_base;
                    var entry = new StxEntry {
                        FullName = path_name,
                        Name = name,
                        Attr = attr,
                        InfoOffset = info_offset,
                        InfoSize = info_size,
                    };
                    if (name == "filename" && parent_dir != -1 && info_size != 0)
                    {
                        uint filename_length = info.View.ReadUInt32 (info_offset);
                        var filename = info.View.ReadString (info_offset+4, filename_length);
                        m_layer_map[filename] = new StxLayerInfo {
                            Path = dir[parent_dir].FullName + Path.DirectorySeparatorChar,
                        };
                    }
                    dir.Add (entry);
                    current_offset += 0x18;
                }
                foreach (var layer in m_layer_map.Values)
                {
                    foreach (var field in dir.Where (e => e.Attr != -1 && e.FullName.StartsWith (layer.Path)))
                    {
                        if ("rect" == field.Name && 0x14 == field.InfoSize)
                        {
                            int left   = info.View.ReadInt32 (field.InfoOffset+4);
                            int top    = info.View.ReadInt32 (field.InfoOffset+8);
                            int right  = info.View.ReadInt32 (field.InfoOffset+12);
                            int bottom = info.View.ReadInt32 (field.InfoOffset+16);
                            layer.Rect = new Rectangle (left, top, right-left, bottom-top);
                        }
                        else if ("effect" == field.Name && field.InfoSize > 4)
                        {
                            // "norm"
                            uint effect_length = info.View.ReadUInt32 (field.InfoOffset);
                            layer.Effect = info.View.ReadString (field.InfoOffset+4, effect_length);
                            if (layer.Effect != "norm")
                                Trace.WriteLine (string.Format ("{0}: {1}effect = {2}",
                                    info_name, layer.Path, layer.Effect), "[Glib2.STX]");
                        }
                        else if ("blend" == field.Name && 4 == field.InfoSize)
                        {
                            // 0xFF -> opaque
                            layer.Blend = info.View.ReadInt32 (field.InfoOffset);
                            if (layer.Blend != 0xFF)
                                Trace.WriteLine (string.Format ("{0}: {1}blend = {2}",
                                    info_name, layer.Path, layer.Blend), "[Glib2.STX]");
                        }
                    }
                }
            }
            m_last_info_dir = string.Join (":", VFS.FullPath);
        }
    }
}