[31265] trunk/dports/tex/disvf

[takanori at macports.org]

Revision: 31265
          http://trac.macosforge.org/projects/macports/changeset/31265
Author:   takanori at macports.org
Date:     2007-11-18 21:26:56 -0800 (Sun, 18 Nov 2007)

Log Message:
-----------
disvf: Linted.

Modified Paths:
--------------
    trunk/dports/tex/disvf/Portfile

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

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

Modified: trunk/dports/tex/disvf/Portfile
===================================================================
--- trunk/dports/tex/disvf/Portfile	2007-11-19 05:26:32 UTC (rev 31264)
+++ trunk/dports/tex/disvf/Portfile	2007-11-19 05:26:56 UTC (rev 31265)
@@ -1,29 +1,36 @@
 # $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
+PortSystem      1.0
 
-extract		{
-	file mkdir ${worksrcpath}
-	file copy ${distpath}/disvf.pl ${worksrcpath}/disvf.pl
+name            disvf
+version         0
+categories      tex print japanese
+maintainers     takanori
+description     A perl script to convert Japanese Virtual Font files to Virtual Property Lists.
+long_description \
+		${description}
+platforms       darwin
+homepage        http://itohws03.ee.noda.sut.ac.jp/~matsuda/ttf2pk/
+master_sites    http://itohws03.ee.noda.sut.ac.jp/~matsuda/ttf2pk/
+distfiles       disvf.pl
+patchfiles      patch-disvf.pl.diff
+checksums       md5 0f0dcf00e79977962fc3e618e7bcdae4 \
+                sha1 a19234f53224b77212a9fa2f8d2b93e7d2540a99 \
+                rmd160 8d935e1d90c2df4fd58d6a97df362120718e6da9
+
+depends_run     bin:perl:perl5.8
+
+extract {
+    file mkdir ${worksrcpath}
+    copy ${distpath}/disvf.pl ${worksrcpath}/disvf.pl
 }
-configure	{}
-build		{}
 
-destroot	{
-	xinstall -m 755 ${worksrcpath}/disvf.pl ${destroot}${prefix}/bin/disvf.pl
+configure {}
+
+build {}
+
+destroot {
+    xinstall -m 755 ${worksrcpath}/disvf.pl ${destroot}${prefix}/bin/disvf.pl
 }
+
+livecheck.check none

Deleted: trunk/dports/tex/disvf/files/patch-disvf.pl
===================================================================
--- trunk/dports/tex/disvf/files/patch-disvf.pl	2007-11-19 05:26:32 UTC (rev 31264)
+++ trunk/dports/tex/disvf/files/patch-disvf.pl	2007-11-19 05:26:56 UTC (rev 31265)
@@ -1,33 +0,0 @@
---- 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
-+}

Copied: trunk/dports/tex/disvf/files/patch-disvf.pl.diff (from rev 30574, trunk/dports/tex/disvf/files/patch-disvf.pl)
===================================================================
--- trunk/dports/tex/disvf/files/patch-disvf.pl.diff	                        (rev 0)
+++ trunk/dports/tex/disvf/files/patch-disvf.pl.diff	2007-11-19 05:26:56 UTC (rev 31265)
@@ -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/20071118/5dc5ca15/attachment.html