1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-26 05:02:18 +00:00

Add p5-Text-Graphics 1.0001, a perl module (toolkit) for rendering

textual graphics.

PR:		23965
Submitted by:	Anton Berezin <tobez@tobez.org>
This commit is contained in:
Will Andrews 2000-12-31 05:38:41 +00:00
parent 6a5e36c56c
commit 5f0157d55c
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=36504
7 changed files with 73 additions and 0 deletions

View File

@ -82,6 +82,7 @@
SUBDIR += p5-Text-FixedLength
SUBDIR += p5-Text-Flowchart
SUBDIR += p5-Text-Format
SUBDIR += p5-Text-Graphics
SUBDIR += p5-Text-Template
SUBDIR += p5-Text-Wrapper
SUBDIR += p5-XML-DOM

View File

@ -0,0 +1,29 @@
# New ports collection makefile for: textproc/p5-Text-Graphics
# Date created: 30 December 2000
# Whom: Anton Berezin <tobez@tobez.org>
#
# $FreeBSD$
#
PORTNAME= Text-Graphics
PORTVERSION= 1.0001
CATEGORIES= textproc perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Text
PKGNAMEPREFIX= p5-
MAINTAINER= tobez@tobez.org
BUILD_DEPENDS= ${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/Text/Wrapper.pm:${PORTSDIR}/textproc/p5-Text-Wrapper
RUN_DEPENDS= ${BUILD_DEPENDS}
USE_PERL5= yes
PERL_CONFIGURE= yes
MAN3= Text::Graphics.3
MANPREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION}
post-patch:
@${RM} ${WRKSRC}/lib/Text/Graphics.pm.orig
.include <bsd.port.mk>

View File

@ -0,0 +1 @@
MD5 (Text-Graphics-1.0001.tar.gz) = d21ee64f6c8817934a038d14019930fa

View File

@ -0,0 +1,30 @@
--- lib/Text/Graphics.pm.orig Sat Dec 30 20:01:06 2000
+++ lib/Text/Graphics.pm Sat Dec 30 20:02:21 2000
@@ -49,8 +49,8 @@
my $child = shift;
my $offx = shift;
my $offy = shift;
- $child->{offx} = ($offx > 0) ? $offx : 0;
- $child->{offy} = ($offy > 0) ? $offy : 0;
+ $child->{offx} = (defined($offx) && $offx > 0) ? $offx : 0;
+ $child->{offy} = (defined($offy) && $offy > 0) ? $offy : 0;
$child->{parent} = $this;
push @{ $this->{children} }, $child;
@@ -78,7 +78,7 @@
my $this = shift;
my $gc = shift;
- if ($this->{bg} ne undef) {
+ if (defined $this->{bg}) {
$gc->fillRect($this->{bg}, 0, 0, $this->{width}, $this->{height});
}
}
@@ -413,7 +413,7 @@
## we need to re-wrap iff the width changes
##
- if (($width ne undef) and ($this->{width} != $width)) {
+ if ((defined $width) and ($this->{width} != $width)) {
delete $this->{text_was_wrapped};
}

View File

@ -0,0 +1 @@
A text graphics rendering toolkit

View File

@ -0,0 +1,7 @@
This is a toolkit for rendering plain text via an API like that used for
graphics rendering in GUI toolkits. This package might be used when you
want to do sophisticated rendering of plain text, e.g., for graphing,
creating of complex forms for email and fax, and so on.
-Anton
<tobez@tobez.org>

View File

@ -0,0 +1,4 @@
lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Text/Graphics/.packlist
lib/perl5/site_perl/%%PERL_VER%%/Text/Graphics.pm
@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Text/Graphics
@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/Text 2>/dev/null || true