ref: 6d815d2f620af548f0d7c9c00281c16656c5f1b1
dir: /src/allegro/dats3m.c/
/*  _______         ____    __         ___    ___
 * \    _  \       \    /  \  /       \   \  /   /       '   '  '
 *  |  | \  \       |  |    ||         |   \/   |         .      .
 *  |  |  |  |      |  |    ||         ||\  /|  |
 *  |  |  |  |      |  |    ||         || \/ |  |         '  '  '
 *  |  |  |  |      |  |    ||         ||    |  |         .      .
 *  |  |_/  /        \  \__//          ||    |  |
 * /_______/ynamic    \____/niversal  /__\  /____\usic   /|  .  . ibliotheque
 *                                                      /  \
 *                                                     / .  \
 * dats3m.c - Integration of S3M files with           / / \  \
 *            Allegro's datafiles.                   | <  /   \_
 *                                                   |  \/ /\   /
 * By entheh.                                         \_  /  > /
 *                                                      | \ / /
 *                                                      |  ' /
 *                                                       \__/
 */
#include <allegro.h>
#include "aldumb.h"
#include "internal/aldumb.h"
static void *dat_read_s3m(PACKFILE *f, long size)
{
	DUMBFILE *df;
	DUH *duh;
	(void)size;
	df = dumbfile_open_packfile(f);
	if (!df)
		return NULL;
	duh = dumb_read_s3m(df);
	dumbfile_close(df);
	return duh;
}
/* dumb_register_dat_s3m(): tells Allegro about the S3M datafile object. If
 * you intend to load a datafile containing an S3M object, you must call this
 * function first. It is recommended you pass DUMB_DAT_S3M, but you may have
 * a reason to use a different type (perhaps you already have a datafile with
 * S3M files in and they use a different type).
 */
void dumb_register_dat_s3m(long type)
{
	register_datafile_object(
		type,
		&dat_read_s3m,
		&_dat_unload_duh
	);
}