7 files changed, 107 insertions, 0 deletions

diff --git a/print/Makefile b/print/Makefile
index 3f5b36aa5fda..2a7bb9549925 100644
--- a/print/Makefile
+++ b/print/Makefile
@@ -197,6 +197,7 @@
     SUBDIR += nl-acroread8
     SUBDIR += no-acroread8
     SUBDIR += openprinting
+    SUBDIR += p5-Font-FreeType
     SUBDIR += p5-Net-Printer
     SUBDIR += p5-PDF-Template
     SUBDIR += p5-PDFLib
diff --git a/print/p5-Font-FreeType/Makefile b/print/p5-Font-FreeType/Makefile
new file mode 100644
index 000000000000..3ea18c298ae3
--- /dev/null
+++ b/print/p5-Font-FreeType/Makefile
@@ -0,0 +1,25 @@
+# New ports collection makefile for:	Font::FreeType
+# Date created:		12 Aug 2011
+# Whom:			Jun Kuriyama <kuriyama@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Font-FreeType
+PORTVERSION=	0.03
+CATEGORIES=	print perl5
+MASTER_SITES=	CPAN
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	kuriyama@FreeBSD.org
+COMMENT=	Perl extension to read font files and render glyphs using FreeType2
+
+LIB_DEPENDS=	freetype.9:${PORTSDIR}/print/freetype2
+
+PERL_CONFIGURE=	yes
+
+MAN3=	Font::FreeType.3 \
+	Font::FreeType::Face.3 \
+	Font::FreeType::Glyph.3
+
+.include <bsd.port.mk>
diff --git a/print/p5-Font-FreeType/distinfo b/print/p5-Font-FreeType/distinfo
new file mode 100644
index 000000000000..d5387b5c872d
--- /dev/null
+++ b/print/p5-Font-FreeType/distinfo
@@ -0,0 +1,2 @@
+SHA256 (Font-FreeType-0.03.tar.gz) = c07eab16bb4d16ba61fd0a3376a8f76980245aef443d1ea193ec5446d1127d5f
+SIZE (Font-FreeType-0.03.tar.gz) = 95275
diff --git a/print/p5-Font-FreeType/files/patch-FreeType.xs b/print/p5-Font-FreeType/files/patch-FreeType.xs
new file mode 100644
index 000000000000..c3a9fee694d2
--- /dev/null
+++ b/print/p5-Font-FreeType/files/patch-FreeType.xs
@@ -0,0 +1,48 @@
+--- FreeType.xs.orig	2004-09-12 05:50:44.000000000 +0900
++++ FreeType.xs	2011-08-13 20:42:27.482201061 +0900
+@@ -226,7 +226,7 @@
+ #define QEFFT2_CALL_TIDY  FREETMPS; LEAVE;
+ 
+ static int
+-handle_move_to (FT_Vector *to, void *data)
++handle_move_to (const FT_Vector *to, void *data)
+ {
+     struct QefFT2_Outline_Decompose_Extra_ *extra = data;
+     double x = QEFFT2_NUM(to->x), y = QEFFT2_NUM(to->y);
+@@ -243,7 +243,7 @@
+ }
+ 
+ static int
+-handle_line_to (FT_Vector *to, void *data)
++handle_line_to (const FT_Vector *to, void *data)
+ {
+     struct QefFT2_Outline_Decompose_Extra_ *extra = data;
+     double x = QEFFT2_NUM(to->x), y = QEFFT2_NUM(to->y);
+@@ -260,7 +260,7 @@
+ }
+ 
+ static int
+-handle_conic_to (FT_Vector *control, FT_Vector *to, void *data)
++handle_conic_to (const FT_Vector *control, const FT_Vector *to, void *data)
+ {
+     struct QefFT2_Outline_Decompose_Extra_ *extra = data;
+     double x = QEFFT2_NUM(to->x), y = QEFFT2_NUM(to->y);
+@@ -292,7 +292,7 @@
+ }
+ 
+ static int
+-handle_cubic_to (FT_Vector *control1, FT_Vector *control2, FT_Vector *to,
++handle_cubic_to (const FT_Vector *control1, const FT_Vector *control2, const FT_Vector *to,
+                  void *data)
+ {
+     struct QefFT2_Outline_Decompose_Extra_ *extra = data;
+@@ -805,7 +805,8 @@
+             char_code = FT_Get_First_Char(face, &glyph_idx);
+             while (glyph_idx) {
+                 if (glyph_idx == glyph->index) {
+-                    RETVAL = newSVuv((UV) glyph->char_code = char_code);
++                    glyph->char_code = char_code;
++                    RETVAL = newSVuv((UV) glyph->char_code);
+                     break;
+                 }
+                 char_code = FT_Get_Next_Char(face, char_code, &glyph_idx);
diff --git a/print/p5-Font-FreeType/files/patch-Makefile.PL b/print/p5-Font-FreeType/files/patch-Makefile.PL
new file mode 100644
index 000000000000..39665842b204
--- /dev/null
+++ b/print/p5-Font-FreeType/files/patch-Makefile.PL
@@ -0,0 +1,13 @@
+--- Makefile.PL.bak	2004-09-10 09:43:29.000000000 +0900
++++ Makefile.PL	2011-08-13 21:01:55.896033332 +0900
+@@ -5,8 +5,8 @@
+     NAME            => 'Font::FreeType',
+     AUTHOR          => 'Geoff Richards <qef@laxan.com>',
+     VERSION_FROM    => 'lib/Font/FreeType.pm',
+-    LIBS            => [ '-lfreetype' ],
+-    INC             => '-I/usr/include/freetype2',
++    LIBS            => `pkg-config --libs freetype2`,
++    INC             => `pkg-config --cflags freetype2`,
+     NO_META         => 1,
+ );
+ 
diff --git a/print/p5-Font-FreeType/pkg-descr b/print/p5-Font-FreeType/pkg-descr
new file mode 100644
index 000000000000..48dcd0d550fa
--- /dev/null
+++ b/print/p5-Font-FreeType/pkg-descr
@@ -0,0 +1,8 @@
+This module allows Perl programs to conveniently read information from
+font files. All the font access is done through the FreeType2 library,
+which supports many formats. It can render images of characters with
+high-quality hinting and antialiasing, extract metrics information,
+and extract the outlines of characters in scalable formats like
+TrueType.
+
+WWW: http://search.cpan.org/dist/Font-FreeType/
diff --git a/print/p5-Font-FreeType/pkg-plist b/print/p5-Font-FreeType/pkg-plist
new file mode 100644
index 000000000000..13daebe47391
--- /dev/null
+++ b/print/p5-Font-FreeType/pkg-plist
@@ -0,0 +1,10 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/Font/FreeType.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/Font/FreeType/Face.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/Font/FreeType/Glyph.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Font/FreeType/.packlist
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Font/FreeType/FreeType.bs
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Font/FreeType/FreeType.so
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Font/FreeType
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/Font
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/Font/FreeType
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/Font