head	1.41;
access;
symbols
	SHTOOL_2_0_8:1.41
	SHTOOL_2_0_7:1.40
	SHTOOL_2_0_6:1.38
	SHTOOL_2_0_5:1.38
	SHTOOL_2_0_4:1.38
	SHTOOL_2_0_3:1.35
	SHTOOL_2_0_2:1.35
	SHTOOL_2_0_1:1.34
	SHTOOL_2_0_0:1.34
	SHTOOL_2_0b3:1.34
	SHTOOL_2_0b2:1.34
	SHTOOL_2_0b1:1.34
	SHTOOL_1_6:1.28.0.2
	SHTOOL_1_6_2:1.28
	SHTOOL_1_6_1:1.28
	SHTOOL_1_6_0:1.28
	SHTOOL_1_5:1.23.0.2
	SHTOOL_1_5_4:1.23
	SHTOOL_1_5_3:1.22
	SHTOOL_1_5_2:1.20
	SHTOOL_1_5_1:1.19
	SHTOOL_1_5_0:1.19
	SHTOOL_1_4_9:1.15
	SHTOOL_1_4_8:1.15
	SHTOOL_1_4_7:1.13
	SHTOOL_1_4_6:1.13
	SHTOOL_1_4_5:1.13
	SHTOOL_1_4_4:1.12
	SHTOOL_1_4_3:1.7
	SHTOOL_1_4_2:1.7
	SHTOOL_1_4_1:1.6;
locks; strict;
comment	@# @;


1.41
date	2008.04.02.20.13.44;	author rse;	state Exp;
branches;
next	1.40;
commitid	eB5Wirx8MdMyDzXs;

1.40
date	2007.05.19.19.09.39;	author rse;	state Exp;
branches;
next	1.39;
commitid	OPUF1UBbllBTwzis;

1.39
date	2007.05.19.19.06.08;	author rse;	state Exp;
branches;
next	1.38;
commitid	WGA9xRFFLAU2wzis;

1.38
date	2006.02.04.09.43.26;	author rse;	state Exp;
branches;
next	1.37;
commitid	oWk7BmnyAitJtfkr;

1.37
date	2005.10.12.12.39.17;	author rse;	state Exp;
branches;
next	1.36;

1.36
date	2005.10.12.12.34.50;	author rse;	state Exp;
branches;
next	1.35;

1.35
date	2005.06.15.08.14.36;	author rse;	state Exp;
branches;
next	1.34;

1.34
date	2004.02.12.16.06.27;	author rse;	state Exp;
branches;
next	1.33;

1.33
date	2004.01.01.16.54.20;	author rse;	state Exp;
branches;
next	1.32;

1.32
date	2003.12.13.21.23.55;	author rse;	state Exp;
branches;
next	1.31;

1.31
date	2003.08.13.14.20.34;	author rse;	state Exp;
branches;
next	1.30;

1.30
date	2003.02.11.13.00.50;	author rse;	state Exp;
branches;
next	1.29;

1.29
date	2003.02.11.12.56.40;	author rse;	state Exp;
branches;
next	1.28;

1.28
date	2001.12.31.15.10.59;	author rse;	state Exp;
branches;
next	1.27;

1.27
date	2001.12.31.15.06.04;	author rse;	state Exp;
branches;
next	1.26;

1.26
date	2001.09.23.11.15.57;	author rse;	state Exp;
branches;
next	1.25;

1.25
date	2001.09.23.10.58.10;	author rse;	state Exp;
branches;
next	1.24;

1.24
date	2001.06.14.19.02.54;	author rse;	state Exp;
branches;
next	1.23;

1.23
date	2001.06.14.14.24.17;	author rse;	state Exp;
branches;
next	1.22;

1.22
date	2001.04.19.07.54.50;	author rse;	state Exp;
branches;
next	1.21;

1.21
date	2001.04.19.07.46.41;	author rse;	state Exp;
branches;
next	1.20;

1.20
date	2001.01.17.09.55.11;	author rse;	state Exp;
branches;
next	1.19;

1.19
date	2000.06.30.18.09.13;	author rse;	state Exp;
branches;
next	1.18;

1.18
date	2000.06.30.16.52.08;	author rse;	state Exp;
branches;
next	1.17;

1.17
date	2000.06.14.18.50.13;	author rse;	state Exp;
branches;
next	1.16;

1.16
date	2000.06.14.18.43.24;	author rse;	state Exp;
branches;
next	1.15;

1.15
date	2000.03.12.11.12.21;	author rse;	state Exp;
branches;
next	1.14;

1.14
date	2000.02.08.15.42.37;	author rse;	state Exp;
branches;
next	1.13;

1.13
date	99.07.28.06.48.51;	author rse;	state Exp;
branches;
next	1.12;

1.12
date	99.07.17.14.46.07;	author rse;	state Exp;
branches;
next	1.11;

1.11
date	99.07.17.14.45.45;	author rse;	state Exp;
branches;
next	1.10;

1.10
date	99.07.17.14.28.40;	author rse;	state Exp;
branches;
next	1.9;

1.9
date	99.07.17.11.01.14;	author rse;	state Exp;
branches;
next	1.8;

1.8
date	99.07.15.13.42.39;	author rse;	state Exp;
branches;
next	1.7;

1.7
date	99.07.09.06.05.53;	author rse;	state Exp;
branches;
next	1.6;

1.6
date	99.07.07.14.29.09;	author rse;	state Exp;
branches;
next	1.5;

1.5
date	99.07.07.14.15.23;	author rse;	state Exp;
branches;
next	1.4;

1.4
date	99.07.07.12.03.19;	author rse;	state Exp;
branches;
next	1.3;

1.3
date	99.07.07.11.59.57;	author rse;	state Exp;
branches;
next	1.2;

1.2
date	99.07.07.06.46.00;	author rse;	state Exp;
branches;
next	1.1;

1.1
date	99.07.07.06.43.04;	author rse;	state Exp;
branches;
next	;


desc
@@


1.41
log
@adjust copyright for year 2008
@
text
@#!@@PERL@@
##
##  shtoolize -- Build shtool script out of ingredient scripts
##  Copyright (c) 1999-2008 Ralf S. Engelschall <rse@@engelschall.com>
##
##  This file is part of shtool and free software; you can redistribute
##  it and/or modify it under the terms of the GNU General Public
##  License as published by the Free Software Foundation; either version
##  2 of the License, or (at your option) any later version.
##
##  This file is distributed in the hope that it will be useful,
##  but WITHOUT ANY WARRANTY; without even the implied warranty of
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
##  General Public License for more details.
##
##  You should have received a copy of the GNU General Public License
##  along with this program; if not, write to the Free Software
##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
##  USA, or contact Ralf S. Engelschall <rse@@engelschall.com>.
##

require 5.000;
use strict;

##
##  CONFIGURATION
##

#   General configuration
my $version     = "@@SHTOOL_VERSION_STR@@";
my $prefix      = "@@prefix@@";
my $datarootdir = "@@datarootdir@@";
my $datadir     = "@@datadir@@";
my $scriptdir   = "$datadir/shtool";

#   Available modules
my @@available = qw(
    echo mdate table prop move install mkdir mkln mkshadow
    fixperm rotate tarball subst platform arx slo scpp version path
);

##
##  COMMAND LINE HANDLING
##

my $opt_h = 0;
my $opt_v = 0;
my $opt_q = 0;
my $opt_o = 'shtool';

#   this subroutine is derived from Perl's getopts.pl with the enhancement of
#   the "+" metacharater at the format string to allow a list to be build by
#   subsequent occurance of the same option. We use it here as a local copy
#   to be maximum independent.
sub mygetopt {
    my ($progname, $argumentative, @@ARGV) = @@_;
    my (@@args, $first, $rest, $pos);
    my ($errs) = 0;
    local ($_);
    local ($[) = 0;

    @@args = split( / */, $argumentative);
    while(@@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
        ($first, $rest) = ($1,$2);
        if ($_ =~ m|^--$|) {
            shift(@@ARGV);
            last;
        }
        $pos = index($argumentative,$first);
        if($pos >= $[) {
            if($args[$pos+1] eq ':') {
                shift(@@ARGV);
                if($rest eq '') {
                    unless (@@ARGV) {
                        print STDERR "$progname:Error: incomplete option: `$first' (needs an argument)\n";
                        ++$errs;
                    }
                    $rest = shift(@@ARGV);
                }
                eval "\$opt_$first = \$rest;";
            }
            elsif ($args[$pos+1] eq '+') {
                shift(@@ARGV);
                if($rest eq '') {
                    unless (@@ARGV) {
                        print STDERR "$progname:Error: incomplete option: `$first' (needs an argument)\n";
                        ++$errs;
                    }
                    $rest = shift(@@ARGV);
                }
                eval "push(\@@opt_$first, \$rest);";
            }
            else {
                eval "\$opt_$first = 1";
                if($rest eq '') {
                    shift(@@ARGV);
                }
                else {
                    $ARGV[0] = "-$rest";
                }
            }
        }
        else {
            print STDERR "$progname:Error: unknown option: `$first'\n";
            ++$errs;
            if($rest ne '') {
                $ARGV[0] = "-$rest";
            }
            else {
                shift(@@ARGV);
            }
        }
    }
    return ($errs == 0, @@ARGV);
}

sub usage {
    my ($progname, $cmdline, $rc) = @@_;
    print STDERR "Usage: shtoolize [-h] [-v] [-q] [-o <script>] <module> [<module> ...]\n" if ($cmdline);
    my $a = join(' ', @@available);
    my $a2 = '';
    ($a, $a2) = ($1, $2) if ($a =~ m|^(.{50}.*?)\s+(.+)$|);
    print STDERR "Available modules (use `all' for all modules):\n";
    print STDERR "  $a\n";
    print STDERR "  $a2\n" if ($a2);
    exit($rc);
}

my $rc;
($rc, @@ARGV) = &mygetopt($0, "hvqo:", @@ARGV);
&usage($0, 1, 1) if ($rc == 0);
if ($opt_v) {
    print "GNU shtool $version\n";
    exit(0);
}
&usage($0, 1, 0) if ($opt_h);

my @@modules;
if ($#ARGV == -1) {
    print STDERR "$0:Error: missing module name(s)\n";
    &usage($0, 1, 1);
}
if ($#ARGV == 0 and $ARGV[0] eq 'all') {
    @@modules = @@available;
}
else {
    my $mod;
    foreach $mod (@@ARGV) {
        if (not grep(/^$mod$/, @@available)) {
            print STDERR "$0:Error: unknown module name: `$mod'\n";
            usage($0, 0, 1);
            exit(1);
        }
        push(@@modules, $mod);
    }
}

##
##  INPUT PHASE
##

#   Find a module
sub find_module {
    my ($name) = @@_;
    return "sh.$name" if (-f "sh.$name");
    return "$scriptdir/sh.$name";
}

#   Read the ingredients scripts
my $SCRIPT  = {};
my @@used = ();
my @@unused = ();
my $code;
my $name;
print(STDERR "Generating $opt_o") if (not $opt_q);
foreach $name (@@available) {

    #   read script code
    my $file = &find_module($name);
    open(FP, "<$file") || die;
    $code = '';
    $code .= $_ while (<FP>);
    close(FP);

    #   strip away embedded documentation
    $code =~ s|##\n##\s+manual\s+page\n##\s+.+$||si;

    #   determine attributes
    my $len = length($code);
    my $oneline = '';
    if ($code =~ m|##\s+$name\s+--\s+(.+?)\s*\n|s) {
        $oneline = $1;
    }
    my $usage = '';
    if ($code =~ m|##\s+Usage:\s+$name([^\n]*)\n|s) {
        $usage = $1;
        $usage =~ s|^\s+||s;
        $usage =~ s|\s+$||s;
    }
    if ($code =~ m|str_usage="\s*([^"]+?)\s*"|s) {
        $usage = $1;
    }

    #   adjust script code
    $code =~ s|^#!/bin/sh\n||s;
    my $head = '';
    1 while ($code =~ s|^(##\s*\n)|$head .= $1, ''|se ||
             $code =~ s|^(##\s+.*?\n)|$head .= $1, ''|se);
    $head =~ s|##\s+This file is.+\n##\s+USA.+?\n##\n||s;
    $code =~ s|\n\n+|\n\n|sg;
    my ($code1, $code2);
    if ($code =~ m|^(.+\n)\.\s+[^\n]*/sh\.common\n(.+)$|s) {
        ($code1, $code2) = ($1, $2);
    }
    else {
        ($code1, $code2) = (": #NOP\n", $code);
    }
    $code1 =~ s|^[\s\n]+||s;
    $code1 =~ s|[\s\n]+$|\n|s;
    $code2 =~ s|^[\s\n]+||s;
    $code2 =~ s|[\s\n]+$|\n|s;
    $code2 = $head.$code2;

    #   and remember for the output phase
    $SCRIPT->{$name} = {};
    $SCRIPT->{$name}->{ONELINE} = $oneline;
    $SCRIPT->{$name}->{USAGE}   = $usage;
    $SCRIPT->{$name}->{CODE1}   = $code1;
    $SCRIPT->{$name}->{CODE2}   = $code2;

    #   remember the module type
    if (grep(/^$name$/, @@modules)) {
        printf(STDERR "...(%s %d/%d bytes)", $name, length($code), $len) if (not $opt_q);
        push(@@used, $name);
    }
    else {
        push(@@unused, $name);
    }
}
printf(STDERR "\n") if (not $opt_q);

#   Generate overview comment
my $overview = "##  Available commands:\n";
foreach $name (@@used) {
    $overview .= sprintf("##    %-10s %s\n", $name, $SCRIPT->{$name}->{ONELINE});
}
if (@@unused) {
   $overview .= "##\n";
   $overview .= "##  Not available commands (because module was not built-in):\n";
   foreach $name (@@unused) {
       $overview .= sprintf("##    %-10s %s\n", $name, $SCRIPT->{$name}->{ONELINE});
   }
}
$overview =~ s|\n$||s;

#   Generate usage output
my $usage = "    echo 'Available <cmd-name> [<cmd-options>] [<cmd-args>]:'\n";
foreach $name (@@used) {
    my $u  = $SCRIPT->{$name}->{USAGE};
    my $u2 = '';
    my $u3 = '';
    my $u4 = '';
    my $u5 = '';
    my $u6 = '';
    if ($u =~ m|^(.{50}.*?)\s+(.+)$|) {
        ($u, $u2) = ($1, $2);
    }
    if ($u2 =~ m|^(.{50}.*?)\s+(.+)$|) {
        ($u2, $u3) = ($1, $2);
    }
    if ($u3 =~ m|^(.{50}.*?)\s+(.+)$|) {
        ($u3, $u4) = ($1, $2);
    }
    if ($u4 =~ m|^(.{50}.*?)\s+(.+)$|) {
        ($u4, $u5) = ($1, $2);
    }
    if ($u5 =~ m|^(.{50}.*?)\s+(.+)$|) {
        ($u5, $u6) = ($1, $2);
    }
    $usage .= sprintf("    echo '  %-8s %s'\n", $name, $u);
    $usage .= sprintf("    echo '  %-8s %s'\n", '', $u2) if ($u2);
    $usage .= sprintf("    echo '  %-8s %s'\n", '', $u3) if ($u3);
    $usage .= sprintf("    echo '  %-8s %s'\n", '', $u4) if ($u4);
    $usage .= sprintf("    echo '  %-8s %s'\n", '', $u5) if ($u5);
    $usage .= sprintf("    echo '  %-8s %s'\n", '', $u6) if ($u6);
}
if (@@unused) {
    $usage .= "    echo ''\n";
    $usage .= "    echo 'Not available <cmd-name> (because module was not built-in):'\n";
    foreach $name (@@unused) {
        my $u  = $SCRIPT->{$name}->{USAGE};
        my $u2 = '';
        my $u3 = '';
        my $u4 = '';
        my $u5 = '';
        my $u6 = '';
        if ($u =~ m|^(.{50}.*?)\s+(.+)$|) {
            ($u, $u2) = ($1, $2);
        }
        if ($u2 =~ m|^(.{50}.*?)\s+(.+)$|) {
            ($u2, $u3) = ($1, $2);
        }
        if ($u3 =~ m|^(.{50}.*?)\s+(.+)$|) {
            ($u3, $u4) = ($1, $2);
        }
        if ($u4 =~ m|^(.{50}.*?)\s+(.+)$|) {
            ($u4, $u5) = ($1, $2);
        }
        if ($u5 =~ m|^(.{50}.*?)\s+(.+)$|) {
            ($u5, $u6) = ($1, $2);
        }
        $usage .= sprintf("    echo '  %-8s %s'\n", $name, $u);
        $usage .= sprintf("    echo '  %-8s %s'\n", '', $u2) if ($u2);
        $usage .= sprintf("    echo '  %-8s %s'\n", '', $u3) if ($u3);
        $usage .= sprintf("    echo '  %-8s %s'\n", '', $u4) if ($u4);
        $usage .= sprintf("    echo '  %-8s %s'\n", '', $u5) if ($u5);
        $usage .= sprintf("    echo '  %-8s %s'\n", '', $u6) if ($u6);
    }
}
$usage =~ s|\n$||s;

#   Generate usage output
my $toolpat = join("|", @@used);

#   Determine size
my $size = "all available modules";
if (@@unused) {
    $size = sprintf("%d/%d available modules", $#used+1, $#available+1);
}

#   Generate recreation command
my $recreate = "shtoolize -o${opt_o}";
if ($#unused == -1) {
    $recreate .= " all";
}
else {
    foreach $name (@@used) {
        $recreate .= " $name";
    }
}

##
##  OUTPUT PHASE
##

#   Create output file
open(OUT, ">$opt_o") || die "unable to create output file `$opt_o\': $!";

#   Generate header of script
print OUT <<"EOT";
#!/bin/sh
##
##  GNU shtool -- The GNU Portable Shell Tool
##  Copyright (c) 1994-2008 Ralf S. Engelschall <rse\@@engelschall.com>
##
##  See http://www.gnu.org/software/shtool/ for more information.
##  See ftp://ftp.gnu.org/gnu/shtool/ for latest version.
##
##  Version:  ${version}
##  Contents: ${size}
##

##
##  This program is free software; you can redistribute it and/or modify
##  it under the terms of the GNU General Public License as published by
##  the Free Software Foundation; either version 2 of the License, or
##  (at your option) any later version.
##
##  This program is distributed in the hope that it will be useful,
##  but WITHOUT ANY WARRANTY; without even the implied warranty of
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
##  General Public License for more details.
##
##  You should have received a copy of the GNU General Public License
##  along with this program; if not, write to the Free Software
##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
##  USA, or contact Ralf S. Engelschall <rse\@@engelschall.com>.
##
##  NOTICE: Given that you include this file verbatim into your own
##  source tree, you are justified in saying that it remains separate
##  from your package, and that this way you are simply just using GNU
##  shtool. So, in this situation, there is no requirement that your
##  package itself is licensed under the GNU General Public License in
##  order to take advantage of GNU shtool.
##

##
##  Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]
##
${overview}
##

#   maximum Bourne-Shell compatibility
if [ ".\$ZSH_VERSION" != . ] && (emulate sh) >/dev/null 2>&1; then
    #   reconfigure zsh(1)
    emulate sh
    NULLCMD=:
    alias -g '\${1+"\$@@"}'='"\$@@"'
elif [ ".\$BASH_VERSION" != . ] && (set -o posix) >/dev/null 2>&1; then
    #   reconfigure bash(1)
    set -o posix
fi

#   maximum independence of NLS nuisances
for var in \\
    LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \\
    LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \\
    LC_TELEPHONE LC_TIME
do
    if (set +x; test -z "`(eval \$var=C; export \$var) 2>&1`"); then
        eval \$var=C; export \$var
    else
        unset \$var
    fi
done

#   initial command line handling
if [ \$# -eq 0 ]; then
    echo "\$0:Error: invalid command line" 1>&2
    echo "\$0:Hint:  run \\`\$0 -h' for usage" 1>&2
    exit 1
fi
if [ ".\$1" = ".-h" ] || [ ".\$1" = ".--help" ]; then
    echo "This is GNU shtool, version ${version}"
    echo 'Copyright (c) 1994-2008 Ralf S. Engelschall <rse\@@engelschall.com>'
    echo 'Report bugs to <bug-shtool\@@gnu.org>'
    echo ''
    echo 'Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]'
    echo ''
    echo 'Available global <options>:'
    echo '  -v, --version   display shtool version information'
    echo '  -h, --help      display shtool usage help page (this one)'
    echo '  -d, --debug     display shell trace information'
    echo '  -r, --recreate  recreate this shtool script via shtoolize'
    echo ''
${usage}
    echo ''
    exit 0
fi
if [ ".\$1" = ".-v" ] || [ ".\$1" = ".--version" ]; then
    echo "GNU shtool ${version}"
    exit 0
fi
if [ ".\$1" = ".-r" ] || [ ".\$1" = ".--recreate" ]; then
    ${recreate}
    exit 0
fi
if [ ".\$1" = ".-d" ] || [ ".\$1" = ".--debug" ]; then
    shift
    set -x
fi
name=`echo "\$0" | sed -e 's;.*/\\([^/]*\\)\$;\\1;' -e 's;-sh\$;;' -e 's;\\.sh\$;;'`
case "\$name" in
    ${toolpat} )
        #   implicit tool command selection
        tool="\$name"
        ;;
    * )
        #   explicit tool command selection
        tool="\$1"
        shift
        ;;
esac
arg_spec=""
opt_spec=""
gen_tmpfile=no

EOT

#   Insert the first part of the ingredient scripts
my $oneline;
my $usage;
print OUT <<"EOT";
##
##  DISPATCH INTO SCRIPT PROLOG
##

case \$tool in
EOT
foreach $name (@@used) {
    print OUT "    $name )\n";
    $code = $SCRIPT->{$name}->{CODE1};
    $code =~ s|^(.)|        $1|mg;
    sub mysub {
        my ($prolog, $code, $epilog) = @@_;
        $code =~ s|^        ||mg;
        return $prolog.$code.$epilog;
    }
    $code =~ s|(\<\<['"]?EOT['"]?\n)(.+?\n)[ \t]+(EOT)|&mysub($1, $2, $3)|sge;
    print OUT $code;
    print OUT "        ;;\n";
}
print OUT <<"EOT";
    -* )
        echo "\$0:Error: unknown option \\`\$tool'" 2>&1
        echo "\$0:Hint:  run \\`\$0 -h' for usage" 2>&1
        exit 1
        ;;
    * )
        echo "\$0:Error: unknown command \\`\$tool'" 2>&1
        echo "\$0:Hint:  run \\`\$0 -h' for usage" 2>&1
        exit 1
        ;;
esac
EOT

#   Insert common part
my $file = &find_module("common");
open(FP, "<$file");
my $common = '';
$common .= $_ while (<FP>);
close(FP);
$common =~ s|^.+?\n\n|\n|s;
print OUT $common;

#   Insert the second part of the ingredient scripts
print OUT <<"EOT";
##
##  DISPATCH INTO SCRIPT BODY
##

case \$tool in

EOT
foreach $name (@@used) {
    print OUT "$name )\n";
    $code = $SCRIPT->{$name}->{CODE2};
    $code =~ s|^(.)|    $1|mg;
    sub mysub {
        my ($prolog, $code, $epilog) = @@_;
        $code =~ s|^    ||mg;
        return $prolog.$code.$epilog;
    }
    $code =~ s|(\<\<['"]?EOT['"]?\n)(.+?\n)[ \t]+(EOT)|&mysub($1, $2, $3)|sge;
    $code =~ s|(IFS='\s*\n)\s+(')|$1$2|sg;
    print OUT $code;
    print OUT "    ;;\n";
    print OUT "\n";
}
print OUT <<"EOT";
esac

shtool_exit 0

EOT
close(OUT);
chmod(0755, $opt_o);

1;
@


1.40
log
@Adjust copyright for year 2007.
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2007 Ralf S. Engelschall <rse@@engelschall.com>
d354 1
a354 1
##  Copyright (c) 1994-2007 Ralf S. Engelschall <rse\@@engelschall.com>
d425 1
a425 1
    echo 'Copyright (c) 1994-2007 Ralf S. Engelschall <rse\@@engelschall.com>'
@


1.39
log
@Upgrade build environment to GNU autoconf 2.61
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2006 Ralf S. Engelschall <rse@@engelschall.com>
d354 1
a354 1
##  Copyright (c) 1994-2006 Ralf S. Engelschall <rse\@@engelschall.com>
d425 1
a425 1
    echo 'Copyright (c) 1994-2006 Ralf S. Engelschall <rse\@@engelschall.com>'
@


1.38
log
@Adjust copyright for year 2006
@
text
@d30 5
a34 4
my $version   = "@@SHTOOL_VERSION_STR@@";
my $prefix    = "@@prefix@@";
my $datadir   = "@@datadir@@";
my $scriptdir = "$datadir/shtool";
@


1.37
log
@make a few quotes more consistent
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2005 Ralf S. Engelschall <rse@@engelschall.com>
d353 1
a353 1
##  Copyright (c) 1994-2005 Ralf S. Engelschall <rse\@@engelschall.com>
d424 1
a424 1
    echo 'Copyright (c) 1994-2005 Ralf S. Engelschall <rse\@@engelschall.com>'
@


1.36
log
@Enhance portability even more by maximizing Bourne Shell
compatibility under ZSH and BASH and avoiding NLS dependencies.

Hint by: R. N. de Arenas Coronado <privado@@dervishd.net>
@
text
@d424 2
a425 2
    echo "Copyright (c) 1994-2005 Ralf S. Engelschall <rse\@@engelschall.com>"
    echo "Report bugs to <bug-shtool\@@gnu.org>"
d427 1
a427 1
    echo "Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]"
@


1.35
log
@Adjust copyright for year 2005
@
text
@d392 25
@


1.34
log
@Embedded the command documentation from shtool.pod into the
individual sh.xxxx scripts and this way split the large shtool(1)
manual page into individual manual pages shtool-xxxx(1).

Submitted partly by: Thomas Lotterer <thomas@@lotterer.net>
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2004 Ralf S. Engelschall <rse@@engelschall.com>
d353 1
a353 1
##  Copyright (c) 1994-2004 Ralf S. Engelschall <rse\@@engelschall.com>
d399 1
a399 1
    echo "Copyright (c) 1994-2004 Ralf S. Engelschall <rse\@@engelschall.com>"
@


1.33
log
@Bump copyright year for 2004
@
text
@d184 3
d457 1
a457 1
    $code =~ s|^|        |mg;
d502 1
a502 1
    $code =~ s|^|    |mg;
@


1.32
log
@Replaced old and inflexible "shtool guessos" command
with a completely new command "shtool platform" command.
It distinguishes a Unix platform according to its hardware
architecture and operating system. For both there is a class,
product and technology identification. For each of those six
identifications, there is a verbose, regular and concise version.
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2003 Ralf S. Engelschall <rse@@engelschall.com>
d350 1
a350 1
##  Copyright (c) 1994-2003 Ralf S. Engelschall <rse\@@engelschall.com>
d396 1
a396 1
    echo "Copyright (c) 1994-2003 Ralf S. Engelschall <rse\@@engelschall.com>"
@


1.31
log
@Replace "[ x -o/-a x ]" constructs with "[ x ] ||/&& [ x ]"
and "egrep"/"fgrep" constructs with compatible "grep" or "case"
constructs. This way GNU shtool is now more POSIX 1003.1-2001
compliant.

Submitted by: Paul Eggert <eggert@@twinsun.com>
@
text
@d38 1
a38 1
    fixperm rotate tarball subst guessos arx slo scpp version path
@


1.30
log
@Bump year in copyright messages to cover new year 2003.
@
text
@d394 1
a394 1
if [ ".\$1" = ".-h" -o ".\$1" = ".--help" ]; then
d411 1
a411 1
if [ ".\$1" = ".-v" -o ".\$1" = ."--version" ]; then
d415 1
a415 1
if [ ".\$1" = ".-r" -o ".\$1" = ."--recreate" ]; then
d419 1
a419 1
if [ ".\$1" = ".-d" -o ".\$1" = ."--debug" ]; then
@


1.29
log
@Fixed error exit in all commands by introducing an "shtool_exit"
function (which correctly cleans up temporary files) and
replacing all "exit" calls with "shtool_exit". THIS THE FIRST
TIME INTRODUCED THE USAGE OF A SHELL FUNCTION TO THE SHTOOL CODE.
This is known to break on _very_ anchient and broken Bourne-Shell
implementations and is considered to be no longer a real problem
in the year 2003. Especially there is no alternative way anyway.
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2002 Ralf S. Engelschall <rse@@engelschall.com>
d350 1
a350 1
##  Copyright (c) 1994-2002 Ralf S. Engelschall <rse\@@engelschall.com>
d396 1
a396 1
    echo "Copyright (c) 1994-2002 Ralf S. Engelschall <rse\@@engelschall.com>"
@


1.28
log
@bump copyright year
@
text
@d514 1
a514 1
exit 0
a515 1
##EOF##
@


1.27
log
@bump copyright years
@
text
@d350 1
a350 1
##  Copyright (c) 1994-2001 Ralf S. Engelschall <rse\@@engelschall.com>
d396 1
a396 1
    echo "Copyright (c) 1994-2001 Ralf S. Engelschall <rse\@@engelschall.com>"
@


1.26
log
@*** empty log message ***
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2001 Ralf S. Engelschall <rse@@engelschall.com>
@


1.25
log
@*** empty log message ***
@
text
@d38 1
a38 1
    fixperm tarball subst guessos arx slo scpp version path
d259 2
d270 6
d280 2
d291 2
d302 6
d312 2
@


1.24
log
@*** empty log message ***
@
text
@d258 1
d265 3
d271 1
d279 2
d284 6
d292 2
@


1.23
log
@*** empty log message ***
@
text
@d38 1
a38 1
    fixperm tarball guessos arx slo scpp version path
@


1.22
log
@*** empty log message ***
@
text
@d37 1
a37 1
    echo mdate table prop move install mkdir mkln mkshadow 
d203 1
a203 1
    1 while ($code =~ s|^(##\s*\n)|$head .= $1, ''|se || 
d364 1
a364 1
    echo "Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]" 
@


1.21
log
@*** empty log message ***
@
text
@d340 1
a340 1
##  Notice: Given that you include this file verbatim into your own
@


1.20
log
@*** empty log message ***
@
text
@d257 1
d261 3
d266 1
@


1.19
log
@*** empty log message ***
@
text
@d4 1
a4 1
##  Copyright (c) 1999-2000 Ralf S. Engelschall <rse@@engelschall.com>
d310 1
a310 1
##  Copyright (c) 1994-2000 Ralf S. Engelschall <rse\@@engelschall.com>
d356 1
a356 1
    echo "Copyright (c) 1994-2000 Ralf S. Engelschall <rse\@@engelschall.com>"
@


1.18
log
@*** empty log message ***
@
text
@d289 7
a295 2
foreach $name (@@used) {
    $recreate .= " $name";
@


1.17
log
@*** empty log message ***
@
text
@d287 6
d360 1
d368 4
@


1.16
log
@*** empty log message ***
@
text
@d304 2
a305 2
##  Version ${version}
##  Ingredients: ${size}
@


1.15
log
@*** empty log message ***
@
text
@d404 1
a404 1
    $code =~ s|(\<\<['"]?EOT['"]?\s*\n)(.+?\n)\s+(EOT)|&mysub($1, $2, $3)|sge;
d449 1
a449 1
    $code =~ s|(\<\<['"]?EOT['"]?\s*\n)(.+?\n)\s+(EOT)|&mysub($1, $2, $3)|sge;
@


1.14
log
@*** empty log message ***
@
text
@d4 1
a4 1
##  Copyright (c) 1999 Ralf S. Engelschall <rse@@engelschall.com>
d299 1
a299 1
##  Copyright (c) 1994-1999 Ralf S. Engelschall <rse\@@engelschall.com>
d345 1
a345 1
    echo "Copyright (c) 1994-1999 Ralf S. Engelschall <rse\@@engelschall.com>"
@


1.13
log
@*** empty log message ***
@
text
@d409 5
@


1.12
log
@*** empty log message ***
@
text
@d344 1
a344 1
    echo "This is shtool, version ${version}"
@


1.11
log
@*** empty log message ***
@
text
@d121 1
a121 1
    ($a, $a2) = ($1, $2) if ($a =~ m|^(.{60}.*?)\s+(.+)$|);
@


1.10
log
@*** empty log message ***
@
text
@d121 1
a121 1
    ($a, $a2) = ($1, $2) if ($a =~ m|^(.{40}.*?)\s+(.+)$|);
@


1.9
log
@*** empty log message ***
@
text
@d37 2
a38 2
    echo mdate table prop move install mkdir mkln 
    mkshadow fixperm guessos arx slo scpp version path
@


1.8
log
@*** empty log message ***
@
text
@d118 1
a118 1
    print STDERR "Usage: shtoolize [-h] [-v] [-t] [-o <script>] <module> [<module> ...]\n" if ($cmdline);
@


1.7
log
@*** empty log message ***
@
text
@d278 3
d367 12
a378 2
tool=\"\$1\"
shift
@


1.6
log
@*** empty log message ***
@
text
@d445 1
a445 1
chmod(0755, 'shtool');
@


1.5
log
@*** empty log message ***
@
text
@d47 1
d118 1
a118 1
    print STDERR "Usage: shtoolize [-h] [-v] [-o <script>] <module> [<module> ...]\n" if ($cmdline);
d129 1
a129 1
($rc, @@ARGV) = &mygetopt($0, "hvo:", @@ARGV);
d131 4
d174 1
a174 1
print(STDERR "Generating $opt_o") if ($opt_v);
d229 1
a229 1
        printf(STDERR "...(%s %d/%d bytes)", $name, length($code), $len) if ($opt_v);
d236 1
a236 1
printf(STDERR "\n") if ($opt_v);
d343 1
@


1.4
log
@*** empty log message ***
@
text
@d118 1
a118 1
    my $a = "all ".join(' ', @@available);
d121 3
a123 3
    print STDERR "Available modules:\n";
    print STDERR " $a\n";
    print STDERR " $a2\n" if ($a2);
d351 1
a351 1
    echo "shtool ${version}"
@


1.3
log
@*** empty log message ***
@
text
@d73 1
a73 1
                        print STDERR "$progname:ERROR: incomplete option: `$first' (needs an argument)\n";
d84 1
a84 1
                        print STDERR "$progname:ERROR: incomplete option: `$first' (needs an argument)\n";
d102 1
a102 1
            print STDERR "$progname:ERROR: unknown option: `$first'\n";
d134 1
a134 1
    print STDERR "$0:ERROR: missing module name(s)\n";
d144 1
a144 1
            print STDERR "$0:ERROR: unknown module name: `$mod'\n";
d331 2
a332 2
    echo "\$0:ERROR: invalid command line" 1>&2
    echo "\$0:HINT:  run \\`\$0 -h' for usage" 1>&2
d391 2
a392 2
        echo "\$0:ERROR: unknown command \\`\$tool'" 2>&1
        echo "\$0:HINT:  run \\`\$0 -h' for usage" 2>&1
@


1.2
log
@*** empty log message ***
@
text
@d344 1
d353 4
@


1.1
log
@*** empty log message ***
@
text
@d118 1
a118 1
    my $a  = join(' ', @@available);
d120 4
a123 3
    ($a, $a2) = ($1, $2) if ($a =~ m|^(.{50}.*?)\s+(.+)$|);
    printf(STDERR "%s %s\n", 'Available modules:', $a);
    printf(STDERR "%s %s\n", '                  ', $a2) if ($a2);
@