/*
    Copyright (C) 1995-1997 AROS - The Amiga Replacement OS
    $Id: makecountry.c,v 1.6 1997/03/21 17:15:02 srittau Exp $

    Desc: Program that makes country files
    Lang: english
*/

#include <exec/types.h>
#include <libraries/locale.h>
#include <prefs/locale.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <aros/system.h>

#define EC(x)\
{\
    (x) =   (((x) & 0xFF000000) >> 24)\
	  | (((x) & 0x00FF0000) >> 8)\
	  | (((x) & 0x0000FF00) << 8)\
	  | (((x) & 0x000000FF) << 24);\
}

struct CountryEntry
{
    STRPTR ca_Name;
    struct CountryPrefs *ca_Data;
};

extern struct CountryPrefs
    australiaPrefs,
    deutschPrefs,
    greatBritainPrefs,
    nederlandPrefs;

/* Please keep this in alphabetical order, ie the order of Latin 1 */
struct CountryEntry CountryArray[] =
{
    { "australia",          &australiaPrefs },
    { "deutschland",        &deutschPrefs },
    { "great_britain",      &greatBritainPrefs },
    { "nederland",  	    &nederlandPrefs },
    { NULL, NULL }
};

/* This is equivalent to the start of the catalog file.
   It is a series of strings, so that the endianness is
   correct either way
*/
char preamble[] =
{
    "FORM" "\x00\x00\x02\x12" "PREF"

	"PRHD" "\x00\x00\x00\x06"
	    "\x00\x00\x00\x00\x00\x00"

	"CTRY" "\x00\x00\x01\xF8"
};


int doCountry(struct CountryPrefs *cp, STRPTR progname, STRPTR filename)
{
    FILE *fp;

    fp = fopen(filename, "w");
    if(fp == NULL)
    {
	printf("%s: Could not open file %s\n", progname, filename);
	return (20);
    }

    /* Write the preamble...
	FORM 0x00000212 PREF
	    PRHD 0x00000006

	    CTRY 0x000001F8
    */
    if(fwrite(preamble, 34, 1, fp) < 1)
    {
	printf("%s: Write error during preable of %s.\n", progname, filename);
	fclose(fp);
	return(20);
    }


#if (AROS_BIG_ENDIAN == 0)
    /* We have to convert the endianness of this data,
       thankfully there are only two fields which this applies
       to.
    */
    EC(cp->cp_CountryCode);
    EC(cp->cp_TelephoneCode);
#endif

    if(fwrite(cp, sizeof(struct CountryPrefs), 1, fp) < 1)
    {
	printf("%s: Write error during data for %s.\n", progname, filename);
	fclose(fp);
	return(20);
    }

    fclose(fp);
    return 0;
}

int main(int argc, char **argv)
{
    int i,j,res;

    if(argc < 3)
    {
	printf("%s: Wrong number of arguments\n", argv[0]);
	return(20);
    }

    for(i=2; i < argc; i++)
    {
	for(j=0; CountryArray[j].ca_Name != NULL; j++)
	{
	    res = strcmp(CountryArray[j].ca_Name, argv[i]);
	    if(res == 0)
	    {
		UBYTE buffer[80];
		strcpy(buffer, argv[1]);
		strcat(buffer, argv[i]);
		strcat(buffer, ".country");
		doCountry(CountryArray[j].ca_Data, argv[0], buffer);
		break;
	    }
	    /* If countryArray < argv[] don't bother searching */
	    else if(res > 0)
		break;
	}
    }
    return 0;
}