From owner-freebsd-ports Thu Sep 10 15:02:20 1998 Return-Path: Received: (from majordom@localhost) by hub.freebsd.org (8.8.8/8.8.8) id PAA08593 for freebsd-ports-outgoing; Thu, 10 Sep 1998 15:02:20 -0700 (PDT) (envelope-from owner-freebsd-ports@FreeBSD.ORG) Received: from baerenklau.de.freebsd.org (baerenklau.de.freebsd.org [195.185.195.14]) by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id PAA08445 for ; Thu, 10 Sep 1998 15:02:04 -0700 (PDT) (envelope-from wosch@panke.de.freebsd.org) Received: (from uucp@localhost) by baerenklau.de.freebsd.org (8.8.8/8.8.8) with UUCP id AAA21003 for ports@freebsd.org; Fri, 11 Sep 1998 00:01:53 +0200 (CEST) (envelope-from wosch@panke.de.freebsd.org) Received: (from wosch@localhost) by campa.panke.de (8.8.8/8.8.8) id XAA01398; Thu, 10 Sep 1998 23:46:11 +0200 (MET DST) (envelope-from wosch) Date: Thu, 10 Sep 1998 23:46:11 +0200 (MET DST) Message-Id: <199809102146.XAA01398@campa.panke.de> From: Wolfram Schneider To: ports@FreeBSD.ORG Subject: Portcheckout script MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Sender: owner-freebsd-ports@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.org I wrote a script to check out a FreeBSD port *and* all runtime and buildtime depending ports into the current working directory. The output is written to stdout as an executable shell-script. Here is the manpage and the script. NAME portcheckout - checkout ports and all depending ports SYNOPSIS portcheckout ports [...] DESCRIPTION Portcheckout(1) checks out a FreeBSD port and all runtime and buildtime depending ports into the current working directory. The output is written to stdout as an executable shell-script. Compiling a FreeBSD usually require a full tree of ports in /usr/port. A cvs checkout or a cvs update command takes a very long time and need much free space. With portcheckout, you checkout only the parts of the port tree which you really need. This is a magnitude faster! FILES Portcheckout depend on a an up to date INDEX file in /usr/ports/INDEX. EXAMPLE $cd /tmp || exit 1 PORTSDIR="/tmp/ports"; export PORTSDIR # checkout ports # gnuplot-340 cvs co ports/math/gnuplot # checkout depencies # png-1.0.2 cvs co ports/graphics/png # gd-1.3 cvs co ports/graphics/gd # Compile and install gnuplot-340 (cd ports/math/gnuplot && make all install clean) AUTHOR Wolfram Schneider , Berlin, September 1998. #!/usr/local/bin/perl # Copyright (c) Sep 1998 Wolfram Schneider . Berlin. # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # # $Id: ruplot.pl,v 1.2 1998/09/06 13:58:41 wosch Exp $ # # portcheckout - do a `cvs checkout' for given ports and # all depending ports. =pod =head1 NAME portcheckout - checkout ports and all depending ports =head1 SYNOPSIS portcheckout ports [...] =head1 DESCRIPTION Portcheckout(1) checks out a FreeBSD port and all runtime and buildtime depending ports into the current working directory. The output is written to stdout as an executable shell-script. Compiling a FreeBSD usually require a full tree of ports in /usr/port. A cvs checkout or a cvs update command takes a very long time and need much free space. With portcheckout, you checkout only the parts of the port tree which you really need. This is a magnitude faster! =head1 FILES Portcheckout depend on a an up to date INDEX file in /usr/ports/INDEX. =head1 EXAMPLE $cd /tmp || exit 1 PORTSDIR="/tmp/ports"; export PORTSDIR # checkout ports # gnuplot-340 cvs co ports/math/gnuplot # checkout depencies # png-1.0.2 cvs co ports/graphics/png # gd-1.3 cvs co ports/graphics/gd # Compile and install gnuplot-340 (cd ports/math/gnuplot && make all install clean) =head1 AUTHOR Wolfram Schneider , Berlin, September 1998. =cut $dir = `pwd`; chomp($dir); $index = '/usr/ports/INDEX'; sub usage { warn "usage portcheckout ports ... \n\n"; sleep 1; $ENV{'PAGER'} = 'cat'; exec pod2text, $0; exit 2; } &usage if $#ARGV < 0; sub read_index { local($index, *port, @ports) = @_; my $string; for($i = 0; $i <= $#ports; $i++) { $string .= '^' . $ports[$i]; $string .= '|' if $i < $#ports; } die "Cannot open INDEX file: $index: $!\n" if (! -r $index); # egrep is fast than perl reg expr open(INDEX, "-|") || exec ('egrep', '--', $string, $index) || die "open $index: $!\n"; my $dep; my ($distributionname, $portpath, $installationprefix, $comment, $descriptionfile, $maintainer, $categories, $builddeps, $rundeps); while() { ($distributionname, $portpath, $installationprefix, $comment, $descriptionfile, $maintainer, $categories, $builddeps, $rundeps) = split('\|'); $portpath =~ s%/usr/%%; $port{"$distributionname"} = $portpath; # save depencies $depends_no{"$distributionname"}++; foreach $dep (split(' ', $builddeps)) { $depends{"$dep"}++; } foreach $dep (split(' ', $rundeps)) { $depends{"$dep"}++; } } close INDEX; } &read_index($index, *port, @ARGV); { my @data = keys %port; die "No matching ports found for: @ARGV\n" if $#data < 0; } # shell header print "cd $dir || exit 1\n"; print qq{PORTSDIR="$dir/ports"; export PORTSDIR\n}; # uncomment next line if you have write permission to /usr/ports/distfiles #print qq{DISTDIR="/usr/ports/distfiles"; export DISTDIR\n}; print "\n# checkout ports\n"; # checkout main ports foreach (keys %port) { print "# $_\n"; print qq|cvs co $port{$_}\n|; } # avoid cycles of ports # Port B depend on A, C depend on B and A foreach (keys %depends_no) { undef $depends{"$_"}; } # checkout depending ports my @list = keys %depends; if ($#list >= 0) { &read_index($index, *portdepends, @list); print "\n# checkout depencies\n"; foreach (keys %portdepends) { # already checked out as master port next if $port{"$_"}; print "# $_\n"; print qq|cvs co $portdepends{$_}\n|; } } # Compile and install foreach (keys %port) { print "\n# Compile and install $_\n"; print qq|(cd $port{$_} && make all install clean)\n|; } -- Wolfram Schneider http://www.freebsd.org/~w/ To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message