[22739] trunk/dports/print/a2ps

[source_changes at macosforge.org]

Revision: 22739
          http://trac.macosforge.org/projects/macports/changeset/22739
Author:   markd at macports.org
Date:     2007-03-12 22:32:58 -0700 (Mon, 12 Mar 2007)

Log Message:
-----------
Closes 11455.  Add patchfile and change maintainer.

Modified Paths:
--------------
    trunk/dports/print/a2ps/Portfile

Added Paths:
-----------
    trunk/dports/print/a2ps/files/
    trunk/dports/print/a2ps/files/patch-ps-base.ps

Modified: trunk/dports/print/a2ps/Portfile
===================================================================
--- trunk/dports/print/a2ps/Portfile	2007-03-13 04:46:24 UTC (rev 22738)
+++ trunk/dports/print/a2ps/Portfile	2007-03-13 05:32:58 UTC (rev 22739)
@@ -3,17 +3,18 @@
 
 name			a2ps
 version			4.13b
-revision		2
+revision		3
 categories		print
-maintainers		nomaintainer at macports.org
+maintainers		mike at pentangle.net
 description		an Any to PostScript filter.
 long_description	a2ps is a utilty that allows the user to do \
 					PostScript manipulations. It is able to pass on \
 					processing to other filters, such as gzip and dvips.
 homepage		http://www.gnu.org/software/a2ps/
 platforms		darwin
-master_sites	gnu
+master_sites		gnu
 checksums		md5 0c8e0c31b08c14f7a7198ce967eb3281
+patchfiles		patch-ps-base.ps
 worksrcdir		${name}-4.13
 
 depends_build	bin:psnup:psutils

Added: trunk/dports/print/a2ps/files/patch-ps-base.ps
===================================================================
--- trunk/dports/print/a2ps/files/patch-ps-base.ps	                        (rev 0)
+++ trunk/dports/print/a2ps/files/patch-ps-base.ps	2007-03-13 05:32:58 UTC (rev 22739)
@@ -0,0 +1,91 @@
+--- ps/base.ps.org	2007-02-28 11:43:50.000000000 +0000
++++ ps/base.ps	2007-02-28 11:44:05.000000000 +0000
+@@ -158,48 +158,46 @@
+ 
+ % reencode the font
+ % <encoding-vector> <fontdict> -> <newfontdict>
+-/reencode { %def
+-  dup length 5 add dict begin
+-    { %forall
+-      1 index /FID ne 
+-      { def }{ pop pop } ifelse
+-    } forall
+-    /Encoding exch def
+-
+-    % Use the font's bounding box to determine the ascent, descent,
+-    % and overall height; don't forget that these values have to be
+-    % transformed using the font's matrix.
+-    % We use `load' because sometimes BBox is executable, sometimes not.
+-    % Since we need 4 numbers an not an array avoid BBox from being executed
+-    /FontBBox load aload pop
+-    FontMatrix transform /Ascent exch def pop
+-    FontMatrix transform /Descent exch def pop
+-    /FontHeight Ascent Descent sub def
+-
+-    % Define these in case they're not in the FontInfo (also, here
+-    % they're easier to get to.
+-    /UnderlinePosition 1 def
+-    /UnderlineThickness 1 def
+-    
+-    % Get the underline position and thickness if they're defined.
+-    currentdict /FontInfo known {
+-      FontInfo
+-      
+-      dup /UnderlinePosition known {
+-	dup /UnderlinePosition get
+-	0 exch FontMatrix transform exch pop
+-	/UnderlinePosition exch def
+-      } if
+-      
+-      dup /UnderlineThickness known {
+-	/UnderlineThickness get
+-	0 exch FontMatrix transform exch pop
+-	/UnderlineThickness exch def
+-      } if
+-      
+-    } if
+-    currentdict 
+-  end 
++/reencode
++{
++   dup length 5 add dict begin
++     { % <vector> <key> <val>
++       1 index /FID ne
++       { def }{ pop pop } ifelse
++     } forall
++     /Encoding exch def % -
++
++     % Use the font's bounding box to determine the ascent, descent,
++     % and overall height; don't forget that these values have to be
++     % transformed using the font's matrix. We use `load' because sometimes
++     % BBox is executable, sometimes not. Since we need 4 numbers an not 
++     % an array avoid BBox from being executed
++     /FontBBox load aload pop
++     FontMatrix transform /Ascent exch def pop
++     FontMatrix transform /Descent exch def pop
++     /FontHeight Ascent Descent sub def
++
++     % Get the underline position and thickness if they're defined.
++     % Use 1 if they are not defined.
++     currentdict /FontInfo 2 copy known
++     { get
++       /UnderlinePosition 2 copy  % <FontInfo> /UP <FontInfo> /UP
++       2 copy known
++       { get }{ pop pop 1} ifelse
++       0 exch FontMatrix transform exch pop
++       def           % <FontInfo>
++
++       /UnderlineThickness 2 copy  % <FontInfo> /UT <FontInfo> /UT
++       2 copy known
++       { get }{ pop pop 1} ifelse
++       0 exch FontMatrix transform exch pop
++       def           % <FontInfo>
++       pop           % -
++     }{ pop pop
++     } ifelse
++
++     currentdict
++     end
+ } bind def
+ 
+ % Function print line number (<string> # -)

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070312/32700cce/attachment.html