--- libpostscript-file-perl-1.01.orig/debian/control +++ libpostscript-file-perl-1.01/debian/control @@ -0,0 +1,16 @@ +Source: libpostscript-file-perl +Section: perl +Priority: optional +Build-Depends-Indep: perl (>= 5.8.0-7), debhelper (>= 4.1.0), quilt, cdbs +Maintainer: Vincent Danjean +Standards-Version: 3.6.2 + +Package: libpostscript-file-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends} +Description: Base class for creating Adobe PostScript files + This module produces the outline for an Adobe PostScript file. It provides + convenient routines for writing postscript directly, including reporting + postscript errors and debugging support. Although it may be used + independently, the functions provided are also suitable for use in other + modules. --- libpostscript-file-perl-1.01.orig/debian/changelog +++ libpostscript-file-perl-1.01/debian/changelog @@ -0,0 +1,7 @@ +libpostscript-file-perl (1.01-1) unstable; urgency=low + + * Initial release. (Closes: #361158: ITP: libpostscript-file-perl -- + Base class for creating Adobe PostScript files) + + -- Vincent Danjean Fri, 7 Apr 2006 01:18:06 +0200 + --- libpostscript-file-perl-1.01.orig/debian/rules +++ libpostscript-file-perl-1.01/debian/rules @@ -0,0 +1,7 @@ +#!/usr/bin/make -f +# -*- mode: makefile; coding: utf-8 -*- + +include /usr/share/cdbs/1/rules/debhelper.mk +include /usr/share/cdbs/1/rules/patchsys-quilt.mk +include /usr/share/cdbs/1/class/perlmodule.mk + --- libpostscript-file-perl-1.01.orig/debian/compat +++ libpostscript-file-perl-1.01/debian/compat @@ -0,0 +1 @@ +4 --- libpostscript-file-perl-1.01.orig/debian/copyright +++ libpostscript-file-perl-1.01/debian/copyright @@ -0,0 +1,28 @@ +This is the debian package for the PostScript::File module. +It was created by Vincent Danjean . + +It was downloaded from http://www.cpan.org/authors/id/C/CP/CPWILLMOT/ + +Upstream Authors: Christopher P Willmot + +Copyright 2002, 2003 Christopher P Willmot + +May be redistributed under the same terms as Perl itself. + +That copyright is: + + Copyright 1989-2001, Larry Wall All rights reserved. + + This program is free software; you can redistribute it and/or modify + it under the terms of either: + + a) the GNU General Public License as published by the Free Software + Foundation; either version 1, or (at your option) any later + version, or + + b) the "Artistic License" which comes with Perl. + + On Debian GNU/Linux systems, the complete text of the GNU General + Public License can be found in /usr/share/common-licenses/GPL' and + the Artistic Licence in /usr/share/common-licenses/Artistic'. + --- libpostscript-file-perl-1.01.orig/debian/watch +++ libpostscript-file-perl-1.01/debian/watch @@ -0,0 +1,23 @@ +# Example watch control file for uscan +# Rename this file to "watch" and then you can run the "uscan" command +# to check for upstream updates and more. +# See uscan(1) for format + +# Compulsory line, this is a version 3 file +version=3 + +# Uncomment to examine a Webpage +# +#http://www.example.com/downloads.php pdf-create-(.*)\.tar\.gz +http://www.cpan.org/authors/id/C/CP/CPWILLMOT/PostScript-File-(.*)\.tar\.gz + +# Uncomment to examine a Webserver directory +#http://www.example.com/pub/pdf-create-(.*)\.tar\.gz + +# Uncommment to examine a FTP server +#ftp://ftp.example.com/pub/pdf-create-(.*)\.tar\.gz debian uupdate + +# Uncomment to find new files on sourceforge, for debscripts >= 2.9 +# http://sf.net/pdf-create/pdf-create-(.*)\.tar\.gz + + --- libpostscript-file-perl-1.01.orig/test-results/fi01simple.ps +++ libpostscript-file-perl-1.01/test-results/fi01simple.ps @@ -0,0 +1,48 @@ +%!PS-Adobe-3.0 +%%Orientation: Portrait +%%Title: (/home/vdanjean/debian/mainteneur/libpostscript-file-perl/libpostscript-file-perl-1.01/test-results/fi01simple.ps) +%%EndComments +%%BeginProlog +%%BeginProcSet: PostScript_File +/errx 72 def +/erry 72 def +/errmsg (ERROR:) def +/errfont /Courier-Bold def +/errsize 12 def +% Report fatal error on page +% _ str => _ +/report_error { +0 setgray +errfont findfont errsize scalefont setfont +errmsg errx erry moveto show +80 string cvs errx erry errsize sub moveto show +stop +} bind def +% postscript errors printed on page +% not called directly +errordict begin +/handleerror { +$error begin +false binary +0 setgray +errfont findfont errsize scalefont setfont +errx erry moveto +errmsg show +errx erry errsize sub moveto +errorname 80 string cvs show +stop +} def +end +%%EndProcSet +%%EndProlog +%%Page: 1 1 +%%PageBoundingBox: 28 28 567.27559 813.88976 +%%BeginPageSetup +/pagelevel save def +userdict begin +%%EndPageSetup +%%PageTrailer +end +pagelevel restore +showpage +%%EOF --- libpostscript-file-perl-1.01.orig/test-results/fi02eps.epsf +++ libpostscript-file-perl-1.01/test-results/fi02eps.epsf @@ -0,0 +1,49 @@ +%!PS-Adobe-3.0 EPSF-3.0 +%%BoundingBox: 28 28 132 84 +%%For: vdanjean@cayuga +%%Creator: Perl module PostScript::File v1.01 +%%CreationDate: Thu Apr 6 21:22:38 2006 +%%Orientation: Portrait +%%Title: (/home/vdanjean/debian/mainteneur/libpostscript-file-perl/libpostscript-file-perl-1.01/test-results/fi02eps.epsf) +%%EndComments +%%BeginProlog +%%BeginProcSet: PostScript_File +/errx 72 def +/erry 72 def +/errmsg (ERROR:) def +/errfont /Courier-Bold def +/errsize 12 def +% Report fatal error on page +% _ str => _ +/report_error { +0 setgray +errfont findfont errsize scalefont setfont +errmsg errx erry moveto show +80 string cvs errx erry errsize sub moveto show +stop +} bind def +% postscript errors printed on page +% not called directly +errordict begin +/handleerror { +$error begin +false binary +0 setgray +errfont findfont errsize scalefont setfont +errx erry moveto +errmsg show +errx erry errsize sub moveto +errorname 80 string cvs show +stop +} def +end +%%EndProcSet +%%EndProlog +userdict begin +/Helvetica findfont +12 scalefont +setfont +50 50 moveto +(hello world) show +end +%%EOF --- libpostscript-file-perl-1.01.orig/test-results/fi03debug.ps +++ libpostscript-file-perl-1.01/test-results/fi03debug.ps @@ -0,0 +1,236 @@ +%!PS-Adobe-3.0 +%%For: vdanjean@cayuga +%%Creator: Perl module PostScript::File v1.01 +%%CreationDate: Thu Apr 6 21:22:38 2006 +%%DocumentMedia: A5 420.94488 595.27559 80 ( ) ( ) +%%Orientation: Landscape +%%Title: (/home/vdanjean/debian/mainteneur/libpostscript-file-perl/libpostscript-file-perl-1.01/test-results/fi03debug.ps) +%%EndComments +%%BeginProlog +%%BeginProcSet: PostScript_File +% Rotate page 90 degrees +% _ => _ +/landscape { +420.94488 0 translate +90 rotate +} bind def +% Draw box as clipping path +% x0 y0 x1 y1 => _ +/cliptobox { +4 dict begin +gsave +0 setgray +0.5 setlinewidth +/y1 exch def /x1 exch def /y0 exch def /x0 exch def +newpath +x0 y0 moveto x0 y1 lineto x1 y1 lineto x1 y0 lineto +closepath clip +grestore +end +} bind def +/errx 72 def +/erry 72 def +/errmsg (ERROR:) def +/errfont /Courier-Bold def +/errsize 12 def +% Report fatal error on page +% _ str => _ +/report_error { +0 setgray +errfont findfont errsize scalefont setfont +errmsg errx erry moveto show +80 string cvs errx erry errsize sub moveto show +stop +} bind def +% postscript errors printed on page +% not called directly +errordict begin +/handleerror { +$error begin +false binary +0 setgray +errfont findfont errsize scalefont setfont +errx erry moveto +errmsg show +errx erry errsize sub moveto +errorname 80 string cvs show +stop +} def +end +/debugdict 25 dict def +debugdict begin +/db_newcol { +debugdict begin +/db_ypos db_ytop def +/db_xpos db_xpos db_xgap add def +end +} bind def +% _ db_newcol => _ +/db_down { +debugdict begin +db_ypos db_ybase gt { +/db_ypos db_ypos db_ygap sub def +}{ +db_newcol +} ifelse +end +} bind def +% _ db_down => _ +/db_indent { +debug_dict begin +/db_xpos db_xpos db_xtab add def +end +} bind def +% _ db_indent => _ +/db_unindent { +debugdict begin +/db_xpos db_xpos db_xtab sub def +end +} bind def +% _ db_unindent => _ +/db_show { +debugdict begin +db_active 0 ne { +gsave +newpath +0 setgray +/Courier findfont 10 scalefont setfont +db_xpos db_ypos moveto +dup type +dup (arraytype) eq { +pop db_array +}{ +dup (marktype) eq { +pop pop (--mark--) 256 string cvs show +}{ +pop 256 string cvs show +} ifelse +db_down +} ifelse +stroke +grestore +}{ pop } ifelse +end +} bind def +% _ (msg) db_show => _ +/db_nshow { +debugdict begin +db_show +/db_num exch def +db_num count gt { +(Not enough on stack) db_show +}{ +db_num { +dup db_show +db_num 1 roll +} repeat +(----------) db_show +} ifelse +end +} bind def +% _ n (str) db_nshow => _ +/db_stack { +count 0 gt { +count +2 2 ge { +1 sub +} if +(The stack holds...) db_nshow +} { +(Empty stack) db_show +} ifelse +} bind def +% _ db_stack => _ +/db_one { +debugdict begin +db_temp cvs +dup length exch +db_buf exch db_bpos exch putinterval +/db_bpos exch db_bpos add def +end +} bind def +% _ any db_one => _ +/db_print { +debugdict begin +/db_temp 256 string def +/db_buf 256 string def +0 1 256 sub 1 { db_buf exch 32 put } for +/db_bpos 0 def +{ +db_one +( ) db_one +} forall +db_buf db_show +end +} bind def +% _ [array] db_print => _ +/db_array { +mark ([) 2 index aload pop (]) ] db_print pop +} bind def +% _ [array] db_array => _ +/db_point { +[ 1 index (\() 5 index (,) 6 index (\)) ] db_print +pop +} bind def +% _ x y (str) db_point => _ x y +/db_where { +where { +pop (found) db_show +}{ +(not found) db_show +} ifelse +} bind def +% _ var db_where => _ +/db_on { +debugdict begin +/db_active 1 def +end +} bind def +% _ db_on => _ +/db_off { +debugdict begin +/db_active 0 def +end +} bind def +% _ db_on => _ +/db_active 1 def +/db_ytop 404.94488 def +/db_ybase 6 def +/db_xpos 6 def +/db_xtab 10 def +/db_xgap 147.3188975 def +/db_ygap 10 def +/db_ypos 404.94488 def +end +%%EndProcSet +%%EndProlog +%%Page: 1 1 +%%PageBoundingBox: 72 36 348.94488 559.27559 +%%BeginPageSetup +/pagelevel save def +landscape +36 72 559.27559 348.94488 cliptobox +debugdict begin +userdict begin +mark +(Start of page) db_show +%%EndPageSetup +/Helvetica findfont +12 scalefont +setfont +100 150 moveto +(hello world) show +111 +222 +(some text) +[ 33 (in an array) 55 ] +666 +%%PageTrailer +(End of page) db_show +db_stack +cleartomark +end +end +pagelevel restore +showpage +%%EOF --- libpostscript-file-perl-1.01.orig/test-results/fi04pages.ps +++ libpostscript-file-perl-1.01/test-results/fi04pages.ps @@ -0,0 +1,332 @@ +%!PS-Adobe-3.0 +%%For: vdanjean@cayuga +%%Creator: Perl module PostScript::File v1.01 +%%CreationDate: Thu Apr 6 21:22:38 2006 +%%DocumentMedia: US-Letter 612 792 80 ( ) ( ) +%%Orientation: Portrait +%%DocumentSuppliedResources: +%%+ Encoded_Fonts +%%Title: (/home/vdanjean/debian/mainteneur/libpostscript-file-perl/libpostscript-file-perl-1.01/test-results/fi04pages.ps) +%%Pages: 2 +%%EndComments +%%BeginProlog +%%BeginProcSet: PostScript_File +/errx 72 def +/erry 72 def +/errmsg (ERROR:) def +/errfont /Courier-Bold def +/errsize 12 def +% Report fatal error on page +% _ str => _ +/report_error { +0 setgray +errfont findfont errsize scalefont setfont +errmsg errx erry moveto show +80 string cvs errx erry errsize sub moveto show +stop +} bind def +% postscript errors printed on page +% not called directly +errordict begin +/handleerror { +$error begin +false binary +0 setgray +errfont findfont errsize scalefont setfont +errx erry moveto +errmsg show +errx erry errsize sub moveto +errorname 80 string cvs show +stop +} def +end +/debugdict 25 dict def +debugdict begin +/db_newcol { +debugdict begin +/db_ypos db_ytop def +/db_xpos db_xpos db_xgap add def +end +} bind def +% _ db_newcol => _ +/db_down { +debugdict begin +db_ypos db_ybase gt { +/db_ypos db_ypos db_ygap sub def +}{ +db_newcol +} ifelse +end +} bind def +% _ db_down => _ +/db_indent { +debug_dict begin +/db_xpos db_xpos db_xtab add def +end +} bind def +% _ db_indent => _ +/db_unindent { +debugdict begin +/db_xpos db_xpos db_xtab sub def +end +} bind def +% _ db_unindent => _ +/db_show { +debugdict begin +db_active 0 ne { +gsave +newpath +0 setgray +/Courier findfont 10 scalefont setfont +db_xpos db_ypos moveto +dup type +dup (arraytype) eq { +pop db_array +}{ +dup (marktype) eq { +pop pop (--mark--) 256 string cvs show +}{ +pop 256 string cvs show +} ifelse +db_down +} ifelse +stroke +grestore +}{ pop } ifelse +end +} bind def +% _ (msg) db_show => _ +/db_nshow { +debugdict begin +db_show +/db_num exch def +db_num count gt { +(Not enough on stack) db_show +}{ +db_num { +dup db_show +db_num 1 roll +} repeat +(----------) db_show +} ifelse +end +} bind def +% _ n (str) db_nshow => _ +/db_stack { +count 0 gt { +count +2 2 ge { +1 sub +} if +(The stack holds...) db_nshow +} { +(Empty stack) db_show +} ifelse +} bind def +% _ db_stack => _ +/db_one { +debugdict begin +db_temp cvs +dup length exch +db_buf exch db_bpos exch putinterval +/db_bpos exch db_bpos add def +end +} bind def +% _ any db_one => _ +/db_print { +debugdict begin +/db_temp 256 string def +/db_buf 256 string def +0 1 256 sub 1 { db_buf exch 32 put } for +/db_bpos 0 def +{ +db_one +( ) db_one +} forall +db_buf db_show +end +} bind def +% _ [array] db_print => _ +/db_array { +mark ([) 2 index aload pop (]) ] db_print pop +} bind def +% _ [array] db_array => _ +/db_point { +[ 1 index (\() 5 index (,) 6 index (\)) ] db_print +pop +} bind def +% _ x y (str) db_point => _ x y +/db_where { +where { +pop (found) db_show +}{ +(not found) db_show +} ifelse +} bind def +% _ var db_where => _ +/db_on { +debugdict begin +/db_active 1 def +end +} bind def +% _ db_on => _ +/db_off { +debugdict begin +/db_active 0 def +end +} bind def +% _ db_on => _ +/db_active 1 def +/db_ytop 776 def +/db_ybase 6 def +/db_xpos 6 def +/db_xtab 10 def +/db_xgap 151.5 def +/db_ygap 10 def +/db_ypos 776 def +end +%%EndProcSet +%%BeginResource: Encoded_Fonts +/STARTDIFFENC { mark } bind def +/ENDDIFFENC { +% /NewEnc BaseEnc STARTDIFFENC number or glyphname ... ENDDIFFENC - +counttomark 2 add -1 roll 256 array copy +/TempEncode exch def +% pointer for sequential encodings +/EncodePointer 0 def +{ +% Get the bottom object +counttomark -1 roll +% Is it a mark? +dup type dup /marktype eq { +% End of encoding +pop pop exit +} { +/nametype eq { +% Insert the name at EncodePointer +% and increment the pointer. +TempEncode EncodePointer 3 -1 roll put +/EncodePointer EncodePointer 1 add def +} { +% Set the EncodePointer to the number +/EncodePointer exch def +} ifelse +} ifelse +} loop +TempEncode def +} bind def +% Define ISO Latin1 encoding if it doesnt exist +/ISOLatin1Encoding where { +% (ISOLatin1 exists!) = +pop +} { +(ISOLatin1 does not exist, creating...) = +/ISOLatin1Encoding StandardEncoding STARTDIFFENC +144 /dotlessi /grave /acute /circumflex /tilde +/macron /breve /dotaccent /dieresis /.notdef /ring +/cedilla /.notdef /hungarumlaut /ogonek /caron /space +/exclamdown /cent /sterling /currency /yen /brokenbar +/section /dieresis /copyright /ordfeminine +/guillemotleft /logicalnot /hyphen /registered +/macron /degree /plusminus /twosuperior +/threesuperior /acute /mu /paragraph /periodcentered +/cedilla /onesuperior /ordmasculine /guillemotright +/onequarter /onehalf /threequarters /questiondown +/Agrave /Aacute /Acircumflex /Atilde /Adieresis +/Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex +/Edieresis /Igrave /Iacute /Icircumflex /Idieresis +/Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde +/Odieresis /multiply /Oslash /Ugrave /Uacute +/Ucircumflex /Udieresis /Yacute /Thorn /germandbls +/agrave /aacute /acircumflex /atilde /adieresis +/aring /ae /ccedilla /egrave /eacute /ecircumflex +/edieresis /igrave /iacute /icircumflex /idieresis +/eth /ntilde /ograve /oacute /ocircumflex /otilde +/odieresis /divide /oslash /ugrave /uacute +/ucircumflex /udieresis /yacute /thorn /ydieresis +ENDDIFFENC +} ifelse +% Name: Re-encode Font +% Description: Creates a new font using the named encoding. +/REENCODEFONT { % /Newfont NewEncoding /Oldfont +findfont dup length 4 add dict +begin +{ % forall +1 index /FID ne +2 index /UniqueID ne and +2 index /XUID ne and +{ def } { pop pop } ifelse +} forall +/Encoding exch def +% defs for DPS +/BitmapWidths false def +/ExactSize 0 def +/InBetweenSize 0 def +/TransformedChar 0 def +currentdict +end +definefont pop +} bind def +% Reencode the std fonts: +/Courier-iso ISOLatin1Encoding /Courier REENCODEFONT +/Courier-Bold-iso ISOLatin1Encoding /Courier-Bold REENCODEFONT +/Courier-BoldOblique-iso ISOLatin1Encoding /Courier-BoldOblique REENCODEFONT +/Courier-Oblique-iso ISOLatin1Encoding /Courier-Oblique REENCODEFONT +/Helvetica-iso ISOLatin1Encoding /Helvetica REENCODEFONT +/Helvetica-Bold-iso ISOLatin1Encoding /Helvetica-Bold REENCODEFONT +/Helvetica-BoldOblique-iso ISOLatin1Encoding /Helvetica-BoldOblique REENCODEFONT +/Helvetica-Oblique-iso ISOLatin1Encoding /Helvetica-Oblique REENCODEFONT +/Times-Roman-iso ISOLatin1Encoding /Times-Roman REENCODEFONT +/Times-Bold-iso ISOLatin1Encoding /Times-Bold REENCODEFONT +/Times-BoldItalic-iso ISOLatin1Encoding /Times-BoldItalic REENCODEFONT +/Times-Italic-iso ISOLatin1Encoding /Times-Italic REENCODEFONT +/Symbol-iso ISOLatin1Encoding /Symbol REENCODEFONT +%%EndResource +%%EndProlog +%%Page: viii 1 +%%PageBoundingBox: 28 28 584 764 +%%BeginPageSetup +/pagelevel save def +debugdict begin +userdict begin +mark +(Start of page) db_show +%%EndPageSetup +[ (This is page viii) ] db_print +/Helvetica-latin1 findfont +12 scalefont +setfont +172 400 moveto +(First page) show +%%PageTrailer +(End of page) db_show +db_stack +cleartomark +end +end +pagelevel restore +showpage +%%Page: ix 2 +%%PageBoundingBox: 28 28 584 764 +%%BeginPageSetup +/pagelevel save def +debugdict begin +userdict begin +mark +(Start of page) db_show +%%EndPageSetup +[ (This is page ix) ] db_print +/Times-BoldItalic-latin1 findfont +12 scalefont +setfont +172 400 moveto +(Second Page: ê £) show +%%PageTrailer +(End of page) db_show +db_stack +cleartomark +end +end +pagelevel restore +showpage +%%EOF