ports/125947: New Port: devel/p5-Sys-Cpu

Fri Jul 25 07:50:06 UTC 2008

>Number:         125947
>Category:       ports
>Synopsis:       New Port: devel/p5-Sys-Cpu
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Fri Jul 25 07:50:05 UTC 2008
>Closed-Date:
>Last-Modified:
>Originator:     Terry Sposato
>Release:        FreeBSD 6.3-RELEASE-p3 i386
>Organization:
Sucked In
>Environment:
System: FreeBSD got.sucked-in.com 6.3-RELEASE-p3 FreeBSD 6.3-RELEASE-p3 #6: Mon Jul 14 12:33:56 EST 2008 root at got.sucked-in.com:/usr/obj/usr/src/sys/SUCKED i386


>Description:
	New Port: devel/p5-Sys-Cpu for obtaining CPU information
>How-To-Repeat:

>Fix:


--- p5-Sys-Cpu.shar begins here ---
# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	devel/p5-Sys-Cpu/
#	devel/p5-Sys-Cpu/Makefile
#	devel/p5-Sys-Cpu/distinfo
#	devel/p5-Sys-Cpu/pkg-descr
#	devel/p5-Sys-Cpu/pkg-plist
#	devel/p5-Sys-Cpu/files
#	devel/p5-Sys-Cpu/files/patch-CPU.xs
#
echo c - devel/p5-Sys-Cpu/
mkdir -p devel/p5-Sys-Cpu/ > /dev/null 2>&1
echo x - devel/p5-Sys-Cpu/Makefile
sed 's/^X//' >devel/p5-Sys-Cpu/Makefile << 'END-of-devel/p5-Sys-Cpu/Makefile'
X# New ports collection makefile for:	Sys-Cpu
X# Date created:	   25 July 2008
X# Whom:		   Terry Sposato <terry at sucked-in.com>
X#
X
XPORTNAME=	Sys-CPU
XPORTVERSION=	0.40
XCATEGORIES=	devel perl5
XMASTER_SITES=	CPAN
XPKGNAMEPREFIX=	p5-
X
XMAINTAINER=	terry at sucked-in.com
XCOMMENT=	Sys::CPU - Perl extension for getting CPU information.
X
XPERL_CONFIGURE=	yes
X
XMAN3=		Sys::CPU.3
X
X.include <bsd.port.mk>
END-of-devel/p5-Sys-Cpu/Makefile
echo x - devel/p5-Sys-Cpu/distinfo
sed 's/^X//' >devel/p5-Sys-Cpu/distinfo << 'END-of-devel/p5-Sys-Cpu/distinfo'
XMD5 (Sys-CPU-0.40.tar.gz) = c2731716e5c1eaa4e88860ccc09791e2
XSHA256 (Sys-CPU-0.40.tar.gz) = 48efce686727f6529a555c3a6f7c57f91285e364675370007bb462174e773558
XSIZE (Sys-CPU-0.40.tar.gz) = 4696
END-of-devel/p5-Sys-Cpu/distinfo
echo x - devel/p5-Sys-Cpu/pkg-descr
sed 's/^X//' >devel/p5-Sys-Cpu/pkg-descr << 'END-of-devel/p5-Sys-Cpu/pkg-descr'
XSys::CPU - Perl extension for getting CPU information.
XIn responce to a post on perlmonks.org, a module for counting 
Xthe number of CPU's on a system. Support has now also been 
Xadded for type of CPU and clock speed. While much of the code 
Xis from UNIX::Processors, win32 support has been added 
X(but not tested).
X
XWWW: http://search.cpan.org/dist/Sys-Cpu/
END-of-devel/p5-Sys-Cpu/pkg-descr
echo x - devel/p5-Sys-Cpu/pkg-plist
sed 's/^X//' >devel/p5-Sys-Cpu/pkg-plist << 'END-of-devel/p5-Sys-Cpu/pkg-plist'
X%%SITE_PERL%%/%%PERL_ARCH%%/Sys/CPU.pm
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/Sys/CPU/CPU.so
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/Sys/CPU/CPU.bs
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/Sys/CPU/.packlist
X at dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Sys/CPU
X at dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/Sys
X at dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/Sys
END-of-devel/p5-Sys-Cpu/pkg-plist
echo c - devel/p5-Sys-Cpu/files
mkdir -p devel/p5-Sys-Cpu/files > /dev/null 2>&1
echo x - devel/p5-Sys-Cpu/files/patch-CPU.xs
sed 's/^X//' >devel/p5-Sys-Cpu/files/patch-CPU.xs << 'END-of-devel/p5-Sys-Cpu/files/patch-CPU.xs'
X--- CPU.xs.orig	2008-07-25 09:06:35.000000000 +0200
X+++ CPU.xs	2008-07-25 09:24:13.000000000 +0200
X@@ -35,6 +35,9 @@
X  #define _have_cpu_clock
X  #define _have_cpu_type
X #endif
X+#ifdef __FreeBSD__
X+ #include <sys/sysctl.h>
X+#endif
X 
X #ifdef WINDOWS
X /* Registry Functions */
X@@ -237,6 +240,10 @@
X {
X     int clock = 0;
X     int retcode = 0;
X+#ifdef __FreeBSD__
X+    size_t len = sizeof(clock);
X+    sysctlbyname("hw.clockrate", &clock, &len, NULL, 0);
X+#else
X #ifdef __linux__
X     int value = proc_cpuinfo_clock();
X     if (value) clock = value;
X@@ -263,12 +270,13 @@
X         }
X     }
X #endif
X+#endif
X     if (clock) {
X 	    ST(0) = sv_newmortal();
X 	    sv_setiv (ST(0), clock);
X     } else {
X 	    ST(0) = &PL_sv_undef;
X-    }   
X+    }
X }
X 
X SV *
X@@ -277,6 +285,10 @@
X {
X     char *value = malloc(MAX_IDENT_SIZE);
X     int retcode = 0;
X+#ifdef __FreeBSD__
X+   size_t len = MAX_IDENT_SIZE;
X+   sysctlbyname("hw.model", value, &len, NULL, 0);
X+#else
X #ifdef __linux__
X     value = proc_cpuinfo_field ("model name");
X     if (!value) value = proc_cpuinfo_field ("machine");
X@@ -296,6 +308,7 @@
X 	value = infop->pi_processor_type;
X     }
X #endif
X+#endif
X     if (value) {
X 	    ST(0) = sv_newmortal();
X 	    sv_setpv (ST(0), value);
END-of-devel/p5-Sys-Cpu/files/patch-CPU.xs
exit
--- p5-Sys-Cpu.shar ends here ---


>Release-Note:
>Audit-Trail:
>Unformatted: