RECOIL Code

/*
 * Xrecoil.c - RECOIL plugin for XnView http://www.xnview.com
 *
 * Copyright (C) 2009-2021  Piotr Fusik and Adrian Matoga
 *
 * This file is part of RECOIL (Retro Computer Image Library),
 * see http://recoil.sourceforge.net
 *
 * RECOIL is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published
 * by the Free Software Foundation; either version 2 of the License,
 * or (at your option) any later version.
 *
 * RECOIL is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty
 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with RECOIL; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

#ifdef WIN32
#define _WIN32_WINNT 0x0500
#include <windows.h>

#define API __stdcall
#define DLL_EXPORT __declspec(dllexport)

#else

#include <stdint.h>

#define BOOL int32_t
#define DWORD uint32_t
#define INT int32_t

#define API
#define DLL_EXPORT

#define TRUE 1
#define FALSE 0

#endif

#include <stddef.h>

#include "recoil-stdio.h"
#include "formats.h"

#define GFP_RGB	0
#define GFP_BGR	1

#define GFP_READ 0x0001
#define GFP_WRITE 0x0002

typedef struct {
	unsigned char red[256];
	unsigned char green[256];
	unsigned char blue[256];
} GFP_COLORMAP;

typedef struct {
	INT plugin_version;

	INT frame_count;

	INT pictype;
	INT width;
	INT height;
	INT xdpi;
	INT bits_per_pixel;
	INT bytes_per_line;
	BOOL has_colormap;

	char label[256];

	void *FuncParm;
	void (API *AddExtra)(void *ptr, const char *key, const char *value);

	// 1.97.7
	INT original_width;
	INT original_height;
	INT original_bits_per_pixel;

	// plugin version 5
	INT ydpi;
} GFP_PICTUREINFO;

static size_t strlcpy(char *dst, const char *src, size_t size)
{
	int i;
	for (i = 0; i < size - 1 && src[i] != '\0'; i++)
		dst[i] = src[i];
	dst[i] = '\0';
	while (src[i] != '\0')
		i++;
	return i;
}

DLL_EXPORT BOOL API gfpGetPluginInfo(
	DWORD version, char *label, INT label_max_size,
	char *extension, INT extension_max_size, INT *support)
{
	if (version != 0x0002)
		return FALSE;

	strlcpy(label, "Retro Computer Image Library", label_max_size);
	strlcpy(extension, XNVIEW_RECOIL_EXTS, extension_max_size);
	*support = GFP_READ;

	return TRUE;
}

DLL_EXPORT void * API gfpLoadPictureInit(const char *filename)
{
	RECOIL *recoil = RECOILStdio_New();
	if (recoil == NULL)
		return NULL;

	if (!RECOILStdio_Load(recoil, filename)) {
		RECOIL_Delete(recoil);
		return NULL;
	}

	return recoil;
}

static INT ppmToDpi(int ppm)
{
	// meters to inches with rounding
	return ppm == 0 ? 68 : (ppm * 254 + 127) / 10000;
}

DLL_EXPORT BOOL API gfpLoadPictureGetInfo(
	void *ptr, INT *pictype, INT *width, INT *height,
	INT *dpi, INT *bits_per_pixel, INT *bytes_per_line,
	BOOL *has_colormap, char *label, INT label_max_size)
{
	const RECOIL *recoil = (const RECOIL *) ptr;

	*pictype = GFP_RGB;
	*width = RECOIL_GetWidth(recoil);
	*height = RECOIL_GetHeight(recoil);
	// choose the vertical DPI, so that platforms using a TV have same DPI
	*dpi = ppmToDpi(RECOIL_GetYPixelsPerMeter(recoil));
	*bits_per_pixel = 24;
	*bytes_per_line = *width * 3;
	*has_colormap = FALSE;
	strlcpy(label, RECOIL_GetPlatform(recoil), label_max_size);

	return TRUE;
}

DLL_EXPORT BOOL API gfpLoadPictureGetInfoEx(
	void *ptr, INT frame_index, GFP_PICTUREINFO *info)
{
	const RECOIL* recoil = (const RECOIL*) ptr;

	info->pictype = GFP_RGB;
	info->width = RECOIL_GetWidth(recoil);
	info->height = RECOIL_GetHeight(recoil);
	info->xdpi = ppmToDpi(RECOIL_GetXPixelsPerMeter(recoil));
	if (info->plugin_version >= 5)
		info->ydpi = ppmToDpi(RECOIL_GetYPixelsPerMeter(recoil));
	info->bits_per_pixel = 24;
	info->bytes_per_line = info->width * 3;
	info->has_colormap = FALSE;
	strlcpy(info->label, RECOIL_GetPlatform(recoil), sizeof(info->label));

	return TRUE;
}

DLL_EXPORT BOOL API gfpLoadPictureGetLine(void *ptr, INT line, unsigned char *buffer)
{
	const RECOIL *recoil = (const RECOIL *) ptr;
	int width = RECOIL_GetWidth(recoil);
	const int *pixels = RECOIL_GetPixels(recoil) + line * width;

	for (int x = 0; x < width; x++) {
		int rgb = pixels[x];
		buffer[x * 3] = (unsigned char) (rgb >> 16);
		buffer[x * 3 + 1] = (unsigned char) (rgb >> 8);
		buffer[x * 3 + 2] = (unsigned char) rgb;
	}

	return TRUE;
}

DLL_EXPORT BOOL API gfpLoadPictureGetColormap(void *ptr, GFP_COLORMAP *cmap)
{
	return FALSE;
}

DLL_EXPORT void API gfpLoadPictureExit(void *ptr)
{
	RECOIL *recoil = (RECOIL *) ptr;
	RECOIL_Delete(recoil);
}

#ifdef WIN32
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
	return TRUE;
}
#endif