[21017] trunk/dports/tex

[source_changes at macosforge.org]

Revision: 21017
          http://trac.macosforge.org/projects/macports/changeset/21017
Author:   takanori at macports.org
Date:     2006-12-22 07:21:18 -0800 (Fri, 22 Dec 2006)

Log Message:
-----------
New port: disvf

Added Paths:
-----------
    trunk/dports/tex/disvf/
    trunk/dports/tex/disvf/Portfile
    trunk/dports/tex/disvf/files/
    trunk/dports/tex/disvf/files/patch-disvf.pl

Added: trunk/dports/tex/disvf/Portfile
===================================================================
--- trunk/dports/tex/disvf/Portfile	                        (rev 0)
+++ trunk/dports/tex/disvf/Portfile	2006-12-22 15:21:18 UTC (rev 21017)
@@ -0,0 +1,29 @@
+# $Id$
+
+PortSystem	1.0
+name		disvf
+version		0
+description	A perl script to convert Japanese Virtual Font files to Virtual Property Lists.
+long_description ${description}
+platforms	darwin
+categories	tex print japanese
+maintainers	takanori at macports.org
+homepage	http://itohws03.ee.noda.sut.ac.jp/~matsuda/ttf2pk/
+master_sites	http://itohws03.ee.noda.sut.ac.jp/~matsuda/ttf2pk/
+distfiles	disvf.pl
+checksums	md5 0f0dcf00e79977962fc3e618e7bcdae4 \
+		sha1 a19234f53224b77212a9fa2f8d2b93e7d2540a99 \
+		rmd160 8d935e1d90c2df4fd58d6a97df362120718e6da9
+patchfiles	patch-disvf.pl
+depends_run	bin:perl:perl5.8
+
+extract		{
+	file mkdir ${worksrcpath}
+	file copy ${distpath}/disvf.pl ${worksrcpath}/disvf.pl
+}
+configure	{}
+build		{}
+
+destroot	{
+	xinstall -m 755 ${worksrcpath}/disvf.pl ${destroot}${prefix}/bin/disvf.pl
+}


Property changes on: trunk/dports/tex/disvf/Portfile
___________________________________________________________________
Name: svn:keywords
   + Id

Added: trunk/dports/tex/disvf/files/patch-disvf.pl
===================================================================
--- trunk/dports/tex/disvf/files/patch-disvf.pl	                        (rev 0)
+++ trunk/dports/tex/disvf/files/patch-disvf.pl	2006-12-22 15:21:18 UTC (rev 21017)
@@ -0,0 +1,33 @@
+--- disvf.pl.orig	2006-12-08 02:25:18.000000000 +0900
++++ disvf.pl	2006-12-08 02:25:31.000000000 +0900
+@@ -1,4 +1,4 @@
+-#! /usr/local/bin/perl
++#! /usr/bin/env perl
+ 
+ if ($#ARGV != 0) {
+ 	print "usage: perl disvf.pl virtualfont\n";
+@@ -48,7 +48,7 @@
+ 		($cc, $_) = unpack('Ca*', $_);
+ 		$tfm = &get_num($_, 0);
+ 	}
+-	print  "(CHARACTER D $cc\n";
++	printf "(CHARACTER H %X\n", $cc;
+ 	printf "   (CHARWD R %f)\n", $tfm/(1<<20);
+ 	print  "   (MAP\n";
+ 	read(FILE, $dvi, $pl);
+@@ -87,7 +87,7 @@
+ 				($_, $dvi) = unpack("a$cmd a*", $dvi);
+ 				$k = &get_num($_, 0);
+ 			}
+-			print  "      (SETCHAR D $k)\n";
++			printf "      (SETCHAR H %X)\n",$k;
+ 		} elsif ($cmd == 132) {			# set_rule
+ 			($a, $b, $dvi) = unpack('a4a4a*', $dvi);
+ 			$a = &get_num($a, 1);
+@@ -155,4 +155,4 @@
+ 			print  "      (SPECIAL $_)\n";
+ 		}
+ 	}
+-}
+\ No newline at end of file
++}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20061222/38dc827a/attachment.html