Update of /cvsroot/fink/experimental/chris01/10.3/main/finkinfo/libs/perlmods In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8857
Added Files: xml-sax-expat-pm.info xml-sax-expat-pm.patch xml-sax-pm.info xml-sax-pm.patch Log Message: New revision of xml-sax-pm that validates. --- NEW FILE: xml-sax-expat-pm.patch --- diff -Naur XML-SAX-Expat-0.37.orig/Makefile.PL XML-SAX-Expat-0.37/Makefile.PL --- XML-SAX-Expat-0.37.orig/Makefile.PL 2004-11-06 17:31:39.000000000 +0100 +++ XML-SAX-Expat-0.37/Makefile.PL 2004-11-06 17:32:02.000000000 +0100 @@ -16,16 +16,16 @@ ## add ourselves to the list of installed parsers -sub MY::install { - package MY; - my $script = shift->SUPER::install(@_); - $script =~ s/install :: (.*)$/install :: $1 install_sax_expat/m; - $script .= <<"INSTALL"; - -install_sax_expat : [EMAIL PROTECTED](PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::Expat))->save_parsers()" - -INSTALL - - return $script; -} +#sub MY::install { +# package MY; +# my $script = shift->SUPER::install(@_); +# $script =~ s/install :: (.*)$/install :: $1 install_sax_expat/m; +# $script .= <<"INSTALL"; +# +#install_sax_expat : [EMAIL PROTECTED](PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::Expat))->save_parsers()" +# +#INSTALL +# +# return $script; +#} --- NEW FILE: xml-sax-pm.patch --- diff -Nur XML-SAX-0.12.orig/Makefile.PL XML-SAX-0.12/Makefile.PL --- XML-SAX-0.12.orig/Makefile.PL Mon Jan 21 23:32:59 2002 +++ XML-SAX-0.12/Makefile.PL Mon Dec 2 01:24:58 2002 @@ -7,22 +7,23 @@ 'File::Temp' => 0, 'XML::NamespaceSupport' => 0.03, }, + 'EXE_FILES' => [ 'update-perl-sax-parsers' ], ); -sub MY::install { - package MY; - my $script = shift->SUPER::install(@_); - if (ExtUtils::MakeMaker::prompt("Do you want XML::SAX to alter ParserDetails.ini?", "Y") =~ /^y/i) { - $script =~ s/install :: (.*)$/install :: $1 install_sax_pureperl/m; - $script .= <<"INSTALL"; - -install_sax_pureperl : [EMAIL PROTECTED](PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()" - -INSTALL - - } - - return $script; -} +#sub MY::install { +# package MY; +# my $script = shift->SUPER::install(@_); +# if (ExtUtils::MakeMaker::prompt("Do you want XML::SAX to alter ParserDetails.ini?", "Y") =~ /^y/i) { +# $script =~ s/install :: (.*)$/install :: $1 install_sax_pureperl/m; +# $script .= <<"INSTALL"; +# +#install_sax_pureperl : [EMAIL PROTECTED](PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()" +# +#INSTALL +# +# } +# +# return $script; +#} diff -Nur XML-SAX-0.12.orig/SAX.pm XML-SAX-0.12/SAX.pm --- XML-SAX-0.12.orig/SAX.pm Tue Nov 19 20:25:45 2002 +++ XML-SAX-0.12/SAX.pm Mon Dec 2 01:56:35 2002 @@ -180,13 +180,46 @@ my $class = shift; # get directory from wherever XML::SAX is installed - my $dir = $INC{'XML/SAX.pm'}; - $dir = dirname($dir); + #my $dir = $INC{'XML/SAX.pm'}; + #$dir = dirname($dir); - my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS); + #my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS); + #chmod 0644, $file; + #unlink($file); + + #my $fh = gensym(); + #open($fh, ">$file") || + # die "Cannot write to $file: $!"; + + #foreach my $p (@$known_parsers) { + # print $fh "[$p->{Name}]\n"; + # foreach my $key (keys %{$p->{Features}}) { + # print $fh "$key = $p->{Features}{$key}\n"; + # } + # print $fh "\n"; + #} + + #print $fh "\n"; + + #close $fh; + + return $class; +} + +sub save_parsers_debian { + my $class = shift; + my ($parser_module) = @_; + + # add parser + $known_parsers = []; + $class->add_parser($parser_module); + + # get parser's ParserDetails file + my $dir = '@PREFIX@/etc/perl/XML/SAX/ParserDetails.d'; + my $file = File::Spec->catfile($dir, $parser_module); chmod 0644, $file; unlink($file); - + my $fh = gensym(); open($fh, ">$file") || die "Cannot write to $file: $!"; diff -Nur XML-SAX-0.12.orig/t/01known.t XML-SAX-0.12/t/01known.t --- XML-SAX-0.12.orig/t/01known.t Mon Jan 28 21:35:46 2002 +++ XML-SAX-0.12/t/01known.t Mon Dec 2 01:54:06 2002 @@ -1,6 +1,6 @@ use Test; -BEGIN { plan tests => 3 } -use XML::SAX; -ok(XML::SAX->save_parsers); -ok(XML::SAX->load_parsers); -ok(@{XML::SAX->parsers}, 0); +BEGIN { plan tests => 0 } +#use XML::SAX; +#ok(XML::SAX->save_parsers); +#ok(XML::SAX->load_parsers); +#ok(@{XML::SAX->parsers}, 0); diff -Nur XML-SAX-0.12.orig/t/99cleanup.t XML-SAX-0.12/t/99cleanup.t --- XML-SAX-0.12.orig/t/99cleanup.t Mon Jan 28 21:28:01 2002 +++ XML-SAX-0.12/t/99cleanup.t Mon Dec 2 01:54:21 2002 @@ -1,8 +1,8 @@ use Test; -BEGIN { plan tests => 1 } -use File::Spec; -ok(unlink( - File::Spec->catdir(qw(blib lib XML SAX ParserDetails.ini))), - 1, - 'delete ParserDetails.ini' -); +BEGIN { plan tests => 0 } +#use File::Spec; +#ok(unlink( +# File::Spec->catdir(qw(blib lib XML SAX ParserDetails.ini))), +# 1, +# 'delete ParserDetails.ini' +#); diff -Nur XML-SAX-0.12.orig/update-perl-sax-parsers XML-SAX-0.12/update-perl-sax-parsers --- XML-SAX-0.12.orig/update-perl-sax-parsers Thu Jan 1 02:00:00 1970 +++ XML-SAX-0.12/update-perl-sax-parsers Mon Dec 2 01:30:53 2002 @@ -0,0 +1,150 @@ +#!/usr/bin/perl +## ---------------------------------------------------------------------- +## Debian update-perl-sax-parsers version 0.1 +## ---------------------------------------------------------------------- +## Copyright (C) 2001 Ardo van Rangelrooij <[EMAIL PROTECTED]>. +## +## This is free software; see the GNU General Public Licence version 2 +## or later for copying conditions. There is NO warranty. +## ---------------------------------------------------------------------- + +## ---------------------------------------------------------------------- +use File::Spec (); +use XML::SAX (); + +## ---------------------------------------------------------------------- +$0 =~ m|[^/]+$|; +$name = $&; + +## ---------------------------------------------------------------------- +while ( $ARGV[0] =~ m/^--/ ) +{ + $_ = shift( @ARGV ); + last if $_ eq '--'; + if ( $_ eq '--add' ) + { + $add = 1; + } + elsif ( $_ eq '--remove' ) + { + $remove = 1; + } + elsif ( $_ eq '--update' ) + { + $update = 1; + } + elsif ( $_ eq '--quiet' ) + { + $quiet = 1; + } + elsif ( $_ eq '--test' ) + { + $debug = 1; + } + elsif ( $_ eq '--help' ) + { + &usage; + exit 0; + } + elsif ( $_ eq '--version' ) + { + &version; + exit 0; + } + else + { + print STDERR "$name: unknown option \`$_'\n"; + &usage; + exit 1; + } +} + +## ---------------------------------------------------------------------- +if ( ( $add || $remove ) && ! @ARGV ) +{ + print STDERR "$name: too few arguments\n"; + exit 1; +} + +## ---------------------------------------------------------------------- +$parser_module = shift( @ARGV ) if $add || $remove; + +## ---------------------------------------------------------------------- +if ( @ARGV ) +{ + print STDERR "$name: too many arguments\n"; + exit 1; +} + +## ---------------------------------------------------------------------- +print STDERR "$name: test mode - Perl SAX parsers file will not be updated\n" + if $debug && ! $quiet; + +## ---------------------------------------------------------------------- +my $PARSER_DETAILS_DIR = "@PREFIX@/etc/perl/XML/SAX/ParserDetails.d"; +my $PARSER_DETAILS_FILE = "@PREFIX@/etc/perl/XML/SAX/ParserDetails.ini"; + +## ---------------------------------------------------------------------- +if ( $add ) +{ + print "$name: adding Perl SAX parser module info file of $parser_module...\n" + unless $quiet; + + XML::SAX->save_parsers_debian( $parser_module ); +} +elsif ( $remove ) +{ + print "$name: removing Perl SAX parser module info file of $parser_module...\n" + unless $quiet; + + my $parser_file = File::Spec->catfile( $PARSER_DETAILS_DIR, $parser_module); + unlink( $parser_file ); +} +elsif ( $update ) +{ + print "$name: updating overall Perl SAX parser modules info file...\n" + unless $quiet; + + open( PARSER_DETAILS_FILE, ">$PARSER_DETAILS_FILE" ) + || die "Cannot write to $PARSER_DETAILS_FILE: $!"; + opendir( PARSER_DETAILS_DIR, $PARSER_DETAILS_DIR ) + || die "Cannot access $PARSER_DETAILS_DIR: $!"; + while ( defined( $parser_details = readdir( PARSER_DETAILS_DIR ) ) ) + { + next if $parser_details =~ /^\.\.?$/; # skip . and .. + open( PARSER_DETAILS, "$PARSER_DETAILS_DIR/$parser_details" ) + || die "Cannot read from $parser_details: $!"; + while ( <PARSER_DETAILS> ) { print PARSER_DETAILS_FILE; } + close( PARSER_DETAILS ); + } + closedir( PARSER_DETAILS_DIR ); + close( PARSER_DETAILS_FILE ); +} + +## ---------------------------------------------------------------------- +exit 0; + +## ---------------------------------------------------------------------- +sub usage +{ + print STDERR <<END; +Usage: + $name <options> --add <parser_module> + $name <options> --remove <parser_module> + $name <options> --update + +Options: + --quiet be quiet + --test do not modify any files, enables debugging mode + --version display version number + --help display this help text (usage) +END +} + +## ---------------------------------------------------------------------- +sub version +{ + print "Debian $name version 0.1\n"; +} + +## ---------------------------------------------------------------------- diff -Nur XML-SAX-0.12.orig/update-perl-sax-parsers.8 XML-SAX-0.12/update-perl-sax-parsers.8 --- XML-SAX-0.12.orig/update-perl-sax-parsers.8 Thu Jan 1 02:00:00 1970 +++ XML-SAX-0.12/update-perl-sax-parsers.8 Mon Dec 2 01:46:11 2002 @@ -0,0 +1,79 @@ +.\" -*- nroff -*- +.\" ---------------------------------------------------------------------- +.\" Copyright 2001 by Ardo van Rangelrooij. +.\" +.\" This is free software; see the GNU General Public Licence version 2 +.\" or later for copying conditions. There is NO warranty. +.\" ---------------------------------------------------------------------- +.\" +.\" ---------------------------------------------------------------------- +.TH UPDATE-PERL-SAX-PARSERS 8 "Dec 2001" "0.1" "Debian" +.\" +.\" ---------------------------------------------------------------------- +.SH NAME +update-perl-sax-parsers \- update Perl SAX parser module info files +.\" +.\" ---------------------------------------------------------------------- +.SH SYNOPSIS +.B update-perl-sax-parsers +.RI [ options ] +.B --add +.I parser_module +.PP +.B update-perl-sax-parsers +.RI [ options ] +.B --remove +.I parser_module +.PP +.B update-perl-sax-parsers +.RI [ options ] +.B --update +.\" +.\" ---------------------------------------------------------------------- +.SH DESCRIPTION +.B update-perl-sax-parsers +inserts, updates and removes individual Perl SAX parser module info +files in the directory +.I /etc/perl/XML/SAX/ParserDetails.d +and the overall Perl SAX parser modules info file +.IR /etc/perl/XML/SAX/ParserDetails.ini . +.\" +.\" ---------------------------------------------------------------------- +.SH OPTIONS +.TP +.B --add +Adds a Perl SAX parser module info file to the directory +.IR /etc/perl/XML/SAX/ParserDetails.d . +.TP +.B --remove +Removes a Perl SAX parser module info file +from the directory +.IR /etc/perl/XML/SAX/ParserDetails.d . +.TP +.B --update +updates the overall Perl SAX parser modules info file +.IR /etc/perl/XML/SAX/ParserDetails.ini . +.TP +.B --quiet +Prevents the usual diagnostic output. +.TP +.B --test +Prevents the update of the individual Perl SAX parser module info file and +the overall Perl SAX parser modules info file. +.TP +.B --version +Displays the version information and exits. +.TP +.B --help +Display the usage information and exits. +.\" +.\" ---------------------------------------------------------------------- +.SH COPYRIGHT +Copyright 2001, Ardo van Rangelrooij. +.PP +This is free software; see the GNU General Public Licence version 2 or +later for copying conditions. There is +.I no +warranty. +.\" +.\" ---------------------------------------------------------------------- --- NEW FILE: xml-sax-pm.info --- Info2: << Package: xml-sax-pm%type_pkg[perl] Version: 0.13 Revision: 2 Replaces: xml-sax-pm (<= 0.12-16), %{Ni}560, %{Ni}580, %{Ni}581, %{Ni}584, %{Ni}586 Source: mirror:cpan:authors/id/M/MS/MSERGEANT/XML-SAX-%v.tar.gz Source-MD5: e8b1ce0a954888bcd3aa2ed8621774ef Type: perl (5.8.1 5.8.4 5.8.6) Depends: perl%type_pkg[perl]-core, xml-namespacesupport-pm, file-temp-pm%type_pkg[perl] BuildDepends: fink (>= 0.20.6-1) UpdatePOD: true PatchScript: sed 's|@PREFIX@|%p|g' < %a/%{Ni}.patch | patch -p1 DocFiles: Changes MANIFEST README LICENSE InstallScript: << %{default_script} # ln -s %p/etc/perl/XML/SAX/ParserDetails.ini %i/lib/perl5/XML/SAX/ParserDetails.ini # mv %i/lib/perl5/XML %i/lib/perl5/%type_raw[perl] mv %i/share/man %i/lib/perl5/%type_raw[perl] mv %i/bin/update-perl-sax-parsers %i/bin/update-perl%type_pkg[perl]-sax-parsers << PreInstScript: << if [ "$1" = install ] then install -d -m 755 %p/etc/perl/XML/SAX install -d -m 755 %p/etc/perl/XML/SAX/ParserDetails.d touch %p/etc/perl/XML/SAX/ParserDetails.ini elif [ "$1" = upgrade ] then install -d -m 755 %p/etc/perl/XML if [ -d %p/etc/xml/SAX ] then mv %p/etc/xml/SAX %p/etc/perl/XML else install -d -m 755 %p/etc/perl/XML/SAX install -d -m 755 %p/etc/perl/XML/SAX/ParserDetails.d touch %p/etc/perl/XML/SAX/ParserDetails.ini fi fi << PostInstScript: << if [ "$1" = configure ] then %p/bin/update-perl%type_pkg[perl]-sax-parsers --add XML::SAX::PurePerl %p/bin/update-perl%type_pkg[perl]-sax-parsers --update fi << PreRmScript: << if [ "$1" = remove ] then %p/bin/update-perl%type_pkg[perl]-sax-parsers --remove XML::SAX::PurePerl %p/bin/update-perl%type_pkg[perl]-sax-parsers --update fi << PostRmScript: << if [ "$1" = purge ] then rm -f %p/etc/perl/XML/SAX/ParserDetails.ini cd %p/etc/perl && \ rmdir -p XML/SAX/ParserDetails.d || true fi << Description: Perl Simple API for XML DescDetail: << XML::SAX is a SAX parser access API for Perl. It includes classes and APIs required for implementing SAX drivers, along with a factory class for returning any SAX parser installed on the user's system. << DescPackaging: << XML::SAX uses catalogs stored in %p/etc/perl/XML/SAX/ParserDetails.d to managed the details of parsers installed on the local system. They are managed via the update-perl-sax-parsers script. Each package that provides a SAX parser should also call this script within Pre/PostInstScript. This implementation was taken from the debian package of XML::SAX. Previous maintainer: Chris Leishman <[EMAIL PROTECTED]> Variant package (Info2): by Koen van der Drift << License: Artistic Maintainer: None <fink-devel@lists.sourceforge.net> Homepage: http://search.cpan.org/dist/XML-SAX << --- NEW FILE: xml-sax-expat-pm.info --- Info2: << Package: xml-sax-expat-pm%type_pkg[perl] Version: 0.37 Revision: 2 Type: perl (5.8.1 5.8.4 5.8.6) Description: Perl module, SAX2 Driver for Expat License: Artistic Maintainer: Koen van der Drift <[EMAIL PROTECTED]> # Dependencies: Depends: xml-parser-pm%type_pkg[perl], xml-sax-pm%type_pkg[perl] (>= 0.13-2) Conflicts: %{Ni}581-doc, %{Ni}584-doc, %{Ni}586-doc Replaces: %{Ni}581-doc, %{Ni}584-doc, %{Ni}586-doc # Unpack Phase: Source: mirror:cpan:authors/id/R/RB/RBERJON/XML-SAX-Expat-%v.tar.gz Source-MD5: c48024d363a1ff9abaf8f9af592d38cd # Patch Phase: Patch: %{Ni}.patch # Install Phase: UpdatePOD: True DocFiles: Changes MANIFEST InstallScript: << %{default_script} mv %i/share/man %i/lib/perl5/%type_raw[perl] << PostInstScript: << %p/bin/update-perl%type_pkg[perl]-sax-parsers --add XML::SAX::Expat %p/bin/update-perl%type_pkg[perl]-sax-parsers --update << PreRmScript: << if [ "$1" != "remove" -a "$1" != "purge" ]; then exit 0 fi %p/bin/update-perl%type_pkg[perl]-sax-parsers --remove XML::SAX::Expat %p/bin/update-perl%type_pkg[perl]-sax-parsers --update << # Additional Data: Homepage: http://search.cpan.org/dist/XML-SAX-Expat/ << ------------------------------------------------------- This SF.net email is sponsored by: Splunk Inc. Do you grep through log files for problems? Stop! Download the new AJAX search engine that makes searching your log files as easy as surfing the web. DOWNLOAD SPLUNK! http://ads.osdn.com/?ad_id=7637&alloc_id=16865&op=click _______________________________________________ Fink-commits mailing list Fink-commits@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/fink-commits