/*
 * NeWS is a product of Sun Microsystems, Inc. and is provided for
 * unrestricted use provided that this legend is included on all tape
 * media and as a part of the software program in whole or part.  Users
 * may copy, modify or distribute this file at will.
 * 
 * NEWS IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
 * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
 * 
 * NeWS is provided with no support and without any obligation on the
 * part of Sun Microsystems, Inc. to assist in its use, correction,
 * modification or enhancement.
 * 
 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY NEWS
 * OR ANY PART THEREOF.
 * 
 * In no event will Sun Microsystems, Inc. be liable for any lost revenue
 * or profits or other special, indirect and consequential damages, even
 * if Sun has been advised of the possibility of such damages.
 * 
 * Sun Microsystems, Inc.
 * 2550 Garcia Avenue
 * Mountain View, California  94043
 */


#ifndef lint
static char sccsid[] = "@(#)sunclock.c 1.4 87/03/13 Copyright 1987 Sun Micro";
#endif
/*
 * NeWS clock program 
 */

#include <stdio.h>
#include <sys/time.h>
#include <sys/ioctl.h>
#include "sunclock.h"
#include <signal.h>

int    fancy_clock = 0;

main (argc, argv)
    char  **argv;
{
    int     show_seconds = 0;
    int	    damaged;
    int	    second_hand_length = 42;
    int	    minute_hand_length = 38;
    int	    hour_hand_length = 25;

    int     lmin = -1,
            lhour = -1,
            lsec = -1;
    while (--argc > 0) {
	if ((++argv)[0][0] == '-')
	    switch (argv[0][1]) {
	      case 'f':
		fancy_clock = 1;
		break;
	      case 's':
		show_seconds = 1;
		break;
	      default:
		fprintf (stderr, "roundclock: illegal option: %s\n", argv[0]);
		exit (-1);
	    }
	else {
	    fprintf (stderr, "roundclock: illegal option: %s\n", argv[0]);
	    exit (-1);
	}
    }
    if (ps_open_PostScript () == 0) {
	fprintf (stderr, "No NeWS server\n");
	exit (-1);
    }
    if (fancy_clock) {
	second_hand_length = 10;
	minute_hand_length = 35;
	hour_hand_length = 20;
	ps_fancy_initializeclock();
    } else {
	ps_initializeclock();
    }
    ps_createclock ();	/* initialize round clock window */
    while (1) {
	register struct tm *tm;
	long    now = time (0);
	if (damaged) {	/* Redraw the clock face if necessary */
	    ps_redrawclock ();
	    damaged = 0;
	}
	tm = localtime (&now);
#ifdef notdef
	ps_white ();	/* Clear out the old hands */
#endif notdef
	tm->tm_hour = tm->tm_hour * 5 + tm->tm_min / 12;
	if (lmin >= 0) {
	    if (tm->tm_min != lmin)
		hand (lmin, minute_hand_length);
	    if (show_seconds && tm->tm_sec != lsec)
		hand (lsec, second_hand_length);
	    if (tm->tm_hour != lhour)
		hand (lhour, hour_hand_length);
	}
	ps_black ();	/* draw the new hands */
	if (show_seconds)
	    hand (tm->tm_sec, second_hand_length,'s');
	hand (tm->tm_min, minute_hand_length,'m');
	hand (tm->tm_hour, hour_hand_length,'h');
	lsec = tm->tm_sec;
	lmin = tm->tm_min;
	lhour = tm->tm_hour;
	ps_flush_PostScript ();
	{	/* Wait for either the next clock tick or a window damage
		 * repair request */
	    int     msk = 1 << psio_fileno (PostScriptInput);
	    int     n;
	    static struct timeval t;
	    now = show_seconds ? 1 : 60 - tm->tm_sec;
	    t.tv_sec = now > 60 ? 60 : now;
	    if (select (32, &msk, 0, 0, &t) > 0) {
		char    buf[1000];
		n = read (psio_fileno (PostScriptInput), buf, sizeof buf);
		if (n > 0)	/* The only input the clock ever gets is a
				 * damage repair request */
		    damaged++;
		else if (n == 0)
		    exit (0);
		else
		    perror ("read");
	    }
	}
    }
}

hand (angle,radius,type)
    int angle, radius;
    char type;
{
    switch ( type ) {
	case 'h':
	    ps_hour_hand(-angle*6, radius);
	    break;
	case 'm':
            ps_minute_hand(-angle*6, radius);
            break;
	case 's':
            ps_second_hand(-angle*6, radius);
            break;
    }
}