stpi_escp2_printer_t *
stp_escp2_get_printer(const stp_vars_t *v)
{
int model = stp_get_model_id(v);
STPI_ASSERT(model >= 0, v);
if (!escp2_model_capabilities)
{
escp2_model_capabilities =
stp_zalloc(sizeof(stpi_escp2_printer_t) * (model + 1));
escp2_model_count = model + 1;
}
else if (model >= escp2_model_count)
{
escp2_model_capabilities =
stp_realloc(escp2_model_capabilities,
sizeof(stpi_escp2_printer_t) * (model + 1));
(void) memset(escp2_model_capabilities + escp2_model_count, 0,
sizeof(stpi_escp2_printer_t) * (model + 1 - escp2_model_count));
escp2_model_count = model + 1;
}
if (!(escp2_model_capabilities[model].active))
{
#ifdef HAVE_LOCALE_H
char *locale = stp_strdup(setlocale(LC_ALL, NULL));
setlocale(LC_ALL, "C");
#endif
escp2_model_capabilities[model].active = 1;
stp_escp2_load_model(v, model);
#ifdef HAVE_LOCALE_H
setlocale(LC_ALL, locale);
stp_free(locale);
#endif
}
return &(escp2_model_capabilities[model]);
}
int
main(int argc, char **argv)
{
int i, j, k;
int first_arg = 1;
stp_string_list_t *printer_list = NULL;
stp_parameter_level_t max_level = STP_PARAMETER_LEVEL_ADVANCED4;
if (argc > 1 && !strcmp(argv[1], "-s"))
{
max_level = STP_PARAMETER_LEVEL_BASIC;
first_arg++;
}
stp_init();
if (argc > first_arg)
{
printer_list = stp_string_list_create();
for (i = 1; i < argc; i++)
stp_string_list_add_string(printer_list, argv[i], argv[i]);
}
for (i = 0; i < stp_printer_model_count(); i++)
{
stp_parameter_list_t params;
int nparams;
stp_parameter_t desc;
const stp_printer_t *printer = stp_get_printer_by_index(i);
const char *driver = stp_printer_get_driver(printer);
const char *family = stp_printer_get_family(printer);
stp_vars_t *pv = stp_vars_create_copy(stp_printer_get_defaults(printer));
int tcount = 0;
size_t count;
int printer_is_color = 0;
if (strcmp(family, "ps") == 0 || strcmp(family, "raw") == 0)
continue;
if (printer_list && !stp_string_list_is_present(printer_list, driver))
continue;
/* Set Job Mode to "Job" as this enables the Duplex option */
stp_set_string_parameter(pv, "JobMode", "Job");
stp_describe_parameter(pv, "PrintingMode", &desc);
if (stp_string_list_is_present(desc.bounds.str, "Color"))
printer_is_color = 1;
stp_parameter_description_destroy(&desc);
if (printer_is_color)
stp_set_string_parameter(pv, "PrintingMode", "Color");
else
stp_set_string_parameter(pv, "PrintingMode", "BW");
stp_set_string_parameter(pv, "ChannelBitDepth", "8");
printf("# Printer model %s, long name `%s'\n", driver,
stp_printer_get_long_name(printer));
printf("$families{'%s'} = '%s';\n", driver, family);
printf("$models{'%s'} = '%d';\n", driver, stp_get_model_id(pv));
params = stp_get_parameter_list(pv);
nparams = stp_parameter_list_count(params);
for (k = 0; k < nparams; k++)
{
const stp_parameter_t *p = stp_parameter_list_param(params, k);
if (p->read_only ||
(p->p_level > max_level && strcmp(p->name, "Resolution") != 0) ||
(p->p_class != STP_PARAMETER_CLASS_OUTPUT &&
p->p_class != STP_PARAMETER_CLASS_CORE &&
p->p_class != STP_PARAMETER_CLASS_FEATURE))
continue;
count = 0;
stp_describe_parameter(pv, p->name, &desc);
if (desc.is_active)
{
printf("$longnames{'%s'}{'%s'} = '%s';\n",
driver, desc.name, desc.text);
printf("$param_classes{'%s'}{'%s'} = %d;\n",
driver, desc.name, desc.p_class);
printf("$param_types{'%s'}{'%s'} = %d;\n",
driver, desc.name, desc.p_type);
printf("$param_levels{'%s'}{'%s'} = %d;\n",
driver, desc.name, desc.p_level);
if (desc.p_type == STP_PARAMETER_TYPE_STRING_LIST)
{
count = stp_string_list_count(desc.bounds.str);
if (count > 0)
{
if (desc.is_mandatory)
{
printf("$defaults{'%s'}{'%s'} = '%s';\n",
driver, desc.name, desc.deflt.str);
}
else
{
printf("$defaults{'%s'}{'%s'} = '%s';\n",
driver, desc.name, "None");
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, desc.name, "None", "None");
}
for (j = 0; j < count; j++)
{
const stp_param_string_t *param =
stp_string_list_param(desc.bounds.str, j);
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, desc.name, param->name, param->text);
if (strcmp(desc.name, "Resolution") == 0)
{
int x, y;
stp_set_string_parameter(pv, "Resolution",
param->name);
stp_describe_resolution(pv, &x, &y);
if (x > 0 && y > 0)
{
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%d';\n",
driver, "x_resolution", param->name, x);
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%d';\n",
driver, "y_resolution", param->name, y);
}
}
}
}
}
else if (desc.p_type == STP_PARAMETER_TYPE_BOOLEAN)
{
if (desc.is_mandatory)
{
printf("$defaults{'%s'}{'%s'} = '%d';\n",
driver, desc.name, desc.deflt.boolean);
}
else
{
printf("$defaults{'%s'}{'%s'} = '%s';\n",
driver, desc.name, "None");
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, desc.name, "None", "None");
}
printf("$stpdata{'%s'}{'%s'}{'False'} = 'False';\n",
driver, desc.name);
printf("$stpdata{'%s'}{'%s'}{'True'} = 'True';\n",
driver, desc.name);
}
else if (desc.p_type == STP_PARAMETER_TYPE_DOUBLE)
{
if (desc.bounds.dbl.lower <= desc.deflt.dbl &&
desc.bounds.dbl.upper >= desc.deflt.dbl)
{
printf("$stp_float_values{'%s'}{'MINVAL'}{'%s'} = %.3f;\n",
driver, desc.name, desc.bounds.dbl.lower);
printf("$stp_float_values{'%s'}{'MAXVAL'}{'%s'} = %.3f;\n",
driver, desc.name, desc.bounds.dbl.upper);
printf("$stp_float_values{'%s'}{'DEFVAL'}{'%s'} = %.3f;\n",
driver, desc.name, desc.deflt.dbl);
/* printf("$stp_float_values{'%s'}{'LONG_NAME'}{'%s'} = '%s';\n",
driver, desc.name, gettext(desc.text)); */
printf("$stp_float_values{'%s'}{'CATEGORY'}{'%s'} = '%s';\n",
driver, desc.name, gettext(desc.category));
printf("$stp_float_values{'%s'}{'HELP'}{'%s'} = q(%s);\n",
driver, desc.name, (desc.help ? gettext(desc.help) : "''"));
printf("$stp_float_values{'%s'}{'MANDATORY'}{'%s'} = q(%d);\n",
driver, desc.name, desc.is_mandatory);
}
}
else if (desc.p_type == STP_PARAMETER_TYPE_INT)
{
if (desc.bounds.integer.lower <= desc.deflt.integer &&
desc.bounds.integer.upper >= desc.deflt.integer)
{
printf("$stp_int_values{'%s'}{'MINVAL'}{'%s'} = %d;\n",
driver, desc.name, desc.bounds.integer.lower);
printf("$stp_int_values{'%s'}{'MAXVAL'}{'%s'} = %d;\n",
driver, desc.name, desc.bounds.integer.upper);
printf("$stp_int_values{'%s'}{'DEFVAL'}{'%s'} = %d;\n",
driver, desc.name, desc.deflt.integer);
/* printf("$stp_int_values{'%s'}{'LONG_NAME'}{'%s'} = '%s';\n",
driver, desc.name, gettext(desc.text)); */
printf("$stp_int_values{'%s'}{'CATEGORY'}{'%s'} = '%s';\n",
driver, desc.name, gettext(desc.category));
printf("$stp_int_values{'%s'}{'HELP'}{'%s'} = q(%s);\n",
driver, desc.name, (desc.help ? gettext(desc.help) : "''"));
printf("$stp_int_values{'%s'}{'MANDATORY'}{'%s'} = q(%d);\n",
driver, desc.name, desc.is_mandatory);
}
}
else if (desc.p_type == STP_PARAMETER_TYPE_DIMENSION)
{
if (desc.bounds.dimension.lower <= desc.deflt.dimension &&
desc.bounds.dimension.upper >= desc.deflt.dimension)
{
printf("$stp_dimension_values{'%s'}{'MINVAL'}{'%s'} = %d;\n",
driver, desc.name, desc.bounds.dimension.lower);
printf("$stp_dimension_values{'%s'}{'MAXVAL'}{'%s'} = %d;\n",
driver, desc.name, desc.bounds.dimension.upper);
printf("$stp_dimension_values{'%s'}{'DEFVAL'}{'%s'} = %d;\n",
driver, desc.name, desc.deflt.dimension);
/* printf("$stp_dimension_values{'%s'}{'LONG_NAME'}{'%s'} = '%s';\n",
driver, desc.name, gettext(desc.text)); */
printf("$stp_dimension_values{'%s'}{'CATEGORY'}{'%s'} = '%s';\n",
driver, desc.name, gettext(desc.category));
printf("$stp_dimension_values{'%s'}{'HELP'}{'%s'} = q(%s);\n",
driver, desc.name, (desc.help ? gettext(desc.help) : "''"));
printf("$stp_dimension_values{'%s'}{'MANDATORY'}{'%s'} = q(%d);\n",
driver, desc.name, desc.is_mandatory);
}
}
tcount += count;
}
stp_parameter_description_destroy(&desc);
}
stp_parameter_list_destroy(params);
if (tcount > 0)
{
if (printer_is_color)
{
printf("$defaults{'%s'}{'%s'} = '%s';\n",
driver, "Color", "Color");
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, "Color", "Color", "Color");
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, "Color", "RawCMYK", "Raw CMYK");
}
else
printf("$defaults{'%s'}{'%s'} = '%s';\n",
driver, "Color", "Grayscale");
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, "Color", "Grayscale", "Gray Scale");
printf("$stpdata{'%s'}{'%s'}{'%s'} = '%s';\n",
driver, "Color", "BlackAndWhite", "Black and White");
}
stp_vars_destroy(pv);
}
return 0;
}
/*
* 'escp2_print()' - Print an image to an EPSON printer.
*/
static int
raw_print(const stp_vars_t *v, stp_image_t *image)
{
int model = stp_get_model_id(v);
int width = stp_get_page_width(v);
int height = stp_get_page_height(v);
int i, j;
int y; /* Looping vars */
stp_vars_t *nv = stp_vars_create_copy(v);
int out_channels;
unsigned short *final_out = NULL;
int status = 1;
int bytes_per_channel = raw_model_capabilities[model].output_bits / 8;
int ink_channels = 1;
int rotate_output = 0;
const char *ink_type = stp_get_string_parameter(nv, "InkType");
stp_image_init(image);
stp_prune_inactive_options(nv);
if (!stp_verify(nv))
{
stp_eprintf(nv, _("Print options not verified; cannot print.\n"));
stp_vars_destroy(nv);
stp_image_conclude(image);
return 0;
}
if (width != stp_image_width(image) || height != stp_image_height(image))
{
stp_eprintf(nv, _("Image dimensions must match paper dimensions"));
stp_vars_destroy(nv);
stp_image_conclude(image);
return 0;
}
if (ink_type)
{
for (i = 0; i < ink_count; i++)
if (strcmp(ink_type, inks[i].name) == 0)
{
stp_set_string_parameter(nv, "STPIOutputType", inks[i].output_type);
ink_channels = inks[i].output_channels;
rotate_output = inks[i].rotate_channels;
break;
}
}
stp_set_float_parameter(nv, "Density", 1.0);
stp_set_boolean_parameter(nv, "SimpleGamma", 1);
stp_channel_reset(nv);
for (i = 0; i < ink_channels; i++)
stp_channel_add(nv, i, 0, 1.0);
if (bytes_per_channel == 1)
out_channels = stp_color_init(nv, image, 256);
else
out_channels = stp_color_init(nv, image, 65536);
if (out_channels != ink_channels && out_channels != 1 && ink_channels != 1)
{
stp_eprintf(nv, "Internal error! Output channels or input channels must be 1\n");
stp_vars_destroy(nv);
stp_image_conclude(image);
return 0;
}
if (out_channels != ink_channels)
final_out = stp_malloc(width * ink_channels * 2);
for (y = 0; y < height; y++)
{
unsigned short *out;
unsigned short *real_out;
unsigned zero_mask;
if (stp_color_get_row(nv, image, y, &zero_mask))
{
status = 2;
break;
}
out = stp_channel_get_input(nv);
real_out = out;
if (rotate_output)
{
unsigned short *tmp_out = real_out;
for (i = 0; i < width; i++)
{
unsigned short tmp = tmp_out[0];
for (j = 0; j < ink_channels - 1; j++)
tmp_out[j] = tmp_out[j + 1];
tmp_out[ink_channels - 1] = tmp;
tmp_out += ink_channels;
}
}
if (out_channels != ink_channels)
{
real_out = final_out;
if (out_channels < ink_channels)
{
for (i = 0; i < width; i++)
{
for (j = 0; j < ink_channels; j++)
final_out[i * ink_channels + j] = out[i];
}
}
else
{
for (i = 0; i < width; i++)
{
int avg = 0;
for (j = 0; j < out_channels; j++)
avg += out[i * out_channels + j];
final_out[i] = avg / out_channels;
}
}
}
if (bytes_per_channel == 1)
{
unsigned char *char_out = (unsigned char *) real_out;
for (i = 0; i < width * ink_channels; i++)
char_out[i] = real_out[i] / 257;
}
stp_zfwrite((char *) real_out,
width * ink_channels * bytes_per_channel, 1, nv);
}
stp_image_conclude(image);
if (final_out)
stp_free(final_out);
stp_vars_destroy(nv);
return status;
}
