/*
 * Copyright 2012 Haiku, Inc. All rights reserved.
 * Distributed under the terms of the MIT License.
 *
 * Authors:
 *		Alexander von Gluck, kallisti5@unixzen.com
 */

/*
 * Pass a standard CPUID in hex, and get out a CPUID for cpu_type.h
 */


#include <stdio.h>
#include <stdlib.h>
#include <string.h>


#define EXT_FAMILY_MASK 0xF00000
#define EXT_MODEL_MASK	0x0F0000
#define FAMILY_MASK		0x000F00
#define MODEL_MASK		0x0000F0
#define STEPPING_MASK	0x00000F


// Converts a hexadecimal string to integer
static int
xtoi(const char* xs, unsigned int* result)
{
	size_t szlen = strlen(xs);
	int i;
	int xv;
	int fact;

	if (szlen > 0) {
		// Converting more than 32bit hexadecimal value?
		if (szlen > 8)
			return 2;

		// Begin conversion here
		*result = 0;
		fact = 1;

		// Run until no more character to convert
		for (i = szlen - 1; i>=0; i--) {
			if (isxdigit(*(xs + i))) {
				if (*(xs + i) >= 97)
					xv = (*(xs + i) - 97) + 10;
				else if (*(xs + i) >= 65)
					xv = (*(xs + i) - 65) + 10;
				else
					xv = *(xs + i) - 48;

				*result += (xv * fact);
				fact *= 16;
			} else {
				// Conversion was abnormally terminated
				// by non hexadecimal digit, hence
				// returning only the converted with
				// an error value 4 (illegal hex character)
				return 4;
			}
		}
	}

	// Nothing to convert
	return 1;
}


int
main(int argc, char *argv[])
{
	if (argc != 2) {
		printf("Provide the cpuid in hex, and you will get how we id it\n");
		printf("usage: cpuidhaiku <cpuid_hex>\n");
		return 1;
	}

	unsigned int cpuid = 0;
	xtoi(argv[1], &cpuid);

	printf("cpuid: 0x%X\n", cpuid);

    int family = ((cpuid >> 8) & 0xf) | ((cpuid >> 16) & 0xff0);
    int model = ((cpuid >> 4) & 0xf) | ((cpuid >> 12) & 0xf0);
    int stepping = cpuid & 0xf;

	printf("Haiku CPUID: Family: 0x%x, Model: 0x%x, Stepping: 0x%x\n", family,
		model, stepping);

	return 0;
}