18462SApril.Chin@Sun.COM#!/usr/bin/ksh93
28462SApril.Chin@Sun.COM
38462SApril.Chin@Sun.COM#
48462SApril.Chin@Sun.COM# CDDL HEADER START
58462SApril.Chin@Sun.COM#
68462SApril.Chin@Sun.COM# The contents of this file are subject to the terms of the
78462SApril.Chin@Sun.COM# Common Development and Distribution License (the "License").
88462SApril.Chin@Sun.COM# You may not use this file except in compliance with the License.
98462SApril.Chin@Sun.COM#
108462SApril.Chin@Sun.COM# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
118462SApril.Chin@Sun.COM# or http://www.opensolaris.org/os/licensing.
128462SApril.Chin@Sun.COM# See the License for the specific language governing permissions
138462SApril.Chin@Sun.COM# and limitations under the License.
148462SApril.Chin@Sun.COM#
158462SApril.Chin@Sun.COM# When distributing Covered Code, include this CDDL HEADER in each
168462SApril.Chin@Sun.COM# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
178462SApril.Chin@Sun.COM# If applicable, add the following below this CDDL HEADER, with the
188462SApril.Chin@Sun.COM# fields enclosed by brackets "[]" replaced with your own identifying
198462SApril.Chin@Sun.COM# information: Portions Copyright [yyyy] [name of copyright owner]
208462SApril.Chin@Sun.COM#
218462SApril.Chin@Sun.COM# CDDL HEADER END
228462SApril.Chin@Sun.COM#
238462SApril.Chin@Sun.COM
248462SApril.Chin@Sun.COM#
25*10898Sroland.mainz@nrubsig.org# Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
268462SApril.Chin@Sun.COM# Use is subject to license terms.
278462SApril.Chin@Sun.COM#
288462SApril.Chin@Sun.COM
298462SApril.Chin@Sun.COM# Solaris needs /usr/xpg6/bin:/usr/xpg4/bin because the tools in /usr/bin are not POSIX-conformant
308462SApril.Chin@Sun.COMexport PATH=/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin
318462SApril.Chin@Sun.COM
328462SApril.Chin@Sun.COM# Make sure all math stuff runs in the "C" locale to avoid problems
338462SApril.Chin@Sun.COM# with alternative # radix point representations (e.g. ',' instead of
348462SApril.Chin@Sun.COM# '.' in de_DE.*-locales). This needs to be set _before_ any
358462SApril.Chin@Sun.COM# floating-point constants are defined in this script).
368462SApril.Chin@Sun.COMif [[ "${LC_ALL}" != "" ]] ; then
378462SApril.Chin@Sun.COM    export \
388462SApril.Chin@Sun.COM        LC_MONETARY="${LC_ALL}" \
398462SApril.Chin@Sun.COM        LC_MESSAGES="${LC_ALL}" \
408462SApril.Chin@Sun.COM        LC_COLLATE="${LC_ALL}" \
418462SApril.Chin@Sun.COM        LC_CTYPE="${LC_ALL}"
428462SApril.Chin@Sun.COM        unset LC_ALL
438462SApril.Chin@Sun.COMfi
448462SApril.Chin@Sun.COMexport LC_NUMERIC=C
458462SApril.Chin@Sun.COM
468462SApril.Chin@Sun.COMfunction fatal_error
478462SApril.Chin@Sun.COM{
488462SApril.Chin@Sun.COM    print -u 2 "${progname}: $@"
498462SApril.Chin@Sun.COM    exit 1
508462SApril.Chin@Sun.COM}
518462SApril.Chin@Sun.COM
528462SApril.Chin@Sun.COM
538462SApril.Chin@Sun.COMfunction usage
548462SApril.Chin@Sun.COM{
558462SApril.Chin@Sun.COM    OPTIND=0
568462SApril.Chin@Sun.COM    getopts -a "${progname}" "${multifollow_usage}" OPT '-?'
578462SApril.Chin@Sun.COM    exit 2
588462SApril.Chin@Sun.COM}
598462SApril.Chin@Sun.COM
608462SApril.Chin@Sun.COM# program start
618462SApril.Chin@Sun.COMbuiltin basename
628462SApril.Chin@Sun.COMbuiltin cat
638462SApril.Chin@Sun.COM
648462SApril.Chin@Sun.COMtypeset progname="$(basename "${0}")"
658462SApril.Chin@Sun.COM
668462SApril.Chin@Sun.COMtypeset -r multifollow_usage=$'+
67*10898Sroland.mainz@nrubsig.org[-?\n@(#)\$Id: multifollow (Roland Mainz) 2009-04-08 \$\n]
688462SApril.Chin@Sun.COM[-author?Roland Mainz <roland.mainz@nrubsig.org>]
698462SApril.Chin@Sun.COM[+NAME?multifollow - use tail -f on multiple files]
708462SApril.Chin@Sun.COM[+DESCRIPTION?\bmultifollow\b is a small utilty which can "follow" multiple
718462SApril.Chin@Sun.COM	files similar to tail -f.]
728462SApril.Chin@Sun.COM
738462SApril.Chin@Sun.COM[ file ... ]
748462SApril.Chin@Sun.COM
758462SApril.Chin@Sun.COM[+SEE ALSO?\bksh93\b(1), \btail\b(1)]
768462SApril.Chin@Sun.COM'
778462SApril.Chin@Sun.COM
788462SApril.Chin@Sun.COMwhile getopts -a "${progname}" "${multifollow_usage}" OPT ; do
798462SApril.Chin@Sun.COM#    printmsg "## OPT=|${OPT}|, OPTARG=|${OPTARG}|"
808462SApril.Chin@Sun.COM    case ${OPT} in
818462SApril.Chin@Sun.COM        *)    usage ;;
828462SApril.Chin@Sun.COM    esac
838462SApril.Chin@Sun.COMdone
848462SApril.Chin@Sun.COMshift $((OPTIND-1))
858462SApril.Chin@Sun.COM
868462SApril.Chin@Sun.COM# expecting at least one more arguments
878462SApril.Chin@Sun.COM(($# >= 1)) || usage
888462SApril.Chin@Sun.COM
898462SApril.Chin@Sun.COMbuiltin -f libshell.so.1 poll || fatal_error "poll builtin not found."
908462SApril.Chin@Sun.COM
918462SApril.Chin@Sun.COMtypeset -a files
928462SApril.Chin@Sun.COMinteger numfiles=0
938462SApril.Chin@Sun.COMinteger i
948462SApril.Chin@Sun.COM
958462SApril.Chin@Sun.COM# register trap to cleanup child processes
968462SApril.Chin@Sun.COMtrap 'for ((i=0 ; i < numfiles ; i++ )) ; do kill -TERM ${files[i].childpid} ; done' EXIT
978462SApril.Chin@Sun.COM
988462SApril.Chin@Sun.COM# setup "tail -f" childs, FIFOs and information for the "poll" builtin
998462SApril.Chin@Sun.COMfor (( ; $# > 0 ; numfiles++ )) ; do
1008462SApril.Chin@Sun.COM    typeset files[${numfiles}]=(
1018462SApril.Chin@Sun.COM        typeset name="$1"
1028462SApril.Chin@Sun.COM        typeset pipename="/tmp/multifollow_pipe_${PPID}_$$_${numfiles}"
1038462SApril.Chin@Sun.COM        integer childpid=-1
1048462SApril.Chin@Sun.COM
1058462SApril.Chin@Sun.COM        # poll(1) information
1068462SApril.Chin@Sun.COM        integer fd="-1"
1078462SApril.Chin@Sun.COM	typeset events="POLLIN"
1088462SApril.Chin@Sun.COM	typeset revents=""
1098462SApril.Chin@Sun.COM    )
1108462SApril.Chin@Sun.COM
1118462SApril.Chin@Sun.COM    mkfifo "${files[${numfiles}].pipename}"
112*10898Sroland.mainz@nrubsig.org    redirect {files[numfiles].fd}<> "${files[numfiles].pipename}"
1138462SApril.Chin@Sun.COM
1148462SApril.Chin@Sun.COM    tail -f "${files[${numfiles}].name}" >"${files[${numfiles}].pipename}" &
1158462SApril.Chin@Sun.COM    files[${numfiles}].childpid=$!
1168462SApril.Chin@Sun.COM
1178462SApril.Chin@Sun.COM    rm "${files[${numfiles}].pipename}"
1188462SApril.Chin@Sun.COM
1198462SApril.Chin@Sun.COM    shift
1208462SApril.Chin@Sun.COMdone
1218462SApril.Chin@Sun.COM
1228462SApril.Chin@Sun.COMtypeset do_poll=true
1238462SApril.Chin@Sun.COM
1248462SApril.Chin@Sun.COM# event loop
1258462SApril.Chin@Sun.COMwhile true ; do
1268462SApril.Chin@Sun.COM    if ${do_poll} ; then
1278462SApril.Chin@Sun.COM        for ((i=0 ; i < numfiles ; i++ )) ; do
1288462SApril.Chin@Sun.COM	    files[i].revents=""
1298462SApril.Chin@Sun.COM	done
1308462SApril.Chin@Sun.COM        poll files
1318462SApril.Chin@Sun.COM    fi
1328462SApril.Chin@Sun.COM    do_poll=true
1338462SApril.Chin@Sun.COM
1348462SApril.Chin@Sun.COM    for ((i=0 ; i < numfiles ; i++ )) ; do
1358462SApril.Chin@Sun.COM        if [[ "${files[i].revents}" != "" ]] ; then
1368462SApril.Chin@Sun.COM	    # todo: investigate why we have to use "do_poll" at all - AFAIK it
1378462SApril.Chin@Sun.COM	    # should be sufficient to call "poll" and get "revents" set if there
1388462SApril.Chin@Sun.COM	    # are any remaining data...
1398462SApril.Chin@Sun.COM	    if read -t0 -u${files[i].fd} line ; then
1408462SApril.Chin@Sun.COM	        print -- "#${i}: ${line}"
1418462SApril.Chin@Sun.COM		do_poll=false
1428462SApril.Chin@Sun.COM	    fi
1438462SApril.Chin@Sun.COM	fi
1448462SApril.Chin@Sun.COM    done
1458462SApril.Chin@Sun.COMdone
1468462SApril.Chin@Sun.COM
1478462SApril.Chin@Sun.COMfatal_error "not reached."
1488462SApril.Chin@Sun.COM# EOF.
149