function [info,msg] = imxwdinfo(filename)
%IMXWDINFO Get information about the image in an XWD file.
%   [INFO,MSG] = IMXWDINFO(FILENAME) returns information about
%   the image contained in an XWD file.  If an error occurs, INFO
%   is returned as [] and an error message is returned in MSG.
%
%   See also IMREAD, IMWRITE, and IMFINFO.

%   Steven L. Eddins, June 1996
%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.6 $  $Date: 1997/11/21 23:36:09 $

%   Reference:  Murray and vanRyper, Encyclopedia of Graphics
%   File Formats, 2nd ed, O'Reilly, 1996.

% This function should not call error()!.

msg = '';
info = [];

if (~isstr(filename))
    msg = 'FILENAME must be a string';
    return;
end

[fid,m] = fopen(filename, 'r', 'ieee-be');
if (fid == -1)
    info = [];
    msg = m;
    return;
else
    filename = fopen(fid);
    d = dir(filename);
end

% Initialize the standard fields to fix the order.
info.Filename = filename;
info.FileModDate = d.date;
info.FileSize = d.bytes;
info.Format = 'xwd';
info.FormatVersion = [];
info.Width = [];
info.Height = [];
info.BitDepth = [];
info.ColorType = [];
info.FormatSignature = [];

% The file may be written as big-endian or little-endian.
% If the second uint value we read is not 7, re-open the file as
% little-endian.
info.FormatSignature = fread(fid, 2, 'uint32');
if (length(info.FormatSignature) < 2)
    info = [];
    msg = 'Truncated header';
    fclose(fid);
    return;
end
info.HeaderSize = info.FormatSignature(1);
info.FormatVersion = info.FormatSignature(2);
if (info.FormatVersion ~= 7)
    fclose(fid);
    [fid,m] = fopen(filename, 'r', 'ieee-le');
    if (fid == -1)
        info = [];
        msg = m;
        return;
    end
    info.FormatSignature = fread(fid, 2, 'uint32');
    info.HeaderSize = info.FormatSignature(1);
    info.FormatVersion = info.FormatSignature(2);
    if (info.FormatVersion ~= 7)
        info = [];
        msg = 'Not an X11 XWD file';
        fclose(fid);
        return;
    end
end

format = fread(fid, 1, 'uint32');
if (isempty(format))
    info = [];
    msg = 'Truncated header';
    fclose(fid);
    return;
end
switch format
case 0
    info.PixmapFormat = 'XYBitmap';
case 1
    info.PixmapFormat = 'XYPixmap';
case 2
    info.PixmapFormat = 'ZPixmap';
otherwise
    info.PixmapFormat = 'unknown';
end
info.PixmapDepth = fread(fid, 1, 'uint32');
info.Width = fread(fid, 1, 'uint32');
info.Height = fread(fid, 1, 'uint32');
info.XOffset = fread(fid, 1, 'uint32');
info.ByteOrder = fread(fid, 1, 'uint32');
info.BitmapUnit = fread(fid, 1, 'uint32');
info.BitmapBitOrder = fread(fid, 1, 'uint32');
info.BitmapPad = fread(fid, 1, 'uint32');
info.BitDepth = fread(fid, 1, 'uint32');
info.BytesPerLine = fread(fid, 1, 'uint32');
info.VisualClass = fread(fid, 1, 'uint32');
info.RedMask = fread(fid, 1, 'uint32');
info.GreenMask = fread(fid, 1, 'uint32');
info.BlueMask = fread(fid, 1, 'uint32');
info.BitsPerRgb = fread(fid, 1, 'uint32');
info.NumberOfColors = fread(fid, 1, 'uint32');
info.NumColormapEntries = fread(fid, 1, 'uint32');
info.WindowWidth = fread(fid, 1, 'uint32');
info.WindowHeight = fread(fid, 1, 'uint32');
info.WindowX = fread(fid, 1, 'int32');
info.WindowY = fread(fid, 1, 'int32');
info.WindowBorderWidth = fread(fid, 1, 'uint32');
info.Name = char(fread(fid, info.HeaderSize - ftell(fid), 'uint8')');

if (isempty(info.NumColormapEntries))
    info = [];
    msg = 'Truncated header';
    fclose(fid);
    return;
end

if (info.NumColormapEntries > 0)
    info.ColorType = 'indexed';
    
else
    if (isempty(info.BitDepth))
        info = [];
        msg = 'Truncated header';
        fclose(fid);
        return;
    end
    if (info.BitDepth <= 8)
        info.ColorType = 'grayscale';
    else
        info.ColorType = 'truecolor';
    end
end

fclose(fid);
