File: sh.prop

package info (click to toggle)
shtool 1.6.0-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 400 kB
  • ctags: 5
  • sloc: perl: 379; makefile: 156; sh: 52
file content (67 lines) | stat: -rw-r--r-- 2,058 bytes parent folder | download
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
##
##  prop -- Display progress with a running propeller
##  Copyright (c) 1998-2002 Ralf S. Engelschall <rse@engelschall.com>
##  Originally written for mod_ssl
##
##  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