/*
 *	wadio.c
 *	Wad low level I/O routines, without error checking.
 *	AYM 1999-03-06
 */


/*
This file is part of DeuTex.

DeuTex incorporates code derived from DEU 5.21 that was put in the public
domain in 1994 by Raphaël Quinet and Brendon Wyber.

DeuTex is Copyright © 1994-1995 Olivier Montanuy,
          Copyright © 1999-2000 André Majorel.

This program 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.

This program 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
this library; if not, write to the Free Software Foundation, Inc., 59 Temple
Place, Suite 330, Boston, MA 02111-1307, USA.
*/


#include "deutex.h"
#include <ctype.h>
#include "endianio.h"
#include "wadio.h"


/*
 *	wad_read_i16
 *	wad_read_i32
 *	wad_write_i16
 *	wad_write_i32
 *
 *	Read and write 16-bit and 32-bit signed integers, with
 *	the respect to the defined endianness. By default, all
 *	wad I/O is done in little-endian mode.
 *
 *	Return 0 on success, non-zero on failure.
 */
int (* wad_write_i16) (FILE *, Int16)   = fwrite_i16_le;
int (* wad_write_i32) (FILE *, Int32)   = fwrite_i32_le;
int (* wad_read_i16)  (FILE *, Int16 *) = fread_i16_le;
int (* wad_read_i32)  (FILE *, Int32 *) = fread_i32_le;


/*
 *	set_input_wad_endianness
 *	set_output_wad_endianness
 *
 *	Defined the endianness to use for wad input and output
 *	respectively. Normally, all wads are little-endian.
 */
void set_output_wad_endianness (int big_endian)
{
  wad_write_i16 = big_endian ? fwrite_i16_be : fwrite_i16_le;
  wad_write_i32 = big_endian ? fwrite_i32_be : fwrite_i32_le;
}

void set_input_wad_endianness (int big_endian)
{
  wad_read_i16 = big_endian ? fread_i16_be : fread_i16_le;
  wad_read_i32 = big_endian ? fread_i32_be : fread_i32_le;
}


/*
 *	wad_read_name
 *	wad_write_name
 *
 *	Read and write a directory name to a wad. The name is
 *	truncated to 8 characters, upper-cased, terminated and
 *	padded to 8 with NULs.
 *
 *	Return 0 on success, non-zero on failure.
 */
int wad_read_name (FILE *fd, char name[8])
{
  size_t n;
  int end = 0;
  for (n = 0; n < 8; n++)
  {
    int c = getc (fd);
    name[n] = end ? '\0' : toupper (c);
    if (c == '\0')
      end = 1;
  }
  return feof (fd) || ferror (fd);
}

int wad_write_name (FILE *fd, const char *name)
{
  size_t n;
  for (n = 0; n < 8 && name[n]; n++)
    putc (toupper (name[n]), fd);
  for (; n < 8; n++)
    putc ('\0', fd);
  return ferror (fd);
}