int bench(int argc, char **argv, bool main_bench) {
for (int arg = 0; arg < argc; ++arg) {
if (!strncmp("--batch=", argv[arg], 8))
SAFE(batch(argv[arg] + 8, bench), CRIT);
else if (!strncmp("--dir=", argv[arg], 6))
dir = str2dir(argv[arg] + 6);
else if (!strncmp("--dt=", argv[arg], 5))
dt = str2dt(argv[arg] + 5);
else if (!strncmp("--tag=", argv[arg], 6))
tag = str2tag(argv[arg] + 6);
else if (!strncmp("--axis=", argv[arg], 7))
axis = atoi(argv[arg] + 7);
else if (!strncmp("--group=", argv[arg], 8))
group = atoi(argv[arg] + 8);
else if (!strncmp("--match=", argv[arg], 8))
pattern = argv[arg] + 8;
else if (!strncmp("--mode=", argv[0], 7))
bench_mode = str2bench_mode(argv[0] + 7);
else if (!strcmp("--reset", argv[arg]))
reset_parameters();
else if (!strncmp("-v", argv[arg], 2))
verbose = atoi(argv[arg] + 2);
else if (!strncmp("--verbose=", argv[arg], 10))
verbose = atoi(argv[arg] + 10);
else {
if (!strncmp("--", argv[arg], 2)) {
fprintf(stderr, "driver: unknown option: `%s`, exiting...\n",
argv[arg]);
exit(2);
}
dims = str2dims(argv[arg]);
check_correctness();
}
}
return OK;
}
int
main(
int argc,
char *argv[]
) {
int fa,nfa;
char out_name[1000];
icmFile *wr_fp;
icc *wr_icco;
int rv = 0;
int verb = 0;
if (argc < 2)
usage();
/* Process the arguments */
for(fa = 1;fa < argc;fa++) {
nfa = fa; /* skip to nfa if next argument is used */
if (argv[fa][0] == '-') { /* Look for any flags */
char *na = NULL; /* next argument after flag, null if none */
if (argv[fa][2] != '\000')
na = &argv[fa][2]; /* next is directly after flag */
else {
if ((fa+1) < argc) {
if (argv[fa+1][0] != '-') {
nfa = fa + 1;
na = argv[nfa]; /* next is seperate non-flag argument */
}
}
}
if (argv[fa][1] == '?')
usage();
/* Verbosity */
else if (argv[fa][1] == 'v' || argv[fa][1] == 'V') {
verb = 1;
}
else
usage();
}
else
break;
}
if (fa >= argc || argv[fa][0] == '-') usage();
strcpy(out_name,argv[fa]);
/* ---------------------------------------- */
/* Create a matrix/shaper based XYZ profile */
/* ---------------------------------------- */
/* Open up the file for writing */
if ((wr_fp = new_icmFileStd_name(out_name,"w")) == NULL)
error ("Write: Can't open file '%s'",out_name);
if ((wr_icco = new_icc()) == NULL)
error ("Write: Creation of ICC object failed");
/* Add all the tags required */
/* The header: */
{
icmHeader *wh = wr_icco->header;
/* Values that must be set before writing */
wh->deviceClass = icSigDisplayClass;
wh->colorSpace = icSigRgbData; /* It's RGB space */
wh->pcs = icSigXYZData;
wh->renderingIntent = icPerceptual;
/* Values that should be set before writing */
wh->manufacturer = str2tag("????");
wh->model = str2tag("????");
}
/* Profile Description Tag: */
{
icmTextDescription *wo;
char *dst;
dst = "sRGB like Matrix Display profile";
if ((wo = (icmTextDescription *)wr_icco->add_tag(
wr_icco, icSigProfileDescriptionTag, icSigTextDescriptionType)) == NULL)
error("add_tag failed: %d, %s",wr_icco->errc,wr_icco->err);
wo->size = strlen(dst)+1; /* Allocated and used size of desc, inc null */
wo->scCode = 0;
wo->scSize = strlen(dst)+1;
if (wo->scSize > 67)
error("Description scriptCode string longer than 67");
wo->allocate((icmBase *)wo);/* Allocate space */
strcpy(wo->desc, dst); /* Copy the string in */
strcpy((char *)wo->scDesc, dst); /* Copy the string in */
}
/* Copyright Tag: */
{
icmText *wo;
char *crt = "Copyright tag goes here";
if ((wo = (icmText *)wr_icco->add_tag(
wr_icco, icSigCopyrightTag, icSigTextType)) == NULL)
error("add_tag failed: %d, %s",wr_icco->errc,wr_icco->err);
wo->size = strlen(crt)+1; /* Allocated and used size of text, inc null */
wo->allocate((icmBase *)wo);/* Allocate space */
strcpy(wo->data, crt); /* Copy the text in */
}
/* Could add other relevant tags here, such as:
Device Manufacturers Description Tag
Device Model Description Tag
Device technology Tag
Viewing conditions Description Tag
Viewing conditions
Display Luminance Tag
Measurement information Tag
etc.
*/
/* Setup the primaries */
{
/* Compute primaries as XYZ */
double wrgb[4][3] = { /* Primaries in Yxy from the standard */
{ 1.0, 0.3127, 0.3290 }, /* White */
{ 1.0, 0.6400, 0.3300 }, /* Red */
{ 1.0, 0.3000, 0.6000 }, /* Green */
{ 1.0, 0.1500, 0.0600 } /* Blue */
};
double mat[3][3];
int i;
/* Convert yxy to normalised 3x3 matrix */
icmRGBYxyprim2matrix(wrgb[1], wrgb[2], wrgb[3], wrgb[0], mat, wrgb[0]);
icmTranspose3x3(mat, mat);
#ifdef NEVER /* Dump XYZ */
printf("sRGB: XYZ\n");
printf("{ %f, %f, %f }, /* Red */\n"
"{ %f, %f, %f }, /* Green */\n"
"{ %f, %f, %f }, /* Blue */\n"
"{ %f, %f, %f } /* White */\n",
mat[0][0], mat[0][1], mat[0][2],
mat[1][0], mat[1][1], mat[1][2],
mat[2][0], mat[2][1], mat[2][2],
wrgb[0][0], wrgb[0][1], wrgb[0][2]);
#endif
#ifdef NEVER /* Dump xyz */
{
double mat2[4][3];
double tt;
for (i = 0; i < 3; i++) {
tt = mat[i][0] + mat[i][1] + mat[i][2];
mat2[i][0] = mat[i][0] / tt;
mat2[i][1] = mat[i][1] / tt;
mat2[i][2] = mat[i][2] / tt;
}
tt = wrgb[0][0] + wrgb[0][1] + wrgb[0][2];
mat2[i][0] = wrgb[0][0] / tt;
mat2[i][1] = wrgb[0][1] / tt;
mat2[i][2] = wrgb[0][2] / tt;
printf("sRGB: xyz\n");
printf("{ %f, %f, %f }, /* Red */\n"
"{ %f, %f, %f }, /* Green */\n"
"{ %f, %f, %f }, /* Blue */\n"
"{ %f, %f, %f } /* White */\n",
mat2[0][0], mat2[0][1], mat2[0][2],
mat2[1][0], mat2[1][1], mat2[1][2],
mat2[2][0], mat2[2][1], mat2[2][2],
mat2[3][0], mat2[3][1], mat2[3][2]);
}
#endif
/* White Point Tag: */
{
icmXYZArray *wo;
if ((wo = (icmXYZArray *)wr_icco->add_tag(
wr_icco, icSigMediaWhitePointTag, icSigXYZArrayType)) == NULL)
error("add_tag failed: %d, %s",wr_icco->errc,wr_icco->err);
wo->size = 1;
wo->allocate((icmBase *)wo); /* Allocate space */
wo->data[0].X = wrgb[0][0];
wo->data[0].Y = wrgb[0][1];
wo->data[0].Z = wrgb[0][2];
}
/* Black Point Tag: */
{
icmXYZArray *wo;
if ((wo = (icmXYZArray *)wr_icco->add_tag(
wr_icco, icSigMediaBlackPointTag, icSigXYZArrayType)) == NULL)
error("add_tag failed: %d, %s",wr_icco->errc,wr_icco->err);
wo->size = 1;
wo->allocate((icmBase *)wo); /* Allocate space */
wo->data[0].X = 0.00;
wo->data[0].Y = 0.00;
wo->data[0].Z = 0.00;
}
/* Red, Green and Blue Colorant Tags: */
{
icmXYZNumber white;
icmXYZArray *wor, *wog, *wob;
double fromAbs[3][3];
double d50m[3][3];
/* Convert to D50 adapated */
icmAry2XYZ(white, wrgb[0]);
wr_icco->chromAdaptMatrix(wr_icco, ICM_CAM_NONE, icmD50, white, fromAbs);
icmMulBy3x3(d50m[0], fromAbs, mat[0]);
icmMulBy3x3(d50m[1], fromAbs, mat[1]);
icmMulBy3x3(d50m[2], fromAbs, mat[2]);
/* Make sure rounding doesn't wreck white point */
quantizeRGBprimsS15Fixed16(d50m);
if ((wor = (icmXYZArray *)wr_icco->add_tag(
wr_icco, icSigRedColorantTag, icSigXYZArrayType)) == NULL)
error("add_tag failed: %d, %s",rv,wr_icco->err);
if ((wog = (icmXYZArray *)wr_icco->add_tag(
wr_icco, icSigGreenColorantTag, icSigXYZArrayType)) == NULL)
error("add_tag failed: %d, %s",rv,wr_icco->err);
if ((wob = (icmXYZArray *)wr_icco->add_tag(
wr_icco, icSigBlueColorantTag, icSigXYZArrayType)) == NULL)
error("add_tag failed: %d, %s",rv,wr_icco->err);
wor->size = wog->size = wob->size = 1;
wor->allocate((icmBase *)wor); /* Allocate space */
wog->allocate((icmBase *)wog);
wob->allocate((icmBase *)wob);
wor->data[0].X = d50m[0][0]; wor->data[0].Y = d50m[0][1]; wor->data[0].Z = d50m[0][2];
wog->data[0].X = d50m[1][0]; wog->data[0].Y = d50m[1][1]; wog->data[0].Z = d50m[1][2];
wob->data[0].X = d50m[2][0]; wob->data[0].Y = d50m[2][1]; wob->data[0].Z = d50m[2][2];
}
}
/* Red, Green and Blue Gamma Curve Tags: */
{
icmCurve *wor, *wog, *wob;
int i;
if ((wor = (icmCurve *)wr_icco->add_tag(
wr_icco, icSigRedTRCTag, icSigCurveType)) == NULL)
error("add_tag failed: %d, %s",rv,wr_icco->err);
wor->flag = icmCurveSpec;
wor->size = 1024;
wor->allocate((icmBase *)wor); /* Allocate space */
for (i = 0; i < wor->size; i++)
wor->data[i] = gdv2dv(i/(wor->size-1.0));
/* Link other channels to the red */
if ((wog = (icmCurve *)wr_icco->link_tag(
wr_icco, icSigGreenTRCTag, icSigRedTRCTag)) == NULL)
error("link_tag failed: %d, %s",rv,wr_icco->err);
if ((wob = (icmCurve *)wr_icco->link_tag(
wr_icco, icSigBlueTRCTag, icSigRedTRCTag)) == NULL)
error("link_tag failed: %d, %s",rv,wr_icco->err);
}
/* Write the file out */
if ((rv = wr_icco->write(wr_icco,wr_fp,0)) != 0)
error ("Write file: %d, %s",rv,wr_icco->err);
wr_icco->del(wr_icco);
wr_fp->del(wr_fp);
return 0;
}
static bool
read_assignment(char const *line, assignments_t *assignments)
{
char const *assign, *tag, *tag_end;
int line_len = strlen(line), assign_off, tag_off;
if (!(assign = strstr(line, ":="))) {
ERR("String ':=' not found in assignment statement '%s'\n", line);
return false;
}
assign_off = assign - line;
{
char variable[assign_off + 1];
int constant_len = line_len - (assign_off + 2) + 1;
char constant[constant_len];
operand_t varop, consop;
memcpy(variable, line, assign_off);
variable[assign_off] = '\0';
if (!(tag = strchr(variable, '['))) {
ERR("Character '[' not found in variable name '%s'\n", variable);
return false;
}
tag_off = tag - variable;
{
char varname[tag_off + 1];
memcpy(varname, variable, tag_off);
varname[tag_off] = '\0';
if (!(tag_end = strchr(tag + 1, ']'))) {
ERR("Character ']' not found in variable name '%s'\n", variable);
return false;
}
{
char tagname[tag_end - tag];
memcpy(tagname, tag + 1, tag_end - (tag + 1));
tagname[tag_end - (tag + 1)] = '\0';
memcpy(constant, assign+2, constant_len);
constant[constant_len] = '\0';
if (!str2operand(&varop, varname)) {
ERR("Could not convert variable '%s' to a valid operand.\n", varname);
return false;
}
varop.tag.all = str2tag(tagname);
if (!str2operand(&consop, constant)) {
ERR("Could not convert constant '%s' to a valid operand.\n", constant);
return false;
}
if (consop.type == op_imm && consop.val.imm == 0) {
ERR("Immediate variable has value 0. Indicates parse error.\n");
return false;
}
assignments_add(assignments, &varop, &consop);
}
}
}
return true;
}
