project/staticbuild/Index.pm

   1 # $Id$
   2 # Main page of 'My::Project::staticbuild'
   3 # Copyright (C) 2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; exactly version 2 of June 1991 is required
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17
  18
  19 package project::staticbuild::Index;
  20 require 5.6.0;  # at least 'use warnings;' but we need some 5.6.0+ modules anyway
  21 our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
  22 our $CVS_ID=q$Id$;
  23 use strict;
  24 use warnings;
  25
  26 use My::Web;
  27 Wuse 'project::Lib';
  28
  29
  30 our @ListItem=(
  31                 "name"=>"staticbuild",
  32                 "platform"=>"unixdevel",
  33                 "priority"=>495,
  34                 "download-source patches"=>"dist/staticbuild-2006-01-25-00.tar.gz",
  35                 "download-Fedora Core 4 i386 binaries"=>"dist/staticbuild-2006-01-25-00-bin.tar.gz",
  36                 "summary"=>"Fully static binaries build - GNU/Linux vendor independence",
  37                 "license"=>"GPL",
  38                 "maintenance"=>"ready",
  39                 "language"=>"C",
  40                 "description"=><<"HERE",
  41 <p>There exists too many GNU/Linux distributions - vendors - and any produced
  42 binary is not compatible with all of them due to the shared libraries and
  43 configuration files dependencies. Due to many hardcoded shared libraries it is
  44 no longer possible to just use <b>gcc -static</b>. These patches provide the
  45 functionality you would expect from: <b>gcc -static</b></p>
  46 HERE
  47                 );
  48
  49 sub handler
  50 {
  51 project::Lib->init();
  52
  53
  54 print <<"HERE";
  55 <p>This static build framework is based on @{[ a_href 'http://fedora.redhat.com/','Fedora Core' ]}&nbsp;4
  56 (@{[ a_href 'http://download.fedora.redhat.com/pub/fedora/linux/core/4/SRPMS/','SRPMS' ]}
  57 and @{[ a_href 'http://download.fedora.redhat.com/pub/fedora/linux/core/updates/4/SRPMS/','SRPMS updates' ]}).
  58 In fact it is not important which distribution the static build is based on as the final binaries
  59 should run on any GNU/Linux system vendor/version. Just I decided for
  60 @{[ a_href 'http://fedora.redhat.com/','Fedora Core' ]}.</p>
  61 <p><b>You must use the same package versions on the main (dynamic) build system
  62 as the static libraries are built for!</b> Therefore you must use
  63 @{[ a_href 'http://fedora.redhat.com/','Fedora Core' ]}&nbsp;4 if using the
  64 unchanged sources or even the binaries provided here.</p>
  65 <p>This static build does not provide threading - neither POSIX threads nor LinuxThreads.
  66 I did not need it anywhere and it gets everything simpler and smaller this way.</p>
  67 <p>You should build your sources statically (using <i>automake</i>(1) <b>--enable-static</b>)
  68 although without <b>gcc -static</b>. As the last step you should relink the binaries against
  69 this <i>staticbuild</i> libraries by hand - it is not much possible to convince
  70 <i>automake</i>(1) to properly relink it the minized way for you. Check the
  71 '@{[ a_href 'http://cvs.jankratochvil.net/viewcvs/captive/build-static?rev=HEAD','build-static' ]}'
  72 script for an example.</p>
  73 <p>This package has been used in its current or former versions for my projects:</p>
  74 HERE
  75 sub projectname($)
  76 {
  77 my($name)=@_;
  78
  79         return a_href "/project/$name/",project::Lib->title(project::Lib->name_to_hashref($name));
  80 }
  81 print <<"HERE";
  82 <ul>
  83         <li>@{[ projectname "captive" ]}</li>
  84         <li>@{[ projectname "udpgate" ]}</li>
  85 </ul>
  86 HERE
  87
  88
  89 my $gnome="http://bugzilla.gnome.org/show_bug.cgi?id=";
  90 my $sources="http://sources.redhat.com/bugzilla/show_bug.cgi?id=";
  91
  92 sub bug($$$)
  93 {
  94 my($prefix,$id,$desc)=@_;
  95
  96         return "Bug ".a_href($prefix.$id,$id)." - $desc";
  97 }
  98
  99 my @bugs=(
 100         "GConf2-2.10.0-4"=>[],
 101         "atk-1.9.1-1"=>[],
 102         "fontconfig-2.2.3-13"=>[],
 103         "fuse-2.4.2-2.fc4"=>[],
 104         "glib2-2.6.6-1"=>[],
 105         "glibc-2.3.5-10.3"=>[
 106                 bug($sources,1043,"--enable-static-nss false warnings"),
 107                 bug($sources,1044,'--enable-static-nss nsswitch "compat"'),
 108                 bug($sources,1045,"new --enable-static-gconv"),
 109                 ],
 110         "gnome-vfs2-2.10.0-5"=>[
 111                 bug($gnome, 47053,"new --with-included-filesystems"),
 112                 ],
 113         "gtk2-2.6.10-2.fc4.4"=>[],
 114         "libbonobo-2.8.1-1"=>[
 115                 bug($gnome,309504,"new --disable-threads"),
 116                 ],
 117         "libgnome-2.10.0-3"=>[],
 118         "libxml2-2.6.20-1.FC4"=>[],
 119         "pango-1.8.1-2"=>[],
 120         "xorg-x11-6.8.2-37.FC4.49.2"=>[],
 121         );
 122
 123
 124 print <<"HERE";
 125 <table border="1" class="margin-center">
 126         <tr><th>Patched Package</th><th>Patches Submitted as Bugs</th></tr>
 127 HERE
 128 while (@bugs) {
 129         my $package=shift @bugs;
 130         my @buglist=@{shift @bugs};
 131         print "\t".'<tr><td rowspan="'.(0+@buglist || 1).'">'.$package."</td>";
 132         # BEWARE: Wrong code indentation:
 133         if (@buglist) {
 134                 print "<td>".shift(@buglist)."</td></tr>";
 135                 print "\t"."<tr><td>$_</td></tr>\n" for @buglist;
 136                 }
 137         else {
 138                 print "\t".'<td align="center">-</td></tr>'."\n";
 139                 }
 140         }
 141 print <<"HERE";
 142 </table>
 143 HERE
 144
 145
 146 exit;
 147 }
 148 1;