From: Richard W.M. Jones <"Richard W.M. Jones "> Date: Mon, 19 Jan 2009 13:54:26 +0000 (+0000) Subject: Pull in ocaml-status script (soon to be renamed/repurposed for MinGW). X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=3793492497417224f9007348f84d42f07e92d90c;p=fedora-mingw.git Pull in ocaml-status script (soon to be renamed/repurposed for MinGW). --- diff --git a/ocaml-status.pl b/ocaml-status.pl new file mode 100755 index 0000000..e0169d3 --- /dev/null +++ b/ocaml-status.pl @@ -0,0 +1,375 @@ +#!/usr/bin/perl -wT + +# Produce a status page for all current and pending OCaml packages. +# By Richard W.M. Jones +# $Id: ocaml-status.pl,v 1.7 2008/12/05 17:44:39 rjones Exp $ +# +# Requires: +# . All OCaml-related packages have to be checked out +# under $HOME/d/fedora. +# . All pending packages have to be checked out under +# $HOME/d/redhat/ocaml. +# +# The output is normally placed here: +# http://cocan.org/getting_started_with_ocaml_on_red_hat_and_fedora +# +# Checks that the package build-requires OCaml in order to know if +# it's an OCaml-related package. +# +# Only recognizes the Fedora/EPEL branches listed below and ignores +# anything else. There are no OCaml packages in RHEL at this time. + +use strict; + +use POSIX qw(strftime); +use CGI qw/:standard/; + +my $fedora = $ENV{HOME} . "/d/fedora"; +my $pending = $ENV{HOME} . "/d/redhat/ocaml"; +my %branches = ( + "EL-4" => { + name => "EPEL 4", + url => "http://fedoraproject.org/wiki/EPEL", + title => "Packages for Red Hat Enterprise Linux 4", + sortorder => 1, + class => "epelbg", + }, + "EL-5" => { + name => "EPEL 5", + url => "http://fedoraproject.org/wiki/EPEL", + title => "Packages for Red Hat Enterprise Linux 5", + sortorder => 2, + class => "epelbg", + }, + "F-8" => { + name => "Fedora 8", + url => "http://fedoraproject.org/", + sortorder => 8, + class => "fedorabg", + }, + "F-9" => { + name => "Fedora 9", + url => "http://fedoraproject.org/", + sortorder => 9, + class => "fedorabg", + }, + "F-10" => { + name => "Fedora 10", + url => "http://fedoraproject.org/", + sortorder => 10, + class => "fedorabg", + }, + "devel" => { + name => "Devel", + url => "http://fedoraproject.org/wiki/Releases/Rawhide", + title => "Fedora 11 in development a.k.a. Rawhide", + sortorder => 99, + class => "develbg", + }, + "pending" => { + name => "Pending", + url => "https://bugzilla.redhat.com/buglist.cgi?version=rawhide&component=Package+Review&target_milestone=&bug_status=NEW&bug_status=ASSIGNED&bug_status=NEEDINFO&bug_status=MODIFIED&short_desc_type=allwordssubstr&short_desc=ocaml&long_desc_type=allwordssubstr&long_desc=", + sortorder => 100, + class => "pendingbg", + }, +); + +# List of packages to ignore in pending. +my %ignore_pending = ( + "ocaml-foolib" => 1, + "ocaml-libvirt" => 1, +); + +# List of packages to ignore in Fedora. +my %ignore_fedora = ( + "cyrus-sasl" => 1, + "kernel" => 1, + "msmtp" => 1, + "openldap" => 1, + "pixman" => 1, + "python" => 1, + "xenwatch" => 1, +); + +# List of packages. +my %packages; + +# Count of packages by branch. +my %count; + +# Collect the package names & status from the specfiles. +sub collect { + my $specfile; + + # Fedora and EPEL packages. + foreach $specfile (<$fedora/*/*/*.spec>) { + if ($specfile =~ m{/([^/]+)/([^/]+)\.spec$}) { + my $specfile_name = $2; + my $branch = $1; + if (exists $branches{$branch} && + !exists $ignore_fedora{$specfile_name} && + $specfile_name !~ /^mingw32/) { + collect_specfile ($specfile, $branch); + } + } + } + + # Pending packages in review. + foreach $specfile (<$pending/*/*.spec>) { + collect_specfile ($specfile, "pending"); + } +} + +sub collect_specfile { + my $specfile = shift; + my $branch = shift; + + # Read the specfile and parse the bits we understand. + my ($name, $version, $summary, $description, $url, $is_ocaml, + @rpmdefines); + @rpmdefines = (["nil", ""]); + + open SPEC, "$specfile" or die "$specfile: $!"; + while () { + if (/^Name:\s*(\S+)/) { + $name = $1; + $name = rpmsubst ($name, 1, @rpmdefines) if $name =~ /%{/; + $is_ocaml = 1 if $name =~ /ocaml/; + } elsif (/^Version:\s*(\S+)/) { + $version = $1; + $version = rpmsubst ($version, 1, @rpmdefines) if $version =~ /%{/; + } elsif (!$url && /^URL:\s*(\S+)/) { + $url = $1; + $url = rpmsubst ($url, 1, @rpmdefines) if $url =~ /%{/; + } elsif (!$summary && /^Summary:\s*(.*)/) { + $summary = $1; + $is_ocaml = 1 if $summary =~ /ocaml/i; + } elsif (/^(Build)?Requires:.*ocaml/) { + $is_ocaml = 1 + } elsif (!$description && /^%description/) { + $description = ""; + while () { + last if /^%/; + $description .= $_; + } + $description = rpmsubst ($description, 1, @rpmdefines) + if $description =~ /%{/; + $is_ocaml = 1 if $description =~ /ocaml/i; + } + + # Handle simple RPM defines. + elsif (/^%define\s+([A-Za-z_]+)\s+(.*)/) { + my $name = $1; + my $val = $2; + if (only_simple_substs ($val)) { + $val = rpmsubst ($val, 0, @rpmdefines); + push @rpmdefines, [ $name, $val ]; + } + } + } + + # Check it's an OCaml package. If name/summary/description contains + # 'ocaml' or it Requires/BuildRequires some ocaml package then we + # assume it's OCaml-related. + if (!$is_ocaml) { + warn "warning: $name ($branch) ignored, not an OCaml package\n"; + return; + } + + # Ignore certain packages appearing in pending branch. + if ($branch eq "pending" && exists $ignore_pending{$name}) { + return; + } + + #print "$name $version $url\n"; + + # If the package is in "pending" then there shouldn't be a + # Fedora package also. + if ($branch eq "pending" && exists $packages{$name}) { + die "error: pending $name is also in Fedora repo\n" + } + + # Add the package. + $packages{$name} = {} unless exists $packages{$name}; + if (exists $packages{$name}{$branch}) { + die "$name ($branch) package already seen\n"; + } + $packages{$name}{$branch} = { + name => $name, + branch => $branch, + version => $version, + url => $url, + summary => $summary, + description => $description, + } +} + +sub only_simple_substs { + local $_ = shift; + + s/%{[A-Za-z_]+}//g; + s/%\([A-Za-z_]+\)//g; + ! (m/%{/ || m/%\(/) +} + +# Simple RPM '%define' substitutions. +sub rpmsubst { + local $_ = shift; + my $fail = shift; + + my $pair; + foreach $pair (@_) { + my $var = $pair->[0]; + my $val = $pair->[1]; + + s/%{$var}/$val/ge; + s/%\($var\)/$val/ge; + } + + if ($fail && (m/%{/ || m/%\(/)) { + die "rpmsubst: string contains undefined substitutions: $_\n"; + } + + $_; +} + +sub branchsortorder { + $branches{$a}{sortorder} <=> $branches{$b}{sortorder} +} + +sub nbsp { + local $_ = shift; + s/\s+/ /g; + $_ +} + +sub output_header { + print "Status of packages in Fedora, EPEL and RHEL, last updated on "; + print strftime("%Y-%m-%d",gmtime); + print ".\n\n"; + print "\n"; + print "\n"; + print "\n"; + foreach (sort branchsortorder (keys %branches)) { + my $name = $branches{$_}{name}; + my $url = $branches{$_}{url}; + my $class = $branches{$_}{class}; + + print "\n"; + } + print "\n"; + + # Count the packages in each branch. + %count = (); + foreach (keys %branches) { + $count{$_} = 0 + } +} + +sub output_package { + my $name = shift; + + # Get the URL, summary and description from devel + # or pending (if possible). + my ($url, $summary, $description); + if (exists $packages{$name}{devel}) { + $url = $packages{$name}{devel}{url}; + $summary = $packages{$name}{devel}{summary}; + $description = $packages{$name}{devel}{description}; + } elsif (exists $packages{$name}{pending}) { + $url = $packages{$name}{pending}{url}; + $summary = $packages{$name}{pending}{summary}; + $description = $packages{$name}{pending}{description}; + } + + print "\n"; + + my $branch; + foreach $branch (sort branchsortorder (keys %branches)) { + my $brclass = $branches{$branch}{class}; + + if (exists $packages{$name}{$branch}) { + $count{$branch}++; + + my %r = %{$packages{$name}{$branch}}; + + my $class = "released"; + $class = "pending" if $branch eq "pending"; + $class = "devel" if $branch eq "devel"; + $class = "ocaml" if $name eq "ocaml"; + + print "\n"; + } else { + # No package in this branch. + print "\n" + } + } + + print "\n"; +} + +sub output_trailer { + # Summary of packages in each branch. + print ""; + my $branch; + foreach $branch (sort branchsortorder (keys %branches)) { + print ""; + } + print "\n"; + + print "
Name"; + if (exists $branches{$_}{title}) { + my $title = escapeHTML ($branches{$_}{title}); + print "", + nbsp(escapeHTML($name)), + ""; + } else { + print "", + nbsp(escapeHTML($name)), + ""; + } + print "
"; + if (defined $url) { + if (defined $summary && defined $description) { + print "", + escapeHTML($name), + "
", + escapeHTML($summary), + ""; + } else { + print "", escapeHTML($name), ""; + } + } else { + print (escapeHTML($name)); + } + print "		$r{version} 
Totals$count{$branch}
\n"; + print "\n"; +} + +# Define a standard package name order. +sub pkgnameorder { + # "ocaml-*" packages always sort first. + return -1 if $a =~ /^ocaml/ && $b !~ /^ocaml/; + return 1 if $a !~ /^ocaml/ && $b =~ /^ocaml/; + + return (lc($a) cmp lc($b)) +} + +sub main { + # Collect all the specfiles, into %packages hash. + collect (); + + # Get the package names. + my @names = sort pkgnameorder (keys %packages); + + # Generate the output. + output_header (); + foreach (@names) { + output_package ($_); + } + output_trailer (); +} + +main ()