static int
tiff_get_some_params(gx_device * dev, gs_param_list * plist, int which)
{
gx_device_tiff *const tfdev = (gx_device_tiff *)dev;
int code = gdev_prn_get_params(dev, plist);
int ecode = code;
gs_param_string comprstr;
if ((code = param_write_bool(plist, "BigEndian", &tfdev->BigEndian)) < 0)
ecode = code;
if ((code = tiff_compression_param_string(&comprstr, tfdev->Compression)) < 0 ||
(code = param_write_string(plist, "Compression", &comprstr)) < 0)
ecode = code;
if (which & 1)
{
if ((code = param_write_long(plist, "DownScaleFactor", &tfdev->DownScaleFactor)) < 0)
ecode = code;
}
if ((code = param_write_long(plist, "MaxStripSize", &tfdev->MaxStripSize)) < 0)
ecode = code;
if ((code = param_write_long(plist, "AdjustWidth", &tfdev->AdjustWidth)) < 0)
ecode = code;
if ((code = param_write_long(plist, "MinFeatureSize", &tfdev->MinFeatureSize)) < 0)
ecode = code;
return ecode;
}
static int
tfax_get_params(gx_device * dev, gs_param_list * plist)
{
gx_device_tfax *const tfdev = (gx_device_tfax *)dev;
int code = gdev_fax_get_params(dev, plist);
int ecode = code;
gs_param_string comprstr;
if ((code = param_write_long(plist, "MaxStripSize", &tfdev->MaxStripSize)) < 0)
ecode = code;
if ((code = param_write_int(plist, "FillOrder", &tfdev->FillOrder)) < 0)
ecode = code;
if ((code = param_write_bool(plist, "BigEndian", &tfdev->BigEndian)) < 0)
ecode = code;
#if (TIFFLIB_VERSION >= 20111221)
if ((code = param_write_bool(plist, "UseBigTIFF", &tfdev->UseBigTIFF)) < 0)
ecode = code;
#endif
if ((code = param_write_bool(plist, "TIFFDateTime", &tfdev->write_datetime)) < 0)
ecode = code;
if ((code = tiff_compression_param_string(&comprstr, tfdev->Compression)) < 0 ||
(code = param_write_string(plist, "Compression", &comprstr)) < 0)
ecode = code;
return ecode;
}
static int
tfax_get_params(gx_device * dev, gs_param_list * plist)
{
gx_device_tfax *const tfdev = (gx_device_tfax *)dev;
int code = gdev_fax_get_params(dev, plist);
int ecode = code;
gs_param_string comprstr;
if ((code = param_write_long(plist, "MaxStripSize", &tfdev->MaxStripSize)) < 0)
ecode = code;
if ((code = param_write_int(plist, "FillOrder", &tfdev->FillOrder)) < 0)
ecode = code;
if ((code = param_write_bool(plist, "BigEndian", &tfdev->BigEndian)) < 0)
ecode = code;
if ((code = tiff_compression_param_string(&comprstr, tfdev->Compression)) < 0 ||
(code = param_write_string(plist, "Compression", &comprstr)) < 0)
ecode = code;
return ecode;
}
static int
test10(gs_state * pgs, gs_memory_t * mem)
{
gs_c_param_list list;
gs_param_string nstr, OFstr;
gs_param_float_array PSa;
gs_param_float_array HWRa;
gs_param_int_array HWSa;
int HWSize[2];
float HWResolution[2], PageSize[2];
long MaxBitmap;
int code;
gx_device *dev = gs_currentdevice(pgs);
float xlate_x, xlate_y;
gs_rect cliprect;
gs_c_param_list_write(&list, mem);
code = gs_getdeviceparams(dev, (gs_param_list *) & list);
if (code < 0) {
lprintf1("getdeviceparams failed! code = %d\n", code);
gs_abort(mem);
}
gs_c_param_list_read(&list);
code = param_read_string((gs_param_list *) & list, "Name", &nstr);
if (code < 0) {
lprintf1("reading Name failed! code = %d\n", code);
gs_abort(mem);
}
code = param_read_int_array((gs_param_list *) & list,
"HWSize", &HWSa);
if (code < 0) {
lprintf1("reading HWSize failed! code = %d\n", code);
gs_abort(mem);
}
emprintf3(mem, "HWSize[%d] = [ %d, %d ]\n", HWSa.size,
HWSa.data[0], HWSa.data[1]);
code = param_read_float_array((gs_param_list *) & list,
"HWResolution", &HWRa);
if (code < 0) {
lprintf1("reading Resolution failed! code = %d\n", code);
gs_abort(mem);
}
emprintf3(mem, "HWResolution[%d] = [ %f, %f ]\n", HWRa.size,
HWRa.data[0], HWRa.data[1]);
code = param_read_float_array((gs_param_list *) & list,
"PageSize", &PSa);
if (code < 0) {
lprintf1("reading PageSize failed! code = %d\n", code);
gs_abort(mem);
}
emprintf3(mem, "PageSize[%d] = [ %f, %f ]\n", PSa.size,
PSa.data[0], PSa.data[1]);
code = param_read_long((gs_param_list *) & list,
"MaxBitmap", &MaxBitmap);
if (code < 0) {
lprintf1("reading MaxBitmap failed! code = %d\n", code);
gs_abort(mem);
}
emprintf1(mem, "MaxBitmap = %ld\n", MaxBitmap);
/* Switch to param list functions to "write" */
gs_c_param_list_write(&list, mem);
/* Always set the PageSize. */
PageSize[0] = 72.0 * ypage_wid;
PageSize[1] = 72.0 * xpage_len;
PSa.data = PageSize;
code = param_write_float_array((gs_param_list *) & list,
"PageSize", &PSa);
if (nstr.data[0] != 'v') {
/* Set the OutputFile string file name */
OFstr.persistent = false;
OFstr.data = outfile;
OFstr.size = strlen(outfile);
code = param_write_string((gs_param_list *) & list,
"OutputFile", &OFstr);
if (code < 0) {
lprintf1("setting OutputFile name failed, code=%d\n",
code);
gs_abort(mem);
}
if (nstr.data[0] == 'x') {
HWResolution[0] = HWResolution[1] = 72.0;
} else {
HWResolution[0] = HWResolution[1] = 360.0;
}
HWRa.data = HWResolution;
HWSize[0] = (int)(HWResolution[0] * ypage_wid);
HWSize[1] = (int)(HWResolution[1] * xpage_len);
emprintf3(mem, "\tHWSize = [%d,%d], HWResolution = %f dpi\n",
HWSize[0], HWSize[1], HWResolution[0]);
HWSa.data = HWSize;
code = param_write_float_array((gs_param_list *) & list,
"HWResolution", &HWRa);
code = param_write_int_array((gs_param_list *) & list,
"HWSize", &HWSa);
MaxBitmap = 1000000L;
code = param_write_long((gs_param_list *) & list,
"MaxBitmap", &MaxBitmap);
}
gs_c_param_list_read(&list);
code = gs_putdeviceparams(dev, (gs_param_list *) & list);
emprintf1(mem, "putdeviceparams: code=%d\n", code);
gs_c_param_list_release(&list);
/* note: initgraphics no longer resets the color or color space */
gs_erasepage(pgs);
gs_initgraphics(pgs);
{
gs_color_space *cs = gs_cspace_new_DeviceGray(mem);
gs_setcolorspace(pgs, cs);
gs_setcolorspace(pgs, cs);
gs_decrement(cs, "test10 DeviceGray");
}
gs_clippath(pgs);
gs_pathbbox(pgs, &cliprect);
emprintf4(mem, "\tcliprect = [[%g,%g],[%g,%g]]\n",
cliprect.p.x, cliprect.p.y, cliprect.q.x, cliprect.q.y);
gs_newpath(pgs);
switch (((rotate_value + 270) / 90) & 3) {
default:
case 0: /* 0 = 360 degrees in PS == 90 degrees in printer */
xlate_x = cliprect.p.x;
xlate_y = cliprect.p.y;
break;
case 1: /* 90 degrees in PS = 180 degrees printer */
xlate_x = cliprect.q.x;
xlate_y = cliprect.p.y;
break;
case 2: /* 180 degrees in PS == 270 degrees in printer */
xlate_x = cliprect.q.x;
xlate_y = cliprect.q.y;
break;
case 3: /* 270 degrees in PS == 0 degrees in printer */
xlate_x = cliprect.p.x;
xlate_y = cliprect.q.y;
break;
}
emprintf2(mem, "translate origin to [ %f, %f ]\n", xlate_x, xlate_y);
gs_translate(pgs, xlate_x, xlate_y);
/* further move (before rotate) by user requested amount */
gs_translate(pgs, 72.0 * (float)xmove_origin, 72.0 * (float)ymove_origin);
gs_rotate(pgs, (float)rotate_value + 270.0);
gs_scale(pgs, scale_x * 72.0 / 2032.0,
scale_y * 72.0 / 2032.0);
gs_setlinecap(pgs, gs_cap_butt);
gs_setlinejoin(pgs, gs_join_bevel);
gs_setfilladjust(pgs, 0.0, 0.0);
capture_exec(pgs);
return 0;
}
/* Get standard parameters. */
int
gx_default_get_params(gx_device * dev, gs_param_list * plist)
{
int code;
/* Standard page device parameters: */
bool seprs = false;
gs_param_string dns, pcms, profile_array[NUM_DEVICE_PROFILES];
gsicc_rendering_intents_t profile_intents[NUM_DEVICE_PROFILES];
bool devicegraytok = true; /* Default if device profile stuct not set */
int k;
gs_param_float_array msa, ibba, hwra, ma;
gs_param_string_array scna;
char null_str[1]={'\0'};
gs_param_string temp_str;
#define set_param_array(a, d, s)\
(a.data = d, a.size = s, a.persistent = false);
/* Non-standard parameters: */
int colors = dev->color_info.num_components;
int mns = colors;
int depth = dev->color_info.depth;
int GrayValues = dev->color_info.max_gray + 1;
int HWSize[2];
gs_param_int_array hwsa;
gs_param_float_array hwma, mhwra;
cmm_dev_profile_t *dev_profile;
/* Fill in page device parameters. */
param_string_from_string(dns, dev->dname);
{
const char *cms = get_process_color_model_name(dev);
/* We might have an uninitialized device with */
/* color_info.num_components = 0.... */
if ((cms != NULL) && (*cms != '\0'))
param_string_from_string(pcms, cms);
else
pcms.data = 0;
}
set_param_array(hwra, dev->HWResolution, 2);
set_param_array(msa, dev->MediaSize, 2);
set_param_array(ibba, dev->ImagingBBox, 4);
set_param_array(ma, dev->Margins, 2);
set_param_array(scna, NULL, 0);
/* Fill in non-standard parameters. */
HWSize[0] = dev->width;
HWSize[1] = dev->height;
set_param_array(hwsa, HWSize, 2);
set_param_array(hwma, dev->HWMargins, 4);
set_param_array(mhwra, dev->MarginsHWResolution, 2);
/* Check if the device profile is null. If it is, then we need to
go ahead and get it set up at this time. If the proc is not
set up yet then we are not going to do anything yet */
if (dev->procs.get_profile != NULL) {
code = dev_proc(dev, get_profile)(dev, &dev_profile);
if (dev_profile == NULL) {
code = gsicc_init_device_profile_struct(dev, NULL, 0);
code = dev_proc(dev, get_profile)(dev, &dev_profile);
}
for (k = 0; k < NUM_DEVICE_PROFILES; k++) {
if (dev_profile->device_profile[k] == NULL) {
param_string_from_string(profile_array[k], null_str);
profile_intents[k] = gsPERCEPTUAL;
} else {
param_string_from_string(profile_array[k],
dev_profile->device_profile[k]->name);
profile_intents[k] = dev_profile->intent[k];
}
}
devicegraytok = dev_profile->devicegraytok;
} else {
for (k = 0; k < NUM_DEVICE_PROFILES; k++) {
param_string_from_string(profile_array[k], null_str);
profile_intents[k] = gsPERCEPTUAL;
}
}
/* Transmit the values. */
if (
/* Standard parameters */
(code = param_write_name(plist, "OutputDevice", &dns)) < 0 ||
#ifdef PAGESIZE_IS_MEDIASIZE
(code = param_write_float_array(plist, "PageSize", &msa)) < 0 ||
#endif
(code = (pcms.data == 0 ? 0 :
param_write_name(plist, "ProcessColorModel", &pcms))) < 0 ||
(code = param_write_float_array(plist, "HWResolution", &hwra)) < 0 ||
(code = (dev->ImagingBBox_set ?
param_write_float_array(plist, "ImagingBBox", &ibba) :
param_write_null(plist, "ImagingBBox"))) < 0 ||
(code = param_write_float_array(plist, "Margins", &ma)) < 0 ||
(code = param_write_int(plist, "MaxSeparations", &mns)) < 0 ||
(code = (dev->NumCopies_set < 0 ||
(*dev_proc(dev, get_page_device))(dev) == 0 ? 0:
dev->NumCopies_set ?
param_write_int(plist, "NumCopies", &dev->NumCopies) :
param_write_null(plist, "NumCopies"))) < 0 ||
(code = param_write_name_array(plist, "SeparationColorNames", &scna)) < 0 ||
(code = param_write_bool(plist, "Separations", &seprs)) < 0 ||
(code = param_write_bool(plist, "UseCIEColor", &dev->UseCIEColor)) < 0 ||
/* Non-standard parameters */
/* Note: if change is made in NUM_DEVICE_PROFILES we need to name
that profile here for the device parameter on the command line */
(code = param_write_bool(plist, "DeviceGrayToK", &devicegraytok)) < 0 ||
(code = param_write_string(plist,"OutputICCProfile", &(profile_array[0]))) < 0 ||
(code = param_write_string(plist,"GraphicICCProfile", &(profile_array[1]))) < 0 ||
(code = param_write_string(plist,"ImageICCProfile", &(profile_array[2]))) < 0 ||
(code = param_write_string(plist,"TextICCProfile", &(profile_array[3]))) < 0 ||
(code = param_write_int(plist,"RenderIntent", &(profile_intents[0]))) < 0 ||
(code = param_write_int(plist,"GraphicIntent", &(profile_intents[1]))) < 0 ||
(code = param_write_int(plist,"ImageIntent", &(profile_intents[2]))) < 0 ||
(code = param_write_int(plist,"TextIntent", &(profile_intents[3]))) < 0 ||
(code = param_write_int_array(plist, "HWSize", &hwsa)) < 0 ||
(code = param_write_float_array(plist, ".HWMargins", &hwma)) < 0 ||
(code = param_write_float_array(plist, ".MarginsHWResolution", &mhwra)) < 0 ||
(code = param_write_float_array(plist, ".MediaSize", &msa)) < 0 ||
(code = param_write_string(plist, "Name", &dns)) < 0 ||
(code = param_write_int(plist, "Colors", &colors)) < 0 ||
(code = param_write_int(plist, "BitsPerPixel", &depth)) < 0 ||
(code = param_write_int(plist, "GrayValues", &GrayValues)) < 0 ||
(code = param_write_long(plist, "PageCount", &dev->PageCount)) < 0 ||
(code = param_write_bool(plist, ".IgnoreNumCopies", &dev->IgnoreNumCopies)) < 0 ||
(code = param_write_int(plist, "TextAlphaBits",
&dev->color_info.anti_alias.text_bits)) < 0 ||
(code = param_write_int(plist, "GraphicsAlphaBits",
&dev->color_info.anti_alias.graphics_bits)) < 0 ||
(code = param_write_bool(plist, ".LockSafetyParams", &dev->LockSafetyParams)) < 0 ||
(code = param_write_int(plist, "MaxPatternBitmap", &dev->MaxPatternBitmap)) < 0
)
return code;
/* If LeadingEdge was set explicitly, report it here. */
if (dev->LeadingEdge & LEADINGEDGE_SET_MASK) {
int leadingedge = dev->LeadingEdge & LEADINGEDGE_MASK;
code = param_write_int(plist, "LeadingEdge", &leadingedge);
}
if (code < 0)
return code;
/* Fill in color information. */
if (colors > 1) {
int RGBValues = dev->color_info.max_color + 1;
long ColorValues = (depth >= 32 ? -1 : 1L << depth); /* value can only be 32 bits */
if ((code = param_write_int(plist, "RedValues", &RGBValues)) < 0 ||
(code = param_write_int(plist, "GreenValues", &RGBValues)) < 0 ||
(code = param_write_int(plist, "BlueValues", &RGBValues)) < 0 ||
(code = param_write_long(plist, "ColorValues", &ColorValues)) < 0
)
return code;
}
if (param_requested(plist, "HWColorMap")) {
byte palette[3 << 8];
if (param_HWColorMap(dev, palette)) {
gs_param_string hwcms;
hwcms.data = palette, hwcms.size = colors << depth,
hwcms.persistent = false;
if ((code = param_write_string(plist, "HWColorMap", &hwcms)) < 0)
return code;
}
}
return 0;
}
static int
current_param_list(i_ctx_t *i_ctx_p, const param_set * pset,
const ref * psref /*t_string */ )
{
stack_param_list list;
gs_param_list *const plist = (gs_param_list *)&list;
int code = 0;
unsigned int i;
stack_param_list_write(&list, &o_stack, NULL, iimemory);
for (i = 0; i < pset->long_count; i++) {
const char *pname = pset->long_defs[i].pname;
if (pname_matches(pname, psref)) {
long val = (*pset->long_defs[i].current)(i_ctx_p);
code = param_write_long(plist, pname, &val);
if (code < 0)
return code;
}
}
for (i = 0; i < pset->bool_count; i++) {
const char *pname = pset->bool_defs[i].pname;
if (pname_matches(pname, psref)) {
bool val = (*pset->bool_defs[i].current)(i_ctx_p);
code = param_write_bool(plist, pname, &val);
if (code < 0)
return code;
}
}
for (i = 0; i < pset->string_count; i++) {
const char *pname = pset->string_defs[i].pname;
if (pname_matches(pname, psref)) {
gs_param_string val;
(*pset->string_defs[i].current)(i_ctx_p, &val);
code = param_write_string(plist, pname, &val);
if (code < 0)
return code;
}
}
if (psref) {
/*
* Scanner options can be read, but only individually by .getuserparam.
* This avoids putting them into userparams, and being affected by save/restore.
*/
const char *pname;
bool val;
int code;
switch (ztoken_get_scanner_option(psref, i_ctx_p->scanner_options, &pname)) {
case 0:
code = param_write_null(plist, pname);
break;
case 1:
val = true;
code = param_write_bool(plist, pname, &val);
break;
default:
code = 0;
break;
}
if (code < 0)
return code;
}
return code;
}
/* Get standard parameters. */
int
gx_default_get_params(gx_device * dev, gs_param_list * plist)
{
int code;
/* Standard page device parameters: */
bool seprs = false;
gs_param_string dns, pcms;
gs_param_float_array msa, ibba, hwra, ma;
gs_param_string_array scna;
#define set_param_array(a, d, s)\
(a.data = d, a.size = s, a.persistent = false);
/* Non-standard parameters: */
int colors = dev->color_info.num_components;
int mns = colors;
int depth = dev->color_info.depth;
int GrayValues = dev->color_info.max_gray + 1;
int HWSize[2];
gs_param_int_array hwsa;
gs_param_float_array hwma, mhwra;
/* Fill in page device parameters. */
param_string_from_string(dns, dev->dname);
{
const char *cms = get_process_color_model_name(dev);
/* We might have an uninitialized device with */
/* color_info.num_components = 0.... */
if ((cms != NULL) && (*cms != '\0'))
param_string_from_string(pcms, cms);
else
pcms.data = 0;
}
set_param_array(hwra, dev->HWResolution, 2);
set_param_array(msa, dev->MediaSize, 2);
set_param_array(ibba, dev->ImagingBBox, 4);
set_param_array(ma, dev->Margins, 2);
set_param_array(scna, NULL, 0);
/* Fill in non-standard parameters. */
HWSize[0] = dev->width;
HWSize[1] = dev->height;
set_param_array(hwsa, HWSize, 2);
set_param_array(hwma, dev->HWMargins, 4);
set_param_array(mhwra, dev->MarginsHWResolution, 2);
/* Transmit the values. */
if (
/* Standard parameters */
(code = param_write_name(plist, "OutputDevice", &dns)) < 0 ||
#ifdef PAGESIZE_IS_MEDIASIZE
(code = param_write_float_array(plist, "PageSize", &msa)) < 0 ||
#endif
(code = (pcms.data == 0 ? 0 :
param_write_name(plist, "ProcessColorModel", &pcms))) < 0 ||
(code = param_write_float_array(plist, "HWResolution", &hwra)) < 0 ||
(code = (dev->ImagingBBox_set ?
param_write_float_array(plist, "ImagingBBox", &ibba) :
param_write_null(plist, "ImagingBBox"))) < 0 ||
(code = param_write_float_array(plist, "Margins", &ma)) < 0 ||
(code = param_write_int(plist, "MaxSeparations", &mns)) < 0 ||
(code = (dev->NumCopies_set < 0 ||
(*dev_proc(dev, get_page_device))(dev) == 0 ? 0:
dev->NumCopies_set ?
param_write_int(plist, "NumCopies", &dev->NumCopies) :
param_write_null(plist, "NumCopies"))) < 0 ||
(code = param_write_name_array(plist, "SeparationColorNames", &scna)) < 0 ||
(code = param_write_bool(plist, "Separations", &seprs)) < 0 ||
(code = param_write_bool(plist, "UseCIEColor", &dev->UseCIEColor)) < 0 ||
/* Non-standard parameters */
(code = param_write_int_array(plist, "HWSize", &hwsa)) < 0 ||
(code = param_write_float_array(plist, ".HWMargins", &hwma)) < 0 ||
(code = param_write_float_array(plist, ".MarginsHWResolution", &mhwra)) < 0 ||
(code = param_write_float_array(plist, ".MediaSize", &msa)) < 0 ||
(code = param_write_string(plist, "Name", &dns)) < 0 ||
(code = param_write_int(plist, "Colors", &colors)) < 0 ||
(code = param_write_int(plist, "BitsPerPixel", &depth)) < 0 ||
(code = param_write_int(plist, "GrayValues", &GrayValues)) < 0 ||
(code = param_write_long(plist, "PageCount", &dev->PageCount)) < 0 ||
(code = param_write_bool(plist, ".IgnoreNumCopies", &dev->IgnoreNumCopies)) < 0 ||
(code = param_write_int(plist, "TextAlphaBits",
&dev->color_info.anti_alias.text_bits)) < 0 ||
(code = param_write_int(plist, "GraphicsAlphaBits",
&dev->color_info.anti_alias.graphics_bits)) < 0 ||
(code = param_write_bool(plist, ".LockSafetyParams", &dev->LockSafetyParams)) < 0
)
return code;
/* If LeadingEdge was set explicitly, report it here. */
if (dev->LeadingEdge & LEADINGEDGE_SET_MASK) {
int leadingedge = dev->LeadingEdge & LEADINGEDGE_MASK;
code = param_write_int(plist, "LeadingEdge", &leadingedge);
}
if (code < 0)
return code;
/* Fill in color information. */
if (colors > 1) {
int RGBValues = dev->color_info.max_color + 1;
long ColorValues = (depth >= 32 ? -1 : 1L << depth); /* value can only be 32 bits */
if ((code = param_write_int(plist, "RedValues", &RGBValues)) < 0 ||
(code = param_write_int(plist, "GreenValues", &RGBValues)) < 0 ||
(code = param_write_int(plist, "BlueValues", &RGBValues)) < 0 ||
(code = param_write_long(plist, "ColorValues", &ColorValues)) < 0
)
return code;
}
if (param_requested(plist, "HWColorMap")) {
byte palette[3 << 8];
if (param_HWColorMap(dev, palette)) {
gs_param_string hwcms;
hwcms.data = palette, hwcms.size = colors << depth,
hwcms.persistent = false;
if ((code = param_write_string(plist, "HWColorMap", &hwcms)) < 0)
return code;
}
}
return 0;
}