/* Edit by Bill on Wed May 15, 15:53 */
/* A K is 1024 not 512 */

/*
 * file ckmscr.c
 *
 * Module of mackermit containing code for display of status dialog.
 *
 * Bill Schilit, May 1984 
 *
 * Copyright (C) 1985, Trustees of Columbia University in the City of
 * New York.  Permission is granted to any individual or institution to
 * use, copy, or redistribute this software so long as it is not sold
 * for profit, provided this copyright notice is retained.
 *
 */

#include "ckcker.h"			/* general kermit defs */
#include "ckmdef.h"			/* General Mac defs */
#include "ckmres.h"			/* Mac resource equates */
#include "ckcdeb.h"			/* C kermit debuggig */
#include "mac/quickdraw.h"		/* Macintosh C interface */
#include "mac/osintf.h"
#include "mac/toolintf.h"
#include "mac/packintf.h"

int scrpkt,scrnak,scrck;		/* NAK, PKT char (K) counts */
DialogPtr scrdlg = (DialogPtr) NULL;	/* screen's dialog */

setitxt(item,str,dlg)
char *str;
DialogPtr dlg;
{
  int itype;
  Handle ihdl;
  Rect ibox;

  GetDItem(dlg,item,&itype,&ihdl,&ibox);
  SetIText(ihdl,str);
}

/* scrcreate - create the status display.  Called when a protocol
 *    	       menu item is selected and a display is desired (I don't
 *    	       think you'd want to see this for REMOTE command).
 *
 */

scrcreate()
{
  char *s;
  
  if (scrdlg != NULL)
   printerr("scrcreate with active screen!",0);
  scrdlg = GetNewDialog(SCRBOXID,NILPTR,(WindowPtr) -1);
  scrck = scrnak = scrpkt = 0;
  setitxt(SRES_DIR,
      	  (protocmd == SEND_FIL) ? "   Sending" : "Receiving",scrdlg);
  ShowWindow(scrdlg);
  miniparser(TRUE);			/* keep things moving */
}

#define getctlhdl(item,dp) (ControlHandle) gethdl(item,dp)

/* scrdispose - called to finish up the status display, on a 
 *    	      	transaction complete screen() call. 
 */ 

scrdispose()
{
  if (scrdlg == NULL)
   printerr("scrdispose called with no screen active!",0);
  SysBeep(1);
  HiliteControl(
      getctlhdl(SRES_CANF,scrdlg),255);	/* deactivate buttons */
  HiliteControl(
      getctlhdl(SRES_CANG,scrdlg),255);	/* ... */
      
  while (!Button());			/* just wait for click */   
  DisposDialog(scrdlg);
  scrdlg = NULL;
}


/* ststrings - translation of SCR_ST subfunctions to descriptive text */

char *ststrings[] = {
  "Transferred OK",			/* ST_OK */
  "Discarded",				/* ST_DISC */
  "Interrupted",			/* ST_INT */
  "Skipped ",				/* ST_SKIP */
  "Fatal error"				/* ST_ERR */
};

/* scrtosresnum - table to translate from SCR_XXX values into resource
 *    	       	  item numbers.  Entries we aren't interested in are 
 *    	          set to SRES_UNDEF.
 */

short scrtoresnum[] = { 
    SRES_UNDEF,				/* 0 - nothing */      
    SRES_FILN,				/* SCR_FN - filename */
    SRES_AFILN,				/* SCR_AN - as filename */
    SRES_UNDEF,				/* SCR_FS - file size */
    SRES_UNDEF,				/* SCR_XD - x-packet data */
    SRES_BTEXT,				/* SCR_ST - status */
    SRES_UNDEF,				/* SCR_PN - packet number */
    SRES_UNDEF,				/* SCR_PT - packet type (special) */
    SRES_BTEXT,				/* SCR_TC - transaction complete */
    SRES_UNDEF,				/* SCR_EM - error msg (does alert) */
    SRES_UNDEF,				/* SCR_WM - warning message */
    SRES_BTEXT,				/* SCR_TU - arb text */
    SRES_BTEXT,				/* SCR_TN - arb text */
    SRES_BTEXT,				/* SCR_TZ - arb text */
    SRES_BTEXT 				/* SCR_QE - arb text */
};
    


/* screen - display status information on the screen during protocol.
 *    	    Here we just set the items in their StatText dialog boxes,
 *    	    updates occur through the miniparser, which we are nice
 *    	    enough to call here to handle things.
 *
 */

screen(f,c,n,s)
int f;
char c,*s;
long n;
{
 int rnum,i;
 int itype;
 Handle ihdl;
 Rect ibox;
 char buf[256];

  miniparser(TRUE);			/* keep the mac going */
 
  if (f == SCR_EM || f == SCR_WM)	/* error/warning message? */
  {
    printerr(s,0);			/* display it */
    return;				/* and return */
  }

  if ((scrdlg == NULL) || quiet)	/* not using it or silent? */
    return;				/* but nothing for us to do */

  if (f == SCR_FN)			/* seeing a file name? */
  {
    setitxt(SRES_AFILN,"",scrdlg);	/* and the name also */
    if (protocmd == RECV_FIL ||		/* seeing a file name from */
        protocmd == GETS_FIL) 		/*  a receive command? */
      dorecvdialog(s,&cmarg2);		/* yes, allow user to do dialog */
  }
  
  rnum = scrtoresnum[f];		/* load default DITL number */
					/*  where result will be posted */

  switch (f) {				/* according to function... */
    case SCR_AN:			/* "AS" name is comming */
      setitxt(SRES_FFORK,
      	      (filargs.filflg & FIL_RSRC) ? 
	      "RSRC Fork" : "Data Fork",scrdlg);
      setitxt(SRES_FMODE,	      
      	      (filargs.filflg & FIL_BINA) ? 
	      "Binary Mode" : "Text Mode",scrdlg);
      break;

    case SCR_PT:			/* packet type? */
      if (c == 'Y')
        return;				/* don't do anything for yaks */
      if (c == 'N' || c == 'Q' ||	/* check for all types of */
      	  c == 'T' || c == '%')		/*  NAK */
	i = ++scrnak, rnum = SRES_NRTY;	/* increment nak counter */
      else
        i = ++scrpkt,rnum = SRES_NPKT; 	/* else increment pkt counter */
      NumToString(i,buf);		/* translate to number */      
      s = buf;				/* new buffer */
      break;				/* all done */

    case SCR_ST:			/* status */
      s = ststrings[c];			/* use subfunction description */
      if (c == ST_SKIP)			/* if skipped... */
      {
	strcpy(buf,"Skipping ");	/* there is something else */
	strcat(buf,s);			/* add in filename */
	s = buf;
      }
      break;

     case SCR_TC:			/* transaction completed */
      if (!server)			/* are we a server? */
      {
	scrdispose();			/* no dispose the screen */
	return;				/* and we are done */
      }
      s = "Server transaction complete";
      break;
  }
  
  if (rnum != SRES_UNDEF)		/* have DITL number for this? */
   setitxt(rnum,s,scrdlg);		/* yes, so set the text */
   
  if ((i = ffc/1024) != scrck)		/* more K's xmitted (or new val)? */
  {
    scrck = i;				/* remember new value */
    NumToString(scrck,buf);		/* convert to number */
    if (filargs.filsiz != 0)		/* know the size? (only local) */
    {
      strcat(buf,"/");			/* make it be a fraction */
      NumToString(filargs.filsiz/1024, 	/* figure this one out */
      	  (char *) buf+strlen(buf));
    }	  
    setitxt(SRES_KXFER,buf,scrdlg);	/* set new value */
  }
}


/* scrmydlg - handle dialog events occuring in the screen (status)
 *    	      dialog.  Called by the miniparser when a dialog event
 *    	      occurs and we are supposed to handle it.
 */

scrmydlg(item)
int item;
{
  switch (item) {
    case SRES_CANF:
      cxseen = TRUE;
      break;
    case SRES_CANG:
      czseen = TRUE;
      break;
  }
}