/***********************************************************************/
/*  menu support
*   New 5/22/88 - TK
*   Provide menus with a reasonable user interface for the user to
*   select colors or other parameters.
*
*   This menu system provides two types of entries.
*   1. Up to nine static choices, 0-8.  Each static choice is encoded
*      into the data structure and automatically rotated by the user.
*      The user cannot select an illegal value.
*   2. A string choice.  A maximum string length is honored.
*   There must be at least 20 characters open for each field, longer
*   if the field is longer.  Static choices cannot be longer than 20 chars.
*
*	Code Cleanup for 2.3 release - 6/89 QK
*/

/*
*	Includes
*/
#include <stdio.h>
#include <fcntl.h>
#include <string.h>
#include <stdlib.h>
#ifdef MSC
#ifdef __TURBOC__
#include <alloc.h>
#else
#include <malloc.h>
#endif
#endif
#include "whatami.h"
#include "nkeys.h"
#include "windat.h"
#include "hostform.h"
#include "menu.h"
#include "telopts.h"
#include "version.h"
#include "externs.h"

#ifndef USETEK
#define leavetek() 0
#endif

extern unsigned char s[550];
extern struct config def;
extern int ftpok, ftpwok, rcpok, temptek, viewmode;

#define noalpha				/* for alpha test, both alpha and beta must be defined */
#define nobeta

#define LO 4
static struct pt pc[]={		/* session colors */
	{LO+0,44,0,0,"black","blue","green","cyan","red","magenta","yellow","white","BLACK","BLUE","GREEN","CYAN","RED","MAGENTA","YELLOW","WHITE",NULL},
	{LO+1,44,0,0,"black","blue","green","cyan","red","magenta","yellow","white","BLACK","BLUE","GREEN","CYAN","RED","MAGENTA","YELLOW","WHITE",NULL},
	{LO+2,44,0,0,"black","blue","green","cyan","red","magenta","yellow","white","BLACK","BLUE","GREEN","CYAN","RED","MAGENTA","YELLOW","WHITE",NULL},
	{LO+3,44,0,0,"black","blue","green","cyan","red","magenta","yellow","white","BLACK","BLUE","GREEN","CYAN","RED","MAGENTA","YELLOW","WHITE",NULL},
	{LO+4,44,0,0,"black","blue","green","cyan","red","magenta","yellow","white","BLACK","BLUE","GREEN","CYAN","RED","MAGENTA","YELLOW","WHITE",NULL},
	{LO+5,44,0,0,"black","blue","green","cyan","red","magenta","yellow","white","BLACK","BLUE","GREEN","CYAN","RED","MAGENTA","YELLOW","WHITE",NULL},
/* things which also apply to this session */
	{LO+6,44,0,0,"Local echo","Remote echo",NULL},
	{LO+7,44,1,0,"Backspace","Delete",NULL},
	{LO+8,44,0,20,NULL,"                    ",NULL},
	{LO+9,44,0,0,"VT102 and Tek4014","Dumb TTY","VT102 only",NULL},
	{LO+10,44,0,0,"Wrapping Off","Wrapping On",NULL},
	{LO+11,44,0,0,"Mapping Off","Mapping On",NULL},
/* things which apply over all of telnet */
	{LO+13,44,0,35,NULL,"                                   ",NULL},
	{LO+14,44,1,0,"Use BIOS","Direct to screen",NULL},
	{LO+15,44,0,0,"Disabled","Enabled",NULL},
	{LO+16,44,0,0,"Disabled","Enabled",NULL},
	{LO+17,44,0,0,"Disabled","Enabled",NULL},
	{LO+18,44,0,0,"Disabled","Enabled",NULL},
    {LO+0,0}
};

/************************************************************************/
/* menuit
*  draw the current line at the required position.
*  If the field length (replen) is longer than 20 chars, fill in the
*  entire field width.  All fields are padded with spaces to their
*  length when printed, but stored without padding.
*/
void menuit(struct pt p[],int n)
{
	int i;
	char fmt[12];

	n_cur(p[n].posx,p[n].posy);
	if((i=p[n].replen)<20) 			/* i=larger of replen and 20 */
		i=20;
	sprintf(fmt,"%%-%d.%ds",i,i);				/* create format string */
	sprintf(s,fmt,p[n].vals[p[n].choice]);		/* put out value */
	n_puts(s);
}

/************************************************************************/
/*  makechoice
*   Allow the user to travel between choices on the screen, selecting
*   from a list of legal options.
*   Arrow keys change the selections on the screen.  The data structure
*   must be set up before entering this procedure.
*/
int makechoice(struct pt p[],int maxp,int spec)
{
	int i,oldln,ln,c;
	
	oldln=ln=0;
	n_color(7);
	for(i=1; i<maxp; i++) 		/* print the opening selections */
		menuit(p,i);
/*
*  For each keystroke, repaint the current line and travel around the
*  data structure until the exit key is hit.
*/
	do {
		if(oldln!=ln) {
			n_color(7);					/* re-write old line in normal color */
			menuit(p,oldln);
		  }
		n_color(0x70);
		menuit(p,ln);					/* write the current line in reverse */
		if(spec)
			makespecial();				/* display special requirements */
		n_cur(p[ln].posx,p[ln].posy);	/* reset cursor to current entry */
		oldln=ln;
		c=nbgetch();
		switch (c) {			/* act on user's key */
			case CURUP:
			case E_CURUP:
				if(ln)
					ln--;
				else
					ln=maxp-1;
				break;

			case CURDN:			/* up and down change current field */
			case E_CURDN:
				if(++ln>=maxp)
					ln=0;
				break;

			case PGUP:
			case HOME:
			case E_PGUP:
			case E_HOME:
				ln=0;
				break;

			case PGDN:
			case ENDKEY:
			case E_PGDN:
			case E_ENDKEY:
				ln=maxp-1;
				break;

			case 32:				/* space, tab and arrows change field contents */
			case TAB:
			case CURRT:
			case E_CURRT:
				i=++p[ln].choice;		/* if blank or non-existant, reset to 0 */
				if(!p[ln].vals[i] || !(*p[ln].vals[i]) || ' '==*p[ln].vals[i])
					p[ln].choice=0;
				break;

			case CURLF:
			case E_CURLF:
				if(p[ln].choice)
					p[ln].choice--;
				else {				/* if at zero, search for highest valid value */
					i=0;
					while(p[ln].vals[i] && *p[ln].vals[i] && ' ' != *p[ln].vals[i])
						i++;
					if(i)
						p[ln].choice=i-1;
				  }
				break;

			case BACKSPACE:
			case 21:
			case 13:				 	/* BS, Ctrl-U, or return */
/*
*  if allowed, the user can enter a string value.
*  prepare the field, by printing in a different color to set it apart.
*/
				if(p[ln].replen) {
					char *temp_val;		/* temporary storage for the field value */

					p[ln].choice=1;
					n_color(1);						/* underline color */
					n_cur(p[ln].posx,p[ln].posy);
					for(i=0; i<p[ln].replen; i++)  /* blank out field */
						n_putchar(' '); 
					n_cur(p[ln].posx,p[ln].posy);
					temp_val=(char *)malloc((unsigned int)p[ln].replen+1);	/* allocate space for the temporary field */
                    if(temp_val!=NULL) {
                        strcpy(temp_val,p[ln].vals[1]);     /* store copy of old line */
                        if(nbgets(p[ln].vals[1],p[ln].replen)==NULL)    /* check for user escaping */
                            strcpy(p[ln].vals[1],temp_val); /* restore backup copy */
                        free(temp_val);
                      } /* end if */
				  }
				break;

			default:
				break;
	   	  }
	  } while(c!=F1 && c!=F10 && c!=27);
	return(c==F1);
}

/************************************************************************/
/*  makespecial
*  Apart from standard menuing, we want to show an example of what the
*  text is going to look like in each of the three attributes.
*/
void makespecial(void)
{
	n_cur(LO-1,15);
	n_color(pc[0].choice+(pc[1].choice <<4));
	n_puts("normal");
	n_cur(LO-1,25);
	n_color(pc[2].choice+(pc[3].choice <<4));
	n_puts("reverse");
	n_cur(LO-1,35);
	n_color(pc[4].choice+(pc[5].choice <<4));
	n_puts("underline");
}

/************************************************************************/
/*  parmchange
*   ALT-P from the user calls this routine to prompt the user for
*   telnet parameter values.
*   Set up the menuing system with the current values for this session.
*   Call the menuing routines, then analyze the results when it returns.
*
*   Affects the settings of:
*   session color, name, local echo, backspace/del, terminal type
*   overall file transfer enable, capture file name, screen access method
*
*/
void parmchange(void)
{
	int i,colsave;
/*
*  set up the screen for the menus
*  Positions of text interlock with fields of menu routines
*/
	leavetek();
	colsave=n_color(7);
	n_clear();
	n_cur(0,0);
	n_puts("ALT-P                         Parameter menu ");
	n_puts("   Arrows select, Enter clears \"*>\" fields.  F1 to accept, ESC to abort.");
	n_puts("    -------------- Color setup and session parameters ----------------- ");
	n_puts(" Text: ");
	n_puts("          Normal Foreground (nfcolor) - ");
	n_puts("          Normal Background (nbcolor) - ");
	n_puts("         Reverse Foreground (rfcolor) - ");
	n_puts("         Reverse Background (rbcolor) - ");
	n_puts("       Underline Foreground (ufcolor) - ");
	n_puts("       Underline Background (ubcolor) - ");
	n_puts("        Use remote echo or local echo - ");
	n_puts("                  Backspace key sends - ");
	n_puts("                         Session name *>");
	n_puts("                        Terminal type - ");
	n_puts("                        Line wrapping - ");
	n_puts("                       Output Mapping - ");
	n_puts("   -------------- Parameters which apply to all sessions -------------- ");
	n_puts("                    Capture file name *>");
	n_puts(" Screen mode (for BIOS compatibility) - ");
	n_puts("                     File transfer is - ");
	n_puts("    Incoming File transfer writes are - ");
	n_puts("                    Remote Copying is - ");
	n_puts("                             Clock is - ");
/*
*  set values for menus from our telnet-stored values
*/
	i=current->colors[0];		/* session colors */
	pc[0].choice=i&15;
	pc[1].choice=i>>4;
	i=current->colors[2];
	pc[2].choice=i&15;
	pc[3].choice=i>>4;
	i=current->colors[1];
	pc[4].choice=i&15;
	pc[5].choice=i>>4;
	pc[6].choice=current->echo;
	if(current->bksp==8)		/* backspace setting */
		pc[7].choice=0;
	else
		pc[7].choice=1;
	pc[8].vals[0]=current->mname;		/* session name */
    pc[9].choice=current->termstate-1;  /* terminal type */
    pc[10].choice=current->vtwrap;      /*line wrapping */
	pc[11].choice=current->mapoutput;	/* output mapping on for this session */
	pc[12].vals[0]=def.capture; 	/* capture file name */
	pc[13].choice=Scmode(); 		/* screen write mode */
	pc[14].choice=ftpok;      /* filetransfer enable */
  pc[15].choice=ftpwok;     /* allow FTP writes */
	pc[16].choice=rcpok;			/* remote copying enable */
	pc[17].choice=def.clock;		/* is the clock on? */
	if(makechoice(pc,18,1)) {		/* call it and check the results */
/*
*  Work on results, only if user pressed 'F1', if ESC, this is skipped.
*/
/*
*  assign new colors
*/
        i=pc[0].choice+(pc[1].choice<<4);   /* normal color */
        if(i!=(int)(current->colors[0])) {
			current->colors[0]=i;
			RSsetatt(127,current->vs);		/* seed the current screen */
			n_color(current->colors[0]);	/* seed ncolor */
          } /* end if */
        current->colors[1]=pc[4].choice+(pc[5].choice<<4);
        current->colors[2]=pc[2].choice+(pc[3].choice<<4);
/*
*  check remote or local echo mode
*/
        if((pc[6].choice)!=(int)(current->echo)) {
			if(current->echo=pc[6].choice) {		/* assign=is on purpose */
				netpush(current->pnum);
                netprintf(current->pnum,"%c%c%c",IAC,DOTEL,ECHO);   /* telnet negotiation */
              } /* end if */
			else {
				netpush(current->pnum);
                netprintf(current->pnum,"%c%c%c",IAC,DONTTEL,ECHO);
              } /* end else */
          } /* end if */
/*
*  check function of backspace or delete
*/
		if(pc[7].choice) {
			current->bksp=127;		/* backspace/delete are swapped */
			current->del=8;
          } /* end if */
		else {
			current->bksp=8;			/* are normal */
			current->del=127;
          } /* end else */
/*
*  check new session name
*/
		if(pc[8].choice) {
			strcpy(s,pc[8].vals[1]);
			if(s[0]!=' ' && s[0]) {		/* limit of 14 chars stored */
				strncpy(current->mname,s,15);
				current->mname[14]=0;
              } /* end if */
			*pc[8].vals[1]=0;
			pc[8].choice=0;
          } /* end if */
/*
*  check terminal type
*/
		if(pc[9].choice!=current->termstate-1) 
			current->termstate=pc[9].choice+1;
/*
*    check for line wrapping
*/
        if((pc[10].choice)!=(int)(current->vtwrap)) {
			current->vtwrap=(unsigned char)pc[10].choice;
			if(pc[10].choice)
				VSwrite(current->vs,"\033[?7h",5);
			else 	
				VSwrite(current->vs,"\033[?7l",5);
          } /* end if */
/*
*	 check for output mapping
*/
        if((pc[11].choice)!=(int)(current->mapoutput)) {
            netpush(current->pnum);
            if(current->mapoutput=pc[11].choice) {   /* assign=is on purpose */
                netprintf(current->pnum,"%c%c%c",IAC,DOTEL,BINARY);   /* telnet negotiation */
                netprintf(current->pnum,"%c%c%c",IAC,WILLTEL,BINARY);
              } /* end if */
			else {
                netprintf(current->pnum,"%c%c%c",IAC,DONTTEL,BINARY);
                netprintf(current->pnum,"%c%c%c",IAC,WONTTEL,BINARY);
              } /* end else */
            current->uwantbinary=1;  /* set the flag indicating we wanted server to start transmitting binary */
            current->iwantbinary=1;  /* set the flag indicating we want to start transmitting binary */
          } /* end if */
/*
*  check for new capture file name
*/
        if(pc[12].choice) {
			strcpy(s,pc[12].vals[1]);
			if(s[0] && s[0]!=' ') {	/* no NULL names */
				Snewcap(s);
				Sgetconfig(&def);
              } /* end if */
			*pc[12].vals[1]=0;
			pc[12].choice=0;
          } /* end if */
/*
*  check for new screen mode, BIOS or not
*/
		if(pc[13].choice!=Scmode())
			Scwritemode(pc[13].choice); /* set to whatever choice is */
/*
*  check whether to enable or disable file transfers
*/
#ifdef FTP
    if(pc[14].choice!=ftpok) {
      ftpok=pc[14].choice;
      Sftpmode(ftpok);
          } /* end if */
    if(pc[15].choice!=ftpwok) { /* for incoming writes to disk  rmg 931100 */
      ftpwok=pc[15].choice;
      setftpwrt(ftpwok);
          } /* end if */
    if(pc[16].choice!=rcpok) {
      rcpok=pc[16].choice;
      Srcpmode(rcpok);
          } /* end if */
#endif
/*
*	check whether to enable or disable the clock
*/
        if((pc[17].choice)!=(int)(def.clock))
			def.clock=pc[17].choice;
      } /* end if */
/*
*  go back to telnet
*/
	n_color(colsave);
	wrest(current);
}   /* end parmchange() */

/*********************************************************************/
void helpmsg(void )
{
	int i;

/*  leavetek();  */
  i=n_color(7);  /* easy to see.  rmg 931100 */
	n_clear();
	n_cur(0,0);
/* RMG these should be reorganized */
  n_puts("Keyboard usage for NCSA telnet:");
	n_puts("Alt-A     Add a Session                    Alt-Y     Interrupt Process");
	n_puts("Alt-N     Next Session                     Alt-B     Previous Session");
	n_puts("Alt-D     Dump Screen to Capture File      Alt-O     Abort Output");
	n_puts("Alt-M     Toggle mouse control             Alt-Q     Are you there?");
	n_puts("Alt-E     Escape to COMMAND shell          Alt-U     Erase line");
	n_puts("Alt-G     Graphics Menu                    Alt-K     Erase Kharacter");
  n_puts("Alt-C     Toggle Capture On/Off            Alt-V     Paste clipbord copy");
	n_puts("Alt-R     Reset VT102 Screen               HOME      Exit Graphics Mode");
  n_puts("Alt-H     This Help Screen                 Ctrl-HOME Clear/Enter Graphics mode");
  n_puts("Alt-Z     Messages Screen                  Alt-T     Reload keymap file");
  n_puts("ScrLock   Enter/Exit Scroll-Back Mode (also pauses/restarts screen)");
  n_puts("            in Scroll-Back: block begin/end= <space>, Alt-C= copy");
  n_puts("            to later paste text copied to the clipbord, use Alt-V");
  n_puts("Alt-F     Start File Transfer as if typed: ftp [my internet address]");
	n_puts("Alt-I     Send My Internet Address to host as if typed");
	n_puts("Alt-S     Skip Scrolling, Jump Ahead");
  n_puts("Alt-P     Change a Parameter, one of: colors, permissions, capture file name,");
  n_puts("            backspace, session name, screen mode...");
	n_puts("Alt-X	  Close Connection");
	n_puts("Ctrl-Shift-F3    Abort program completely.  STRONGLY discouraged");
  n_puts("\nPress ESC for information page, space bar to return to session:");
	n_color(i);
}   /* end helpmsg() */

void help2(void )
{
	int i;
  char line[80];

  i=n_color(7);
	n_clear();
	n_cur(0,0);
  sprintf(line,"%s, For the IBM PC.  %s",TEL_VERSION,TEL_REV_VERSION);
  n_puts(line);
	n_puts("\nNational Center for Supercomputing Applications, University of Illinois");
	n_puts("written by Tim Krauskopf, Gaige B. Paulsen, Aaron Contorer, Heeren Pathak");
    n_puts("    Kurt Mahan, Quincey Koziol, Chris Wilson, & Ryan Grant\n");
#ifndef beta
	n_puts("This program is in the public domain.");
	n_puts("Please retain the following notice:");
	n_puts("\n  Portions developed by the National Center for Supercomputing Applications");
	n_puts("  at the University of Illinois, Urbana-Champaign.");
#else
#ifndef alpha
	n_puts("Authorized beta test version - open to technical users at your own risk.");
  n_puts("Please report all problems that you wish fixed before VERSION_DEADLINE");
	n_puts("All rights reserved.");
#else
	n_puts("Authorized alpha test version - open to technical users at your own risk.");
  n_puts("Please report all problems that you wish fixed before VERSION_DEADLINE");
	n_puts("All rights reserved.");
#endif
#endif
  n_puts("\n\nFor information or for disks and hardcopy manuals (there is a handling fee),");
	n_puts("contact NCSA at:");
	n_puts("152 Computing Applications Building");
	n_puts("605 E. Springfield Ave.");
	n_puts("Champaign, IL 61820");
  n_puts("\nbugs and suggestions to pctelnet@ncsa.uiuc.edu");
	n_puts("\nPress space bar to return to session");
	n_color(i);
}   /* end help2() */