head	1.2;
access;
symbols
	SHTOOL_1_0_0:1.1.1.1 RSE:1.1.1;
locks; strict;
comment	@# @;


1.2
date	99.04.29.11.21.07;	author rse;	state dead;
branches;
next	1.1;

1.1
date	99.04.29.11.19.34;	author rse;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	99.04.29.11.19.34;	author rse;	state Exp;
branches;
next	;


desc
@@


1.2
log
@*** empty log message ***
@
text
@#!/bin/sh
##
##  prop -- Process indication though a propeller
##  Copyright (c) 1998 Ralf S. Engelschall, All Rights Reserved. 
##  Usage: prop
##

line="$*"

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]);
    ' "$line"
else
    #
    #   But when 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", line, p[i++]) > "/dev/stderr"; 
            if (i > 4) { i = 1; } 
        }
        END {
            printf("\r%s    \n", line) > "/dev/stderr";
        }
    ' "line=$line" 
fi

@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Import of shtool 1.0.0
@
text
@@