#import <stdio.h>
#import <stdlib.h>
#import <string.h>
#import <limits.h>
#import <mach/mach.h>
#import "stuff/openstep_mach.h"
#import <mach-o/fat.h>
#import <mach-o/arch.h>
static const NXArchInfo ArchInfoTable[] = {
{"hppa", CPU_TYPE_HPPA, CPU_SUBTYPE_HPPA_ALL, NX_BigEndian,
"HP-PA"},
{"i386", CPU_TYPE_I386, CPU_SUBTYPE_I386_ALL, NX_LittleEndian,
"Intel 80x86"},
{"i860", CPU_TYPE_I860, CPU_SUBTYPE_I860_ALL, NX_BigEndian,
"Intel 860"},
{"m68k", CPU_TYPE_MC680x0, CPU_SUBTYPE_MC680x0_ALL, NX_BigEndian,
"Motorola 68K"},
{"m88k", CPU_TYPE_MC88000, CPU_SUBTYPE_MC88000_ALL, NX_BigEndian,
"Motorola 88K"},
{"ppc", CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_ALL, NX_BigEndian,
"PowerPC"},
{"sparc", CPU_TYPE_SPARC, CPU_SUBTYPE_SPARC_ALL, NX_BigEndian,
"SPARC"},
{"any", CPU_TYPE_ANY, CPU_SUBTYPE_MULTIPLE, NX_UnknownByteOrder,
"Architecture Independent"},
{"hppa7100LC", CPU_TYPE_HPPA, CPU_SUBTYPE_HPPA_7100LC, NX_BigEndian,
"HP-PA 7100LC"},
{"m68030", CPU_TYPE_MC680x0, CPU_SUBTYPE_MC68030_ONLY, NX_BigEndian,
"Motorola 68030"},
{"m68040", CPU_TYPE_MC680x0, CPU_SUBTYPE_MC68040, NX_BigEndian,
"Motorola 68040"},
{"i486", CPU_TYPE_I386, CPU_SUBTYPE_486, NX_LittleEndian,
"Intel 80486"},
{"i486SX", CPU_TYPE_I386, CPU_SUBTYPE_486SX, NX_LittleEndian,
"Intel 80486SX"},
{"pentium",CPU_TYPE_I386, CPU_SUBTYPE_PENT, NX_LittleEndian,
"Intel Pentium"},
{"i586", CPU_TYPE_I386, CPU_SUBTYPE_586, NX_LittleEndian,
"Intel 80586"},
{"pentpro", CPU_TYPE_I386, CPU_SUBTYPE_PENTPRO, NX_LittleEndian,
"Intel Pentium Pro"},
{"pentIIm3", CPU_TYPE_I386, CPU_SUBTYPE_PENTII_M3, NX_LittleEndian,
"Intel Pentium II Model 3" },
{"pentIIm5", CPU_TYPE_I386, CPU_SUBTYPE_PENTII_M5, NX_LittleEndian,
"Intel Pentium II Model 5" },
{"ppc601", CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_601, NX_BigEndian,
"PowerPC 601" },
{"ppc603", CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_603, NX_BigEndian,
"PowerPC 603" },
{"ppc603e",CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_603e, NX_BigEndian,
"PowerPC 603e" },
{"ppc603ev",CPU_TYPE_POWERPC,CPU_SUBTYPE_POWERPC_603ev,NX_BigEndian,
"PowerPC 603ev" },
{"ppc604", CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_604, NX_BigEndian,
"PowerPC 604" },
{"ppc604e",CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_604e, NX_BigEndian,
"PowerPC 604e" },
{"ppc750", CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_750, NX_BigEndian,
"PowerPC 750" },
{"ppc7400",CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_7400, NX_BigEndian,
"PowerPC 7400" },
{"ppc7450",CPU_TYPE_POWERPC, CPU_SUBTYPE_POWERPC_7450, NX_BigEndian,
"PowerPC 7450" },
{"little", CPU_TYPE_ANY, CPU_SUBTYPE_LITTLE_ENDIAN, NX_LittleEndian,
"Little Endian"},
{"big", CPU_TYPE_ANY, CPU_SUBTYPE_BIG_ENDIAN, NX_BigEndian,
"Big Endian"},
{NULL, 0, 0, 0,
NULL}
};
const
NXArchInfo *
NXGetAllArchInfos(void)
{
return(ArchInfoTable);
}
const
NXArchInfo *
NXGetLocalArchInfo(void)
{
struct host_basic_info hbi;
kern_return_t ret;
unsigned int count;
mach_port_t my_mach_host_self;
count = HOST_BASIC_INFO_COUNT;
my_mach_host_self = mach_host_self();
ret = host_info(my_mach_host_self, HOST_BASIC_INFO, (host_info_t)&hbi,
&count);
mach_port_deallocate(mach_task_self(), my_mach_host_self);
if(ret != KERN_SUCCESS)
return(NULL);
if(hbi.cpu_type == CPU_TYPE_MC680x0 &&
hbi.cpu_subtype == CPU_SUBTYPE_MC680x0_ALL)
hbi.cpu_subtype = CPU_SUBTYPE_MC68030_ONLY;
return(NXGetArchInfoFromCpuType(hbi.cpu_type, hbi.cpu_subtype));
}
const
NXArchInfo *
NXGetArchInfoFromName(
const char *name)
{
const NXArchInfo *ai;
for(ai = ArchInfoTable; ai->name != NULL; ai++)
if(strcmp(ai->name, name) == 0)
return(ai);
return(NULL);
}
const
NXArchInfo *
NXGetArchInfoFromCpuType(
cpu_type_t cputype,
cpu_subtype_t cpusubtype)
{
const NXArchInfo *ai;
NXArchInfo *q;
for(ai = ArchInfoTable; ai->name != NULL; ai++)
if(ai->cputype == cputype &&
(cpusubtype == CPU_SUBTYPE_MULTIPLE ||
(ai->cpusubtype == cpusubtype)))
return(ai);
if(cputype == CPU_TYPE_I386){
q = malloc(sizeof(NXArchInfo));
for(ai = ArchInfoTable; ai->name != NULL; ai++){
if(ai->cputype == cputype){
*q = *ai;
break;
}
}
q->cpusubtype = cpusubtype;
q->description = malloc(sizeof("Intel family model ") + 2 + 8);
if(q->description == NULL)
return(NULL);
sprintf((char *)q->description, "Intel family %u model %u",
CPU_SUBTYPE_INTEL_FAMILY(cpusubtype),
CPU_SUBTYPE_INTEL_MODEL(cpusubtype));
return((const NXArchInfo *)q);
}
else if(cputype == CPU_TYPE_POWERPC){
q = malloc(sizeof(NXArchInfo));
for(ai = ArchInfoTable; ai->name != NULL; ai++){
if(ai->cputype == cputype){
*q = *ai;
break;
}
}
q->cpusubtype = cpusubtype;
q->description = malloc(sizeof("PowerPC cpusubtype ") + 10);
if(q->description == NULL)
return(NULL);
sprintf((char *)q->description, "PowerPC cpusubtype %u", cpusubtype);
return((const NXArchInfo *)q);
}
return(NULL);
}
struct fat_arch *
NXFindBestFatArch(
cpu_type_t cputype,
cpu_subtype_t cpusubtype,
struct fat_arch *fat_archs,
unsigned long nfat_archs)
{
unsigned long i, lowest_family, lowest_model, lowest_index;
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype == cputype &&
fat_archs[i].cpusubtype == cpusubtype)
return(fat_archs + i);
}
switch(cputype){
case CPU_TYPE_I386:
switch(cpusubtype){
default:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_PENT)
return(fat_archs + i);
}
case CPU_SUBTYPE_PENT:
case CPU_SUBTYPE_486SX:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_486)
return(fat_archs + i);
}
break;
case CPU_SUBTYPE_I386_ALL:
case CPU_SUBTYPE_486:
break;
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_I386_ALL)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_486)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_486SX)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_586)
return(fat_archs + i);
}
lowest_family = CPU_SUBTYPE_INTEL_FAMILY_MAX + 1;
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(CPU_SUBTYPE_INTEL_FAMILY(fat_archs[i].cpusubtype) <
lowest_family)
lowest_family = CPU_SUBTYPE_INTEL_FAMILY(
fat_archs[i].cpusubtype);
}
if(lowest_family == CPU_SUBTYPE_INTEL_FAMILY_MAX + 1)
return(NULL);
lowest_model = ULONG_MAX;
lowest_index = -1;
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(CPU_SUBTYPE_INTEL_FAMILY(fat_archs[i].cpusubtype) ==
lowest_family){
if(CPU_SUBTYPE_INTEL_MODEL(fat_archs[i].cpusubtype) <
lowest_model){
lowest_model = CPU_SUBTYPE_INTEL_MODEL(
fat_archs[i].cpusubtype);
lowest_index = i;
}
}
}
return(fat_archs + lowest_index);
case CPU_TYPE_MC680x0:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_MC680x0_ALL)
return(fat_archs + i);
}
if(cpusubtype == CPU_SUBTYPE_MC680x0_ALL){
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_MC68040)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_MC68030_ONLY)
return(fat_archs + i);
}
}
break;
case CPU_TYPE_POWERPC:
switch(cpusubtype){
case CPU_SUBTYPE_POWERPC_7450:
case CPU_SUBTYPE_POWERPC_7400:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_7450)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_7400)
return(fat_archs + i);
}
case CPU_SUBTYPE_POWERPC_750:
case CPU_SUBTYPE_POWERPC_604e:
case CPU_SUBTYPE_POWERPC_604:
case CPU_SUBTYPE_POWERPC_603ev:
case CPU_SUBTYPE_POWERPC_603e:
case CPU_SUBTYPE_POWERPC_603:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_750)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_604e)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_604)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_603ev)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_603e)
return(fat_archs + i);
}
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_603)
return(fat_archs + i);
}
default:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_POWERPC_ALL)
return(fat_archs + i);
}
}
break;
case CPU_TYPE_MC88000:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_MC88000_ALL)
return(fat_archs + i);
}
break;
case CPU_TYPE_I860:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_I860_ALL)
return(fat_archs + i);
}
break;
case CPU_TYPE_HPPA:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_HPPA_ALL)
return(fat_archs + i);
}
break;
case CPU_TYPE_SPARC:
for(i = 0; i < nfat_archs; i++){
if(fat_archs[i].cputype != cputype)
continue;
if(fat_archs[i].cpusubtype == CPU_SUBTYPE_SPARC_ALL)
return(fat_archs + i);
}
break;
default:
return(NULL);
}
return(NULL);
}
cpu_subtype_t
NXCombineCpuSubtypes(
cpu_type_t cputype,
cpu_subtype_t cpusubtype1,
cpu_subtype_t cpusubtype2)
{
if(cpusubtype1 == cpusubtype2)
return(cpusubtype1);
switch(cputype){
case CPU_TYPE_I386:
if((cpusubtype1 == CPU_SUBTYPE_I386_ALL ||
cpusubtype1 == CPU_SUBTYPE_486 ||
cpusubtype1 == CPU_SUBTYPE_486SX ||
cpusubtype1 == CPU_SUBTYPE_586) &&
(cpusubtype2 == CPU_SUBTYPE_I386_ALL ||
cpusubtype2 == CPU_SUBTYPE_486 ||
cpusubtype2 == CPU_SUBTYPE_486SX ||
cpusubtype2 == CPU_SUBTYPE_586)){
if(cpusubtype1 == CPU_SUBTYPE_586 ||
cpusubtype2 == CPU_SUBTYPE_586)
return(CPU_SUBTYPE_586);
if(cpusubtype1 == CPU_SUBTYPE_486SX ||
cpusubtype2 == CPU_SUBTYPE_486SX)
return(CPU_SUBTYPE_486SX);
if(cpusubtype1 == CPU_SUBTYPE_486 ||
cpusubtype2 == CPU_SUBTYPE_486)
return(CPU_SUBTYPE_486);
break;
}
if(CPU_SUBTYPE_INTEL_MODEL(cpusubtype1) ==
CPU_SUBTYPE_INTEL_MODEL_ALL)
return(cpusubtype2);
if(CPU_SUBTYPE_INTEL_MODEL(cpusubtype2) ==
CPU_SUBTYPE_INTEL_MODEL_ALL)
return(cpusubtype1);
return((cpu_subtype_t)-1);
break;
case CPU_TYPE_MC680x0:
if(cpusubtype1 != CPU_SUBTYPE_MC680x0_ALL &&
cpusubtype1 != CPU_SUBTYPE_MC68030_ONLY &&
cpusubtype1 != CPU_SUBTYPE_MC68040)
return((cpu_subtype_t)-1);
if(cpusubtype2 != CPU_SUBTYPE_MC680x0_ALL &&
cpusubtype2 != CPU_SUBTYPE_MC68030_ONLY &&
cpusubtype2 != CPU_SUBTYPE_MC68040)
return((cpu_subtype_t)-1);
if(cpusubtype1 == CPU_SUBTYPE_MC68030_ONLY &&
cpusubtype2 == CPU_SUBTYPE_MC68040)
return((cpu_subtype_t)-1);
if(cpusubtype1 == CPU_SUBTYPE_MC68040 &&
cpusubtype2 == CPU_SUBTYPE_MC68030_ONLY)
return((cpu_subtype_t)-1);
if(cpusubtype1 == CPU_SUBTYPE_MC68030_ONLY ||
cpusubtype2 == CPU_SUBTYPE_MC68030_ONLY)
return(CPU_SUBTYPE_MC68030_ONLY);
if(cpusubtype1 == CPU_SUBTYPE_MC68040 ||
cpusubtype2 == CPU_SUBTYPE_MC68040)
return(CPU_SUBTYPE_MC68040);
break;
case CPU_TYPE_POWERPC:
if(cpusubtype1 == CPU_SUBTYPE_POWERPC_ALL)
return(cpusubtype2);
if(cpusubtype2 == CPU_SUBTYPE_POWERPC_ALL)
return(cpusubtype1);
if(cpusubtype1 == CPU_SUBTYPE_POWERPC_601 ||
cpusubtype2 == CPU_SUBTYPE_POWERPC_601)
return(CPU_SUBTYPE_POWERPC_601);
if(cpusubtype1 > cpusubtype2)
return(cpusubtype1);
else
return(cpusubtype2);
break;
case CPU_TYPE_MC88000:
if(cpusubtype1 != CPU_SUBTYPE_MC88000_ALL &&
cpusubtype1 != CPU_SUBTYPE_MC88110)
return((cpu_subtype_t)-1);
if(cpusubtype2 != CPU_SUBTYPE_MC88000_ALL &&
cpusubtype2 != CPU_SUBTYPE_MC88110)
return((cpu_subtype_t)-1);
if(cpusubtype1 == CPU_SUBTYPE_MC88110 ||
cpusubtype2 == CPU_SUBTYPE_MC88110)
return(CPU_SUBTYPE_MC88110);
break;
case CPU_TYPE_I860:
if(cpusubtype1 != CPU_SUBTYPE_I860_ALL &&
cpusubtype1 != CPU_SUBTYPE_I860_860)
return((cpu_subtype_t)-1);
if(cpusubtype2 != CPU_SUBTYPE_I860_ALL &&
cpusubtype2 != CPU_SUBTYPE_I860_860)
return((cpu_subtype_t)-1);
if(cpusubtype1 == CPU_SUBTYPE_I860_860 ||
cpusubtype2 == CPU_SUBTYPE_I860_860)
return(CPU_SUBTYPE_I860_860);
break;
case CPU_TYPE_HPPA:
if(cpusubtype1 != CPU_SUBTYPE_HPPA_ALL &&
cpusubtype1 != CPU_SUBTYPE_HPPA_7100LC)
return((cpu_subtype_t)-1);
if(cpusubtype2 != CPU_SUBTYPE_HPPA_ALL &&
cpusubtype2 != CPU_SUBTYPE_HPPA_7100LC)
return((cpu_subtype_t)-1);
return(CPU_SUBTYPE_HPPA_7100LC);
break;
case CPU_TYPE_SPARC:
if(cpusubtype1 != CPU_SUBTYPE_SPARC_ALL)
return((cpu_subtype_t)-1);
if(cpusubtype2 != CPU_SUBTYPE_SPARC_ALL)
return((cpu_subtype_t)-1);
break;
default:
return((cpu_subtype_t)-1);
}
return((cpu_subtype_t)-1);
}