/* Re-written from scratch 3 March 2001      */
/* Handles x86 and x86_64 chips on Linux     */
/* by Vince Weaver <vince@deater.net>        */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>  /* atof */

#include "../sysinfo.h"
#include "../include/generic.h"

//#define USE_LEGACY_PARSING	1


/******************/
/* AMD chips      */
/******************/

static void grab_amd_to_space(char *model_string,char *base_type,int max_len) {

	char *result;
	int i;

	result=strstr(model_string,"AMD ");
	if (result==NULL) {
		strncpy(base_type,"Unknown",8);
	}
	else {
		result+=4;
		for(i=0;i<max_len;i++) {
			if (result[i]==' ') break;
			if (result[i]=='(') break; /* skip (TM) */
			if (result[i]==0) break;
			base_type[i]=result[i];
		}
		result[i]=0;
	}

}

static void fixup_model_amd(struct cpu_info_type *cpu_info,
				char *model_string) {


#ifndef USE_LEGACY_PARSING
	char base_type[BUFSIZ];
	char prefix[BUFSIZ];

	prefix[0]=0;

	strncpy(cpu_info->chip_vendor,"AMD",4);

	/* Old versions of Linux (before 1998?) */
	/* the "model" field was a string not a number */
	if ((cpu_info->family==4) && (cpu_info->model==0)) {
		strncpy(base_type,model_string,BUFSIZ);
		goto too_old;
	}

	/* New, family/model/stepping version */

	/* http://www.paradicesoftware.com/specs/cpuid/ */

	if (cpu_info->family==3) {
		strncpy(base_type,"386",4);
	}
	else if (cpu_info->family==4) {

		switch(cpu_info->model) {
			case 3:
				strncpy(base_type,"486 DX/2",9);
				break;
			case 7:
				strncpy(base_type,"486 DX/2-WB",12);
				break;
			case 8:
				strncpy(base_type,"486 DX/4",9);
				break;
			case 9:
				strncpy(base_type,"486 DX/4-WB",12);
				break;
			case 14:
				strncpy(base_type,"Am5x86-WT",10);
				break;
			case 15:
				strncpy(base_type,"Am5x86-WB",10);
				break;
			default:
				strncpy(base_type,"486",4);
				break;
		}
	}
	else if (cpu_info->family==5) {
		switch(cpu_info->model) {
			case 0: /* K5 SSA */
			case 1: /* K5 PR120/PR133 */
			case 2: /* K5 PR166 */
			case 3: /* K5 PR200 */
				strncpy(base_type,"K5",3);
				break;
			case 6: /* 0.30um */
			case 7: /* 0.25um */
				strncpy(base_type,"K6",3);
				break;
			case 8:
				strncpy(base_type,"K6-2",5);
				break;
			case 9:
				strncpy(base_type,"K6-3",5);
				break;
			case 10:
				strncpy(base_type,"Geode",6);
				break;
			case 13: /* could also be K6-3+? */
				strncpy(base_type,"K6-2+",6);
				break;
			default:
				strncpy(base_type,"K6",3);
				break;
		}
	}
	else if (cpu_info->family==6) {

		/* Athlon */

		switch(cpu_info->model) {
			case 0: /* Athlon (0.25um) */
			case 1: /* Athlon (0.25um) */
			case 2: /* Athlon (0.18um) */
			case 4: /* Athlon (Thunderbird) */
			case 6: /* Athlon (Palamino) */
				strncpy(base_type,"Athlon",7);
				break;
			/* Duron */
			case 3: /* Duron */
			case 7: /* Duron (Morgan) */
				strncpy(base_type,"Duron",6);
				break;
			case 8: /* Athlon (Thoroughbread) */
				if (strstr(model_string,"XP")) {
					strncpy(base_type,"Athlon XP",10);
				}
				else if (strstr(model_string,"MP")) {
					strncpy(base_type,"Athlon MP",10);
				}
				else if (strstr(model_string,"Sempron")) {
					strncpy(base_type,"Sempron",8);
				}
				else if (strstr(model_string,"Geode")) {
					strncpy(base_type,"Geode",8);
				}
				else {
					strncpy(base_type,"Athlon",8);
				}
				break;
			case 10: /* Athlon (Barton) */
				if (strstr(model_string,"XP")) {
					strncpy(base_type,"Athlon XP",10);
				}
				else if (strstr(model_string,"MP")) {
					strncpy(base_type,"Athlon MP",10);
				}
				else {
					strncpy(base_type,"Athlon",8);
				}
				break;
			default: strncpy(base_type,"Athlon",7);
				break;
		}
	}
	else if (cpu_info->family==15) {
		/* Opteron */
		/* How do model numbers map to names? */

		if (strstr(model_string,"Opteron")) {
			strncpy(base_type,"Opteron",8);
		}
		else if (strstr(model_string,"Turion")) {
			strncpy(base_type,"Turion 64",10);
		}
		else if (strstr(model_string,"Sempron")) {
			strncpy(base_type,"Sempron",8);
		}
		else if (strstr(model_string,"Athlon")) {
			strncpy(base_type,"Athlon 64",10);
		}
		else {
			strncpy(base_type,"Opteron",8);
		}

		if (strstr(model_string,"X2")) {
			strncpy(prefix,"X2",3);
		}
	}
	else if (cpu_info->family==16) {
		/* Family 10h */
		switch(cpu_info->model) {
			case 1:
			case 2: /* Phenom/Opteron */
			case 3:
				/* Fam10h Rev B Barcelona */
				if (strstr(model_string,"Phenom")) {
					strncpy(base_type,"Phenom",7);
				}
				else {
					strncpy(base_type,"Opteron",8);
				}
				break;
			case 4: /* 4: Phenom II, Opteron */
			case 5: /* 5: Athlon II */
			case 6: /* 6: Athlon II / V160? */
				/* V Series like Sempron? */
				/* Fam10h Rev C Shanghai */
				if (strstr(model_string,"Phenom")) {
					strncpy(base_type,"Phenom II",10);
				}
				else if (strstr(model_string,"Athlon")) {
					strncpy(base_type,"Athlon II",10);
				}
				else if (strstr(model_string,"V")) {
					strncpy(base_type,"V-Series",9);
				}
				else {
					strncpy(base_type,"Opteron",8);
				}

				break;
			case 8: /* 8: Opteron */
				/* Fam10h Rev C Istanbul */
				strncpy(base_type,"Opteron",8);
				break;
			case 9:
			case 10: /* Opteron / Phemon II */
				/* Fam10h Rev D Magny-Cours */
				if (strstr(model_string,"Phenom")) {
					strncpy(base_type,"Phenom II",10);
				}
				else {
					strncpy(base_type,"Opteron",8);
				}
			default:
				strncpy(base_type,"Opteron",8);
				break;
		}
	}
	else if (cpu_info->family==17) {
		/* Family 11h -- Turion */
		/* Turion, Athlon */

		if (strstr(model_string,"Athlon")) {
			strncpy(base_type,"Athlon",7);
		}
		else {
			strncpy(base_type,"Turion",8);
		}
	}
	else if (cpu_info->family==18) {
		/* Family 12h -- Llano*/
		/* A4, A6, A8 */

		/* Grab from AMD to space */

		grab_amd_to_space(model_string,base_type,BUFSIZ);
	}
	else if (cpu_info->family==20) {
		/* Family 14h -- Bobcat */

		/* Grab from AMD to space */

		grab_amd_to_space(model_string,base_type,BUFSIZ);

	}
	else if (cpu_info->family==21) {
		/* Family 15h -- Construction Equipment */

		switch(cpu_info->model) {
			case 1:	/* Bulldozer */
			case 2:	/* Piledriver */
			case 10:/* Piledriver */
			case 13:/* Piledriver */
			case 48:/* Steamroller */
			case 96:/* Excavator */
			case 112:/* ??? */
			default:
				break;
		}

		/* Grab from AMD to space */
		grab_amd_to_space(model_string,base_type,BUFSIZ);

	}
	else if (cpu_info->family==22) {
		/* Family 16h -- Jaguar */

		switch(cpu_info->model) {
			case 0:		/* Jaguar */
			case 48:	/* Mullins */
			default: break;
		}

		/* Grab from AMD to space */

		grab_amd_to_space(model_string,base_type,BUFSIZ);

	}
	else if (cpu_info->family==23) {
		/* Family 17h -- Zen */

		switch(cpu_info->model) {
			/* Zen */
			case 1: /* Naples, Whitehaven, Summit Ridge, Snowy Owl */
			case 17: /* Raven Ridge, Great Horned Owl */
			case 24: /* Banded Kestrel */
			case 32: /* Dali */
			/* Zen+ */
			case 8:	/* Colfax, Pinnacle Ridge */
			/*case 24:*//* Picasso, why the same as Banded Kestrel? */
			/* Zen2 */
			case 49:  /* Rome, Castle Peak */
			case 71:  /* Xbox Series X */
			case 96:  /* Renoir, Grey Hawk */
			case 104: /* Lucienne */
			case 113: /* Matisse */
			case 144: /* Van Gogh */

			default: break;
		}

		/* Grab from AMD to space */

		grab_amd_to_space(model_string,base_type,BUFSIZ);

	}
	else if (cpu_info->family==24) {
		/* Joint partnership with China? */
		/* Dhyana/Hygon is model 0? */

		/* Grab from AMD to space */

		grab_amd_to_space(model_string,base_type,BUFSIZ);
	}
	else if (cpu_info->family==25) {
		/* Family 19h -- Zen3/Zen4 */

		/* Note model numbers are extended/base concatenated */

		switch(cpu_info->model) {
			case 1:  /* 0x01 EPYC 7003 Milan */
			case 8:	 /* 0x08 Threadripper 5900 */
			case 33: /* 0x21 Ryzen 5000 Vermeer */
			case 64: /* 0x40 Rembrant */
				 /* 0x44? */
			case 80: /* 0x50 Cezanne */
				 /* 0x6x? Zen 4 Raphael? */
				 /* 0x7x? Ryzen 7000? */
			default: break;
		}

		/* Grab from AMD to space */

		grab_amd_to_space(model_string,base_type,BUFSIZ);

	}
	else {
		/* Unknown, try guessing */
		grab_amd_to_space(model_string,base_type,BUFSIZ);
	}

	if (strstr(model_string,"X2")) {
		strncpy(prefix,"X2",3);
	}
	if (strstr(model_string,"X3")) {
		strncpy(prefix,"X3",3);
	}
	if (strstr(model_string,"X4")) {
		strncpy(prefix,"X4",3);
	}
	if (strstr(model_string,"X6")) {
		strncpy(prefix,"X6",3);
	}


#if 0
	/* Check for some prefixes */
	if (strstr(model_string,"MP")!=NULL) {
		strncpy(prefix,"MP",3);
	}
	if (strstr(model_string,"XP")!=NULL) {
		strncpy(prefix,"XP",3);
	}
#endif
	/* Construct final */
too_old:
	if (prefix[0]==0) {
		snprintf(cpu_info->chip_type,BUFSIZ,"%s",base_type);
	}
	else {
		snprintf(cpu_info->chip_type,BUFSIZ*2,"%s %s",base_type,prefix);
	}

#else
	strncpy(cpu_info->chip_vendor,"AMD",4);

	/* Clean-up K6 model info */
	if (strstr(model_string,"K6")!=NULL) {
		/* Default to K6 */
		strncpy(cpu_info->chip_type,"K6",3);

		/* Original K6 */
		if ( !(strncmp(model_string,"AMD-K6tm",8)))
			strncpy(cpu_info->chip_type,"K6",3);

		/* Counter-intuitive, but the following are correct */
		if ( !(strncmp(model_string,"AMD-K6(tm)-III",14)))
			strncpy(cpu_info->chip_type,"K6-2+",6);
		else if ( !(strncmp(model_string,"AMD-K6(tm)",10)))
			strncpy(cpu_info->chip_type,"K6-2",5);

		if ( !(strncmp(model_string,"K6-2",4)))
			strncpy(cpu_info->chip_type,"K6-2",5);

		if (strstr(model_string,"3D+")!=NULL) {
			strncpy(cpu_info->chip_type,"K6-III",7);
		}
	}

	/* K5 Chips */
	if (strstr(model_string,"K5")!=NULL) {
		strncpy(cpu_info->chip_type,"K5",3);
	}

	/* Some old K7s were reported as such */
	if (strstr(model_string,"K7")!=NULL) {
		strncpy(cpu_info->chip_type,"Athlon",7);
	}

	/* Athlons */
	if (strstr(model_string,"Athlon(tm) 64 X2")!=NULL) {
		strncpy(cpu_info->chip_type,"Athlon 64 X2",13);
	} else
	if (strstr(model_string,"Athlon(tm) 64")!=NULL) {
		strncpy(cpu_info->chip_type,"Athlon 64",10);
	} else
	if (strstr(model_string,"Athlon")!=NULL) {
		strncpy(cpu_info->chip_type,"Athlon",7);
	}

	/* Specialty Athlons */
	/* Should we support MP too?  */
	/* Should we decode the Speed ratings too (ie, 1600+) */
	if (!strncmp(model_string,"AMD Athlon",10)) {
		if (strstr(model_string,"XP")!=NULL) {
			strncpy(cpu_info->chip_type,"Athlon XP",10);
		}
	}

	/* Durons */
	if (strstr(model_string,"Duron")!=NULL) {
		strncpy(cpu_info->chip_type,"Duron",6);
	}

	/* Unknown */
	if (strstr(model_string,"Unknown")!=NULL) {
		strncpy(cpu_info->chip_type,"Unknown",8);
	}

	/* Sempron */
	if (strstr(model_string,"Sempron")!=NULL) {
		strncpy(cpu_info->chip_type,"Sempron",8);
	}

	/* Turion */
	if (strstr(model_string,"Turion")!=NULL) {
		strncpy(cpu_info->chip_type,"Turion",8);
	}

	/* Opterons */
	if (strstr(model_string,"Opteron")!=NULL) {
		strncpy(cpu_info->chip_type,"Opteron",8);
	}

	/* Phenom */
	if (strstr(model_string,"Phenom")!=NULL) {
		if (strstr(model_string,"II")!=NULL) {
			strncpy(cpu_info->chip_type,"Phenom II",10);
		}
		else {
			strncpy(cpu_info->chip_type,"Phenom",7);
		}
	}

	/* Geode */
	if ( strstr(model_string,"Geode")!=NULL) {
		strncpy(cpu_info->chip_type,"Geode",6);
	}

	/* Handle BIOS/kernel too old issue */
	if ( strstr(model_string,"unknown")!=NULL) {
		strncpy(cpu_info->chip_type,"Unknown",8);
	}

	/* Work around old kernels */
	if (model_string[0]==0) {
		if (cpu_info->model==9) {
			strncpy(cpu_info->chip_type,"K6-III",7);
		}
	}
#endif
}


/*********************/
/* Centaur Chips     */
/*********************/

static void fixup_model_centaur(struct cpu_info_type *cpu_info,
				char *model_string) {

	char *processor_begin;

	/* centaur cpuid is fully customizable, but this */
	/* should catch the common case                  */
	strncpy(cpu_info->chip_vendor,"Centaur",8);

	/* Should this be generic?  We should never print processor twice */

	processor_begin=strstr(model_string," Processor");
	if (processor_begin!=NULL) {
		/* I hate to use pointer math */
		model_string[(processor_begin-model_string)]='\0';
	}

	/* Is this the proper thing to do?  It looks silly */
	/* calling them "Centaur VIA" chips                */
	if (strstr(model_string,"VIA")!=NULL) {
		strncpy(cpu_info->chip_vendor,"VIA",4);
		strncpy(cpu_info->chip_type,model_string+4,
			SYSINFO_CHIP_TYPE_SIZE);
		cpu_info->chip_type[SYSINFO_CHIP_TYPE_SIZE-1]=0;
	}

	/* Esther */
	if (strstr(model_string,"Esther")!=NULL) {
		strncpy(cpu_info->chip_type,"Esther",7);
	}

}

/*******************/
/* Cyrix Chips     */
/*******************/
static void fixup_model_cyrix(struct cpu_info_type *cpu_info,
				char *model_string) {

	strncpy(cpu_info->chip_vendor,"Cyrix",6);

	/* 4: */
	/*   case 4: Media GX */
	/*   case 9: 5x86 */
	/* 5: */
	/*  case 2: Cx6x86 / 6x86L */
	/*  case 4: MediaGX GXm */
	/* 6: */
	/*  case 0: 6x86MX */
	/*  case 5: VIA Cyrix M2 */
	/*  case 6: WinChip C5A */
	/*  case 7: Winchip C5B/C5C */
	/*  case 8: Winchip C5N/C5C-T */
	/*  case 9: Winchip C5XL/C5P */

	if ( strstr(model_string,"MediaGX")!=NULL) {
		strncpy(cpu_info->chip_type,"MediaGX",8);
	}

	if ( strstr(model_string,"Geode")!=NULL) {
		strncpy(cpu_info->chip_type,"Geode",6);
	}

	if ( !(strncmp(model_string,"6x86",4))) {
		strncpy(cpu_info->chip_type,"6x86",5);
	}
	if ( !(strncmp(model_string,"6x86M",5))) {
		strncpy(cpu_info->chip_type,"6x86MMX",8);
	}
	if ( !(strncmp(model_string,"M III",5))) {
			strncpy(cpu_info->chip_type,"MIII",5);
	}
	else if ( !(strncmp(model_string,"M II",4))) {
			strncpy(cpu_info->chip_type,"MII",4);
	}
}


/*******************/
/* Hygon Chips     */
/*******************/
static void fixup_model_hygon(struct cpu_info_type *cpu_info,
				char *model_string) {

	strncpy(cpu_info->chip_vendor,"Hygon",6);

	if ( strstr(model_string,"C86")!=NULL) {
		strncpy(cpu_info->chip_type,"C86",8);
	}
}



/*******************/
/* Intel Chips     */
/*******************/

static void fixup_model_intel(struct cpu_info_type *cpu_info,
				char *model_string) {

#ifndef USE_LEGACY_PARSING
	char base_type[BUFSIZ];
	char prefix[BUFSIZ];

	prefix[0]=0;

	strncpy(cpu_info->chip_vendor,"Intel",6);

	/* Old versions of Linux (before 1998?) */
	/* the "model" field was a string not a number */
	if ((cpu_info->family==6) && (cpu_info->model==0)) {
		strncpy(base_type,model_string,BUFSIZ);
		goto too_old;
	}


	/* New, family/model/stepping version */

	if (cpu_info->family==3) {
		strncpy(base_type,"386",4);
	}
	else if (cpu_info->family==4) {
		/* https://en.wikichip.org/wiki/intel/cpuid#Family_4 */
		switch(cpu_info->model) {
			case 0: /* 486DX-25/33 */
			case 1: /* 486DX-50 */
				strncpy(base_type,"486 DX",7);
				break;
			case 2: /* 486SX */
				strncpy(base_type,"486 SX",7);
				break;
			case 3: /* 486 DX/2 */
				strncpy(base_type,"486 DX/2",9);
				break;
			case 4: /* 486 SL */
				strncpy(base_type,"486 SL",7);
				break;
			case 5: /* 486SX2 */
				strncpy(base_type,"486 SX2",8);
				break;
			case 7: /* 486 DX/2 WB */
				strncpy(base_type,"486 DX/2 WB",12);
				break;
			case 8: /* 486 DX4 */
				strncpy(base_type,"486 DX/4",9);
				break;
			case 9: /* 486 DX4 WB */
				strncpy(base_type,"486 DX/4 WB",12);
				break;
			default:
				strncpy(base_type,"486",4);
				break;
		}
	}
	else if (cpu_info->family==5) {
		switch(cpu_info->model) {
			case 0: /* P5 A-step */
			case 1: /* P5, P54, P54CQS */
			case 2: /* P54CS  */
				strncpy(base_type,"Pentium",8);
				break;
			case 3: /* P24T OverDrive */
				strncpy(base_type,"Pentium Overdrive",20);
				break;
			case 4: /* P55C -- MMX*/
			case 7: /* P55C Mobile */
			case 8: /* P55C Mobile */
				strncpy(base_type,"Pentium MMX",12);
				break;
			case 9:
			case 10:
				strncpy(base_type,"Quark",6);
				break;
			default:
				strncpy(base_type,"Pentium",8);
				break;
		}
	}
	else if (cpu_info->family==6) {

		/* https://en.wikichip.org/wiki/intel/cpuid */

		/* Thanks, Intel, for this rediculous mess */
		/* Best source of this info is */
		/* arch/x86/include/asm/intel-family.h */
		/* but it's in Hex and uses a lot of silly */
		/* internal Intel lingo */

		/* _L      - mobile parts           */
		/* _G      - with extra graphics    */
		/* _X      - server parts           */
		/* _D      - micro server parts     */
		/* Historical:                      */
		/* _EP     - 2 socket server parts  */
		/* _EX     - 4+ socket server parts */


		switch(cpu_info->model) {
			/* Pentium Pro */
			case 1:
				strncpy(base_type,"Pentium Pro",12);
				break;
			/* Pentium II */
			case 3: /* Klamath */
			case 5: /* Deschutes */
			case 6: /* Celeron Mendocino */
				strncpy(base_type,"Pentium II",11);
				break;
			/* Pentium III */
			case 7: /* Katmai */
			case 8: /* Coppermine */
			case 10:/* Cascades */
			case 11:/* Tualatin / Celeron */
				strncpy(base_type,"Pentium III",12);
				break;
			/* Pentium M */
			case 9: /* Banias */
			case 13:/* Dothan */
			case 21:/* Tolapai */
				strncpy(base_type,"Pentium M",10);
				break;
			/* Core Duo */
			case 14: /* 0x0E Yonah */
				strncpy(base_type,"Core Duo",9);
				break;
			/* Core2 */
			case 15: /* 0x0F Merom */
			case 22: /* 0x16 Merom L */
			case 23: /* 0x17 Penryn, Wolfdale, Yorkfield */
			case 29: /* 0x1D Dunnington */
				strncpy(base_type,"Core2",6);
				break;
			/* Atom */
			case 28: /* 0x1C Bonnell: Diamondville, Pineview */
			case 38: /* 0x26 Bonnell Mid: Silverthorne, Lincroft */
			case 39: /* 0x27 Saltwell Mid: Penwell */
			case 53: /* 0x35 Saltwell Tabled: Cloverview */
			case 54: /* 0x36 Saltwell: Cedarview */
				strncpy(base_type,"Atom",5);
				break;
			case 55: /* 0x37 Silvermont: Bay Trail, Valleyview */
			case 74: /* 0x4A Silvermont Mid: Merriefield, Tangier */
			case 77: /* 0x4D Silvermont D: Avaton, Rangely */
			case 93: /* 0x5d SoFIA */
				strncpy(base_type,"Atom Silvermont",16);
				break;
			case 76: /* 0x4C Airmont: Cherry Trail, Braswell */
			case 90: /* 0x5A Airmont Mid: Moorefield, Anniedale */
			case 117:/* 0x75 Airmont NP: Lightning Mountain */
				strncpy(base_type,"Atom Airmont",13);
				break;
			case 92: /* 0x5C Goldmont: Apollo Lake */
			case 95: /* 0x5F Goldmont: Denverton */
				strncpy(base_type,"Atom Goldmont",17);
				break;
			case 122: /* 0x7A Goldmont Plus: Gemini Lake */
				strncpy(base_type,"Atom Goldmont+",18);
				break;
			case 134: /* 0x86 Tremont D: Jacobsville */
			case 150: /* 0x96 Tremont  : Elkhart Lake */
			case 156: /* 0x9C Tremont L: Jasper Lake */
				strncpy(base_type,"Atom Tremont",13);
				break;

			/* Knights Landing */
			case 87: /* 0x57 */
				strncpy(base_type,"Knights Landing",16);
				break;
			/* Knights Mill */
			case 133:/* 0x85 */
				strncpy(base_type,"Knights Mill",13);
				break;

			/* Nehalem */
			case 26: /* 0x1A EP: Bloomfield */
				strncpy(base_type,"Nehalem EP",11);
				break;
			case 30: /* 0x1E Nehalem */
			case 31: /* 0x1F G: Auburndale / Havendale (cancelled?) */
				strncpy(base_type,"Nehalem",8);
				break;
			case 46: /* 0x2E EX */
				strncpy(base_type,"Nehalem EX",11);
				break;

			/* Westmere */
			case 37: /* 0x25 Arrandale */
				strncpy(base_type,"Westmere",9);
				break;
			case 44: /* 0x2C Gulftown, EP */
				strncpy(base_type,"Westmere EP",12);
				break;
			case 47: /* 0x2F EX */
				strncpy(base_type,"Westmere EX",12);
				break;

			/* Sandybridge */
			case 42: /* 0x2A Sandybridge */
				strncpy(base_type,"Sandybridge",12);
				break;
			case 45: /* 0x2D E, EN, EP */
				strncpy(base_type,"Sandybridge EP",15);
				break;

			/* Ivybridge */
			case 58: /* 0x3A M, H, Gladden */
				strncpy(base_type,"Ivybridge",10);
				break;
			case 62: /* 0x3E E, EN, EP, EX */
				strncpy(base_type,"Ivybridge EP",13);
				break;

			/* Haswell */
			case 60: /* 0x3C Haswell S */
				strncpy(base_type,"Haswell",8);
				break;
			case 63: /* 0x3F Haswell X */
				strncpy(base_type,"Haswell EP",11);
				break;
			case 69: /* 0x45 Haswell L ULT*/
				strncpy(base_type,"Haswell ULT",12);
				break;
			case 70: /* 0x46 Haswell G GT3E */
				strncpy(base_type,"Haswell",8);
				break;


			/* Broadwell */
			case 61: /* 0x3D U,Y,S */
				strncpy(base_type,"Broadwell",10);
				break;
			case 71: /* 0x47 G: H,C,W */
				strncpy(base_type,"Broadwell-H",12);
				break;
			case 79: /* 0x4F X: E, EP, EX */
				strncpy(base_type,"Broadwell EP",13);
				break;
			case 86: /* 0x56 D: DE, Hewitt Lake */
				strncpy(base_type,"Broadwell-DE",13);
				break;

			/* Skylake */
			case 78: /* 0x4E Skylake L (mobile?) (Y,U) */
			case 94: /* 0x5E Skylake ( DT,H,S) */
				strncpy(base_type,"Skylake",8);
				break;

			/* Skylake/Cascadelake/Cooperlake Server */
			case 85: /* 0x55 */
				if (cpu_info->stepping < 5) {
					/* stepping 4 */
					strncpy(base_type,"Skylake X",10);
				}
				else if (cpu_info->stepping < 8) {
					/* stepping 7 */
					strncpy(base_type,"Cascadelake X",14);
				}
				else {
					/* stepping 11 */
					strncpy(base_type,"Cooperlake X",13);
				}
				break;

			/* Also Coffee Lake??? */
			/* Also Whiskeylake/Amberlake?? */
			/* Kabylake */
			case 142: /* 0x8E Kabylake L: Y,U */
				if (cpu_info->stepping == 9) {
					/* Amberlake = Stepping 9 */
					strncpy(base_type,"Amberlake L",12);
				}
				else if (cpu_info->stepping==10) {
					/* Coffeelake = Stepping 10 */
					strncpy(base_type,"Coffeelake L",13);
				}
				else if ((cpu_info->stepping==11) ||
					 (cpu_info->stepping==12)) {
					/* Whiskeylake = Stepping 11,12 */
					strncpy(base_type,"Whiskeylake L",14);
				}
				else {
					/* Kabylake L?  Is that possible? */
					strncpy(base_type,"Kabylake L",11);
				}
				break;

			case 158: /* 0x9E Kabylake: DT, H, S, X */
				if (cpu_info->stepping > 9) {
					/* Coffeelake = Stepping 10-13 */
					strncpy(base_type,"Coffeelake",11);
				}
				else {
					strncpy(base_type,"Kabylake",9);
				}
				break;

			/* Cometlake */
			case 165: /* 0xA5 Cometlake */
				strncpy(base_type,"Cometlake",10);
				break;
			case 166: /* 0xA6 Cometlake L */
				strncpy(base_type,"Cometlake L",12);
				break;



			/* Cannonlake */
			case 102: /* 0x66 Cannonlake U/L (Palm Cove) */
				strncpy(base_type,"Cannonlake",11);
				break;

			/* Icelake / Sunny Cove */
			case 106: /* 0x6A Icelake X : Server */
			case 108: /* 0x6C Icelake D : Server */
			case 125: /* 0x7D Icelake : Y */
			case 126: /* 0x7E Icelake L : U */
			case 157: /* 0x9D Icelake NNPI */
				strncpy(base_type,"Icelake",8);
				break;

			/* Lakefield */
			case 138: /* 0x8A Sunny Cove / Tremont */
				strncpy(base_type,"Lakefield",10);
				break;


			/* Tigerlake */
			case 140: /* 0x8C Tigerlake L : U */
				strncpy(base_type,"Tigerlake L",12);
				break;
			case 141: /* 0x8D Tigerlake */
				strncpy(base_type,"Tigerlake",10);
				break;

			/* Sappphirerapids (Golden Cove) */
			case 143: /* 0x8F Sapphirerapids X */
				strncpy(base_type,"Sapphirerapids X",17);
				break;


			/* Alderlake (Golden Cove / Gracemont) */
			case 151: /* 0x97 Alderlake S */
			case 154: /* 0x9A Alderlake L */
			case 190: /* 0xBE Alderlake L (AlderlakeN) */
				strncpy(base_type,"Alderlake",10);
				break;

			case 183: /* 0xB7 Raptor Lake */
			case 186: /* 0xBA Raptor Lake P */
				strncpy(base_type,"Raptorlake",11);
				break;

			/* Rocketlake / Cypress Cove */
			case 167: /* 0xA7 Rocketlake S L */
				strncpy(base_type,"Rocketlake",12);
				break;

			/* Emerald Rapids */
			case 207: /* 0xcf */
				strncpy(base_type,"Emerald Rapids",15);
				break;

			/* Grandridge */
			case 182: /* 0xb6 */
				strncpy(base_type,"Grandridge",15);
				break;

			/* Lunar Lake */
			case 189: /* 0xbd */
				strncpy(base_type,"Lunar Lake",11);
				break;

			/* Meteor Lake */
			case 170: /* 0xaa */
			case 172: /* 0xac */
				strncpy(base_type,"Meteor Lake",12);
				break;

			/* Granite Rapids */
			case 173: /* 0xad */
			case 174: /* 0xae */
				strncpy(base_type,"Granite Rapids",15);
				break;

			/* Granite Rapids */
			case 175: /* 0xaf */
				strncpy(base_type,"Sierra Forest",14);
				break;

			default: strncpy(base_type,"Unknown",8); break;
		}
	}
	else if (cpu_info->family==11) {
		strncpy(base_type,"Knights Corner",15);
	}
	else if (cpu_info->family==15) {
		switch(cpu_info->model) {
			case 0:
			case 1: /* Willamette */
			case 2: /* Northwood */
				strncpy(base_type,"Pentium 4",10);
				break;
			case 3: /* Prescott */
			case 4: /* Prescott */
			case 5:
			case 6:
				strncpy(base_type,"Pentium D",10);
				break;
			default:
				strncpy(base_type,"Unknown",8);
				break;

		}
	}
	else {
		strncpy(base_type,"Unknown",8);
	}

	/* Check for some prefixes */
	if (strstr(model_string,"i3")!=NULL) {
		strncpy(prefix,"i3",3);
	}
	if (strstr(model_string,"i5")!=NULL) {
		strncpy(prefix,"i5",3);
	}
	if (strstr(model_string,"i7")!=NULL) {
		strncpy(prefix,"i7",3);
	}
	if (strstr(model_string,"i9")!=NULL) {
		strncpy(prefix,"i9",3);
	}
	if (strstr(model_string,"Xeon")!=NULL) {
		strncpy(prefix,"Xeon",5);
	}


	/* Construct final */
too_old:
	if (prefix[0]==0) {
		snprintf(cpu_info->chip_type,BUFSIZ,"%s",base_type);
	}
	else {
		snprintf(cpu_info->chip_type,BUFSIZ*2,"%s %s",prefix,base_type);
	}

#else

	strncpy(cpu_info->chip_vendor,"Intel",6);

	/* Handle the various Pentium types */
	if (!(strncmp(model_string,"Pentium",7))) {
		if (strstr(model_string,"75")!=NULL) {
			strncpy(cpu_info->chip_type,"Pentium",8);
		}
		if (strstr(model_string,"90")!=NULL) {
			strncpy(cpu_info->chip_type,"Pentium",8);
		}
		if (strstr(model_string,"Pro")!=NULL) {
			strncpy(cpu_info->chip_type,"Pentium Pro",12);
		}
		if (strstr(model_string,"II")!=NULL) {
			strncpy(cpu_info->chip_type,"Pentium II",11);
		}
		if (strstr(model_string,"III")!=NULL) {
			strncpy(cpu_info->chip_type,"Pentium III",12);
		}
		if (strstr(model_string,"IV")!=NULL) {
			strncpy(cpu_info->chip_type,"Pentium IV",11);
		}
	}

	/* Now handle the ones with annoying (R) and (TM) */
	if (strstr(model_string,"Pentium(R) M")!=NULL) {
		strncpy(cpu_info->chip_type,"Pentium M",10);
	}
	if (strstr(model_string,"Pentium(R) III")!=NULL) {
		strncpy(cpu_info->chip_type,"Pentium III",12);
	}

	if (strstr(model_string,"Xeon(TM) MP")!=NULL) {
		strncpy(cpu_info->chip_type,"Xeon MP",8);
	}

	/* Atom */
	if (strstr(model_string,"Atom")!=NULL) {
		strncpy(cpu_info->chip_type,"Atom",5);
	}


	/* Should we handle all the various Celeron */
	/* types separately??                       */
	if (strstr(model_string,"Celeron(R) M")!=NULL) {
		strncpy(cpu_info->chip_type,"Celeron M",10);
	}
	else if (strstr(model_string,"Celeron")!=NULL) {
		strncpy(cpu_info->chip_type,"Celeron",8);
	}

	/* Handle values with annoying "Intel(R)" */
	if (strstr(model_string,"Intel(R)")!=NULL) {

		/* Pentium 4 */
		if (strstr(model_string,"Pentium(R) 4")) {
			strncpy(cpu_info->chip_type,"Pentium 4",10);
		}

		/* Pentium D */
		if (strstr(model_string,"Pentium(R) D")) {
			strncpy(cpu_info->chip_type,"Pentium D",10);
		}

		/* Mobile P4 */
		if (strstr(model_string,"Mobile Intel(R) Pentium(R) 4")!=NULL) {
			if (strstr(model_string,"Pentium(R) 4 - M")!=NULL) {
				strncpy(cpu_info->chip_type,"Pentium 4 M",12);
			}
			else {
				strncpy(cpu_info->chip_type,"Mobile Pentium 4",17);
			}
		}

		/* Xeons */
		/* TODO - determine base type based on model id? */
		if ( !(strncmp(model_string,"Intel(R) Xeon(TM) CPU",21)) ||
		     !(strncmp(model_string,"Intel(R) Xeon(R) CPU",20)) || 
		     !(strncmp(model_string,"Intel(R) Genuine CPU",20)) || 
		     !(strncmp(model_string,"Genuine Intel(R) CPU",20)) || 
		     !(strncmp(model_string,"Intel(R) XEON(TM)",17)) ||
		     !(strncmp(model_string,"Intel(R) Xeon(TM)",17)) ) {

			strncpy(cpu_info->chip_type,"Pentium Xeon",16);
		}

		/* Nehalem */
		if (strstr(model_string,"Core(TM) i7")!=NULL) {
			strncpy(cpu_info->chip_type,"i7",3);
		}
		if (strstr(model_string,"Core(TM) i5")!=NULL) {
			strncpy(cpu_info->chip_type,"i5",3);
		}
		if (strstr(model_string,"Core(TM) i3")!=NULL) {
			strncpy(cpu_info->chip_type,"i3",3);
		}

		/* Core and Core2 */
		if (strstr(model_string,"Core(TM)2 Duo")!=NULL) {
			strncpy(cpu_info->chip_type,"Core2 Duo",10);
		}
		else if (strstr(model_string,"Core(TM)2 Quad")!=NULL) {
			strncpy(cpu_info->chip_type,"Core2 Quad",11);
		}
		else if (strstr(model_string,"Core(TM)2")!=NULL) {
			strncpy(cpu_info->chip_type,"Core2",6);
		}	 /* UGH!  I hate this stupid TXXX naming */
		else if ( (strstr(model_string,"T2300")!=NULL) ||
			  (strstr(model_string,"T2400")!=NULL) ||
			  (strstr(model_string,"T2500")!=NULL) ||
			  (strstr(model_string,"T2600")!=NULL)) {
			  strncpy(cpu_info->chip_type,"Core Duo",9);
		}
		else if (strstr(model_string,"E2180")!=NULL) {
			strncpy(cpu_info->chip_type,"Core2 Duo",10);
		}
		else if (strstr(model_string,"2140")!=NULL) {
			strncpy(cpu_info->chip_type,"Core2 Duo",10);
		}
	}

	/* Fix up some older kernels */
	if (model_string[0]==0) {
		if (cpu_info->model==5) {
			strncpy(cpu_info->chip_type,"Pentium II",11);
		}
	}

	if (!strncmp(model_string,"00/07",5)) {
		strncpy(cpu_info->chip_type,"Pentium III",12);
	}

	/* Virtual Machines simulated by QEMU */
	if (strstr(model_string,"QEMU")!=NULL) {
		strncpy(cpu_info->chip_type,"QEMU Virtual",13);
	}
#endif
}


int get_cpu_info(struct cpu_info_type *cpu_info) {

	FILE *fff;
	char temp_string[BUFSIZ];
	char vendor_string[BUFSIZ],model_string[BUFSIZ],plain_model[BUFSIZ];
	int family=0;
	int cpu_count=0;
	float megahertz=0.0,bogomips=0.0;

	vendor_string[0]=model_string[0]=plain_model[0]=0;

	/* We get all of our info here from /proc/cpuinfo */
	fff=fopen(get_cpuinfo_file(),"r");
	if (fff==NULL) {
		return -1;
	}

	while ( (fgets(temp_string,BUFSIZ,fff)!=NULL) ) {

		/* Assume all CPUs in SMP system are the same */
		if (cpu_count==0) {

			if ( !(strncmp(temp_string,"vendor_id",9)) ||
			     !(strncmp(temp_string,"vid",3)) ) { /* 1.2.13 kernels */
				strncpy(vendor_string,parse_line(temp_string),
					BUFSIZ-1);
			}

			if ( !(strncmp(temp_string,"model name",9)) ) {
				strncpy(model_string,parse_line(temp_string),
					BUFSIZ-1);
				clip_lf(model_string,BUFSIZ);
			}
			else {  /* model number */
				if (!(strncmp(temp_string,"model",5))) {
					if (strncmp(parse_line(temp_string),"unknown",7)) {
						strncpy(plain_model,parse_line(temp_string),BUFSIZ-1);
						clip_lf(plain_model,BUFSIZ);
						cpu_info->model=atoi(plain_model);

					}
				}
			}

			if ( !(strncmp(temp_string,"cpu MHz",6))) {
				megahertz=atof(parse_line(temp_string));
			}

			/* We use this for cpus w/o cpuinfo (386s and 486s) */
			if ( !(strncmp(temp_string,"cpu family",10))) {
				cpu_info->family=atoi(parse_line(temp_string));
			}

			/* Sometimes needed to disambiguate */
			if ( !(strncmp(temp_string,"stepping",8))) {
				cpu_info->stepping=atoi(parse_line(temp_string));
			}

			/* Old legacy stuff (2.0.x kernels and earlier) */
			if ( !(strncmp(temp_string,"cpu   ",5))) {
				strncpy(plain_model,parse_line(temp_string),BUFSIZ-1);
				clip_lf(plain_model,255);
			}
		}

		/* Ugh why must people play with capitalization */
		if ( !(strncmp(temp_string,"bogomips",8)) ||
		     !(strncmp(temp_string,"BogoMips",8)) ||
		     !(strncmp(temp_string,"BogoMIPS",8))) {
			bogomips+=atof(parse_line(temp_string));
			/* Cheating way to detect number of intel CPUs */
			cpu_count++;
		}
	}

	fclose(fff);


	/* Re-arrange some of the strings for best results  */
	if (model_string[0]==0) {  /* For 1.2.13 Kernels */
		if (strlen(plain_model)>1) {
			strncpy(model_string,plain_model,BUFSIZ);
		}
	}

	if (model_string[0]==0) {
		strncpy(cpu_info->chip_type,"Unknown",9);
	}
	else {
		strncpy_truncate(cpu_info->chip_type,model_string,SYSINFO_CHIP_TYPE_SIZE);
	}

	strncpy(cpu_info->chip_vendor,"Unknown",9);

	/* sanity */
	if (cpu_count<1) cpu_count=1;

	cpu_info->num_cpus=cpu_count;
	cpu_info->bogomips=bogomips;

	/*********************************************************/
	/* Vendor specific fixups                                */
	/*********************************************************/

	/******************/
	/* AMD chips      */
	/******************/
	if (!strncmp(vendor_string,"AuthenticAMD",12)) {
		fixup_model_amd(cpu_info,model_string);
	}

	/*********************/
	/* Centaur Chips     */
	/*********************/
	if ( !(strncmp(vendor_string,"CentaurHauls",12))) {
		fixup_model_centaur(cpu_info,model_string);
	}


	/*******************/
	/* Cyrix Chips     */
	/*******************/
	if (!strncmp(vendor_string,"CyrixInstead",12)) {
		fixup_model_cyrix(cpu_info,model_string);
	}

	/*******************/
	/* Intel Chips     */
	/*******************/
	if (!strncmp(vendor_string,"HygonGenuine",12)) {
		fixup_model_hygon(cpu_info,model_string);
	}

	/*******************/
	/* Intel Chips     */
	/*******************/
	if (!strncmp(vendor_string,"GenuineIntel",12)) {
		fixup_model_intel(cpu_info,model_string);
	}

       /*****************/
       /* NexGen        */
       /*****************/
	if ( !(strncmp(vendor_string,"NexGenDriven",12))) {
		strncpy(cpu_info->chip_vendor,"NexGen",7);

		/* 5: */
		/* case 0: Nx586 */
	}

	/**************************************/
	/* National Semiconductor Geode Chips */
	/**************************************/
	if ( !(strncmp(vendor_string,"Geode by NSC",12))) {
		strncpy(cpu_info->chip_vendor,"NSC",4);
		strncpy(cpu_info->chip_type,"Geode",6);
	}

	/*****************/
	/* Rise          */
	/*****************/
	if ( !(strncmp(vendor_string,"RiseRiseRise",12))) {
		strncpy(cpu_info->chip_vendor,"Rise",5);
		/* Family 5 */
		/* case 0: mP6 0.25 um */
		/* case 1: mP6 0.18 um */
	}

	/******************/
	/* SiS            */
	/******************/
	if ( !(strncmp(vendor_string,"SiS SiS SiS",11))) {
		strncpy(cpu_info->chip_vendor,"SiS",4);
		if (family!=0) {
			sprintf(temp_string,"%i86",family);
			strncpy_truncate(cpu_info->chip_type,temp_string,4);
		}
	}


	/*****************/
	/* Transmeta     */
	/*****************/
	if ( !(strncmp(vendor_string,"GenuineTMx86",12)) ||
	     !(strncmp(vendor_string,"TransmetaCPU",12))) {

		strncpy(cpu_info->chip_vendor,"Transmeta",10);

		if (strstr(model_string,"Crusoe")!=NULL) {
			strncpy(cpu_info->chip_type,"Crusoe",7);
		}
	}

	/******************/
	/* UMC            */
	/******************/
	if ( !(strncmp(vendor_string,"UMC UMC UMC",11))) {
		strncpy(cpu_info->chip_vendor,"UMC",4);

		/* Family 4 */
		/* case 1: U5D */
		/* case 2: U5S */
		if (!(strncmp(model_string,"SX",2))) {
			strncpy(cpu_info->chip_type,"486SX",6);
		}
	}

	/******************/
	/* Vortex         */
	/******************/
	if ( !(strncmp(vendor_string,"Vortex86 SoC",11))) {
		strncpy(cpu_info->chip_vendor,"Vortex",7);
		if (family!=0) {
			sprintf(temp_string,"%i86",family);
			strncpy_truncate(cpu_info->chip_type,temp_string,4);
		}
	}

	/**********************************/
	/* Try to handle cpus w/o cpuinfo */
	/**********************************/
	if ( ( !(strncmp(cpu_info->chip_vendor,"Unknown",7))) ||
		( !(strncmp(cpu_info->chip_vendor,"unknown",7)))) {
		if (cpu_info->family!=0) {
			sprintf(temp_string,"%i86",cpu_info->family);
			strncpy_truncate(cpu_info->chip_type,temp_string,4);
		}
		else {
			strncpy_truncate(cpu_info->chip_type,plain_model,SYSINFO_CHIP_TYPE_SIZE);
		}
	}

	cpu_info->megahertz=0.0;

	/* Handle Pretty_printing */
	if (get_pretty_printing()) {
		/* Fix MHz */
		if (megahertz>0.0) {
			cpu_info->megahertz=fix_megahertz(25,megahertz);
		}
	}
	else {
		/* restore RAW vendor string.  Do we want this? */
		strncpy_truncate(cpu_info->chip_type,model_string,64);
		cpu_info->megahertz=megahertz;
 	}

	return 0;
}

	/* Not implemented on ix86 */
int get_hardware_info(char *hardware_string) {

	return 0;
}

	/* Some architectures might have better ways of detecting RAM size */
long long get_arch_specific_mem_size(void) {
	/* We have no special way of detecting RAM */
	return 0;
}