/* loop.c   by Michael Thorpe   97-11-23 */

#include <stdio.h>
#include <signal.h>
#include <sys/time.h>
#include <sys/types.h>
#include <unistd.h>
#include <errno.h>
#include <fcntl.h>
#include <termios.h>
#include <sys/wait.h>
#include "tbwm.h"
#include "handlekey.h"
#include "revterm.h"
#include "characters.h"

#define DELAY 5000
#define MYBUF_SIZE 80

FILE *debug;
struct termios termios_norm;

void Error(char *s) {
   TBWM_End();
   fprintf(stderr,"%s\n",s);
   exit(-1);
}

void sig_cld(int sig) {
   pid_t pid;
   int status;
   TW *tmpwin;

   while(0<(pid=wait3(&status,WNOHANG,0))) {
      for(tmpwin=TopWindow;tmpwin;tmpwin=tmpwin->next)
         if(tmpwin->pid==pid) {
            tmpwin->pid=0;
            if(tmpwin==gaze) 
               CloseGaze();
            else
               TBWM_Kill(tmpwin,0);
            break;
         }
   }
   signal(SIGCHLD,sig_cld);
}

int main() {
   int i,j,m=1;
int k;
   TW *tmpwin;
   struct timeval t;
   fd_set r;
   char *proc[3];
   char procname[]="delay";
   char procval[]="1";
   unsigned char s[MYBUF_SIZE];

   proc[0]=procname;
   proc[1]=procval;
   proc[2]=0;
   if(tcgetattr(0,&termios_norm)) {
      fprintf(stderr,"stdin must be tty\n");
      exit(-1);
   }
   debug=fopen("debug.log","w");
   setbuf(debug,0);
   TBWM_init();
   signal(SIGCHLD,sig_cld);
#define PLAID 1
#ifdef PLAID
   tmpwin=TBWM_Create(0,0,Rows,Cols,"Background",0,0,TW_NOBORDER|TW_NOTITLE|TW_ONBOTT,0);
   for(i=0;i<Rows;i++)
      if(i&1)
         for(j=0;j<Cols;j++)
            if(j&1)
               TBWM_putch(tmpwin,i,j,TW_REVCHAR|Cross,0);
            else
               TBWM_putch(tmpwin,i,j,TW_REVCHAR|h_bar,0);
      else
         for(j=0;j<Cols;j++)
            if(j&1)
               TBWM_putch(tmpwin,i,j,v_bar,0);
            else
               TBWM_putch(tmpwin,i,j,' ',0);
   Scrn_Refresh();
#endif

   while(mode != MODE_QUIT && !feof(stdin)) {
      t.tv_sec=DELAY/1000;
      t.tv_usec=(DELAY%1000)*1000;
      FD_ZERO(&r);
      FD_SET(0,&r);
      for(tmpwin=TopWindow;tmpwin;tmpwin=tmpwin->next) {
         if(tmpwin->fd==0)
            continue;
         FD_SET(tmpwin->fd,&r);
         if(m<=tmpwin->fd)
            m=tmpwin->fd+1;
      }
      select(m,&r,0,0,&t);
      if(FD_ISSET(0,&r)) {
         j=read(0,s,MYBUF_SIZE);
         for(i=0;i<j;i++)
            handlekey(s[i]);
      }
      for(tmpwin=TopWindow;tmpwin;tmpwin=tmpwin->next) {
         if(tmpwin->fd==0)
            continue;
         if(FD_ISSET(tmpwin->fd,&r)) {
            j=read(tmpwin->fd,s,MYBUF_SIZE);
fprintf(debug,"Window %p got",tmpwin);
for(k=0;k<j;k++){fprintf(debug," %2.2X",(unsigned int)s[k]);}
fprintf(debug," (");
for(k=0;k<j;k++){if(isprint(s[k])){fputc(s[k],debug);}else{fputc('.',debug);}}
fprintf(debug,")\n");
            RevT_RevTerm(tmpwin,s,j);
         }
      }
   }
   signal(SIGCHLD,SIG_IGN);
   TBWM_End();

   return(0);
}