xref: /onnv-gate/usr/src/lib/libshell/common/scripts/multifollow.sh (revision 12068:08a39a083754)
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*12068SRoger.Faulkner@Oracle.COM# Copyright (c) 2008, 2010, Oracle and/or its affiliates. All rights reserved.
268462SApril.Chin@Sun.COM#
278462SApril.Chin@Sun.COM
288462SApril.Chin@Sun.COM# Solaris needs /usr/xpg6/bin:/usr/xpg4/bin because the tools in /usr/bin are not POSIX-conformant
298462SApril.Chin@Sun.COMexport PATH=/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin
308462SApril.Chin@Sun.COM
318462SApril.Chin@Sun.COM# Make sure all math stuff runs in the "C" locale to avoid problems
328462SApril.Chin@Sun.COM# with alternative # radix point representations (e.g. ',' instead of
338462SApril.Chin@Sun.COM# '.' in de_DE.*-locales). This needs to be set _before_ any
348462SApril.Chin@Sun.COM# floating-point constants are defined in this script).
358462SApril.Chin@Sun.COMif [[ "${LC_ALL}" != "" ]] ; then
368462SApril.Chin@Sun.COM    export \
378462SApril.Chin@Sun.COM        LC_MONETARY="${LC_ALL}" \
388462SApril.Chin@Sun.COM        LC_MESSAGES="${LC_ALL}" \
398462SApril.Chin@Sun.COM        LC_COLLATE="${LC_ALL}" \
408462SApril.Chin@Sun.COM        LC_CTYPE="${LC_ALL}"
418462SApril.Chin@Sun.COM        unset LC_ALL
428462SApril.Chin@Sun.COMfi
438462SApril.Chin@Sun.COMexport LC_NUMERIC=C
448462SApril.Chin@Sun.COM
458462SApril.Chin@Sun.COMfunction fatal_error
468462SApril.Chin@Sun.COM{
478462SApril.Chin@Sun.COM    print -u 2 "${progname}: $@"
488462SApril.Chin@Sun.COM    exit 1
498462SApril.Chin@Sun.COM}
508462SApril.Chin@Sun.COM
518462SApril.Chin@Sun.COM
528462SApril.Chin@Sun.COMfunction usage
538462SApril.Chin@Sun.COM{
548462SApril.Chin@Sun.COM    OPTIND=0
558462SApril.Chin@Sun.COM    getopts -a "${progname}" "${multifollow_usage}" OPT '-?'
568462SApril.Chin@Sun.COM    exit 2
578462SApril.Chin@Sun.COM}
588462SApril.Chin@Sun.COM
598462SApril.Chin@Sun.COM# program start
608462SApril.Chin@Sun.COMbuiltin basename
618462SApril.Chin@Sun.COMbuiltin cat
628462SApril.Chin@Sun.COM
638462SApril.Chin@Sun.COMtypeset progname="$(basename "${0}")"
648462SApril.Chin@Sun.COM
658462SApril.Chin@Sun.COMtypeset -r multifollow_usage=$'+
6610898Sroland.mainz@nrubsig.org[-?\n@(#)\$Id: multifollow (Roland Mainz) 2009-04-08 \$\n]
678462SApril.Chin@Sun.COM[-author?Roland Mainz <roland.mainz@nrubsig.org>]
688462SApril.Chin@Sun.COM[+NAME?multifollow - use tail -f on multiple files]
698462SApril.Chin@Sun.COM[+DESCRIPTION?\bmultifollow\b is a small utilty which can "follow" multiple
708462SApril.Chin@Sun.COM	files similar to tail -f.]
718462SApril.Chin@Sun.COM
728462SApril.Chin@Sun.COM[ file ... ]
738462SApril.Chin@Sun.COM
748462SApril.Chin@Sun.COM[+SEE ALSO?\bksh93\b(1), \btail\b(1)]
758462SApril.Chin@Sun.COM'
768462SApril.Chin@Sun.COM
778462SApril.Chin@Sun.COMwhile getopts -a "${progname}" "${multifollow_usage}" OPT ; do
788462SApril.Chin@Sun.COM#    printmsg "## OPT=|${OPT}|, OPTARG=|${OPTARG}|"
798462SApril.Chin@Sun.COM    case ${OPT} in
808462SApril.Chin@Sun.COM        *)    usage ;;
818462SApril.Chin@Sun.COM    esac
828462SApril.Chin@Sun.COMdone
838462SApril.Chin@Sun.COMshift $((OPTIND-1))
848462SApril.Chin@Sun.COM
858462SApril.Chin@Sun.COM# expecting at least one more arguments
868462SApril.Chin@Sun.COM(($# >= 1)) || usage
878462SApril.Chin@Sun.COM
888462SApril.Chin@Sun.COMbuiltin -f libshell.so.1 poll || fatal_error "poll builtin not found."
898462SApril.Chin@Sun.COM
908462SApril.Chin@Sun.COMtypeset -a files
918462SApril.Chin@Sun.COMinteger numfiles=0
928462SApril.Chin@Sun.COMinteger i
938462SApril.Chin@Sun.COM
948462SApril.Chin@Sun.COM# register trap to cleanup child processes
958462SApril.Chin@Sun.COMtrap 'for ((i=0 ; i < numfiles ; i++ )) ; do kill -TERM ${files[i].childpid} ; done' EXIT
968462SApril.Chin@Sun.COM
978462SApril.Chin@Sun.COM# setup "tail -f" childs, FIFOs and information for the "poll" builtin
988462SApril.Chin@Sun.COMfor (( ; $# > 0 ; numfiles++ )) ; do
998462SApril.Chin@Sun.COM    typeset files[${numfiles}]=(
1008462SApril.Chin@Sun.COM        typeset name="$1"
1018462SApril.Chin@Sun.COM        typeset pipename="/tmp/multifollow_pipe_${PPID}_$$_${numfiles}"
1028462SApril.Chin@Sun.COM        integer childpid=-1
1038462SApril.Chin@Sun.COM
1048462SApril.Chin@Sun.COM        # poll(1) information
1058462SApril.Chin@Sun.COM        integer fd="-1"
1068462SApril.Chin@Sun.COM	typeset events="POLLIN"
1078462SApril.Chin@Sun.COM	typeset revents=""
1088462SApril.Chin@Sun.COM    )
1098462SApril.Chin@Sun.COM
1108462SApril.Chin@Sun.COM    mkfifo "${files[${numfiles}].pipename}"
11110898Sroland.mainz@nrubsig.org    redirect {files[numfiles].fd}<> "${files[numfiles].pipename}"
1128462SApril.Chin@Sun.COM
1138462SApril.Chin@Sun.COM    tail -f "${files[${numfiles}].name}" >"${files[${numfiles}].pipename}" &
1148462SApril.Chin@Sun.COM    files[${numfiles}].childpid=$!
1158462SApril.Chin@Sun.COM
1168462SApril.Chin@Sun.COM    rm "${files[${numfiles}].pipename}"
1178462SApril.Chin@Sun.COM
1188462SApril.Chin@Sun.COM    shift
1198462SApril.Chin@Sun.COMdone
1208462SApril.Chin@Sun.COM
1218462SApril.Chin@Sun.COMtypeset do_poll=true
1228462SApril.Chin@Sun.COM
1238462SApril.Chin@Sun.COM# event loop
1248462SApril.Chin@Sun.COMwhile true ; do
1258462SApril.Chin@Sun.COM    if ${do_poll} ; then
1268462SApril.Chin@Sun.COM        for ((i=0 ; i < numfiles ; i++ )) ; do
1278462SApril.Chin@Sun.COM	    files[i].revents=""
1288462SApril.Chin@Sun.COM	done
1298462SApril.Chin@Sun.COM        poll files
1308462SApril.Chin@Sun.COM    fi
1318462SApril.Chin@Sun.COM    do_poll=true
1328462SApril.Chin@Sun.COM
1338462SApril.Chin@Sun.COM    for ((i=0 ; i < numfiles ; i++ )) ; do
1348462SApril.Chin@Sun.COM        if [[ "${files[i].revents}" != "" ]] ; then
1358462SApril.Chin@Sun.COM	    # todo: investigate why we have to use "do_poll" at all - AFAIK it
1368462SApril.Chin@Sun.COM	    # should be sufficient to call "poll" and get "revents" set if there
1378462SApril.Chin@Sun.COM	    # are any remaining data...
1388462SApril.Chin@Sun.COM	    if read -t0 -u${files[i].fd} line ; then
1398462SApril.Chin@Sun.COM	        print -- "#${i}: ${line}"
1408462SApril.Chin@Sun.COM		do_poll=false
1418462SApril.Chin@Sun.COM	    fi
1428462SApril.Chin@Sun.COM	fi
1438462SApril.Chin@Sun.COM    done
1448462SApril.Chin@Sun.COMdone
1458462SApril.Chin@Sun.COM
1468462SApril.Chin@Sun.COMfatal_error "not reached."
1478462SApril.Chin@Sun.COM# EOF.
148