GameDef createGameDef(const Game *g) {
return ((getGameID(g->game) & 0xF) << 12) |
((getPlatformID(g->platform) & 0xF) << 8) |
((getSpecialID(g->special) & 0xF) << 4) |
((getLanguageID(g->lang) & 0xF) << 0);
return 0;
}
uint32 getFilename(int game, int plat, int spec, int lang, const ExtractFilename *fDesc) {
// GAME, PLATFORM, SPECIAL, ID, LANG
return ((getGameID(game) & 0xF) << 24) |
((getPlatformID(plat) & 0xF) << 20) |
((getSpecialID(spec) & 0xF) << 16) |
((fDesc->id & 0xFFF) << 4) |
((getLanguageID(fDesc->langSpecific ? lang : UNK_LANG) & 0xF) << 0);
}
uint32 getFilename(const ExtractInformation *info, const int id) {
const ExtractFilename *fDesc = getFilenameDesc(id);
if (!fDesc)
return 0;
// GAME, PLATFORM, SPECIAL, ID, LANG
return ((getGameID(info->game) & 0xF) << 24) |
((getPlatformID(info->platform) & 0xF) << 20) |
((getSpecialID(info->special) & 0xF) << 16) |
((id & 0xFFF) << 4) |
((getLanguageID(fDesc->langSpecific ? info->lang : UNK_LANG) & 0xF) << 0);
}
cl_platform_id OclHost::getPlatform() {
cl_platform_id cpPlatform;
#ifdef __APPLE__
cpPlatform = getPlatformID("APPLE");
if (cpPlatform == 0) {
Log.Error("No OpenCl platform found.");
exit(1);
}
#else
//Get the first platform
if (isGPU()) {
cpPlatform = getPlatformID("NVIDIA");
platform = NVIDIA;
if (cpPlatform == 0) {
Log.Warning("NVIDIA Platform not found. Falling back to AMD.");
cpPlatform = getPlatformID("AMD");
platform = AMD;
if (cpPlatform == 0) {
Log.Error("No OpenCl platform found.");
exit(1);
}
}
} else {
cpPlatform = getPlatformID("AMD");
if (cpPlatform == 0) {
Log.Warning("AMD Platform not found. Falling back to Intel.");
cpPlatform = getPlatformID("Intel");
if (cpPlatform == 0) {
Log.Error("No OpenCl platform found.");
exit(1);
}
}
}
#endif
return cpPlatform;
}
SEXP ocl_get_platform_info(SEXP platform) {
SEXP res;
cl_platform_id platform_id = getPlatformID(platform);
const char *names[] = { "name", "vendor", "version", "profile", "exts" };
SEXP nv = PROTECT(Rf_allocVector(STRSXP, 5));
int i;
for (i = 0; i < LENGTH(nv); i++) SET_STRING_ELT(nv, i, mkChar(names[i]));
res = PROTECT(Rf_allocVector(VECSXP, LENGTH(nv)));
Rf_setAttrib(res, R_NamesSymbol, nv);
SET_VECTOR_ELT(res, 0, getPlatformInfo(platform_id, CL_PLATFORM_NAME));
SET_VECTOR_ELT(res, 1, getPlatformInfo(platform_id, CL_PLATFORM_VENDOR));
SET_VECTOR_ELT(res, 2, getPlatformInfo(platform_id, CL_PLATFORM_VERSION));
SET_VECTOR_ELT(res, 3, getPlatformInfo(platform_id, CL_PLATFORM_PROFILE));
SET_VECTOR_ELT(res, 4, getPlatformInfo(platform_id, CL_PLATFORM_EXTENSIONS));
UNPROTECT(2);
return res;
}
SEXP ocl_devices(SEXP platform, SEXP sDevType) {
cl_platform_id pid = getPlatformID(platform);
SEXP res;
cl_uint np;
cl_device_id *did;
cl_device_type dt = CL_DEVICE_TYPE_DEFAULT;
const char *dts;
if (TYPEOF(sDevType) != STRSXP || LENGTH(sDevType) != 1)
Rf_error("invalid device type - must be a character vector of length one");
dts = CHAR(STRING_ELT(sDevType, 0));
if (dts[0] == 'C' || dts[0] == 'c')
dt = CL_DEVICE_TYPE_CPU;
else if (dts[0] == 'G' || dts[0] == 'g')
dt = CL_DEVICE_TYPE_GPU;
else if (dts[0] == 'A' || dts[0] == 'a') {
if (dts[1] == 'C' || dts[1] == 'c')
dt = CL_DEVICE_TYPE_ACCELERATOR;
else if (dts[1] == 'L' || dts[1] == 'l')
dt = CL_DEVICE_TYPE_ALL;
}
if (dt == CL_DEVICE_TYPE_DEFAULT && dts[0] != 'D' && dts[0] != 'd')
Rf_error("invalid device type - must be one of 'cpu', 'gpu', 'accelerator', 'default', 'all'.");
if (clGetDeviceIDs(pid, dt, 0, 0, &np) != CL_SUCCESS)
ocl_err("clGetDeviceIDs");
res = Rf_allocVector(VECSXP, np);
if (np > 0) {
int i;
did = (cl_device_id *) malloc(sizeof(cl_device_id) * np);
if (clGetDeviceIDs(pid, dt, np, did, 0) != CL_SUCCESS) {
free(did);
ocl_err("clGetDeviceIDs");
}
PROTECT(res);
for (i = 0; i < np; i++)
SET_VECTOR_ELT(res, i, mkDeviceID(did[i]));
free(did);
UNPROTECT(1);
}
return res;
}
GameDef createGameDef(const ExtractInformation *eI) {
return ((getGameID(eI->game) & 0xF) << 12) |
((getPlatformID(eI->platform) & 0xF) << 8) |
((getSpecialID(eI->special) & 0xF) << 4) |
((getLanguageID(eI->lang) & 0xF) << 0);
}
