gen-hp

#!/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', 'HP4350.PPD');

set('Manufacturer', 'HP');
set('Product', 'LaserJet 4350');
set('PSVersion', '(3010.107) 0');

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

set('cupsProtocol', 'None');

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

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

PPD::PJL::add_jcl();

PPD::Paper::add_papers({
	MinW => 216, MaxW => 612,
	MinH => 360, MaxH => 1008,
	MarginH => 16, MarginV => 16,
	PSPageSize => sub { my ($m) = @_; return sprintf("<< /PageSize [%d %d] >> setpagedevice", $m->{W}, $m->{H}); },
});
switch_group('Media');

# Initialize media selection mechanism
# FIXME: Convert to JobPatch
option({
	Key => 'HPInit',
	Priority => 0,
	Section => 'DocumentSetup',
	Values => [
		{ Key => 'Init', PS => '<< /DeferredMediaSelection true /ImagingBbox null /MediaClass null >>' },
	]
});

option({
	Key => 'MediaType',
	Name => 'Media Type',
	Choice => 'PickOne',
	Priority => 25,
	Values => gen_values("<< /MediaType (%s) >> setpagedevice",
			{ Key => 'None', PS => '<< /MediaType null >> setpagedevice', Default => 1 },
			"Plain",
			"Preprinted",
			"Letterhead",
			"Transparency",
			"Prepunched",
			"Labels",
			"Bond",
			"Recycled",
			"Color",
			"Rough",
			"Card Stock",
			"Envelope"