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# 308462SApril.Chin@Sun.COM# termclock - a simple analog clock for terminals 318462SApril.Chin@Sun.COM# 328462SApril.Chin@Sun.COM 338462SApril.Chin@Sun.COM# Solaris needs /usr/xpg6/bin:/usr/xpg4/bin because the tools in /usr/bin are not POSIX-conformant 348462SApril.Chin@Sun.COMexport PATH=/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin 358462SApril.Chin@Sun.COM 368462SApril.Chin@Sun.COM# Make sure all math stuff runs in the "C" locale to avoid problems 378462SApril.Chin@Sun.COM# with alternative # radix point representations (e.g. ',' instead of 388462SApril.Chin@Sun.COM# '.' in de_DE.*-locales). This needs to be set _before_ any 398462SApril.Chin@Sun.COM# floating-point constants are defined in this script). 408462SApril.Chin@Sun.COMif [[ "${LC_ALL}" != "" ]] ; then 418462SApril.Chin@Sun.COM export \ 428462SApril.Chin@Sun.COM LC_MONETARY="${LC_ALL}" \ 438462SApril.Chin@Sun.COM LC_MESSAGES="${LC_ALL}" \ 448462SApril.Chin@Sun.COM LC_COLLATE="${LC_ALL}" \ 458462SApril.Chin@Sun.COM LC_CTYPE="${LC_ALL}" 468462SApril.Chin@Sun.COM unset LC_ALL 478462SApril.Chin@Sun.COMfi 488462SApril.Chin@Sun.COMexport LC_NUMERIC=C 498462SApril.Chin@Sun.COM 508462SApril.Chin@Sun.COMfunction fatal_error 518462SApril.Chin@Sun.COM{ 528462SApril.Chin@Sun.COM print -u2 "${progname}: $*" 538462SApril.Chin@Sun.COM exit 1 548462SApril.Chin@Sun.COM} 558462SApril.Chin@Sun.COM 568462SApril.Chin@Sun.COM# cache tput values (to avoid |fork()|'ing a "tput" child every second) 578462SApril.Chin@Sun.COMfunction tput_cup 588462SApril.Chin@Sun.COM{ 598462SApril.Chin@Sun.COM # static variable as cache for "tput_cup" 608462SApril.Chin@Sun.COM typeset -S -A tput_cup_cache 618462SApril.Chin@Sun.COM 628462SApril.Chin@Sun.COM integer y="$1" x="$2" 638462SApril.Chin@Sun.COM nameref c="tput_cup_cache[\"${y}_${x}\"]" 648462SApril.Chin@Sun.COM 658462SApril.Chin@Sun.COM if [[ "$c" == "" ]] ; then 668462SApril.Chin@Sun.COM # fast path for known terminal types 678462SApril.Chin@Sun.COM if [[ ${TERM} == ~(Elr)(vt100|vt220|xterm|xterm-color|dtterm) ]] ; then 688462SApril.Chin@Sun.COM c="${ printf "\E[%d;%dH" y+1 x+1 ; }" 698462SApril.Chin@Sun.COM else 708462SApril.Chin@Sun.COM c="${ tput cup $y $x ; }" 718462SApril.Chin@Sun.COM fi 728462SApril.Chin@Sun.COM fi 738462SApril.Chin@Sun.COM 748462SApril.Chin@Sun.COM print -r -n -- "$c" 758462SApril.Chin@Sun.COM return 0 768462SApril.Chin@Sun.COM} 778462SApril.Chin@Sun.COM 788462SApril.Chin@Sun.COM# Get terminal size and put values into a compound variable with the integer 798462SApril.Chin@Sun.COM# members "columns" and "lines" 808462SApril.Chin@Sun.COMfunction get_term_size 818462SApril.Chin@Sun.COM{ 828462SApril.Chin@Sun.COM nameref rect=$1 838462SApril.Chin@Sun.COM 848462SApril.Chin@Sun.COM rect.columns=${ tput cols ; } || return 1 858462SApril.Chin@Sun.COM rect.lines=${ tput lines ; } || return 1 868462SApril.Chin@Sun.COM 878462SApril.Chin@Sun.COM return 0 888462SApril.Chin@Sun.COM} 898462SApril.Chin@Sun.COM 908462SApril.Chin@Sun.COMfunction draw_clock 918462SApril.Chin@Sun.COM{ 928462SApril.Chin@Sun.COM float angle a 938462SApril.Chin@Sun.COM float x y 948462SApril.Chin@Sun.COM integer i=1 958462SApril.Chin@Sun.COM 968462SApril.Chin@Sun.COM for(( angle=0.0 ; angle < 360. ; angle+=6 )) ; do 978462SApril.Chin@Sun.COM (( 988462SApril.Chin@Sun.COM a=angle/360.*(2*M_PI) , 998462SApril.Chin@Sun.COM 1008462SApril.Chin@Sun.COM x=clock.len_x*cos(a) , 1018462SApril.Chin@Sun.COM y=clock.len_y*sin(a) 1028462SApril.Chin@Sun.COM )) 1038462SApril.Chin@Sun.COM 1048462SApril.Chin@Sun.COM tput_cup $(( y+clock.middle_y )) $(( x+clock.middle_x )) 1058462SApril.Chin@Sun.COM 1068462SApril.Chin@Sun.COM # add "mark" every 30 degrees 1078462SApril.Chin@Sun.COM if (( int(angle)%30 == 0 )) ; then 1088462SApril.Chin@Sun.COM print -r -n "$(((++i)%12+1))" 1098462SApril.Chin@Sun.COM else 1108462SApril.Chin@Sun.COM print -r -n "x" 1118462SApril.Chin@Sun.COM fi 1128462SApril.Chin@Sun.COM done 1138462SApril.Chin@Sun.COM return 0 1148462SApril.Chin@Sun.COM} 1158462SApril.Chin@Sun.COM 1168462SApril.Chin@Sun.COMfunction draw_hand 1178462SApril.Chin@Sun.COM{ 1188462SApril.Chin@Sun.COM float angle="$1" a 1198462SApril.Chin@Sun.COM typeset ch="$2" 1208462SApril.Chin@Sun.COM float length="$3" 1218462SApril.Chin@Sun.COM float x y 1228462SApril.Chin@Sun.COM 1238462SApril.Chin@Sun.COM (( a=angle/360.*(2*M_PI) )) 1248462SApril.Chin@Sun.COM 1258462SApril.Chin@Sun.COM for (( s=0.0 ; s < 10. ; s+=0.5 )) ; do 1268462SApril.Chin@Sun.COM (( 1278462SApril.Chin@Sun.COM x=(clock.len_x*(s/10.)*(length/100.))*cos(a) , 1288462SApril.Chin@Sun.COM y=(clock.len_y*(s/10.)*(length/100.))*sin(a) 1298462SApril.Chin@Sun.COM )) 1308462SApril.Chin@Sun.COM 1318462SApril.Chin@Sun.COM tput_cup $(( y+clock.middle_y )) $(( x+clock.middle_x )) 1328462SApril.Chin@Sun.COM print -r -n -- "${ch}" 1338462SApril.Chin@Sun.COM done 1348462SApril.Chin@Sun.COM return 0 1358462SApril.Chin@Sun.COM} 1368462SApril.Chin@Sun.COM 1378462SApril.Chin@Sun.COMfunction draw_clock_hand 1388462SApril.Chin@Sun.COM{ 1398462SApril.Chin@Sun.COM nameref hand=$1 1408462SApril.Chin@Sun.COM draw_hand $(( 360.*(hand.val/hand.scale)-90. )) "${hand.ch}" ${hand.length} 1418462SApril.Chin@Sun.COM return 0 1428462SApril.Chin@Sun.COM} 1438462SApril.Chin@Sun.COM 1448462SApril.Chin@Sun.COMfunction clear_clock_hand 1458462SApril.Chin@Sun.COM{ 1468462SApril.Chin@Sun.COM nameref hand=$1 1478462SApril.Chin@Sun.COM draw_hand $(( 360.*(hand.val/hand.scale)-90. )) " " ${hand.length} 1488462SApril.Chin@Sun.COM return 0 1498462SApril.Chin@Sun.COM} 1508462SApril.Chin@Sun.COM 1518462SApril.Chin@Sun.COMfunction main_loop 1528462SApril.Chin@Sun.COM{ 1538462SApril.Chin@Sun.COM typeset c 1548462SApril.Chin@Sun.COM 1558462SApril.Chin@Sun.COM # note: we can't use subshells when writing to the double-buffer file because this 1568462SApril.Chin@Sun.COM # will render the tput value cache useless 1578462SApril.Chin@Sun.COM while true ; do 1588462SApril.Chin@Sun.COM if ${init_screen} ; then 1598462SApril.Chin@Sun.COM init_screen="false" 1608462SApril.Chin@Sun.COM 1618462SApril.Chin@Sun.COM get_term_size termsize || fatal_error $"Couldn't get terminal size." 1628462SApril.Chin@Sun.COM 1638462SApril.Chin@Sun.COM (( 1648462SApril.Chin@Sun.COM clock.middle_x=termsize.columns/2.-.5 , 1658462SApril.Chin@Sun.COM clock.middle_y=termsize.lines/2.-.5 , 1668462SApril.Chin@Sun.COM clock.len_x=termsize.columns/2-2 , 1678462SApril.Chin@Sun.COM clock.len_y=termsize.lines/2-2 , 1688462SApril.Chin@Sun.COM )) 1698462SApril.Chin@Sun.COM 1708462SApril.Chin@Sun.COM { 1718462SApril.Chin@Sun.COM clear 1728462SApril.Chin@Sun.COM draw_clock 1738462SApril.Chin@Sun.COM } >&6 1748462SApril.Chin@Sun.COM fi 1758462SApril.Chin@Sun.COM 1768462SApril.Chin@Sun.COM { 1778462SApril.Chin@Sun.COM (( ${ date +"hours.val=%H , minutes.val=%M , seconds.val=%S" ; } )) 1788462SApril.Chin@Sun.COM 1798462SApril.Chin@Sun.COM # small trick to get a smooth "analog" flair 1808462SApril.Chin@Sun.COM (( 1818462SApril.Chin@Sun.COM hours.val+=minutes.val/60. , 1828462SApril.Chin@Sun.COM minutes.val+=seconds.val/60. 1838462SApril.Chin@Sun.COM )) 1848462SApril.Chin@Sun.COM 1858462SApril.Chin@Sun.COM draw_clock_hand seconds 1868462SApril.Chin@Sun.COM draw_clock_hand minutes 1878462SApril.Chin@Sun.COM draw_clock_hand hours 1888462SApril.Chin@Sun.COM 1898462SApril.Chin@Sun.COM # move cursor to home position 1908462SApril.Chin@Sun.COM tput_cup 0 0 1918462SApril.Chin@Sun.COM } >&6 1928462SApril.Chin@Sun.COM 1938462SApril.Chin@Sun.COM 6<#((0)) 1948462SApril.Chin@Sun.COM cat <&6 1958462SApril.Chin@Sun.COM 196*10898Sroland.mainz@nrubsig.org redirect 6<&- ; rm -f "${scratchfile}" ; redirect 6<> "${scratchfile}" 1978462SApril.Chin@Sun.COM 1988462SApril.Chin@Sun.COM c="" ; read -r -t ${update_interval} -N 1 c 1998462SApril.Chin@Sun.COM if [[ "$c" != "" ]] ; then 2008462SApril.Chin@Sun.COM case "$c" in 2018462SApril.Chin@Sun.COM ~(Fi)q | $'\E') return 0 ;; 2028462SApril.Chin@Sun.COM esac 2038462SApril.Chin@Sun.COM fi 2048462SApril.Chin@Sun.COM 2058462SApril.Chin@Sun.COM { 2068462SApril.Chin@Sun.COM clear_clock_hand hours 2078462SApril.Chin@Sun.COM clear_clock_hand minutes 2088462SApril.Chin@Sun.COM clear_clock_hand seconds 2098462SApril.Chin@Sun.COM } >&6 2108462SApril.Chin@Sun.COM done 2118462SApril.Chin@Sun.COM} 2128462SApril.Chin@Sun.COM 2138462SApril.Chin@Sun.COMfunction usage 2148462SApril.Chin@Sun.COM{ 2158462SApril.Chin@Sun.COM OPTIND=0 2168462SApril.Chin@Sun.COM getopts -a "${progname}" "${termclock_usage}" OPT '-?' 2178462SApril.Chin@Sun.COM exit 2 2188462SApril.Chin@Sun.COM} 2198462SApril.Chin@Sun.COM 2208462SApril.Chin@Sun.COM# program start 2218462SApril.Chin@Sun.COMbuiltin basename 2228462SApril.Chin@Sun.COMbuiltin cat 2238462SApril.Chin@Sun.COMbuiltin date 224*10898Sroland.mainz@nrubsig.orgbuiltin mktemp 2258462SApril.Chin@Sun.COMbuiltin rm 2268462SApril.Chin@Sun.COM 2278462SApril.Chin@Sun.COMtypeset progname="${ basename "${0}" ; }" 2288462SApril.Chin@Sun.COM 2298462SApril.Chin@Sun.COMfloat -r M_PI=3.14159265358979323846 2308462SApril.Chin@Sun.COM 2318462SApril.Chin@Sun.COM# terminal size rect 232*10898Sroland.mainz@nrubsig.orgcompound termsize=( 2338462SApril.Chin@Sun.COM integer columns=-1 2348462SApril.Chin@Sun.COM integer lines=-1 2358462SApril.Chin@Sun.COM) 2368462SApril.Chin@Sun.COM 2378462SApril.Chin@Sun.COMtypeset init_screen="true" 2388462SApril.Chin@Sun.COM 239*10898Sroland.mainz@nrubsig.orgcompound clock=( 2408462SApril.Chin@Sun.COM float middle_x 2418462SApril.Chin@Sun.COM float middle_y 2428462SApril.Chin@Sun.COM integer len_x 2438462SApril.Chin@Sun.COM integer len_y 2448462SApril.Chin@Sun.COM) 2458462SApril.Chin@Sun.COM 2468462SApril.Chin@Sun.COM 2478462SApril.Chin@Sun.COM# set clock properties 248*10898Sroland.mainz@nrubsig.orgcompound seconds=( 2498462SApril.Chin@Sun.COM float val 2508462SApril.Chin@Sun.COM typeset ch 2518462SApril.Chin@Sun.COM float scale 2528462SApril.Chin@Sun.COM integer length ) 253*10898Sroland.mainz@nrubsig.orgcompound minutes=( 2548462SApril.Chin@Sun.COM float val 2558462SApril.Chin@Sun.COM typeset ch 2568462SApril.Chin@Sun.COM float scale 2578462SApril.Chin@Sun.COM integer length ) 258*10898Sroland.mainz@nrubsig.orgcompound hours=( 2598462SApril.Chin@Sun.COM float val 2608462SApril.Chin@Sun.COM typeset ch 2618462SApril.Chin@Sun.COM float scale 2628462SApril.Chin@Sun.COM integer length ) 2638462SApril.Chin@Sun.COM 2648462SApril.Chin@Sun.COMseconds.length=90 seconds.scale=60 seconds.ch=$"s" 2658462SApril.Chin@Sun.COMminutes.length=75 minutes.scale=60 minutes.ch=$"m" 2668462SApril.Chin@Sun.COMhours.length=50 hours.scale=12 hours.ch=$"h" 2678462SApril.Chin@Sun.COM 2688462SApril.Chin@Sun.COMfloat update_interval=0.9 2698462SApril.Chin@Sun.COM 2708462SApril.Chin@Sun.COMtypeset -r termclock_usage=$'+ 271*10898Sroland.mainz@nrubsig.org[-?\n@(#)\$Id: termclock (Roland Mainz) 2009-05-09 \$\n] 2728462SApril.Chin@Sun.COM[-author?Roland Mainz <roland.mainz@nrubsig.org>] 2738462SApril.Chin@Sun.COM[-author?David Korn <dgk@research.att.com>] 2748462SApril.Chin@Sun.COM[+NAME?termclock - analog clock for terminals] 2758462SApril.Chin@Sun.COM[+DESCRIPTION?\btermclock\b is an analog clock for terminals. 2768462SApril.Chin@Sun.COM The termclock program displays the time in analog or digital 2778462SApril.Chin@Sun.COM form. The time is continuously updated at a frequency which 2788462SApril.Chin@Sun.COM may be specified by the user.] 2798462SApril.Chin@Sun.COM[u:update?Update interval (defaults to 0.9 seconds).]:[interval] 2808462SApril.Chin@Sun.COM[+SEE ALSO?\bksh93\b(1), \bxclock\b(1)] 2818462SApril.Chin@Sun.COM' 2828462SApril.Chin@Sun.COM 2838462SApril.Chin@Sun.COMwhile getopts -a "${progname}" "${termclock_usage}" OPT ; do 2848462SApril.Chin@Sun.COM# printmsg "## OPT=|${OPT}|, OPTARG=|${OPTARG}|" 2858462SApril.Chin@Sun.COM case ${OPT} in 2868462SApril.Chin@Sun.COM u) update_interval=${OPTARG} ;; 2878462SApril.Chin@Sun.COM *) usage ;; 2888462SApril.Chin@Sun.COM esac 2898462SApril.Chin@Sun.COMdone 2908462SApril.Chin@Sun.COMshift $((OPTIND-1)) 2918462SApril.Chin@Sun.COM 2928462SApril.Chin@Sun.COM# prechecks 2938462SApril.Chin@Sun.COMwhich tput >/dev/null || fatal_error $"tput not found." 2948462SApril.Chin@Sun.COM(( update_interval >= 0. && update_interval <= 7200. )) || fatal_error $"invalid update_interval value." 2958462SApril.Chin@Sun.COM 2968462SApril.Chin@Sun.COM# create temporary file for double-buffering and register an EXIT trap 2978462SApril.Chin@Sun.COM# to remove this file when the shell interpreter exits 2988462SApril.Chin@Sun.COMscratchfile="${ mktemp "/tmp/termclock.ppid${PPID}_pid$$.XXXXXX" ; }" 2998462SApril.Chin@Sun.COM[[ "${scratchfile}" != "" ]] || fatal_error $"Could not create temporary file name." 3008462SApril.Chin@Sun.COMtrap 'rm -f "${scratchfile}"' EXIT 301*10898Sroland.mainz@nrubsig.orgrm -f "${scratchfile}" ; redirect 6<> "${scratchfile}" || fatal_error $"Could not create temporary file." 3028462SApril.Chin@Sun.COM 3038462SApril.Chin@Sun.COM# register trap to handle window size changes 3048462SApril.Chin@Sun.COMtrap 'init_screen="true"' WINCH 3058462SApril.Chin@Sun.COM 3068462SApril.Chin@Sun.COMmain_loop 3078462SApril.Chin@Sun.COM 3088462SApril.Chin@Sun.COM# exiting - put cursor below clock 3098462SApril.Chin@Sun.COMtput_cup $((termsize.lines-2)) 0 3108462SApril.Chin@Sun.COM 3118462SApril.Chin@Sun.COMexit 0 3128462SApril.Chin@Sun.COM# EOF. 313