+CONTENTS000644 000000 000000 00000011451 11102106201 012251 0ustar00rootroot000000 000000 @cwd /usr/pkg @src /usr/pkg @name p5-IO-Compress-Zlib-2.015nb1 @blddep p5-IO-Compress-Base-2.015nb1 @pkgdep p5-IO-Compress-Base>=2.015 @blddep p5-Compress-Raw-Zlib-2.015nb1 @pkgdep p5-Compress-Raw-Zlib>=2.015 @blddep perl-5.10.0nb2 @pkgdep perl<5.12.0 @blddep perl-5.10.0nb2 @pkgdep perl>=5.10.0 @blddep digest-20070803 @blddep tnftp-20070806 @comment The following lines are automatically generated @comment from the installed .packlist files. lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/auto/IO/Compress/Zlib/.packlist @comment MD5:b00b747c980a770b8e52a5d778423be4 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter/Deflate.pm @comment MD5:743e432d6640a7bbcf04c36ca94add6e lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter/Identity.pm @comment MD5:118554c7777a96ecd593fa36769c7afb lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Deflate.pm @comment MD5:231e90f4d2c987ab18b860c8325ec0e0 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip/Constants.pm @comment MD5:a683ebe7f93bea865927c2b27298cf5f lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip.pm @comment MD5:d8d58bec2f677a16078981d293fc7bb5 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/RawDeflate.pm @comment MD5:a40da937cf344b471fdde3c12528ba3d lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zip/Constants.pm @comment MD5:f1c326c90a17c0baa9a405c7ba1bac80 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zip.pm @comment MD5:a94a422df00b84e9d2f711b8e4e7cc03 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zlib/Constants.pm @comment MD5:60c895d50e2043cffd7af38d7072f72c lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zlib/Extra.pm @comment MD5:ff40431395b39701165a99548ac5ce96 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Adapter/Identity.pm @comment MD5:d707865c8a9fe0e41a83f5e1db36c85a lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Adapter/Inflate.pm @comment MD5:a3abd63d45aadecb70541db97d3a1ad6 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/AnyInflate.pm @comment MD5:e640562c89a5d6deb18f7429450c9d34 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Gunzip.pm @comment MD5:896a339b7c626b91b0fbd852730ae4ec lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Inflate.pm @comment MD5:f4d78b895b0a7923c5804f2e3012c24d lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/RawInflate.pm @comment MD5:57497c6f310863fbddc53361009867ff lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Unzip.pm @comment MD5:904499189e13f5803b378599e04b8c46 lib/perl5/vendor_perl/man/man3/IO::Compress::Deflate.3 @comment MD5:825ba3f37838e5f7bbd79539f3b25b5d lib/perl5/vendor_perl/man/man3/IO::Compress::Gzip.3 @comment MD5:779f2b18e865cfade358f0a60b7e2fc6 lib/perl5/vendor_perl/man/man3/IO::Compress::RawDeflate.3 @comment MD5:6f293416a55788422aa6430f9ac855fe lib/perl5/vendor_perl/man/man3/IO::Compress::Zip.3 @comment MD5:d57c877af037b4a4f195338e0ced48b4 lib/perl5/vendor_perl/man/man3/IO::Uncompress::AnyInflate.3 @comment MD5:6aa169c72cd178db17d0d1199cd55801 lib/perl5/vendor_perl/man/man3/IO::Uncompress::Gunzip.3 @comment MD5:e5f243b5c81d9f2d470777a5141faebe lib/perl5/vendor_perl/man/man3/IO::Uncompress::Inflate.3 @comment MD5:a97cf81d34de64d294b328f9aabc75a0 lib/perl5/vendor_perl/man/man3/IO::Uncompress::RawInflate.3 @comment MD5:6c57baa268d74b322dd1033d7bee6279 lib/perl5/vendor_perl/man/man3/IO::Uncompress::Unzip.3 @comment MD5:bf972d7103cacc646ac601871e47a992 @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/man/man3 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Adapter 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zlib 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zip 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress 2>/dev/null || true @unexec /usr/bin/rmdir -p %D/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/auto/IO/Compress/Zlib 2>/dev/null || true @cwd . @ignore +COMMENT @ignore +DESC @ignore +INSTALL @ignore +DEINSTALL @ignore +BUILD_VERSION @ignore +BUILD_INFO @ignore +SIZE_PKG @ignore +SIZE_ALL +COMMENT000444 000000 000000 00000000064 11102106201 012112 0ustar00rootroot000000 000000 Perl module to parse gzip and zip files and buffers +DESC000444 000000 000000 00000000267 11102106201 011533 0ustar00rootroot000000 000000 This module provides a Perl interface to allow reading and writing of RFC 1950, 1951, 1952 (i.e. gzip) and zip files/buffers. Homepage: http://search.cpan.org/dist/IO-Compress-Zlib/ +INSTALL000755 000000 000000 00000012177 11102106153 012141 0ustar00rootroot000000 000000 #!/bin/ksh # # $NetBSD: header,v 1.2 2006/07/19 22:26:26 jlam Exp $ SELF="$0" PKGNAME="$1" STAGE="$2" shift 2 AWK="/usr/pkg/bin/nawk" BASENAME="/usr/bin/basename" CAT="/usr/bin/cat" CHGRP="/usr/bin/chgrp" CHMOD="/usr/bin/chmod" CHOWN="/usr/bin/chown" CMP="/bin/cmp" CP="/bin/cp" DIRNAME="/usr/bin/dirname" ECHO="echo" ECHO_N="echo -n" EGREP="/usr/xpg4/bin/grep -E" EXPR="/usr/xpg4/bin/expr" FALSE="false" FIND="/usr/bin/find" GREP="/usr/xpg4/bin/grep" GTAR="" HEAD="/usr/bin/head" ID="/usr/xpg4/bin/id" LINKFARM="/usr/pkg/sbin/linkfarm" LN="/usr/bin/ln" LS="/usr/bin/ls" MKDIR="/usr/bin/mkdir -p" MV="/usr/bin/mv" PERL5="/usr/pkg/bin/perl" PKG_ADMIN="/usr/pkg/sbin/pkg_admin" PKG_INFO="/usr/pkg/sbin/pkg_info" PWD_CMD="/bin/pwd" RM="/usr/bin/rm" RMDIR="/usr/bin/rmdir" SED="/usr/pkg/bin/nbsed" SETENV="/usr/bin/env" SH="/bin/ksh" SORT="/usr/bin/sort" SU="/usr/bin/su" TEST="test" TOUCH="/usr/bin/touch" TR="/usr/bin/tr" TRUE="true" XARGS="/usr/bin/xargs" CURDIR=`${PWD_CMD}` : ${PKG_METADATA_DIR=${CURDIR}} PKGBASE="p5-IO-Compress-Zlib" LOCALBASE="/usr/pkg" X11BASE="/usr/openwin" DEPOTBASE="/usr/pkg/packages" PREFIX="/usr/pkg" case ${PKG_PREFIX} in ${LOCALBASE}/*) VIEW="${PKG_PREFIX#${LOCALBASE}/}" ;; *) VIEW="" ;; esac PKG_SYSCONFBASE="/usr/pkg/etc" PKG_SYSCONFDEPOTBASE="" PKG_SYSCONFBASEDIR="/usr/pkg/etc" PKG_SYSCONFDIR="/usr/pkg/etc" CONF_DEPENDS="" case ${VIEW} in "") PKG_SYSCONFVIEWBASE="${PKG_SYSCONFBASE}" ;; *) PKG_SYSCONFVIEWBASE="${PKG_SYSCONFBASE}/${VIEW}" ;; esac CONF_IGNORE_FILES="*[~#] *.OLD *.orig *,v .pkgsrc */.pkgsrc" PKG_INSTALLATION_TYPE="overwrite" case "${PKG_CONFIG:-YES}" in [Yy][Ee][Ss]|[Tt][Rr][Uu][Ee]|[Oo][Nn]|1) _PKG_CONFIG=yes ;; [Nn][Oo]|[Ff][Aa][Ll][Ss][Ee]|[Oo][Ff][Ff]|0) _PKG_CONFIG=yes ;; esac # $NetBSD: install,v 1.2 2007/07/18 18:01:03 jlam Exp $ case ${STAGE} in PRE-INSTALL) # # Unpack the helper scriptlets. # ${SH} ${SELF} ${PKGNAME} UNPACK # # Require that necessary users and groups exist or else fail the # installation of the package. # ${TEST} ! -x ./+USERGROUP || { ./+USERGROUP ADD ${PKG_METADATA_DIR} if ./+USERGROUP CHECK-ADD ${PKG_METADATA_DIR}; then : else exit 1 fi; } # # Create package directories at pre-install time. # if [ "${PKG_INSTALLATION_TYPE}" = "pkgviews" -a \ "${_PKG_CONFIG}" = "yes" -a -n "${CONF_DEPENDS}" ]; then pkg=`${PKG_ADMIN} -b -d ${DEPOTBASE} -s "" lsbest "${CONF_DEPENDS}"` sysconfdir=`${PKG_INFO} -B -K ${DEPOTBASE} $pkg | \ ${AWK} '/^PKG_SYSCONFDIR=/ { \ gsub("^PKG_SYSCONFDIR=[ ]*", ""); \ print; \ }' \ ` if [ -d $sysconfdir -a ! -d ${PKG_SYSCONFDIR} ]; then ${MKDIR} -p `${DIRNAME} ${PKG_SYSCONFDIR}` ${LN} -sf $sysconfdir ${PKG_SYSCONFDIR} fi fi ${TEST} ! -x ./+DIRS || ./+DIRS ADD ${PKG_METADATA_DIR} ${TEST} ! -x ./+DIRS || ./+DIRS PERMS ${PKG_METADATA_DIR} ;; POST-INSTALL) # # Rebuild the system run-time library search path database. # ${TEST} ! -x ./+SHLIBS || ./+SHLIBS ADD ${PKG_METADATA_DIR} # # Copy configuration/support files into place. # ${TEST} ! -x ./+FILES || ./+FILES ADD ${PKG_METADATA_DIR} ${TEST} ! -x ./+FILES || ./+FILES PERMS ${PKG_METADATA_DIR} # # Set special permissions on any files/directories that need them. # ${TEST} ! -x ./+PERMS || ./+PERMS ${PKG_METADATA_DIR} # # Update any fonts databases. # ${TEST} ! -x ./+FONTS || ./+FONTS ${PKG_METADATA_DIR} # Check for any missing bits after we're finished installing. # ${TEST} ! -x ./+DIRS || ./+DIRS CHECK-ADD ${PKG_METADATA_DIR} ${TEST} ! -x ./+DIRS || ./+DIRS CHECK-PERMS ${PKG_METADATA_DIR} ${TEST} ! -x ./+FILES || ./+FILES CHECK-ADD ${PKG_METADATA_DIR} ${TEST} ! -x ./+FILES || ./+FILES CHECK-PERMS ${PKG_METADATA_DIR} ;; VIEW-INSTALL) # # Register shells in /etc/shells. # ${TEST} ! -x ./+SHELL || ./+SHELL ADD ${PKG_METADATA_DIR} ${TEST} ! -x ./+SHELL || ./+SHELL CHECK-ADD ${PKG_METADATA_DIR} # # Register info files. # ${TEST} ! -x ./+INFO_FILES || ./+INFO_FILES ADD ${PKG_METADATA_DIR} # If ${PKG_SYSCONFBASE} points outside of ${PREFIX}, then add the # package config files to the proper view. # if [ "${_PKG_CONFIG}" = "yes" -a -n "${PKG_SYSCONFDEPOTBASE}" ]; then ${SETENV} PLIST_IGNORE_FILES="${CONF_IGNORE_FILES}" \ ${LINKFARM} -t ${PKG_SYSCONFVIEWBASE} -d ${PKG_SYSCONFDEPOTBASE} ${PKGNAME} fi ;; esac # $NetBSD: install.tmpl,v 1.2 2005/08/12 19:59:03 jlam Exp $ case ${STAGE} in POST-INSTALL) eval `${PERL5} -V:scriptdir` PERL5_PACKLIST="/usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/auto/IO/Compress/Zlib/.packlist" # Symlink the bits that belong to this module. $scriptdir/perllink -f -p ${PKG_PREFIX} add ${PERL5_PACKLIST} ;; esac # $NetBSD: install-post,v 1.1 2006/05/21 23:50:15 jlam Exp $ # Ensure that the VIEW-INSTALL action is called for overwrite packages. # This is here to ensure that it's the final POST-INSTALL action (after # any INSTALL_TEMPLATE POST-INSTALL actions). # case ${STAGE} in POST-INSTALL) if [ "${PKG_INSTALLATION_TYPE}" = "overwrite" ]; then ${SETENV} PKG_PREFIX="${PKG_PREFIX}" \ $0 ${PKGNAME} VIEW-INSTALL fi ;; esac # $NetBSD: footer,v 1.1 2006/05/21 23:50:15 jlam Exp $ exit 0 +DEINSTALL000755 000000 000000 00000011430 11102106153 012341 0ustar00rootroot000000 000000 #!/bin/ksh # # $NetBSD: header,v 1.2 2006/07/19 22:26:26 jlam Exp $ SELF="$0" PKGNAME="$1" STAGE="$2" shift 2 AWK="/usr/pkg/bin/nawk" BASENAME="/usr/bin/basename" CAT="/usr/bin/cat" CHGRP="/usr/bin/chgrp" CHMOD="/usr/bin/chmod" CHOWN="/usr/bin/chown" CMP="/bin/cmp" CP="/bin/cp" DIRNAME="/usr/bin/dirname" ECHO="echo" ECHO_N="echo -n" EGREP="/usr/xpg4/bin/grep -E" EXPR="/usr/xpg4/bin/expr" FALSE="false" FIND="/usr/bin/find" GREP="/usr/xpg4/bin/grep" GTAR="" HEAD="/usr/bin/head" ID="/usr/xpg4/bin/id" LINKFARM="/usr/pkg/sbin/linkfarm" LN="/usr/bin/ln" LS="/usr/bin/ls" MKDIR="/usr/bin/mkdir -p" MV="/usr/bin/mv" PERL5="/usr/pkg/bin/perl" PKG_ADMIN="/usr/pkg/sbin/pkg_admin" PKG_INFO="/usr/pkg/sbin/pkg_info" PWD_CMD="/bin/pwd" RM="/usr/bin/rm" RMDIR="/usr/bin/rmdir" SED="/usr/pkg/bin/nbsed" SETENV="/usr/bin/env" SH="/bin/ksh" SORT="/usr/bin/sort" SU="/usr/bin/su" TEST="test" TOUCH="/usr/bin/touch" TR="/usr/bin/tr" TRUE="true" XARGS="/usr/bin/xargs" CURDIR=`${PWD_CMD}` : ${PKG_METADATA_DIR=${CURDIR}} PKGBASE="p5-IO-Compress-Zlib" LOCALBASE="/usr/pkg" X11BASE="/usr/openwin" DEPOTBASE="/usr/pkg/packages" PREFIX="/usr/pkg" case ${PKG_PREFIX} in ${LOCALBASE}/*) VIEW="${PKG_PREFIX#${LOCALBASE}/}" ;; *) VIEW="" ;; esac PKG_SYSCONFBASE="/usr/pkg/etc" PKG_SYSCONFDEPOTBASE="" PKG_SYSCONFBASEDIR="/usr/pkg/etc" PKG_SYSCONFDIR="/usr/pkg/etc" CONF_DEPENDS="" case ${VIEW} in "") PKG_SYSCONFVIEWBASE="${PKG_SYSCONFBASE}" ;; *) PKG_SYSCONFVIEWBASE="${PKG_SYSCONFBASE}/${VIEW}" ;; esac CONF_IGNORE_FILES="*[~#] *.OLD *.orig *,v .pkgsrc */.pkgsrc" PKG_INSTALLATION_TYPE="overwrite" case "${PKG_CONFIG:-YES}" in [Yy][Ee][Ss]|[Tt][Rr][Uu][Ee]|[Oo][Nn]|1) _PKG_CONFIG=yes ;; [Nn][Oo]|[Ff][Aa][Ll][Ss][Ee]|[Oo][Ff][Ff]|0) _PKG_CONFIG=yes ;; esac # $NetBSD: deinstall-pre,v 1.1 2006/05/21 23:50:15 jlam Exp $ # Ensure that the VIEW-DEINSTALL action is called for overwrite packages. # This is here to ensure that it's the first DEINSTALL action (before # any DEINSTALL_TEMPLATE DEINSTALL actions). # case ${STAGE} in DEINSTALL) if [ "${PKG_INSTALLATION_TYPE}" = "overwrite" ]; then ${SETENV} PKG_PREFIX="${PKG_PREFIX}" \ $0 ${PKGNAME} VIEW-DEINSTALL fi ;; esac # $NetBSD: deinstall.tmpl,v 1.1 2005/08/12 19:59:03 jlam Exp $ case ${STAGE} in DEINSTALL) eval `${PERL5} -V:prefix -V:archlib -V:scriptdir` PERL5_PACKLIST="/usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/auto/IO/Compress/Zlib/.packlist" # Remove the perllocal.pod file. case "$archlib" in $prefix/*) archlib="${PKG_PREFIX}/${archlib#$prefix/}" ;; esac ${RM} -f $archlib/perllocal.pod ${RMDIR} -p $archlib 2>/dev/null || ${TRUE} # Remove any symlinked bits that belong to this module. $scriptdir/perllink -f -p ${PKG_PREFIX} delete ${PERL5_PACKLIST} # If this is not the perl package, then re-link any perl bits # back into place. # $scriptdir/perllink -p ${PKG_PREFIX} add ;; esac # $NetBSD: deinstall,v 1.2 2007/07/18 18:01:03 jlam Exp $ case ${STAGE} in VIEW-DEINSTALL) case ${_PKG_CONFIG} in yes) case ${PKG_SYSCONFDEPOTBASE} in "") ${TEST} ! -x ./+FILES || ./+FILES VIEW-REMOVE ${PREFIX} ${PKG_PREFIX} ;; *) ${SETENV} PLIST_IGNORE_FILES="${CONF_IGNORE_FILES}" \ ${LINKFARM} -D -t ${PKG_SYSCONFVIEWBASE} -d ${PKG_SYSCONFDEPOTBASE} ${PKGNAME} ${RMDIR} -p ${PKG_SYSCONFVIEWBASE} 2>/dev/null || ${TRUE} ;; esac ;; esac # # Unregister info files. # ${TEST} ! -x ./+INFO_FILES || ./+INFO_FILES REMOVE ${PKG_METADATA_DIR} # # Remove shells from /etc/shells. # ${TEST} ! -x ./+SHELL || ./+SHELL REMOVE ${PKG_METADATA_DIR} ${TEST} ! -x ./+SHELL || ./+SHELL CHECK-REMOVE ${PKG_METADATA_DIR} ;; DEINSTALL) # Remove configuration files if they don't differ from the default # config file. # ${TEST} ! -x ./+FILES || ./+FILES REMOVE ${PKG_METADATA_DIR} ;; POST-DEINSTALL) if [ "${PKG_INSTALLATION_TYPE}" = "pkgviews" -a \ "${_PKG_CONFIG}" = "yes" -a -n "${CONF_DEPENDS}" ]; then if [ -h ${PKG_SYSCONFDIR} ]; then ${RM} -f ${PKG_SYSCONFDIR} fi ${RMDIR} -p `${DIRNAME} ${PKG_SYSCONFDIR}` 2>/dev/null || ${TRUE} fi # # Update any fonts databases. # ${TEST} ! -x ./+FONTS || ./+FONTS ${PKG_METADATA_DIR} # # Rebuild the system run-time library search path database. # ${TEST} ! -x ./+SHLIBS || ./+SHLIBS REMOVE ${PKG_METADATA_DIR} # # Remove empty directories and unused users/groups. # ${TEST} ! -x ./+DIRS || ./+DIRS REMOVE ${PKG_METADATA_DIR} ${TEST} ! -x ./+USERGROUP || ./+USERGROUP REMOVE ${PKG_METADATA_DIR} # # Check for any existing bits after we're finished de-installing. # ${TEST} ! -x ./+USERGROUP || ./+USERGROUP CHECK-REMOVE ${PKG_METADATA_DIR} ${TEST} ! -x ./+FILES || ./+FILES CHECK-REMOVE ${PKG_METADATA_DIR} ${TEST} ! -x ./+DIRS || ./+DIRS CHECK-REMOVE ${PKG_METADATA_DIR} ;; esac # $NetBSD: footer,v 1.1 2006/05/21 23:50:15 jlam Exp $ exit 0 +BUILD_VERSION000644 000000 000000 00000000266 11102106172 013071 0ustar00rootroot000000 000000 devel/p5-IO-Compress-Zlib/distinfo: $NetBSD: distinfo,v 1.6 2008/10/13 12:40:18 obache Exp $ devel/p5-IO-Compress-Zlib/Makefile: $NetBSD: Makefile,v 1.7 2008/10/19 19:17:55 he Exp $ +BUILD_INFO000644 000000 000000 00000005041 11102106200 012463 0ustar00rootroot000000 000000 ABI= BUILD_DATE=2008-10-29 11:17:04 -0500 BUILD_HOST=SunOS marcie.christtrek.org 5.10 Generic_127127-11 sun4u sparc SUNW,Ultra-5_10 CATEGORIES=devel perl5 CFLAGS=-O -O2 -I/usr/pkg/include -I/usr/include CMAKE_ARGS= CONFIGURE_ARGS= CONFIGURE_ENV=PTHREAD_CFLAGS=\ -D_REENTRANT PTHREAD_LDFLAGS= PTHREAD_LIBS=-lpthread\ -lrt PTHREADBASE=/usr INSTALL_INFO= MAKEINFO=/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.tools/bin/makeinfo PKG_CONFIG= PKG_CONFIG_LIBDIR=/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.buildlink/lib/pkgconfig:/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.buildlink/share/pkgconfig PKG_CONFIG_LOG=/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.pkg-config.log PKG_CONFIG_PATH= MAKE=make WRAPPER_DEBUG=no WRAPPER_UPDATE_CACHE=yes CPP=gcc\ -E CXXCPP=gcc\ -E CC=gcc CFLAGS=-O\ -O2\ -I/usr/pkg/include\ -I/usr/include CPPFLAGS=-I/usr/pkg/include\ -I/usr/include CXX=g++ CXXFLAGS=-O\ -O2\ -I/usr/pkg/include\ -I/usr/include\ -O2 COMPILER_RPATH_FLAG=-Wl,-R F77=f77 FC=f77 FFLAGS=-O LANG=C LC_COLLATE=C LC_CTYPE=C LC_MESSAGES=C LC_MONETARY=C LC_NUMERIC=C LC_TIME=C LDFLAGS=-L/usr/pkg/gcc34/lib/gcc/sparc-sun-solaris2.10/3.4.6\ -Wl,-R/usr/pkg/gcc34/lib/gcc/sparc-sun-solaris2.10/3.4.6\ -L/usr/pkg/gcc34/lib\ -Wl,-R/usr/pkg/gcc34/lib\ -L/usr/pkg/lib\ -Wl,-R/usr/pkg/lib\ -L/usr/lib\ -Wl,-R/usr/lib LINKER_RPATH_FLAG=-R PATH=/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.wrapper/bin:/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.buildlink/bin:/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.tools/bin:/usr/pkg/bin:/usr/sbin:/usr/bin:/usr/ucb:/usr/ccs/bin:/usr/xpg4/bin:/usr/dt/bin:/usr/X11/bin:/usr/pkg/sbin:/usr/pkg/bin:/usr/openwin/bin:/usr/sfw/sbin:/usr/sfw/bin:/usr/local/bin:/usr/pkg/bin:/usr/openwin/bin PREFIX=/usr/pkg PKG_SYSCONFDIR=/usr/pkg/etc HOME=/usr/pkgsrc/devel/p5-IO-Compress-Zlib/work.sparc/.home CPPFLAGS= -I/usr/pkg/include -I/usr/include FFLAGS=-O HOMEPAGE=http://search.cpan.org/dist/IO-Compress-Zlib/ LDFLAGS= -L/usr/pkg/gcc34/lib/gcc/sparc-sun-solaris2.10/3.4.6 -Wl,-R/usr/pkg/gcc34/lib/gcc/sparc-sun-solaris2.10/3.4.6 -L/usr/pkg/gcc34/lib -Wl,-R/usr/pkg/gcc34/lib -L/usr/pkg/lib -Wl,-R/usr/pkg/lib -L/usr/lib -Wl,-R/usr/lib LICENSE= LOCALBASE=/usr/pkg MACHINE_ARCH=sparc MACHINE_GNU_ARCH=sparc MAINTAINER=pkgsrc-users@NetBSD.org NO_BIN_ON_CDROM= NO_BIN_ON_FTP= NO_SRC_ON_CDROM= NO_SRC_ON_FTP= OBJECT_FMT=ELF OPSYS=SunOS OS_VERSION=5.10 PKGINFODIR=info PKGMANDIR=man PKGPATH=devel/p5-IO-Compress-Zlib PKG_SYSCONFBASEDIR=/usr/pkg/etc PKG_SYSCONFDIR=/usr/pkg/etc PKGTOOLS_VERSION=20080423 _PLIST_IGNORE_FILES= RESTRICTED= _USE_DESTDIR=no +SIZE_PKG000644 000000 000000 00000000007 11102106201 012262 0ustar00rootroot000000 000000 564695 +SIZE_ALL000644 000000 000000 00000000011 11102106172 012253 0ustar00rootroot000000 000000 48430780 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/auto/IO/Compress/Zlib/.packlist000644 000000 000000 00000004147 11102106165 030634 0ustar00rootroot000000 000000 /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter/Deflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter/Identity.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Deflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip/Constants.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/RawDeflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zip.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zip/Constants.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zlib/Constants.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Zlib/Extra.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Adapter/Identity.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Adapter/Inflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/AnyInflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Gunzip.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Inflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/RawInflate.pm /usr/pkg/lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Uncompress/Unzip.pm /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Compress::Deflate.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Compress::Gzip.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Compress::RawDeflate.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Compress::Zip.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Uncompress::AnyInflate.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Uncompress::Gunzip.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Uncompress::Inflate.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Uncompress::RawInflate.3 /usr/pkg/lib/perl5/vendor_perl/man/man3/IO::Uncompress::Unzip.3 lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter/Deflate.pm000444 000000 000000 00000005375 11057507154 030451 0ustar00rootroot000000 000000 package IO::Compress::Adapter::Deflate ; use strict; use warnings; use bytes; use IO::Compress::Base::Common 2.015 qw(:Status); use Compress::Raw::Zlib 2.015 qw(Z_OK Z_FINISH MAX_WBITS) ; our ($VERSION); $VERSION = '2.015'; sub mkCompObject { my $crc32 = shift ; my $adler32 = shift ; my $level = shift ; my $strategy = shift ; my ($def, $status) = new Compress::Raw::Zlib::Deflate -AppendOutput => 1, -CRC32 => $crc32, -ADLER32 => $adler32, -Level => $level, -Strategy => $strategy, -WindowBits => - MAX_WBITS; return (undef, "Cannot create Deflate object: $status", $status) if $status != Z_OK; return bless {'Def' => $def, 'Error' => '', } ; } sub compr { my $self = shift ; my $def = $self->{Def}; my $status = $def->deflate($_[0], $_[1]) ; $self->{ErrorNo} = $status; if ($status != Z_OK) { $self->{Error} = "Deflate Error: $status"; return STATUS_ERROR; } return STATUS_OK; } sub flush { my $self = shift ; my $def = $self->{Def}; my $opt = $_[1] || Z_FINISH; my $status = $def->flush($_[0], $opt); $self->{ErrorNo} = $status; if ($status != Z_OK) { $self->{Error} = "Deflate Error: $status"; return STATUS_ERROR; } return STATUS_OK; } sub close { my $self = shift ; my $def = $self->{Def}; $def->flush($_[0], Z_FINISH) if defined $def ; } sub reset { my $self = shift ; my $def = $self->{Def}; my $status = $def->deflateReset() ; $self->{ErrorNo} = $status; if ($status != Z_OK) { $self->{Error} = "Deflate Error: $status"; return STATUS_ERROR; } return STATUS_OK; } sub deflateParams { my $self = shift ; my $def = $self->{Def}; my $status = $def->deflateParams(@_); $self->{ErrorNo} = $status; if ($status != Z_OK) { $self->{Error} = "deflateParams Error: $status"; return STATUS_ERROR; } return STATUS_OK; } #sub total_out #{ # my $self = shift ; # $self->{Def}->total_out(); #} # #sub total_in #{ # my $self = shift ; # $self->{Def}->total_in(); #} sub compressedBytes { my $self = shift ; $self->{Def}->compressedBytes(); } sub uncompressedBytes { my $self = shift ; $self->{Def}->uncompressedBytes(); } sub crc32 { my $self = shift ; $self->{Def}->crc32(); } sub adler32 { my $self = shift ; $self->{Def}->adler32(); } 1; __END__ lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Adapter/Identity.pm000444 000000 000000 00000002636 11057507154 030673 0ustar00rootroot000000 000000 package IO::Compress::Adapter::Identity ; use strict; use warnings; use bytes; use IO::Compress::Base::Common 2.015 qw(:Status); our ($VERSION); $VERSION = '2.015'; sub mkCompObject { my $level = shift ; my $strategy = shift ; return bless { 'CompSize' => 0, 'UnCompSize' => 0, 'Error' => '', 'ErrorNo' => 0, } ; } sub compr { my $self = shift ; if (defined ${ $_[0] } && length ${ $_[0] }) { $self->{CompSize} += length ${ $_[0] } ; $self->{UnCompSize} = $self->{CompSize} ; if ( ref $_[1] ) { ${ $_[1] } .= ${ $_[0] } } else { $_[1] .= ${ $_[0] } } } return STATUS_OK ; } sub flush { my $self = shift ; return STATUS_OK; } sub close { my $self = shift ; return STATUS_OK; } sub reset { my $self = shift ; $self->{CompSize} = 0; $self->{UnCompSize} = 0; return STATUS_OK; } sub deflateParams { my $self = shift ; return STATUS_OK; } #sub total_out #{ # my $self = shift ; # return $self->{UnCompSize} ; #} # #sub total_in #{ # my $self = shift ; # return $self->{UnCompSize} ; #} sub compressedBytes { my $self = shift ; return $self->{UnCompSize} ; } sub uncompressedBytes { my $self = shift ; return $self->{UnCompSize} ; } 1; __END__ lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Deflate.pm000444 000000 000000 00000051602 11057507145 027063 0ustar00rootroot000000 000000 package IO::Compress::Deflate ; use strict ; use warnings; use bytes; require Exporter ; use IO::Compress::RawDeflate 2.015 ; use Compress::Raw::Zlib 2.015 ; use IO::Compress::Zlib::Constants 2.015 ; use IO::Compress::Base::Common 2.015 qw(createSelfTiedObject); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError); $VERSION = '2.015'; $DeflateError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); @EXPORT_OK = qw( $DeflateError deflate ) ; %EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ; push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ; Exporter::export_ok_tags('all'); sub new { my $class = shift ; my $obj = createSelfTiedObject($class, \$DeflateError); return $obj->_create(undef, @_); } sub deflate { my $obj = createSelfTiedObject(undef, \$DeflateError); return $obj->_def(@_); } sub bitmask($$$$) { my $into = shift ; my $value = shift ; my $offset = shift ; my $mask = shift ; return $into | (($value & $mask) << $offset ) ; } sub mkDeflateHdr($$$;$) { my $method = shift ; my $cinfo = shift; my $level = shift; my $fdict_adler = shift ; my $cmf = 0; my $flg = 0; my $fdict = 0; $fdict = 1 if defined $fdict_adler; $cmf = bitmask($cmf, $method, ZLIB_CMF_CM_OFFSET, ZLIB_CMF_CM_BITS); $cmf = bitmask($cmf, $cinfo, ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS); $flg = bitmask($flg, $fdict, ZLIB_FLG_FDICT_OFFSET, ZLIB_FLG_FDICT_BITS); $flg = bitmask($flg, $level, ZLIB_FLG_LEVEL_OFFSET, ZLIB_FLG_LEVEL_BITS); my $fcheck = 31 - ($cmf * 256 + $flg) % 31 ; $flg = bitmask($flg, $fcheck, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS); my $hdr = pack("CC", $cmf, $flg) ; $hdr .= pack("N", $fdict_adler) if $fdict ; return $hdr; } sub mkHeader { my $self = shift ; my $param = shift ; my $level = $param->value('Level'); my $strategy = $param->value('Strategy'); my $lflag ; $level = 6 if $level == Z_DEFAULT_COMPRESSION ; if (ZLIB_VERNUM >= 0x1210) { if ($strategy >= Z_HUFFMAN_ONLY || $level < 2) { $lflag = ZLIB_FLG_LEVEL_FASTEST } elsif ($level < 6) { $lflag = ZLIB_FLG_LEVEL_FAST } elsif ($level == 6) { $lflag = ZLIB_FLG_LEVEL_DEFAULT } else { $lflag = ZLIB_FLG_LEVEL_SLOWEST } } else { $lflag = ($level - 1) >> 1 ; $lflag = 3 if $lflag > 3 ; } #my $wbits = (MAX_WBITS - 8) << 4 ; my $wbits = 7; mkDeflateHdr(ZLIB_CMF_CM_DEFLATED, $wbits, $lflag); } sub ckParams { my $self = shift ; my $got = shift; $got->value('ADLER32' => 1); return 1 ; } sub mkTrailer { my $self = shift ; return pack("N", *$self->{Compress}->adler32()) ; } sub mkFinalTrailer { return ''; } #sub newHeader #{ # my $self = shift ; # return *$self->{Header}; #} sub getExtraParams { my $self = shift ; return $self->getZlibParams(), } sub getInverseClass { return ('IO::Uncompress::Inflate', \$IO::Uncompress::Inflate::InflateError); } sub getFileInfo { my $self = shift ; my $params = shift; my $file = shift ; } 1; __END__ =head1 NAME IO::Compress::Deflate - Write RFC 1950 files/buffers =head1 SYNOPSIS use IO::Compress::Deflate qw(deflate $DeflateError) ; my $status = deflate $input => $output [,OPTS] or die "deflate failed: $DeflateError\n"; my $z = new IO::Compress::Deflate $output [,OPTS] or die "deflate failed: $DeflateError\n"; $z->print($string); $z->printf($format, $string); $z->write($string); $z->syswrite($string [, $length, $offset]); $z->flush(); $z->tell(); $z->eof(); $z->seek($position, $whence); $z->binmode(); $z->fileno(); $z->opened(); $z->autoflush(); $z->input_line_number(); $z->newStream( [OPTS] ); $z->deflateParams(); $z->close() ; $DeflateError ; # IO::File mode print $z $string; printf $z $format, $string; tell $z eof $z seek $z, $position, $whence binmode $z fileno $z close $z ; =head1 DESCRIPTION This module provides a Perl interface that allows writing compressed data to files or buffer as defined in RFC 1950. For reading RFC 1950 files/buffers, see the companion module L. =head1 Functional Interface A top-level function, C, is provided to carry out "one-shot" compression between buffers and/or files. For finer control over the compression process, see the L section. use IO::Compress::Deflate qw(deflate $DeflateError) ; deflate $input => $output [,OPTS] or die "deflate failed: $DeflateError\n"; The functional interface needs Perl5.005 or better. =head2 deflate $input => $output [, OPTS] C expects at least two parameters, C<$input> and C<$output>. =head3 The C<$input> parameter The parameter, C<$input>, is used to define the source of the uncompressed data. It can take one of the following forms: =over 5 =item A filename If the C<$input> parameter is a simple scalar, it is assumed to be a filename. This file will be opened for reading and the input data will be read from it. =item A filehandle If the C<$input> parameter is a filehandle, the input data will be read from it. The string '-' can be used as an alias for standard input. =item A scalar reference If C<$input> is a scalar reference, the input data will be read from C<$$input>. =item An array reference If C<$input> is an array reference, each element in the array must be a filename. The input data will be read from each file in turn. The complete array will be walked to ensure that it only contains valid filenames before any data is compressed. =item An Input FileGlob string If C<$input> is a string that is delimited by the characters "<" and ">" C will assume that it is an I. The input is the list of files that match the fileglob. If the fileglob does not match any files ... See L for more details. =back If the C<$input> parameter is any other type, C will be returned. =head3 The C<$output> parameter The parameter C<$output> is used to control the destination of the compressed data. This parameter can take one of these forms. =over 5 =item A filename If the C<$output> parameter is a simple scalar, it is assumed to be a filename. This file will be opened for writing and the compressed data will be written to it. =item A filehandle If the C<$output> parameter is a filehandle, the compressed data will be written to it. The string '-' can be used as an alias for standard output. =item A scalar reference If C<$output> is a scalar reference, the compressed data will be stored in C<$$output>. =item An Array Reference If C<$output> is an array reference, the compressed data will be pushed onto the array. =item An Output FileGlob If C<$output> is a string that is delimited by the characters "<" and ">" C will assume that it is an I. The output is the list of files that match the fileglob. When C<$output> is an fileglob string, C<$input> must also be a fileglob string. Anything else is an error. =back If the C<$output> parameter is any other type, C will be returned. =head2 Notes When C<$input> maps to multiple files/buffers and C<$output> is a single file/buffer the input files/buffers will be stored in C<$output> as a concatenated series of compressed data streams. =head2 Optional Parameters Unless specified below, the optional parameters for C, C, are the same as those used with the OO interface defined in the L section below. =over 5 =item C<< AutoClose => 0|1 >> This option applies to any input or output data streams to C that are filehandles. If C is specified, and the value is true, it will result in all input and/or output filehandles being closed once C has completed. This parameter defaults to 0. =item C<< BinModeIn => 0|1 >> When reading from a file or filehandle, set C before reading. Defaults to 0. =item C<< Append => 0|1 >> TODO =back =head2 Examples To read the contents of the file C and write the compressed data to the file C. use strict ; use warnings ; use IO::Compress::Deflate qw(deflate $DeflateError) ; my $input = "file1.txt"; deflate $input => "$input.1950" or die "deflate failed: $DeflateError\n"; To read from an existing Perl filehandle, C<$input>, and write the compressed data to a buffer, C<$buffer>. use strict ; use warnings ; use IO::Compress::Deflate qw(deflate $DeflateError) ; use IO::File ; my $input = new IO::File " \$buffer or die "deflate failed: $DeflateError\n"; To compress all files in the directory "/my/home" that match "*.txt" and store the compressed data in the same directory use strict ; use warnings ; use IO::Compress::Deflate qw(deflate $DeflateError) ; deflate '' => '<*.1950>' or die "deflate failed: $DeflateError\n"; and if you want to compress each file one at a time, this will do the trick use strict ; use warnings ; use IO::Compress::Deflate qw(deflate $DeflateError) ; for my $input ( glob "/my/home/*.txt" ) { my $output = "$input.1950" ; deflate $input => $output or die "Error compressing '$input': $DeflateError\n"; } =head1 OO Interface =head2 Constructor The format of the constructor for C is shown below my $z = new IO::Compress::Deflate $output [,OPTS] or die "IO::Compress::Deflate failed: $DeflateError\n"; It returns an C object on success and undef on failure. The variable C<$DeflateError> will contain an error message on failure. If you are running Perl 5.005 or better the object, C<$z>, returned from IO::Compress::Deflate can be used exactly like an L filehandle. This means that all normal output file operations can be carried out with C<$z>. For example, to write to a compressed file/buffer you can use either of these forms $z->print("hello world\n"); print $z "hello world\n"; The mandatory parameter C<$output> is used to control the destination of the compressed data. This parameter can take one of these forms. =over 5 =item A filename If the C<$output> parameter is a simple scalar, it is assumed to be a filename. This file will be opened for writing and the compressed data will be written to it. =item A filehandle If the C<$output> parameter is a filehandle, the compressed data will be written to it. The string '-' can be used as an alias for standard output. =item A scalar reference If C<$output> is a scalar reference, the compressed data will be stored in C<$$output>. =back If the C<$output> parameter is any other type, C::new will return undef. =head2 Constructor Options C is any combination of the following options: =over 5 =item C<< AutoClose => 0|1 >> This option is only valid when the C<$output> parameter is a filehandle. If specified, and the value is true, it will result in the C<$output> being closed once either the C method is called or the C object is destroyed. This parameter defaults to 0. =item C<< Append => 0|1 >> Opens C<$output> in append mode. The behaviour of this option is dependent on the type of C<$output>. =over 5 =item * A Buffer If C<$output> is a buffer and C is enabled, all compressed data will be append to the end if C<$output>. Otherwise C<$output> will be cleared before any data is written to it. =item * A Filename If C<$output> is a filename and C is enabled, the file will be opened in append mode. Otherwise the contents of the file, if any, will be truncated before any compressed data is written to it. =item * A Filehandle If C<$output> is a filehandle, the file pointer will be positioned to the end of the file via a call to C before any compressed data is written to it. Otherwise the file pointer will not be moved. =back This parameter defaults to 0. =item C<< Merge => 0|1 >> This option is used to compress input data and append it to an existing compressed data stream in C<$output>. The end result is a single compressed data stream stored in C<$output>. It is a fatal error to attempt to use this option when C<$output> is not an RFC 1950 data stream. There are a number of other limitations with the C option: =over 5 =item 1 This module needs to have been built with zlib 1.2.1 or better to work. A fatal error will be thrown if C is used with an older version of zlib. =item 2 If C<$output> is a file or a filehandle, it must be seekable. =back This parameter defaults to 0. =item -Level Defines the compression level used by zlib. The value should either be a number between 0 and 9 (0 means no compression and 9 is maximum compression), or one of the symbolic constants defined below. Z_NO_COMPRESSION Z_BEST_SPEED Z_BEST_COMPRESSION Z_DEFAULT_COMPRESSION The default is Z_DEFAULT_COMPRESSION. Note, these constants are not imported by C by default. use IO::Compress::Deflate qw(:strategy); use IO::Compress::Deflate qw(:constants); use IO::Compress::Deflate qw(:all); =item -Strategy Defines the strategy used to tune the compression. Use one of the symbolic constants defined below. Z_FILTERED Z_HUFFMAN_ONLY Z_RLE Z_FIXED Z_DEFAULT_STRATEGY The default is Z_DEFAULT_STRATEGY. =item C<< Strict => 0|1 >> This is a placeholder option. =back =head2 Examples TODO =head1 Methods =head2 print Usage is $z->print($data) print $z $data Compresses and outputs the contents of the C<$data> parameter. This has the same behaviour as the C built-in. Returns true if successful. =head2 printf Usage is $z->printf($format, $data) printf $z $format, $data Compresses and outputs the contents of the C<$data> parameter. Returns true if successful. =head2 syswrite Usage is $z->syswrite $data $z->syswrite $data, $length $z->syswrite $data, $length, $offset Compresses and outputs the contents of the C<$data> parameter. Returns the number of uncompressed bytes written, or C if unsuccessful. =head2 write Usage is $z->write $data $z->write $data, $length $z->write $data, $length, $offset Compresses and outputs the contents of the C<$data> parameter. Returns the number of uncompressed bytes written, or C if unsuccessful. =head2 flush Usage is $z->flush; $z->flush($flush_type); Flushes any pending compressed data to the output file/buffer. This method takes an optional parameter, C<$flush_type>, that controls how the flushing will be carried out. By default the C<$flush_type> used is C. Other valid values for C<$flush_type> are C, C, C and C. It is strongly recommended that you only set the C parameter if you fully understand the implications of what it does - overuse of C can seriously degrade the level of compression achieved. See the C documentation for details. Returns true on success. =head2 tell Usage is $z->tell() tell $z Returns the uncompressed file offset. =head2 eof Usage is $z->eof(); eof($z); Returns true if the C method has been called. =head2 seek $z->seek($position, $whence); seek($z, $position, $whence); Provides a sub-set of the C functionality, with the restriction that it is only legal to seek forward in the output file/buffer. It is a fatal error to attempt to seek backward. Empty parts of the file/buffer will have NULL (0x00) bytes written to them. The C<$whence> parameter takes one the usual values, namely SEEK_SET, SEEK_CUR or SEEK_END. Returns 1 on success, 0 on failure. =head2 binmode Usage is $z->binmode binmode $z ; This is a noop provided for completeness. =head2 opened $z->opened() Returns true if the object currently refers to a opened file/buffer. =head2 autoflush my $prev = $z->autoflush() my $prev = $z->autoflush(EXPR) If the C<$z> object is associated with a file or a filehandle, this method returns the current autoflush setting for the underlying filehandle. If C is present, and is non-zero, it will enable flushing after every write/print operation. If C<$z> is associated with a buffer, this method has no effect and always returns C. B that the special variable C<$|> B be used to set or retrieve the autoflush setting. =head2 input_line_number $z->input_line_number() $z->input_line_number(EXPR) This method always returns C when compressing. =head2 fileno $z->fileno() fileno($z) If the C<$z> object is associated with a file or a filehandle, C will return the underlying file descriptor. Once the C method is called C will return C. If the C<$z> object is is associated with a buffer, this method will return C. =head2 close $z->close() ; close $z ; Flushes any pending compressed data and then closes the output file/buffer. For most versions of Perl this method will be automatically invoked if the IO::Compress::Deflate object is destroyed (either explicitly or by the variable with the reference to the object going out of scope). The exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In these cases, the C method will be called automatically, but not until global destruction of all live objects when the program is terminating. Therefore, if you want your scripts to be able to run on all versions of Perl, you should call C explicitly and not rely on automatic closing. Returns true on success, otherwise 0. If the C option has been enabled when the IO::Compress::Deflate object was created, and the object is associated with a file, the underlying file will also be closed. =head2 newStream([OPTS]) Usage is $z->newStream( [OPTS] ) Closes the current compressed data stream and starts a new one. OPTS consists of any of the the options that are available when creating the C<$z> object. See the L section for more details. =head2 deflateParams Usage is $z->deflateParams TODO =head1 Importing A number of symbolic constants are required by some methods in C. None are imported by default. =over 5 =item :all Imports C, C<$DeflateError> and all symbolic constants that can be used by C. Same as doing this use IO::Compress::Deflate qw(deflate $DeflateError :constants) ; =item :constants Import all symbolic constants. Same as doing this use IO::Compress::Deflate qw(:flush :level :strategy) ; =item :flush These symbolic constants are used by the C method. Z_NO_FLUSH Z_PARTIAL_FLUSH Z_SYNC_FLUSH Z_FULL_FLUSH Z_FINISH Z_BLOCK =item :level These symbolic constants are used by the C option in the constructor. Z_NO_COMPRESSION Z_BEST_SPEED Z_BEST_COMPRESSION Z_DEFAULT_COMPRESSION =item :strategy These symbolic constants are used by the C option in the constructor. Z_FILTERED Z_HUFFMAN_ONLY Z_RLE Z_FIXED Z_DEFAULT_STRATEGY =back =head1 EXAMPLES =head2 Apache::GZip Revisited See L =head2 Working with Net::FTP See L =head1 SEE ALSO L, L, L, L, L, L, L, L, L, L, L, L, L, L L L, L, L, L For RFC 1950, 1951 and 1952 see F, F and F The I compression library was written by Jean-loup Gailly F and Mark Adler F. The primary site for the I compression library is F. The primary site for gzip is F. =head1 AUTHOR This module was written by Paul Marquess, F. =head1 MODIFICATION HISTORY See the Changes file. =head1 COPYRIGHT AND LICENSE Copyright (c) 2005-2008 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip/Constants.pm000444 000000 000000 00000007475 11057507154 030415 0ustar00rootroot000000 000000 package IO::Compress::Gzip::Constants; use strict ; use warnings; use bytes; require Exporter; our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names); our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE); $VERSION = '2.015'; @ISA = qw(Exporter); @EXPORT= qw( GZIP_ID_SIZE GZIP_ID1 GZIP_ID2 GZIP_FLG_DEFAULT GZIP_FLG_FTEXT GZIP_FLG_FHCRC GZIP_FLG_FEXTRA GZIP_FLG_FNAME GZIP_FLG_FCOMMENT GZIP_FLG_RESERVED GZIP_CM_DEFLATED GZIP_MIN_HEADER_SIZE GZIP_TRAILER_SIZE GZIP_MTIME_DEFAULT GZIP_XFL_DEFAULT GZIP_FEXTRA_HEADER_SIZE GZIP_FEXTRA_MAX_SIZE GZIP_FEXTRA_SUBFIELD_HEADER_SIZE GZIP_FEXTRA_SUBFIELD_ID_SIZE GZIP_FEXTRA_SUBFIELD_LEN_SIZE GZIP_FEXTRA_SUBFIELD_MAX_SIZE $GZIP_FNAME_INVALID_CHAR_RE $GZIP_FCOMMENT_INVALID_CHAR_RE GZIP_FHCRC_SIZE GZIP_ISIZE_MAX GZIP_ISIZE_MOD_VALUE GZIP_NULL_BYTE GZIP_OS_DEFAULT %GZIP_OS_Names GZIP_MINIMUM_HEADER ); # Constant names derived from RFC 1952 use constant GZIP_ID_SIZE => 2 ; use constant GZIP_ID1 => 0x1F; use constant GZIP_ID2 => 0x8B; use constant GZIP_MIN_HEADER_SIZE => 10 ;# minimum gzip header size use constant GZIP_TRAILER_SIZE => 8 ; use constant GZIP_FLG_DEFAULT => 0x00 ; use constant GZIP_FLG_FTEXT => 0x01 ; use constant GZIP_FLG_FHCRC => 0x02 ; # called CONTINUATION in gzip use constant GZIP_FLG_FEXTRA => 0x04 ; use constant GZIP_FLG_FNAME => 0x08 ; use constant GZIP_FLG_FCOMMENT => 0x10 ; #use constant GZIP_FLG_ENCRYPTED => 0x20 ; # documented in gzip sources use constant GZIP_FLG_RESERVED => (0x20 | 0x40 | 0x80) ; use constant GZIP_XFL_DEFAULT => 0x00 ; use constant GZIP_MTIME_DEFAULT => 0x00 ; use constant GZIP_FEXTRA_HEADER_SIZE => 2 ; use constant GZIP_FEXTRA_MAX_SIZE => 0xFF ; use constant GZIP_FEXTRA_SUBFIELD_ID_SIZE => 2 ; use constant GZIP_FEXTRA_SUBFIELD_LEN_SIZE => 2 ; use constant GZIP_FEXTRA_SUBFIELD_HEADER_SIZE => GZIP_FEXTRA_SUBFIELD_ID_SIZE + GZIP_FEXTRA_SUBFIELD_LEN_SIZE; use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE => GZIP_FEXTRA_MAX_SIZE - GZIP_FEXTRA_SUBFIELD_HEADER_SIZE ; if (ord('A') == 193) { # EBCDIC $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x3f\xff]'; $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x0a\x11-\x14\x16-\x3f\xff]'; } else { $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x1F\x7F-\x9F]'; $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x09\x11-\x1F\x7F-\x9F]'; } use constant GZIP_FHCRC_SIZE => 2 ; # aka CONTINUATION in gzip use constant GZIP_CM_DEFLATED => 8 ; use constant GZIP_NULL_BYTE => "\x00"; use constant GZIP_ISIZE_MAX => 0xFFFFFFFF ; use constant GZIP_ISIZE_MOD_VALUE => GZIP_ISIZE_MAX + 1 ; # OS Names sourced from http://www.gzip.org/format.txt use constant GZIP_OS_DEFAULT=> 0xFF ; %GZIP_OS_Names = ( 0 => 'MS-DOS', 1 => 'Amiga', 2 => 'VMS', 3 => 'Unix', 4 => 'VM/CMS', 5 => 'Atari TOS', 6 => 'HPFS (OS/2, NT)', 7 => 'Macintosh', 8 => 'Z-System', 9 => 'CP/M', 10 => 'TOPS-20', 11 => 'NTFS (NT)', 12 => 'SMS QDOS', 13 => 'Acorn RISCOS', 14 => 'VFAT file system (Win95, NT)', 15 => 'MVS', 16 => 'BeOS', 17 => 'Tandem/NSK', 18 => 'THEOS', GZIP_OS_DEFAULT() => 'Unknown', ) ; use constant GZIP_MINIMUM_HEADER => pack("C4 V C C", GZIP_ID1, GZIP_ID2, GZIP_CM_DEFLATED, GZIP_FLG_DEFAULT, GZIP_MTIME_DEFAULT, GZIP_XFL_DEFAULT, GZIP_OS_DEFAULT) ; 1; lib/perl5/vendor_perl/5.10.0/sparc-solaris-thread-multi/IO/Compress/Gzip.pm000444 000000 000000 00000075436 11057507145 026443 0ustar00rootroot000000 000000 package IO::Compress::Gzip ; require 5.004 ; use strict ; use warnings; use bytes; use IO::Compress::RawDeflate 2.015 ; use Compress::Raw::Zlib 2.015 ; use IO::Compress::Base::Common 2.015 qw(:Status :Parse createSelfTiedObject); use IO::Compress::Gzip::Constants 2.015 ; use IO::Compress::Zlib::Extra 2.015 ; BEGIN { if (defined &utf8::downgrade ) { *noUTF8 = \&utf8::downgrade } else { *noUTF8 = sub {} } } require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError); $VERSION = '2.015'; $GzipError = '' ; @ISA = qw(Exporter IO::Compress::RawDeflate); @EXPORT_OK = qw( $GzipError gzip ) ; %EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ; push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ; Exporter::export_ok_tags('all'); sub new { my $class = shift ; my $obj = createSelfTiedObject($class, \$GzipError); $obj->_create(undef, @_); } sub gzip { my $obj = createSelfTiedObject(undef, \$GzipError); return $obj->_def(@_); } #sub newHeader #{ # my $self = shift ; # #return GZIP_MINIMUM_HEADER ; # return $self->mkHeader(*$self->{Got}); #} sub getExtraParams { my $self = shift ; return ( # zlib behaviour $self->getZlibParams(), # Gzip header fields 'Minimal' => [0, 1, Parse_boolean, 0], 'Comment' => [0, 1, Parse_any, undef], 'Name' => [0, 1, Parse_any, undef], 'Time' => [0, 1, Parse_any, undef], 'TextFlag' => [0, 1, Parse_boolean, 0], 'HeaderCRC' => [0, 1, Parse_boolean, 0], 'OS_Code' => [0, 1, Parse_unsigned, $Compress::Raw::Zlib::gzip_os_code], 'ExtraField'=> [0, 1, Parse_any, undef], 'ExtraFlags'=> [0, 1, Parse_any, undef], ); } sub ckParams { my $self = shift ; my $got = shift ; # gzip always needs crc32 $got->value('CRC32' => 1); return 1 if $got->value('Merge') ; my $strict = $got->value('Strict') ; { if (! $got->parsed('Time') ) { # Modification time defaults to now. $got->value('Time' => time) ; } # Check that the Name & Comment don't have embedded NULLs # Also check that they only contain ISO 8859-1 chars. if ($got->parsed('Name') && defined $got->value('Name')) { my $name = $got->value('Name'); return $self->saveErrorString(undef, "Null Character found in Name", Z_DATA_ERROR) if $strict && $name =~ /\x00/ ; return $self->saveErrorString(undef, "Non ISO 8859-1 Character found in Name", Z_DATA_ERROR) if $strict && $name =~ /$GZIP_FNAME_INVALID_CHAR_RE/o ; } if ($got->parsed('Comment') && defined $got->value('Comment')) { my $comment = $got->value('Comment'); return $self->saveErrorString(undef, "Null Character found in Comment", Z_DATA_ERROR) if $strict && $comment =~ /\x00/ ; return $self->saveErrorString(undef, "Non ISO 8859-1 Character found in Comment", Z_DATA_ERROR) if $strict && $comment =~ /$GZIP_FCOMMENT_INVALID_CHAR_RE/o; } if ($got->parsed('OS_Code') ) { my $value = $got->value('OS_Code'); return $self->saveErrorString(undef, "OS_Code must be between 0 and 255, got '$value'") if $value < 0 || $value > 255 ; } # gzip only supports Deflate at present $got->value('Method' => Z_DEFLATED) ; if ( ! $got->parsed('ExtraFlags')) { $got->value('ExtraFlags' => 2) if $got->value('Level') == Z_BEST_SPEED ; $got->value('ExtraFlags' => 4) if $got->value('Level') == Z_BEST_COMPRESSION ; } my $data = $got->value('ExtraField') ; if (defined $data) { my $bad = IO::Compress::Zlib::Extra::parseExtraField($data, $strict, 1) ; return $self->saveErrorString(undef, "Error with ExtraField Parameter: $bad", Z_DATA_ERROR) if $bad ; $got->value('ExtraField', $data) ; } } return 1; } sub mkTrailer { my $self = shift ; return pack("V V", *$self->{Compress}->crc32(), *$self->{UnCompSize}->get32bit()); } sub getInverseClass { return ('IO::Uncompress::Gunzip', \$IO::Uncompress::Gunzip::GunzipError); } sub getFileInfo { my $self = shift ; my $params = shift; my $filename = shift ; my $defaultTime = (stat($filename))[9] ; $params->value('Name' => $filename) if ! $params->parsed('Name') ; $params->value('Time' => $defaultTime) if ! $params->parsed('Time') ; } sub mkHeader { my $self = shift ; my $param = shift ; # stort-circuit if a minimal header is requested. return GZIP_MINIMUM_HEADER if $param->value('Minimal') ; # METHOD my $method = $param->valueOrDefault('Method', GZIP_CM_DEFLATED) ; # FLAGS my $flags = GZIP_FLG_DEFAULT ; $flags |= GZIP_FLG_FTEXT if $param->value('TextFlag') ; $flags |= GZIP_FLG_FHCRC if $param->value('HeaderCRC') ; $flags |= GZIP_FLG_FEXTRA if $param->wantValue('ExtraField') ; $flags |= GZIP_FLG_FNAME if $param->wantValue('Name') ; $flags |= GZIP_FLG_FCOMMENT if $param->wantValue('Comment') ; # MTIME my $time = $param->valueOrDefault('Time', GZIP_MTIME_DEFAULT) ; # EXTRA FLAGS my $extra_flags = $param->valueOrDefault('ExtraFlags', GZIP_XFL_DEFAULT); # OS CODE my $os_code = $param->valueOrDefault('OS_Code', GZIP_OS_DEFAULT) ; my $out = pack("C4 V C C", GZIP_ID1, # ID1 GZIP_ID2, # ID2 $method, # Compression Method $flags, # Flags $time, # Modification Time $extra_flags, # Extra Flags $os_code, # Operating System Code ) ; # EXTRA if ($flags & GZIP_FLG_FEXTRA) { my $extra = $param->value('ExtraField') ; $out .= pack("v", length $extra) . $extra ; } # NAME if ($flags & GZIP_FLG_FNAME) { my $name .= $param->value('Name') ; $name =~ s/\x00.*$//; $out .= $name ; # Terminate the filename with NULL unless it already is $out .= GZIP_NULL_BYTE if !length $name or substr($name, 1, -1) ne GZIP_NULL_BYTE ; } # COMMENT if ($flags & GZIP_FLG_FCOMMENT) { my $comment .= $param->value('Comment') ; $comment =~ s/\x00.*$//; $out .= $comment ; # Terminate the comment with NULL unless it already is $out .= GZIP_NULL_BYTE if ! length $comment or substr($comment, 1, -1) ne GZIP_NULL_BYTE; } # HEADER CRC $out .= pack("v", crc32($out) & 0x00FF ) if $param->value('HeaderCRC') ; noUTF8($out); return $out ; } sub mkFinalTrailer { return ''; } 1; __END__ =head1 NAME IO::Compress::Gzip - Write RFC 1952 files/buffers =head1 SYNOPSIS use IO::Compress::Gzip qw(gzip $GzipError) ; my $status = gzip $input => $output [,OPTS] or die "gzip failed: $GzipError\n"; my $z = new IO::Compress::Gzip $output [,OPTS] or die "gzip failed: $GzipError\n"; $z->print($string); $z->printf($format, $string); $z->write($string); $z->syswrite($string [, $length, $offset]); $z->flush(); $z->tell(); $z->eof(); $z->seek($position, $whence); $z->binmode(); $z->fileno(); $z->opened(); $z->autoflush(); $z->input_line_number(); $z->newStream( [OPTS] ); $z->deflateParams(); $z->close() ; $GzipError ; # IO::File mode print $z $string; printf $z $format, $string; tell $z eof $z seek $z, $position, $whence binmode $z fileno $z close $z ; =head1 DESCRIPTION This module provides a Perl interface that allows writing compressed data to files or buffer as defined in RFC 1952. All the gzip headers defined in RFC 1952 can be created using this module. For reading RFC 1952 files/buffers, see the companion module L. =head1 Functional Interface A top-level function, C, is provided to carry out "one-shot" compression between buffers and/or files. For finer control over the compression process, see the L section. use IO::Compress::Gzip qw(gzip $GzipError) ; gzip $input => $output [,OPTS] or die "gzip failed: $GzipError\n"; The functional interface needs Perl5.005 or better. =head2 gzip $input => $output [, OPTS] C expects at least two parameters, C<$input> and C<$output>. =head3 The C<$input> parameter The parameter, C<$input>, is used to define the source of the uncompressed data. It can take one of the following forms: =over 5 =item A filename If the C<$input> parameter is a simple scalar, it is assumed to be a filename. This file will be opened for reading and the input data will be read from it. =item A filehandle If the C<$input> parameter is a filehandle, the input data will be read from it. The string '-' can be used as an alias for standard input. =item A scalar reference If C<$input> is a scalar reference, the input data will be read from C<$$input>. =item An array reference If C<$input> is an array reference, each element in the array must be a filename. The input data will be read from each file in turn. The complete array will be walked to ensure that it only contains valid filenames before any data is compressed. =item An Input FileGlob string If C<$input> is a string that is delimited by the characters "<" and ">" C will assume that it is an I. The input is the list of files that match the fileglob. If the fileglob does not match any files ... See L for more details. =back If the C<$input> parameter is any other type, C will be returned. In addition, if C<$input> is a simple filename, the default values for the C and C