From: Jean-François M. <jfm...@us...> - 2004-06-25 14:36:04
|
Update of /cvsroot/fink/experimental/jfmertens/main/finkinfo/libs/perlmods In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3904/main/finkinfo/libs/perlmods Added Files: ftlib-pm581.info ftlib-pm581.patch gimp-perl581.info gimp-perl581.patch Log Message: The 3 remaining pm's that force to keep perl580 --- NEW FILE: gimp-perl581.info --- Package: gimp-perl581 Version: 1.211 Revision: 6 GCC: 3.3 Source: mirror:cpan:modules/by-module/Gimp/Gimp-%v.tar.gz Source-MD5: e3bb65da0bc92a4e42b2257cf2adcaba Conflicts: gimp-perl (<= 1.211-4) Replaces: gimp-perl (<= 1.211-4), gimp-perl560, gimp-perl580 Depends: gimp (>= 1.2.3-10), gtk-pm581, rec-descent-pm, imagemagick (>= 5.4.5-2), pdl581 BuildDepends: fink (>= 0.13.0-1) Type: perl 5.8.1 PatchScript: sed -e 's:@INSTPREFIX@:%i:g' -e 's:@PREFIX@:%p:g' < %a/%n.patch | patch -p1 SetCFLAGS: -no-cpp-precomp -L%p/lib -lintl SetLIBS: -L%p/lib -lintl UpdatePOD: TRUE Description: Perl support for the Gimp License: Artistic Homepage: http://search.cpan.org/search?dist=Gimp Maintainer: Alexander Strange <ast...@it...> --- NEW FILE: ftlib-pm581.info --- Package: ftlib-pm581 Version: 1.2 Revision: 4 Replaces: ftlib-pm (<= 1.2-1), ftlib-pm560, ftlib-pm580 Conflicts: ftlib-pm (<= 1.2-1) Type: perl 5.8.1 UpdatePod: true Source: http://www.io.com/~kazushi/xtt/perlftlib-%v.tar.gz Source-MD5: b8b520dd355181b572a465bebf822d02 Depends: freetype-shlibs | freetype-hinting-shlibs, perl581-core BuildDepends: freetype, fink (>= 0.13.0-1) PatchScript: sed 's|@PREFIX@|%p|g ' <%a/%n.patch | patch -p1 CompileScript: << /usr/bin/perl5.8.1 Makefile.PL PERL=/usr/bin/perl5.8.1 PREFIX=%p INSTALLPRIVLIB=%p/lib/perl5/5.8.1 INSTALLARCHLIB=%p/lib/perl5/5.8.1/darwin-thread-multi-2level INSTALLSITELIB=%p/lib/perl5/5.8.1 INSTALLSITEARCH=%p/lib/perl5/5.8.1/darwin-thread-multi-2level INSTALLMAN1DIR=%p/share/man/man1 INSTALLMAN3DIR=%p/share/man/man3 INSTALLSITEMAN1DIR=%p/share/man/man1 INSTALLSITEMAN3DIR=%p/share/man/man3 INSTALLBIN=%p/bin INSTALLSITEBIN=%p/bin INSTALLSCRIPT=%p/bin make make test perl -ne 'print if /\.TH/ .. 1;' mkttfdir.pl > mkttfdir.1 perl -ne 'print if /\.TH/ .. 1;' ftinfo.pl >ftinfo.1 << InstallScript: << make install PREFIX=%i INSTALLPRIVLIB=%i/lib/perl5/5.8.1 INSTALLARCHLIB=%i/lib/perl5/5.8.1/darwin-thread-multi-2level INSTALLSITELIB=%i/lib/perl5/5.8.1 INSTALLSITEARCH=%i/lib/perl5/5.8.1/darwin-thread-multi-2level INSTALLMAN1DIR=%i/share/man/man1 INSTALLMAN3DIR=%i/share/man/man3 INSTALLSITEMAN1DIR=%i/share/man/man1 INSTALLSITEMAN3DIR=%i/share/man/man3 INSTALLBIN=%i/bin INSTALLSITEBIN=%i/bin INSTALLSCRIPT=%i/bin install -d -m 755 %i/bin %i/share/man/man1 install -c -m 644 mkttfdir.1 ftinfo.1 %i/share/man/man1/ << SplitOff: << Package: ftlib-bin Depends: ftlib-pm581, jcode-pm581, perl581-core Files: bin share/man/man1 DocFiles: COPYING Description: FreeType font utilities DescDetail: << mkttfdir utility generates font.dir file for TrueType font. ftinfo utility reports TrueType font information. mkttfdir only supports iso8859-1 and JIS encodings. For other font encoding, try ttmkfdir package. << << Description: Perl module for the freetype library DescDetail: << This module lets you use the FreeType library from perl. << DescPort: << Uses Jcode, enhancement of jcode.pl, instead of jcode.pl. Uses Getopt::Std instead of getopts.pl. << DocFiles: FreeType/COPYING FreeType/Changes License: BSD Maintainer: Masanori Sekino <ms...@us...> Homepage: http://www.io.com/~kazushi/xtt/ --- NEW FILE: gimp-perl581.patch --- diff -Nurd Gimp-1.211/Makefile.PL Gimp-1.211-patched/Makefile.PL --- Gimp-1.211/Makefile.PL Fri Nov 30 18:02:29 2001 +++ Gimp-1.211-patched/Makefile.PL Sun Apr 28 01:29:03 2002 @@ -8,10 +8,10 @@ for(@ARGV) { s/^prefix=/--prefix=/i; } - + do './config.pl'; unless ($ENV{IN_GIMP}) { # for the release, take the medium conservative approach - $EXTENSIVE_TESTS = 1; + $EXTENSIVE_TESTS = 0; $ENV{'EXTENSIVE_TESTS'} = $EXTENSIVE_TESTS; $ENV{CC}=$Config{cc}; @@ -21,7 +21,7 @@ $ENV{MAKEFILE_PL}=$0; $ENV{IN_GIMP}=0; } - exit system("./configure",@ARGV)>>8; + exit system("./configure","--prefix=@PREFIX@")>>8; } else { shift; local $do_config_msg = 1; @@ -233,7 +233,8 @@ \$(CHMOD) 755 * ; \\ \$(MY_FIXIN) * ; \\ for plugin in * ; do \\ - $GT \"\$\$plugin\" $GT2 ; \\ + mkdir -p @INSTPREFIX@/lib/gimp/1.2/plug-ins && \\ + cp \"\$\$plugin\" @INSTPREFIX@/lib/gimp/1.2/plug-ins; \\ done \$(RM_RF) inst-temp diff -Nurd Gimp-1.211/UI/UI.xs Gimp-1.211-patched/UI/UI.xs --- Gimp-1.211/UI/UI.xs Sun Aug 5 08:44:07 2001 +++ Gimp-1.211-patched/UI/UI.xs Sun Apr 28 01:01:53 2002 @@ -21,7 +21,7 @@ /* libgimo requires a rather broken interface. this must be here because.. * well, nobody knows why... ARGH! */ -GimpPlugInInfo PLUG_IN_INFO = { 0, 0, 0, 0 }; +/* static GimpPlugInInfo PLUG_IN_INFO = { 0, 0, 0, 0 }; */ #if 0 static void gimp_pattern_select_widget_callback (gchar *name, gint width, --- NEW FILE: ftlib-pm581.patch --- diff -Naur perlftlib-1.2.old/FreeType/Makefile.PL perlftlib-1.2.new/FreeType/Makefile.PL --- perlftlib-1.2.old/FreeType/Makefile.PL Mon Dec 14 14:13:26 1998 +++ perlftlib-1.2.new/FreeType/Makefile.PL Mon Nov 11 00:31:37 2002 @@ -4,7 +4,7 @@ WriteMakefile( 'NAME' => 'FreeType', 'VERSION_FROM' => 'FreeType.pm', # finds $VERSION - 'LIBS' => ['-L/usr/local/X11R6.3/lib -lttf'], # e.g., '-lm' + 'LIBS' => ['-L@PREFIX@/lib -lttf'], # e.g., '-lm' 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING' - 'INC' => '-I/usr/local/X11R6.3/include', # e.g., '-I/usr/include/other' + 'INC' => '-I@PREFIX@/include/freetype', # e.g., '-I/usr/include/other' ); diff -Naur perlftlib-1.2.old/FreeType/typemap perlftlib-1.2.new/FreeType/typemap --- perlftlib-1.2.old/FreeType/typemap Mon Dec 14 14:13:26 1998 +++ perlftlib-1.2.new/FreeType/typemap Mon Nov 11 00:31:13 2002 @@ -42,6 +42,7 @@ T_Handle { void **ptrImage; + int na; if (SvTYPE($arg) == SVt_PV && ((ptrImage = (void **)SvPV($arg, na)), na == sizeof($var.z))) @@ -94,6 +95,7 @@ if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) { HV *obj = (HV*)SvRV($arg); SV *sv; + int na; FETCH_OBJ_IV(obj, &$var, rows, $var); FETCH_OBJ_IV(obj, &$var, cols, $var); FETCH_OBJ_IV(obj, &$var, width, $var); diff -Naur perlftlib-1.2.old/Makefile.PL perlftlib-1.2.new/Makefile.PL --- perlftlib-1.2.old/Makefile.PL Thu Jan 1 09:00:00 1970 +++ perlftlib-1.2.new/Makefile.PL Mon Nov 11 00:35:54 2002 @@ -0,0 +1,10 @@ +use ExtUtils::MakeMaker; +# See lib/ExtUtils/MakeMaker.pm for details of how to influence +# the contents of the Makefile that is written. +WriteMakefile( + 'NAME' => 'FreeType', + 'VERSION_FROM' => 'FreeType/FreeType.pm', + 'PM' => { 'FreeTypeWrapper.pm' => '$(INST_LIBDIR)/FreeTypeWrapper.pm', + 'ftinfo.pl' => '$(INST_SCRIPT)/ftinfo', + 'mkttfdir.pl' => '$(INST_SCRIPT)/mkttfdir'} +); diff -Naur perlftlib-1.2.old/ftinfo.pl perlftlib-1.2.new/ftinfo.pl --- perlftlib-1.2.old/ftinfo.pl Mon Dec 14 14:13:26 1998 +++ perlftlib-1.2.new/ftinfo.pl Mon Nov 11 01:02:27 2002 @@ -1,4 +1,4 @@ -#! /usr/local/bin/perl +#! /usr/bin/perl 'di '; 'ds 00 \"'; 'ig 00 '; @@ -32,10 +32,10 @@ # use FreeTypeWrapper; -require "jcode.pl"; -require 'getopts.pl'; +use Jcode; +use Getopt::Std; -Getopts('daclhinopMm:s:'); +getopts('daclhinopMm:s:', \%opts); die "Usage: $0 [-daclhinopM] [-m char] [-s scale (point)] font-names... -d: debug mode @@ -53,22 +53,15 @@ -s point: scale glyph into # point " unless @ARGV; -$opt_c = 1 if $opt_a; -$opt_l = 1 if $opt_a; -$opt_h = 1 if $opt_a; -$opt_i = 1 if $opt_a; -$opt_n = 1 if $opt_a; -$opt_o = 1 if $opt_a; -$opt_p = 1 if $opt_a; - -$opt_s = 10 unless defined $opt_s; +@opts{qw(c l h i n o p)} = (1) x 7 if $opts{a}; +$opts{'s'} = 10 unless defined $opts{'s'}; foreach $fn (@ARGV) { - $font = new FreeTypeWrapper($fn); + my $font = new FreeTypeWrapper($fn); warn "open failed: $fn\n" unless defined $font; next unless defined $font; for ($i = 0; $i < $font->facenum; $i++) { - $face = $font->open_collection($i); + my $face = $font->open_collection($i); warn "open_collection failed: $fn\n" unless defined $face; next unless defined $face; @@ -77,7 +70,7 @@ print "$fn: $i face\n"; - if ($opt_c) { + if ($opts{'c'}) { my $charmapnum = $face->charmapnum; for (my $j = 0; $j < $charmapnum; $j++) { my $charmap = new FreeTypeCharMap($face, $j); @@ -87,46 +80,46 @@ next; } printf("$fn: $i: $j charmap: platformID=%d encoding=%d\n", - $charmap->platformID, $charmap->encodingID) if $opt_d; + $charmap->platformID, $charmap->encodingID) if $opts{'d'}; printf("$fn: $i: $j charmap: %s, %s\n", - $charmap->platform, $charmap->encoding) unless $opt_d; + $charmap->platform, $charmap->encoding) unless $opts{'d'}; } } - if ($opt_l) { + if ($opts{'l'}) { foreach $j (sort (keys %{$prop})) { print "$fn: $i: $j: $prop->{$j}\n"; } } - if ($opt_h) { + if ($opts{'h'}) { foreach $j (sort (keys %{$prop->{header}})) { print "$fn: $i: header: $j: $prop->{header}->{$j}\n"; } } - if ($opt_i) { + if ($opts{'i'}) { foreach $j (sort (keys %{$prop->{horizontal}})) { print "$fn: $i: horizontal: $j: $prop->{horizontal}->{$j}\n"; } } - if ($opt_n) { + if ($opts{'n'}) { for ($j = 0; $j < $count; $j++) { $name = new FreeTypeName($face, $j); $string = $name->string(); - jcode::convert(*string, 'euc', 'sjis'); + Jcode::convert(*string, 'euc', 'sjis'); printf("$fn: $i: $j name: platformID=%d encoding=%d languageID=%d nameID=%d, name=\"%s\"\n", $name->platformID, $name->encodingID, $name->languageID, - $name->namedescID, $string) if $opt_d; + $name->namedescID, $string) if $opts{'d'}; printf("$fn: $i: $j name: %s, %s, %s, %s: %s\n", $name->platform, $name->encoding, $name->language, - $name->namedesc, $string) unless $opt_d; + $name->namedesc, $string) unless $opts{'d'}; } } - if ($opt_o) { + if ($opts{'o'}) { print("$fn: $i: os2: code page range: ", $face->get_codepagerange, "\n"); print("$fn: $i: os2: unicode range: ", @@ -154,13 +147,13 @@ } } - if ($opt_p) { + if ($opts{'p'}) { foreach $j (sort (keys %{$prop->{postscript}})) { print "$fn: $i: postscript: $j: $prop->{postscript}->{$j}\n"; } } - if ($opt_M) { + if ($opts{'M'}) { my $charmapnum = $face->charmapnum; my $charmap; my $j; @@ -175,7 +168,7 @@ my $instance = $face->new_instance(); $instance->set_resolutions(100, 100); $instance->set_flags(1, 1); - $instance->set_charsize($opt_s * 64); + $instance->set_charsize($opts{'s'} * 64); my $metrics = $instance->metrics(); foreach $mval (sort (keys %{$metrics})) { printf("$fn: $i: Instance Metrics: %s -> %s\n", @@ -183,7 +176,7 @@ } } - if ($opt_m) { + if ($opts{'m'}) { my $charmapnum = $face->charmapnum; my $charmap; my $j; @@ -198,15 +191,15 @@ my $instance = $face->new_instance(); $instance->set_resolutions(100, 100); $instance->set_flags(1, 1); - $instance->set_charsize($opt_s * 64); + $instance->set_charsize($opts{'s'} * 64); - $opt_m = "\"$opt_m\"" if length $opt_m == 1; - foreach $val (eval $opt_m) { + $opts{'m'} = "\"$opts{'m'}\"" if length $opts{'m'} == 1; + foreach $val (eval $opts{'m'}) { $val = ord($val) if $val !~ /^\d/; $val = oct($val) if $val =~ /^0/; my $code = $charmap->convert($val); printf("$fn: $i: char 0x%x: converted into 0x%x, %d " . - "pt scaled\n", $val, $code, $opt_s); + "pt scaled\n", $val, $code, $opts{'s'}); my $g = new FreeTypeGlyph($instance, $code); my $metrics = $g->metrics(); diff -Naur perlftlib-1.2.old/mkttfdir.pl perlftlib-1.2.new/mkttfdir.pl --- perlftlib-1.2.old/mkttfdir.pl Mon Dec 14 14:13:26 1998 +++ perlftlib-1.2.new/mkttfdir.pl Mon Nov 11 01:02:27 2002 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl 'di '; 'ds 00 \"'; 'ig 00 '; @@ -32,9 +32,9 @@ # use FreeTypeWrapper; -require 'getopts.pl'; +use Getopt::Std; -Getopts('dhejoi:'); +getopts('dhejoi:', \%opts); die "Usage: $0 [-dheo] [-inum] [directory-name...] -d: dump fonts.dir screen instead of fonts.dir file @@ -44,9 +44,9 @@ (for wrong header fonts) -o: add -o- fonts for each font -i num: value for auto-italic option (default 0.2) -" if $opt_h; +" if $opts{'h'}; $ai = 0.2; -$ai = $opt_i if defined $opt_i; +$ai = $opts{'i'} if defined $opts{'i'}; push @ARGV, "." unless @ARGV; @@ -122,14 +122,14 @@ @files = grep { (/.ttf$/i || /.ttc$/i) && -f "$dir/$_" } readdir(DIR); closedir DIR; - undef @lines; + my ($face, $name, $subname, @lines); foreach $filename (@files) { my $fn = "$dir/$filename"; - $font = new FreeTypeWrapper($fn); + my $font = new FreeTypeWrapper($fn); warn "open failed: $fn\n" unless defined $font; next unless defined $font; - $face = $font->open_face($font); + my $face = $font->open_face($font); warn "open_face failed: $fn\n" unless defined $face; next unless defined $face; @@ -281,14 +281,14 @@ "-$fontname-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-iso8859-1\n") - if $opt_e || $face->get_codepagerange =~ /Latin 1/; + if $opts{'e'} || $face->get_codepagerange =~ /Latin 1/; push(@lines, "ai=$ai:$filename " . "-$foundry-$family_name-$weight_name-o-" . "$setwidth_name-$add_style_name-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-iso8859-1\n") - if ($opt_e || $face->get_codepagerange =~ /Latin 1/) && - $opt_o && $slant eq "r"; + if ($opts{'e'} || $face->get_codepagerange =~ /Latin 1/) && + $opts{'o'} && $slant eq "r"; # If it has "Japanese" language description, it # may have iso8859-1, jisx0201.1976-0 and jisx0208.1983-0 encoding. @@ -297,44 +297,44 @@ "-$fontname-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-jisx0208.1983-0\n") - if $opt_j || $face->get_codepagerange =~ /JIS\/Japan/; + if $opts{'j'} || $face->get_codepagerange =~ /JIS\/Japan/; push(@lines, "ai=$ai:$filename " . "-$foundry-$family_name-$weight_name-o-" . "$setwidth_name-$add_style_name-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-jisx0208.1983-0\n") - if ($opt_j || $face->get_codepagerange =~ /JIS\/Japan/) && - $opt_o && $slant eq "r"; + if ($opts{'j'} || $face->get_codepagerange =~ /JIS\/Japan/) && + $opts{'o'} && $slant eq "r"; push(@lines, "bw=0.5:$filename " . "-$fontname-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-jisx0201.1976-0\n") - if $opt_j || $face->get_codepagerange =~ /JIS\/Japan/; + if $opts{'j'} || $face->get_codepagerange =~ /JIS\/Japan/; push(@lines, "ai=$ai:bw=0.5:$filename " . "-$foundry-$family_name-$weight_name-o-" . "$setwidth_name-$add_style_name-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-jisx0201.1976-0\n") - if ($opt_j || $face->get_codepagerange =~ /JIS\/Japan/) && - $opt_o && $slant eq "r"; + if ($opts{'j'} || $face->get_codepagerange =~ /JIS\/Japan/) && + $opts{'o'} && $slant eq "r"; push(@lines, "bw=0.5:$filename " . "-$fontname-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-iso8859-1\n") - if $opt_j || $face->get_codepagerange =~ /JIS\/Japan/; + if $opts{'j'} || $face->get_codepagerange =~ /JIS\/Japan/; push(@lines, "ai=$ai:bw=0.5:$filename " . "-$foundry-$family_name-$weight_name-o-" . "$setwidth_name-$add_style_name-" . "$pixel_size-$point_size-$resolution_x-$resolution_y-" . "$spacing-$average_width-iso8859-1\n") - if ($opt_j || $face->get_codepagerange =~ /JIS\/Japan/) && - $opt_o && $slant eq "r"; + if ($opts{'j'} || $face->get_codepagerange =~ /JIS\/Japan/) && + $opts{'o'} && $slant eq "r"; # Should I do something about Symbol? } if (@lines) { - if ($opt_d) { + if ($opts{'d'}) { print $#lines + 1, "\n"; foreach $l (sort @lines) { print $l; |