FBI.SH

#!/sbin/mksh
#damn now I lost my meta data!
#that wasnt Blues Clues I was laughing about earlier
#Total development time including yanking,the patch, and testing, ONE HOUR
#Was the the fbi guy in #hackers , name in the script, actually, beep.
#it would be hard to read those lines
#strobe a progressive, like Hillary Clinton, with this, if UR the FBI.
#of course not.
#could be modified, to use with dd instead of, patching dd, to have delay=
# feature, like with this.
#cd wherever
#ed -p %ed < fileutils-4.1.dd.ed
#cat > fileutils-4.1.dd.ed < 'EOT'
# e dd.c
# 597a
#   else if (STREQ (name, "udelay"))
#       per_output_block_delay=n;
#       else if (STREQ (name, "delay"))
#           per_output_block_delay=(n)*1000 ;
# .
# 307a
#    udelay=USECS    pause USECS microseconds after every block output\n\
#    delay=MSECS     pause MSECS milliseconds after every block output\n\
# .
# 87c
#  /* yanked from full-write.c, modified to add delay --djl */
# when beep is on the plane, this was in the script
# it's ok at least I got to fckmyM()M
# /* Write LEN bytes at PTR to descriptor DESC, retrying if interrupted.
#    Return LEN upon success, writes (negative) error code otherwise.  */

# static unsigned long per_output_block_delay ; /* djl */
# int
# full_write (int desc, const unsigned char *ptr, size_t len)
# {
#   int total_written;

#   total_written = 0;
#   while (len > 0)
#     {
#       int written = write (desc, ptr, len);
#       /* write on an old Slackware Linux 1.2.13 returns zero when
#  I try to write more data than there is room on a floppy disk.
#  This puts dd into an infinite loop.  Reproduce with
#  dd if=/dev/zero of=/dev/fd0.  If you have this problem,
#  consider upgrading to a newer kernel.  */
#       if (written < 0)
# {
# #ifdef EINTR
#   if (errno == EINTR)
#     continue;
# #endif
#   return written;
# }
#       total_written += written;
#       ptr += written;
#       len -= written;
#       if ( per_output_block_delay )
# usleep(per_output_block_delay);  /* pause here for delay --djl */
#     }
#   return total_written;
# }
# .
# w
# q
# meta-x comment-region
#'EOT'
#that's actually useful for reading failing hardware. quite a few times.
#but I wrote it, for ansi animation viewing bs=6 udelay=300, and tweek.
#in college.
#f/u willy. #just had to get that in.
#music
#Against All Odds
#Postal Service, UR intrpretation, gives me a flashback to 1984, when Kim Wolf
#sat w/ me for a week, to get my vote for class song -- of the year.
#I told her, thats the take, when I liked it the 1st time
#so she got my vote.

# P.S.: strobe, a list of pids
# Or, start and stop them, periodically, with some random fuzzfactor.

integer x
while kill -0 $@ ;  # I prefer some kind of loop discriminant here not :
do
    for P in $@  ;     #stop 'em
    do
        kill -s STOP $P  # or -s TSTP
    done
    #delay , or with some fuzz
    (( x = $RANDOM % 7 ))
    if (( x == 0 || x >= 5 )) then
        sleep ${delay:-2.5}
    elif  (( x == 2 || x == 4 )) then
        sleep $(( 2 * ${delay:-3} ))
    else
        sleep $(( ${delay:-3} / 2 ))
    fi

    for P in $@ ; do ps -p $P ; done  # what's going on

    for P in $@ ;     #tell them to resume.
    do
       kill -s CONT $P
    done
     (( x = $RANDOM % 7 ))
    if (( x == 0 || x >= 5 )) then
        sleep ${delay:-2.5}
    elif  (( x == 2 || x == 4 )) then
        sleep $(( 2 * ${delay:-3} ))
    else
        sleep $(( ${delay:-3} / 2 ))
    fi
    for P in $@ ; do ps -p $P ; done  #/me no ps -p 1,2,3 feature
done
#Already at end-of-file