gen-phaser

#!/usr/bin/perl

use strict;
use warnings;

use lib ".";
use PPD;
use PPD::PJL;
use PPD::Paper;
use PPD::Common;

set('FileVersion', '1.0');
set('PCFileName', 'XR7400.PPD');

set('Manufacturer', 'Xerox');
set('Product', 'Phaser 7400');
set('PSVersion', '(3016.101) 3');

# *DefaultOutputOrder: Normal
# *DefaultGuaranteedMaxSeparations: 4

set('Throughput', 35);
set('TTRasterizer', 'Type42');
set('Protocols', 'PJL BCP TBCP');
set('FileSystem', 1);

set('ColorDevice', 1);
set('DefaultColorSpace', 'CMYK');
set('AccurateScreensSupport', 1);

set('cupsProtocol', 'None');

# FIXME: JobPatchFile and magic there...

define_ui_group({ Key => 'Basic', Name => 'Basic options' });

option(&PPD::Common::Duplex);
option(&PPD::Common::Collate);

# FIXME: Jog

PPD::PJL::add_jcl();

PPD::Paper::add_papers({
	MinW => 254.6, MaxW => 930.3,
	MinH => 254.6, MaxH => 3456.5,
	MarginH => 14.456, MarginV => 14.456,
	PSPageSize => sub { my ($m) = @_; return sprintf("<< /PageSize [%d %d] >> setpagedevice", $m->{W}, $m->{H}); },
	# FIXME: LeadingEdge
});
switch_group('Media');

option({
	Key => 'MediaType',
	Name => 'Media Type',
	Choice => 'PickOne',
	Priority => 20,
	Values => gen_values("<< /MediaType (%s) >> setpagedevice",
			{ Key => 'None', PS => '<< /MediaType null >> setpagedevice', Default => 1 },
			"Paper",
			"HeavyPaper",
			"Transparency",
			"ThinCardStock",
			"ThickCardStock",
			"ThickCardStock",
			"ExtraThickCardStock",
			"Envelope",
			"Label",
			"Letterhead",
			"CoatedPaper",