File: sh.prop

package info (click to toggle)
shtool 2.0.8-9
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 808 kB
  • ctags: 12
  • sloc: perl: 399; makefile: 110; sh: 42
file content (122 lines) | stat: -rw-r--r-- 3,063 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
##
##  prop -- Display progress with a running propeller
##  Copyright (c) 1998-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>.
##

str_tool="prop"
str_usage="[-p|--prefix <str>]"
arg_spec="0="
opt_spec="p:"
opt_alias="p:prefix"
opt_p=""

. ./sh.common

perl=''
for dir in `echo $PATH | sed -e 's/:/ /g'` .; do
    if [ -f "$dir/perl" ]; then
        perl="$dir/perl"
        break
    fi
done
if [ ".$perl" != . ]; then
    #   Perl is preferred because writing to STDERR in
    #   Perl really writes immediately as one would expect
    $perl -e '
        @p = ("|","/","-","\\");
        $i = 0;
        while (<STDIN>) {
            printf(STDERR "\r%s...%s\b", $ARGV[0], $p[$i++]);
            $i = 0 if ($i > 3);
        }
        printf(STDERR "\r%s    \n", $ARGV[0]);
    ' "$opt_p"
else
    #   But if Perl doesn't exists we use Awk even
    #   some Awk's buffer even the /dev/stderr writing :-(
    awk '
        BEGIN {
            split("|#/#-#\\", p, "#");
            i = 1;
        }
        {
            printf("\r%s%c\b", prefix, p[i++]) > "/dev/stderr";
            if (i > 4) { i = 1; }
        }
        END {
            printf("\r%s    \n", prefix) > "/dev/stderr";
        }
    ' "prefix=$opt_p"
fi

shtool_exit 0

##
##  manual page
##

=pod

=head1 NAME

B<shtool-prop> - B<GNU shtool> propeller processing indication

=head1 SYNOPSIS

B<shtool prop>
[B<-p>|B<--prefix> I<str>]

=head1 DESCRIPTION

This command displays a processing indication though a running
propeller. It is intended to be run at the end of a pipe ("C<|>")
sequence where on C<stdin> logging/processing information found. For
every line on C<stdin> the propeller advances one step clock-wise.

=head1 OPTIONS

The following command line options are available.

=over 4

=item B<-p>, B<--prefix> I<str>

Set a particular prefix I<str> which is displayed in front of the
propeller. The default is no prefix string.

=back

=head1 EXAMPLE

 #   shell script
 configure 2>&1 |\
     tee logfile |\
     shtool prop -p "Configuring sources"

=head1 HISTORY

The B<GNU shtool> B<prop> command was originally written by Ralf S.
Engelschall E<lt>rse@engelschall.comE<gt> in 1998 for B<mod_ssl>. It was
later taken over into B<GNU shtool>.

=head1 SEE ALSO

shtool(1).

=cut