/* mklynxcc.c: Written by Brian Raiter, 2001.
 * Ported by Yogeshwar Velingker to TI-Nspire, 2013.
 * 
 * This is a quick hack that can be used to make .dat files that use
 * the Lynx ruleset. Run the program, giving it the name of a .dat
 * file, and the program will modify the .dat file to mark it as being
 * for the Lynx ruleset.
 *
 * This source code is in the public domain.
 */

#ifndef	_TINSPIRE
#include	<stdio.h>
#include	<stdlib.h>
#include	<string.h>
#include	<errno.h>
#else
#include	<os.h>
#endif

#ifndef	TRUE
#define	TRUE	1
#endif
#ifndef	FALSE
#define	FALSE	0
#endif

/* The magic numbers of the .dat file.
 */
#define	CHIPS_SIGBYTE_1		0xAC
#define	CHIPS_SIGBYTE_2		0xAA
#define	CHIPS_SIGBYTE_3		0x02

/* Error return values.
 */
#define	ERR_BAD_CMDLINE		127
#define	ERR_NOT_DATFILE		126
#define	ERR_NOT_MS_DATFILE	125

/* The file to alter.
 */
static FILE		       *fp = NULL;
static char const	       *file = NULL;

#ifdef	_TINSPIRE
/* Perror for TI-Nspire using a msgbox as well as stderr.
 */
static void nsp_perror(const char *s)
{
    char		errstr[512];
    
    if (s != NULL && *s != '\0') {
	sprintf(errstr, "%s: %s", s, strerror(errno));
    } else {
	sprintf(errstr, "%s", strerror(errno));
    }
    
    fprintf(stderr, "%s\n", errstr);
    show_msgbox("mklynxcc", errstr);
}

/* Formatted messagebox. Also outputs to specified stream.
 */
static void fmsgf(FILE *stream, const char *format, ...)
{
    char		message[512];
    va_list		arglist;
    
    va_start(arglist, format);
    vsprintf(message, format, arglist);
    va_end(arglist);
    
    fprintf(stream, "%s\n", message);
    show_msgbox("mklynxcc", message);
}
#else
#define nsp_perror perror
#define fmsgf fprintf
#endif

/* Replace a byte in the file.
 */
static int changebyte(unsigned long pos, unsigned char byte)
{
    if (fseek(fp, pos, SEEK_SET) == 0 && fputc(byte, fp) != EOF)
	return TRUE;
    nsp_perror(file);
    return FALSE;
}

/* Return FALSE if the file is not a .dat file.
 */
static int sanitycheck(void)
{
    unsigned char	header[4];
    int			n;

    n = fread(header, 1, 4, fp);
    if (n < 0) {
	nsp_perror(file);
	return FALSE;
    }
    if (n < 4 || header[0] != CHIPS_SIGBYTE_1
	      || header[1] != CHIPS_SIGBYTE_2
	      || header[2] != CHIPS_SIGBYTE_3) {
	fmsgf(stderr, "%s is not a valid .dat file", file);
	errno = ERR_NOT_DATFILE;
	return FALSE;
    }
    if (header[3] != 0) {
	if (header[3] == 1)
	    fmsgf(stderr, "%s is already set for the Lynx ruleset", file);
	else
	    fmsgf(stderr, "%s is not set for the MS ruleset", file);
	errno = ERR_NOT_MS_DATFILE;
	return FALSE;
    }
    rewind(fp);
    return TRUE;
}

#ifdef	_TINSPIRE
int main(int argc, char *argv[])
{
    int ret = 0;
    int n;
    char *path;
    
    assert_ndless_rev(765);
    
    if (argc == 1) {
	if (show_msg_user_input("mklynxcc", "Enter path to data file:", argv[0], &path) == -1) {
	    return ERR_BAD_CMDLINE;
	}
	file = path;
	enable_relative_paths(argv);
	if ((fp = fopen(file, "r+b")) == NULL) {
	    nsp_perror(file);
	    ret = errno;
	} else if (sanitycheck() && changebyte(3, 1)) {
	    fmsgf(stdout, "%s was successfully altered", file);
	} else
	    ret = errno;
	fclose(fp);
	free(path);
    } else {
        enable_relative_paths(argv);
	for (n = 1 ; n < argc ; ++n) {
	    file = argv[n];
	    if ((fp = fopen(file, "r+b")) == NULL) {
	        nsp_perror(file);
	        ret = errno;
	        continue;
	    }
	    if (sanitycheck() && changebyte(3, 1))
	        fmsgf(stdout, "%s was successfully altered", file);
	    else
	        ret = errno;
	    fclose(fp);
        }
    }
    
    return ret;
}
#else
int main(int argc, char *argv[])
{
    int ret = 0;
    int n;

    if (argc < 2) {
	fprintf(stderr, "Usage: %s DATFILE ...\n", argv[0]);
	return ERR_BAD_CMDLINE;
    }
    for (n = 1 ; n < argc ; ++n) {
	file = argv[n];
	if ((fp = fopen(file, "r+b")) == NULL) {
	    perror(file);
	    ret = errno;
	    continue;
	}
	if (sanitycheck() && changebyte(3, 1))
	    printf("%s was successfully altered\n", file);
	else
	    ret = errno;
	fclose(fp);
    }
    return ret;
}
#endif