static int
perm_get_params(gx_device *pdev, gs_param_list *plist)
{
gx_device_perm_t * const dev = (gx_device_perm_t *)pdev;
int code;
code = param_write_int(plist, "Permute", &dev->permute);
if (code >= 0)
code = param_write_int(plist, "Mode", &dev->mode);
/*
* We need to specify the SeparationColorNames if we are permuting the colors.
*/
if (code >= 0 && dev->permute == 1) {
int i;
/* Temp variables. The data is copied into the plist below. */
gs_param_string_array scna;
gs_param_string scn[6];
set_param_array(scna, scn, dev->num_std_colorant_names);
/* Place colorant names into string array elements */
for (i = 0; i < dev->num_std_colorant_names; i++)
param_string_from_string(scn[i], dev->std_colorant_names[i]);
/*
* Place the name array in the plist. This includes allocating
* memory for the name array element and the actual string array.
*/
code = param_write_name_array(plist, "SeparationColorNames", &scna);
}
if (code >= 0)
code = gdev_prn_get_params(pdev, plist);
return code;
}
int
tiff_compression_param_string(gs_param_string *param, uint16 id)
{
struct compression_string *c;
for (c = compression_strings; c->str; c++)
if (id == c->id) {
param_string_from_string(*param, c->str);
return 0;
}
return gs_error_undefined;
}
/*
* Look up a named object as for pdf_find_named. If the object does not
* exist, create it (as a dictionary if it is one of the predefined names
* {ThisPage}, {NextPage}, {PrevPage}, or {Page<#>}, otherwise as a
* generic object) and return 1.
*/
int
pdf_refer_named(gx_device_pdf * pdev, const gs_param_string * pname_orig,
cos_object_t **ppco)
{
const gs_param_string *pname = pname_orig;
int code = pdf_find_named(pdev, pname, ppco);
char page_name_chars[6 + 10 + 2]; /* {Page<n>}, enough for an int */
gs_param_string pnstr;
int page_number;
if (code != gs_error_undefined)
return code;
/*
* Check for a predefined name. Map ThisPage, PrevPage, and NextPage
* to the appropriate Page<#> name.
*/
if (pname->size >= 7 && pname->size < sizeof(page_name_chars)) {
memcpy(page_name_chars, pname->data, pname->size);
page_name_chars[pname->size] = 0;
if (sscanf(page_name_chars, "{Page%d}", &page_number) == 1)
goto cpage;
}
if (pdf_key_eq(pname, "{ThisPage}"))
page_number = pdev->next_page + 1;
else if (pdf_key_eq(pname, "{NextPage}"))
page_number = pdev->next_page + 2;
else if (pdf_key_eq(pname, "{PrevPage}"))
page_number = pdev->next_page;
else {
code = pdf_create_named(pdev, pname, cos_type_generic, ppco, 0L);
return (code < 0 ? code : 1);
}
if (page_number <= 0)
return code;
sprintf(page_name_chars, "{Page%d}", page_number);
param_string_from_string(pnstr, page_name_chars);
pname = &pnstr;
code = pdf_find_named(pdev, pname, ppco);
if (code != gs_error_undefined)
return code;
cpage:
if (pdf_page_id(pdev, page_number) <= 0)
return_error(gs_error_rangecheck);
*ppco = COS_OBJECT(pdev->pages[page_number - 1].Page);
return 0;
}
int
main(int argc, const char *argv[])
{
char achar = '0';
gs_memory_t *mem;
gs_state *pgs;
const gx_device *const *list;
gx_device *dev;
gx_device_bbox *bbdev;
int code;
gp_init();
mem = gs_malloc_init();
gs_lib_init1(mem);
if (argc < 2 || (achar = argv[1][0]) < '1' ||
achar > '0' + countof(tests) - 1
) {
lprintf1("Usage: gslib 1..%c\n", '0' + (char)countof(tests) - 1);
gs_abort(mem);
}
gs_debug['@'] = 1;
gs_debug['?'] = 1;
/*gs_debug['B'] = 1; *//****** PATCH ******/
/*gs_debug['L'] = 1; *//****** PATCH ******/
/*
* gs_iodev_init must be called after the rest of the inits, for
* obscure reasons that really should be documented!
*/
gs_iodev_init(mem);
/****** WRONG ******/
gs_lib_device_list(&list, NULL);
gs_copydevice(&dev, list[0], mem);
check_device_separable(dev);
gx_device_fill_in_procs(dev);
bbdev =
gs_alloc_struct_immovable(mem, gx_device_bbox, &st_device_bbox,
"bbox");
gx_device_bbox_init(bbdev, dev, mem);
code = dev_proc(dev, get_profile)(dev, &bbdev->icc_struct);
rc_increment(bbdev->icc_struct);
/* Print out the device name just to test the gsparam.c API. */
{
gs_c_param_list list;
gs_param_string nstr;
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);
}
dputs("Device name = ");
debug_print_string(nstr.data, nstr.size);
dputs("\n");
gs_c_param_list_release(&list);
}
/*
* If this is a device that takes an OutputFile, set the OutputFile
* to "-" in the copy.
*/
{
gs_c_param_list list;
gs_param_string nstr;
gs_c_param_list_write(&list, mem);
param_string_from_string(nstr, "-");
code = param_write_string((gs_param_list *)&list, "OutputFile", &nstr);
if (code < 0) {
lprintf1("writing OutputFile failed! code = %d\n", code);
gs_abort(mem);
}
gs_c_param_list_read(&list);
code = gs_putdeviceparams(dev, (gs_param_list *)&list);
gs_c_param_list_release(&list);
if (code < 0 && code != gs_error_undefined) {
lprintf1("putdeviceparams failed! code = %d\n", code);
gs_abort(mem);
}
}
dev = (gx_device *) bbdev;
pgs = gs_state_alloc(mem);
gs_setdevice_no_erase(pgs, dev); /* can't erase yet */
{
gs_point dpi;
gs_screen_halftone ht;
gs_dtransform(pgs, 72.0, 72.0, &dpi);
ht.frequency = min(fabs(dpi.x), fabs(dpi.y)) / 16.001;
ht.angle = 0;
ht.spot_function = odsf;
gs_setscreen(pgs, &ht);
}
/* gsave and grestore (among other places) assume that */
/* there are at least 2 gstates on the graphics stack. */
/* Ensure that now. */
gs_gsave(pgs);
gs_erasepage(pgs);
code = (*tests[achar - '1']) (pgs, mem);
gs_output_page(pgs, 1, 1);
{
gs_rect bbox;
gx_device_bbox_bbox(bbdev, &bbox);
dprintf4("Bounding box: [%g %g %g %g]\n",
bbox.p.x, bbox.p.y, bbox.q.x, bbox.q.y);
}
if (code)
dprintf1("**** Test returned code = %d.\n", code);
dputs("Done. Press <enter> to exit.");
fgetc(mem->gs_lib_ctx->fstdin);
gs_lib_finit(0, 0, mem);
return 0;
#undef mem
}
/* 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;
}
/* 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;
}
