From: pjc@pcbox.UUCP (Paul J. Condie)
Newsgroups: alt.sources
Subject: menu(1)  part 8 of 11
Message-ID: <430@pcbox.UUCP>
Date: 6 Apr 90 17:55:24 GMT


#!/bin/sh
# this is part 8 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file utilities.d/libgeti.d/GetInput.c continued
#
CurArch=8
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
     exit 1; fi
( read Scheck
  if test "$Scheck" != $CurArch
  then echo "Please unpack part $Scheck next!"
       exit 1;
  else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file utilities.d/libgeti.d/GetInput.c"
sed 's/^X//' << 'SHAR_EOF' >> utilities.d/libgeti.d/GetInput.c
X				/*
X				**  Toggle between typeover/insert mode.
X				*/
X				insertmode = (insertmode) ? FALSE : TRUE;
X				break;
X
X			   case KEY_SAVE:
X            		   	ScrnFile(win, LINES, COLS) ;
X            		   	clearok(win, TRUE) ;
X            		   	wmove(win, row, col) ;
X            		   	break;
X
X			   case KEY_PRINT:
X            		      	ScrnPrnt(win, LINES, COLS, fldErrRow) ;
X            		      	clearok(win, TRUE);
X            		      	wmove(win, row, col) ;
X            		      	continue ;
X
X         		   case KEY_BACKSPACE:
X            			if (col > colStart) 
X	    			{
X               				wattrset(win, fldAttrib) ;
X               				mvwaddch(win, rowStart, --col, ' ') ;
X               				wattrset(win, 0) ;
X               				wmove(win, rowStart, col) ;
X            			} 
X	    			else
X               				BELL;
X            			break ;
X
X         		   case KEY_RETURN:
X         		   case KEY_ENTER:
X			   case KEY_DOWN:
X			   case KEY_UP:
X			   case KEY_TAB:
X			   case KEY_BTAB:
X			   case KEY_ACCEPT:
X				/*
X				**	bug fix - 9/26/86 pjc
X				**	if (col == colend) byteskeyed was not 
X				**	being counted.
X				**	Determine number of bytes keyed by user.
X				*/
X	    			bytesKeyed = 0;
X	    			for (i = 0; i < strlen (charKeyed); i++)
X	       				if (charKeyed[i] == 'Y')
X	          				bytesKeyed++;
X
X            			if (fldCharType == SET  ||  fldCharType == MENU)
X	    			{
X               				col = colEnd ;
X               				wmove(win, rowStart, col) ;
X               				notFinished = FALSE ;
X               				break ;
X            			} 
X
X	       			if (col == colEnd) 
X	       			{
X                  			notFinished = FALSE ;
X                  			break ;
X               			} 
X
X	          		if (initFld) 
X		  		{
X                     			col = colEnd - 1 ;
X                     			while (*(charKeyed+col-colStart) != 'Y')
X                        			col--;
X                     			wmove(win, rowStart, col) ;
X                  		}
X
X            			colMove = colStart ;
X            			bytesKeyed = 0 ;
X            			while (colMove < colEnd) 
X            			{
X               				if (*(charKeyed+colMove-colStart)=='Y')
X	       				{
X                  				col = colMove ;
X                  				bytesKeyed++;
X               				}
X               				colMove++;
X            			}
X            			while (*(charKeyed + ++col - colStart) == 'M')
X               				;
X            			wmove(win, rowStart, col) ;
X
X            			if (bytesKeyed == 0 && mustEnter) 
X            			{
X               				BELL;
X					CLEARROW (fldErrRow);
X					wattrOn (stdscr, A_REVERSE|A_BOLD);
X              				mvwaddstr(stdscr, 
X		((fldErrRow%100) == fldErrRow) ? fldErrRow : fldErrRow/100, 
X		((fldErrRow%100) == fldErrRow) ? 0 : fldErrRow%100, 
X						"This is a must enter field.") ;
X					wattrOff (stdscr);
X               				wmove(win, rowStart, colStart) ;
X               				break ;
X            			} 
X
X       				if (fldMin > 0  && bytesKeyed > 0 && 
X				    bytesKeyed < fldMin)
X       				{
X		
X               				BELL;
X					CLEARROW (fldErrRow);
X					wattrOn (stdscr, A_REVERSE|A_BOLD);
X               				mvwprintw(stdscr, fldErrRow, 1,
X	     					"The minimum length for this field is: %d keyed %d",
X                      				fldMin, bytesKeyed) ;
X					wattrOff (stdscr);
X               				wmove(win, rowStart, col) ;
X               				break ;
X       				}
X
X            			if (fldAdjust != NOFILL)
X               				AdjField(win, rowStart, colStart, 
X						fldAttrib, fldAdjust, colEnd, 
X						charKeyed) ;
X
X            			notFinished = FALSE ;
X            			break ;
X
X         		   default:
X				/* check for control character */
X            			if (ch < 32  ||  ch > 127) 
X            			{
X               				int   ch1 ;
X
X
X               				notFinished = FALSE ;
X               				wmove(win, rowStart, colEnd) ;
X               				controlKey = ch ;
X					break;
X            			} 
X
X	       			if (fldCharType == SET) 
X	       			{
X		  			if (fldType == CHAR)
X		  			{
X		     				/*  pjc - 7/87
X		     				**  match ch to the first char 
X						**  in set values
X		     				*/
X		     				int	rc;  /* return code */
X
X		     				Fld->strVal[0] = ch;
X		     				Fld->strVal[1] = '\0';
X      		     				rc = FindSet(Fld, fldRange, 
X							fldLength, fldType);
X		     				setNumb = rc == -1 ? ++setNumb : rc;
X		  			}
X		  			else
X		     				setNumb++;
X
X                  			ShowSet(win, rowStart, colStart, 
X						fldAttrib, fldRange, fldLength, 
X						&setNumb, colEnd, charKeyed, 
X						origAttr) ;
X                  			wmove(win, rowStart, colStart);
X					break;
X       				}
X
X				if (fldCharType == MENU)
X				{
X					junk = popmenu (menuid);
X					setNumb = junk >= 1 ? junk-1 : setNumb;
X					strcpy (Fld->strVal, menu[setNumb]);
X                  			ShowSet(win, rowStart, colStart, 
X						fldAttrib, fldRange, fldLength, 
X						&setNumb, colEnd, charKeyed, 
X						origAttr) ;
X                  			wmove(win, rowStart, colStart);
X					touchwin (stdscr);
X					touchwin (win);
X					break;
X				}
X
X	          		if (col == colEnd)
X       					BELL;
X       				else
X       					notFinished = ShowChar (win, rowStart, 
X						colStart, fldAttrib, fldMask, 
X						fldRange, fldLength, 
X						fldCharType, fldDispRow, 
X						fldType, keyStream, fldErrRow,
X						charKeyed,colEnd, &ch,origAttr);
X       				break ;
X
X			}  /* end switch */
X		} while (notFinished) ;
X
X      		if ( controlKey  &&  bytesKeyed == 0)
X      		{
X         		ReDispFld(win, rowStart, colStart, -1, fldMask, 
X				fldRange, fldLength, fldCharType, fldType, 
X				fldStr, colEnd, charKeyed, setNumb, 
X				origAttr) ;
X         		break ;
X      		} 
X      		else 
X         		if ( IsFldOk(win, rowStart, colStart, Fld, fldMask, 
X				    fldRange, fldLength, fldCharType, fldType, 
X				    mustEnter, fldErrRow, fldDispRow, colEnd, 
X				    fldStr, charKeyed, setNumb, origAttr) )
X            			break ;
X         		else         
X	 		{
X            			notFinished = TRUE ;
X            			continue ;
X         		}
X
X	}  /* end  while (TRUE) */
X
X   	free(fldStr) ;
X   	free(charKeyed) ;
X
X   	return (ch);
X}
SHAR_EOF
echo "File utilities.d/libgeti.d/GetInput.c is complete"
chmod 0444 utilities.d/libgeti.d/GetInput.c || echo "restore of utilities.d/libgeti.d/GetInput.c fails"
echo "x - extracting utilities.d/libgeti.d/GetSetLen.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/GetSetLen.c &&
Xstatic char Sccsid[] = "@(#)GetSetLen.c	1.3   DeltaDate 1/22/90   ExtrDate 1/22/90";
X
X/*
X**  GetSetLen()
X**	Determines the length of the longest element in the set (range).
X**	ex. "HI,LOW,MEDIUM" returns (6) as the longest length.
X**	This information is used to determine how much memory I need to allocate
X**	to hold the element.  Does not include a null terminator.
X**
X**  RETURNS:
X**		length of the longest element in set.
X*/
X
X#include	"GetInput.h"
X
XGetSetLen(fldRange)
X	char		*fldRange ;	/* range of valid values for output */
X{
X	int	len,
X		fldLength ;
X	char	*fldWrk ;
X
X
X	fldLength = 0 ;
X
X	fldWrk = fldRange ;
X
X	while (*fldWrk != '\0') {
X
X		len = 0 ;
X
X		while (*fldWrk != ','  &&  *fldWrk != '\0') {
X			len++ ;		/* length of this element */
X			fldWrk++ ;	/* fldRange without this element */
X		}
X
X		if (len > fldLength)	/* is this element longer ? */
X			fldLength = len ;
X
X		/* set pointer to next element in set */
X		while (*fldWrk == ','  ||   *fldWrk == ' ')
X			fldWrk++ ;
X	}
X
X	return (fldLength) ;
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/GetSetLen.c || echo "restore of utilities.d/libgeti.d/GetSetLen.c fails"
echo "x - extracting utilities.d/libgeti.d/InitGetI.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/InitGetI.c &&
X#ifndef LINT
Xstatic char Sccsid[] = "%W%   DeltaDate %G%   ExtrDate %H%";
X#endif
X
X/*
X**  InitGetI()
X**		All this does is define some global variables for the keys
X**		used in GetInput(3) and assign some default values.
X*/
X
X#include	<curses.h>
X#include	"GetInput.h"
X
Xint	KeyReturn = '\r';
Xint	KeyDown = 10;		/* ^j */
Xint	KeyUp = 11;		/* ^k */
Xint	KeyTab = '\t';
Xint	KeyBTab = -1;
Xint	KeyAccept = 1;		/* ^a */
X
Xint	KeyBeg = 2;
Xint	KeyEnd = 5;
Xint  	KeyRight = 12;		/* ^l */
Xint  	KeyLeft = 8;		/* ^h */
Xint  	KeyBackspace = '\b';	/* \b */
Xint  	KeyEOL = 4;		/* ^d */
Xint  	KeyDL = 3;		/* ^c */
Xint  	KeyDC = 24;		/* ^x */
Xint  	KeyIC = 20;		/* ^t */
X
Xint  	KeyHelp = '?';
Xint	KeyTOC = 20;		/* ^t */
Xint  	KeyRedraw = 18;		/* ^r */
Xint  	KeySave = 6;		/* ^f */
Xint  	KeyPrint = 16;		/* ^p */
Xint  	KeyCancel = 27;		/* esc */
X
X
Xvoid
XInitGetI()
X{
X/*
X	char  *tName, *lName, *getenv() ;
X
X   	lName = longname() ;
X   	tName = getenv("TERM") ;
X
X   	if (strcmp(tName, "5425")  ==  0)
X      		Load5425 () ;
X   	else
X		if (strcmp (tName, "sun") == 0)
X			LoadSun ();
X		else
X      			LoadAnsi() ;
X*/
X}
SHAR_EOF
chmod 0644 utilities.d/libgeti.d/InitGetI.c || echo "restore of utilities.d/libgeti.d/InitGetI.c fails"
echo "x - extracting utilities.d/libgeti.d/IsDate.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/IsDate.c &&
Xstatic char Sccsid[] = "@(#)IsDate.c	1.1   DeltaDate 8/30/87   ExtrDate 1/22/90";
X#include <stdio.h>
X#include <time.h>
X#include "GetInput.h"
X
XIsDate (str, mask)
X	char	*str ;
X	char	*mask ;
X{
X	char	cmdstr[5] ;
X	int	year, month, day ;
X	static int	century = 0 ;
X	long	clock ;
X
X	struct tm *localtime(), *Tm ;
X
X	if (century == 0) {
X
X		clock = time((long *) 0) ;
X		Tm = localtime (&clock) ;
X		century = 1900 ;
X		if (Tm->tm_year > 100)
X			century += (Tm->tm_year / 100) * 100 ;
X
X	}
X
X	if (mask == NULL) {
X
X		cmdstr[0] = *str++ ;
X		cmdstr[1] = *str++ ;
X		cmdstr[2] = '\0' ;
X		month = atoi (cmdstr) ;
X
X		cmdstr[0] = *str++ ;
X		cmdstr[1] = *str++ ;
X		cmdstr[2] = '\0' ;
X		day = atoi (cmdstr) ;
X
X		cmdstr[0] = *str++ ;
X		cmdstr[1] = *str++ ;
X		cmdstr[2] = '\0' ;
X		year = atoi (cmdstr)  +  century ;
X
X	} else {
X
X		while ( *mask != '\0' ) {
X
X			while ( *mask != 'M' && *mask != 'D' && *mask != 'Y' )
X				mask++ ;
X
X			switch (*mask) {
X				case 'M':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					cmdstr[2] = '\0' ;
X					month = atoi (cmdstr) ;
X					mask += 2 ;
X					break ;
X				case 'D':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					cmdstr[2] = '\0' ;
X					day = atoi (cmdstr) ;
X					mask += 2 ;
X					break ;
X				case 'Y':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					mask += 2 ;
X					if (*mask == 'Y') {
X						cmdstr[2] = *str++ ;
X						cmdstr[3] = *str++ ;
X						cmdstr[4] = '\0' ;
X						year = atoi (cmdstr) ;
X						mask += 2 ;
X					} else {
X						cmdstr[2] = '\0' ;
X						year = atoi (cmdstr) + century ;
X					}
X					break ;
X			}
X		}
X	}
X	return (valid_date (year, month, day)) ;
X}
X
X
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/IsDate.c || echo "restore of utilities.d/libgeti.d/IsDate.c fails"
echo "x - extracting utilities.d/libgeti.d/IsFldOk.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/IsFldOk.c &&
Xstatic char Sccsid[] = "@(#)IsFldOk.c	1.3   DeltaDate 1/22/90   ExtrDate 1/22/90";
X
X#include 	<curses.h>
X#include 	<ctype.h>
X#include 	"GetInput.h"
X
X
XIsFldOk (win, row, colStart, Fld, fldMask, fldRange, fldLength, fldCharType, 
X	fldType, mustEnter, fldErrRow, fldDispRow, colEnd, fldStr, charKeyed, 
X	setNumb, origAttr)
X
X	WINDOW      	*win ;      	/* Window                */
X	int   		row ;
X	int   		colStart ;
X	FldUnPointer	Fld ;    	/* Pointer to union for field     */
X	char  		*fldMask ;  	/* mask for character string      */
X	char  		*fldRange ; 	/* range of valid values for output */
X	unsigned 	fldLength ; 	/* Maximum length of output       */
X	char  		fldCharType ;  /* type of character           */
X	char  		fldType ;   /* type of field         */
X	int   		mustEnter ; /* must enter - boolean   */
X	int   		fldErrRow ; /* where to display error message   */
X	int   		fldDispRow ;   /* where to display help message    */
X	int   		colEnd ; /* last character to display      */
X	char  		*fldStr ;   /* field string             */
X	char  		charKeyed[] ;  /* characters in the field keyed    */
X	int   		setNumb ;   /* for SET & MENU      */
X	int   		origAttr[] ;   /* origianl attributes for this fld */
X{
X   	int   	colLast, col ;
X   	double  atof() ;
X   	char  	*fldWrk ;
X
X
X   getyx(win, row, col) ;
X   colLast = col - 1 ;
X
X   col = colStart ;
X
X   fldWrk = fldStr ;
X
X   while (col < colEnd) 
X   {
X
X      if (charKeyed [col - colStart] == 'Y')
X         *fldWrk++ = mvwinch(win, row, col) & A_CHARTEXT ;
X      col++;
X   }
X
X   *fldWrk = '\0' ;
X
X   switch (fldType) 
X   
X{
X   case CHAR:
X   case DATE:
X   case TIME:
X      strcpy (Fld->strVal, fldStr) ;
X      break ;
X
X   case INT:
X      *Fld->intVal = atoi(fldStr) ;
X      break ;
X
X   case SHORT:
X      *Fld->shortVal = atoi(fldStr) ;
X      break ;
X
X   case LONG:
X      *Fld->longVal = atoi(fldStr) ;
X      break ;
X
X   case FLOAT:
X      *Fld->floatVal = atof(fldStr) ;
X      break ;
X
X   case DOUBLE:
X   case MONEY:
X      *Fld->doubleVal = atof(fldStr) ;
X      break ;
X   }
X
X   if (fldStr == NULL  &&  !mustEnter)
X      return(1) ;
X
X	if (fldCharType == DATE  &&
X           ((mustEnter && !IsDate (fldStr, fldMask)) ||
X           (!mustEnter && strcmp(fldStr, "000000") != 0  &&
X            strcmp(fldStr, "      ") != 0  &&
X            fldStr[0] != '\0' &&
X            !IsDate (fldStr, fldMask)))) 
X    	{
X      		BELL;
X		CLEARROW (fldErrRow);
X		wattrOn (stdscr, A_REVERSE|A_BOLD);
X      		mvwaddstr (stdscr,
X		    ((fldErrRow%100) == fldErrRow) ? fldErrRow : fldErrRow/100, 
X		    ((fldErrRow%100) == fldErrRow) ? 0 : fldErrRow%100, 
X			"Invalid Date") ;
X		wattrOff (stdscr);
X      		wmove (win, row, colStart) ;
X      		return (0) ;
X   	}
X
X   	if (fldCharType == TIME  &&
X           ((mustEnter && !IsTime (fldStr, fldMask)) ||
X           (!mustEnter && strcmp(fldStr, "000000") != 0  &&
X           strcmp(fldStr, "      ") != 0  &&
X           fldStr[0] != '\0' &&
X           !IsTime (fldStr, fldMask)))) 
X	{
X      		BELL;
X		CLEARROW (fldErrRow);
X		wattrOn (stdscr, A_REVERSE|A_BOLD);
X      		mvwaddstr (stdscr,
X		    ((fldErrRow%100) == fldErrRow) ? fldErrRow : fldErrRow/100, 
X		    ((fldErrRow%100) == fldErrRow) ? 0 : fldErrRow%100, 
X			"Invalid Time") ;
X		wattrOff (stdscr);
X      		wmove (win, row, colStart) ;
X      		return (0) ;
X   	}
X
X   	if (fldCharType == STATE  &&  !IsState (fldStr)) 
X	{
X      		BELL;
X		CLEARROW (fldErrRow);
X		wattrOn (stdscr, A_REVERSE|A_BOLD);
X      		mvwaddstr (stdscr,
X		    ((fldErrRow%100) == fldErrRow) ? fldErrRow : fldErrRow/100, 
X		    ((fldErrRow%100) == fldErrRow) ? 0 : fldErrRow%100, 
X			"Invalid State") ;
X		wattrOff (stdscr);
X      		wmove (win, row, colStart) ;
X      		return (0) ;
X   	}
X
X   	if (fldCharType == SET   ||  fldCharType == MENU  ||   fldRange == NULL)
X	{
X      		ReDispFld(win, row, colStart, -1, fldMask, fldRange, fldLength, 
X				fldCharType, fldType, fldStr, colEnd, charKeyed,
X				setNumb, origAttr) ;
X      		return (1) ;
X   	}
X
X   	if ( IsRange(Fld, fldLength, fldType, fldRange) ) 
X	{
X      		ReDispFld(win, row, colStart, -1, fldMask, fldRange, fldLength, 
X				fldCharType, fldType, fldStr, colEnd, charKeyed,
X				setNumb, origAttr) ;
X      		return (1) ;
X   	} 
X	else 
X	{
X      		getyx (win, row, col) ;
X      		BELL;
X		CLEARROW (fldErrRow);
X		wattrOn (stdscr, A_REVERSE|A_BOLD);
X      		mvwprintw (stdscr,
X		    ((fldErrRow%100) == fldErrRow) ? fldErrRow : fldErrRow/100, 
X		    ((fldErrRow%100) == fldErrRow) ? 0 : fldErrRow%100, 
X			"[%s] Valid Ranges are: %s", fldStr, fldRange) ;
X		wattrOff (stdscr);
X      		wmove (win, row, colLast) ;
X
X   	}
X
X   	return(0) ;
X
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/IsFldOk.c || echo "restore of utilities.d/libgeti.d/IsFldOk.c fails"
echo "x - extracting utilities.d/libgeti.d/IsMask.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/IsMask.c &&
Xstatic char Sccsid[] = "@(#)IsMask.c	1.2   DeltaDate 1/22/90   ExtrDate 1/22/90";
X
X/*
X**  IsMask ()
X**	Determines whether a given character is a mask format character based
X**	upon the field type.
X**  RETURNS:
X**	TRUE	character is a mask format character
X**	FALSE	this character allows data input
X*/
X
X#include	"GetInput.h"
X
XIsMask (fldCharType, maskChar)
X	char	fldCharType ;
X	char	maskChar ;
X{
X
X	if ( fldCharType  == maskChar)
X		return (0) ;
X	else 	if (fldCharType  == ALPHANUM  &&
X		   (maskChar == ALPHANUM  || maskChar == ALPHA  ||
X		    maskChar == NUMERIC  || maskChar == UPPER  ||
X		    maskChar == UPPER_AN  || maskChar == HEX) )
X			return (0) ;
X	else 	if (fldCharType  == DATE  &&
X		   (maskChar == 'D' || maskChar == 'M' || maskChar == 'Y'))
X			return (0) ;
X	else 	if (fldCharType  == TIME  &&
X		   (maskChar == 'I' || maskChar == 'H' || maskChar == 'M'||
X		    maskChar == 'S' || maskChar == 'T'))
X			return (0) ;
X	else
X		return (1) ;
X}
X
X
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/IsMask.c || echo "restore of utilities.d/libgeti.d/IsMask.c fails"
echo "x - extracting utilities.d/libgeti.d/IsRange.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/IsRange.c &&
Xstatic char Sccsid[] = "@(#)IsRange.c	1.1   DeltaDate 8/30/87   ExtrDate 1/22/90";
X#include <curses.h>
X#include <ctype.h>
X#include <string.h>
X#include "GetInput.h"
X
X#ifndef TRUE
X# define TRUE	1
X# define FALSE 	0
X#endif
X
X#define FROM 	0
X#define TO   	1
X
XIsRange (Fld, fldLength, fldType, fldRange)
X
XFldUnPointer   Fld ;
Xunsigned int   fldLength ;
Xchar  fldType ;
Xchar  *fldRange ;
X{
X   char		*wrk, *wrkAlloc ;
X   char  	*malloc() ;
X   int   	testInt, t1, t2, INTFLAG;
X   long  	testLong ;
X   float 	testFloat ;
X   double   	testDouble ;
X   int   	fromTo ;
X   int   	fromOk ;
X   int   	success ;
X   int   	retCode ;
X   double   	atof() ;
X
X
X   wrkAlloc   = malloc (fldLength + 1) ;
X
X   fromTo = FROM ;
X   success = fromOk = FALSE ;
X
X   while (TRUE) 
X   {
X      wrk = wrkAlloc ;
X
X/*
X** 	Get a range value to test on.
X*/
X      do
X      {
X         *wrk++ = *fldRange++;
X      } while (*fldRange != '\0' && *fldRange != ',' && *fldRange != '-') ;
X
X      *wrk = '\0' ;
X      wrk = wrkAlloc ;
X
X      switch (fldType) 
X      {
X
X      case CHAR:
X/*
X**	bug fix - 9/24/86 pjc
X**	range = "1-12" double digit could not handle
X*/
X	 INTFLAG = sscanf (wrk, "%d", &t2);
X	 if (INTFLAG)   INTFLAG = sscanf (Fld->strVal, "%d", &t1);
X	 if (INTFLAG)
X	 {
X	    retCode = t1 - t2;
X	 }
X	 else
X	    retCode = strcmp (Fld->strVal, wrk);
X         if (retCode == 0 || (fromOk == TRUE  &&  fromTo == TO  && retCode < 0))
X            success = TRUE ;
X         else 
X            if (fromTo == FROM  &&  retCode > 0)
X               fromOk = TRUE ;
X         break ;
X
X      case INT:
X         testInt = atoi (wrk) ;
X         if (*Fld->intVal == testInt  ||
X             (fromOk == TRUE  &&  fromTo == TO &&
X             *Fld->intVal < testInt) )
X            success = TRUE ;
X         else if (fromTo == FROM  &&
X             *Fld->intVal > testInt)
X            fromOk = TRUE ;
X         break ;
X
X      case LONG:
X         testLong = atol (wrk) ;
X         if (*Fld->longVal == testLong  ||
X             (fromOk == TRUE  &&  fromTo == TO &&
X             *Fld->longVal < testLong) )
X            success = TRUE ;
X         else if (fromTo == FROM  &&
X             *Fld->longVal > testLong)
X            fromOk = TRUE ;
X         break ;
X
X      case FLOAT:
X         testFloat = atof (wrk) ;
X         if (*Fld->floatVal == testFloat  ||
X             (fromOk == TRUE  &&  fromTo == TO &&
X             *Fld->floatVal < testFloat) )
X            success = TRUE ;
X         else if (fromTo == FROM  &&
X             *Fld->floatVal > testFloat)
X            fromOk = TRUE ;
X         break ;
X
X      case DOUBLE:
X      case MONEY:
X         testDouble = atof (wrk) ;
X         if (*Fld->doubleVal == testDouble  ||
X             (fromOk == TRUE  &&  fromTo == TO &&
X             *Fld->doubleVal < testDouble))
X            success = TRUE ;
X         else if (fromTo == FROM  &&
X             *Fld->doubleVal > testDouble)
X            fromOk = TRUE ;
X         break ;
X      }
X
X      if (success)
X         break ;
X
X      /*
X      **
X      ** Skip to next valid range check
X      **
X      */
X      while (TRUE) 
X      {
X         if (*fldRange == '\0')
X            break ;
X         else 
X            if (*fldRange == '-')
X               fromTo = TO ;
X            else 
X               if (*fldRange == ',') 
X   	       {
X                  fromOk = FALSE ;
X                  fromTo = FROM ;
X               }
X
X         if (isprint (*fldRange)  && *fldRange != ' ' &&
X             *fldRange != ','  &&  *fldRange != '-')
X            break ;
X
X         fldRange++;
X      }
X
X      if (*fldRange == '\0')
X         break ;
X
X   }
X
X   free (wrkAlloc) ;
X
X   if (success)
X      return (TRUE) ;
X   else
X      return (FALSE) ;
X}
X
X
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/IsRange.c || echo "restore of utilities.d/libgeti.d/IsRange.c fails"
echo "x - extracting utilities.d/libgeti.d/IsState.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/IsState.c &&
Xstatic char Sccsid[] = "@(#)IsState.c	1.1   DeltaDate 8/30/87   ExtrDate 1/22/90";
X#include <string.h>
X
X#define MAXSTATES 50
X
XIsState (str)
X	char str[] ;
X{
X	int	retCode, count ;
X
X	static char *states[] = {
X		"AK", "AL", "AR", "AZ", "CA", "CO", "CT", "DE", "FL", "GA",
X		"HI", "IA", "ID", "IL", "IN", "KS", "KY", "LA", "MA", "MD",
X		"ME", "MI", "MN", "MO", "MS", "MT", "NC", "ND", "NE", "NH", 
X		"NJ", "NM", "NV", "NY", "OH", "OK", "OR", "PA", "RI", "SC",
X		"SD", "TN", "TX", "UT", "VA", "VT", "WA", "WI", "WV", "WY"
X	} ;
X
X
X	count = 0 ;
X
X	while (count < MAXSTATES) {
X
X		retCode = strcmp (str, states[count++]) ;
X
X		if (retCode == 0)
X			return (1) ;
X
X		if (retCode < 0)
X			return (0) ;
X	
X	}
X
X	return (0) ;
X}
X
X
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/IsState.c || echo "restore of utilities.d/libgeti.d/IsState.c fails"
echo "x - extracting utilities.d/libgeti.d/IsTime.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/IsTime.c &&
Xstatic char Sccsid[] = "@(#)IsTime.c	1.1   DeltaDate 8/30/87   ExtrDate 1/22/90";
X#include <stdio.h>
X#include "GetInput.h"
X
XIsTime(str, mask)
X	char	*str ;
X	char	*mask ;
X{
X	char	cmdstr[5] ;
X	int	i ;
X
X	if (mask == NULL) {
X
X		cmdstr[0] = *str++ ;
X		cmdstr[1] = *str++ ;
X		cmdstr[2] = '\0' ;
X		i = atoi (cmdstr) ;
X		if(i < 0  || i > 12)
X			return(0) ;
X
X		cmdstr[0] = *str++ ;
X		cmdstr[1] = *str++ ;
X		cmdstr[2] = '\0' ;
X		i = atoi (cmdstr) ;
X		if(i < 1  || i > 59)
X			return(0) ;
X
X		cmdstr[0] = *str++ ;
X		cmdstr[1] = *str++ ;
X		cmdstr[2] = '\0' ;
X		i = atoi (cmdstr) ;
X		if(i < 1  || i > 59)
X			return(0) ;
X
X	} else {
X
X		while ( *mask != '\0' ) {
X
X			while ( *mask != 'I' && *mask != 'H' && *mask != 'M' &&
X					*mask != 'S' && *mask != 'T')
X				mask++ ;
X
X			switch (*mask) {
X				case 'H':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					cmdstr[2] = '\0' ;
X					i = atoi (cmdstr) ;
X					if(i < 1  ||  i > 12)
X						return(0) ;
X					mask += 2 ;
X					break ;
X				case 'M':
X				case 'S':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					cmdstr[2] = '\0' ;
X					i = atoi (cmdstr) ;
X					if(i < 0  ||  i > 59)
X						return(0) ;
X					mask += 2 ;
X					break ;
X				case 'T':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					cmdstr[2] = '\0' ;
X					i = atoi (cmdstr) ;
X					if(i < 0  ||  i > 99)
X						return(0) ;
X					mask += 2 ;
X					break ;
X				case 'I':
X					cmdstr[0] = *str++ ;
X					cmdstr[1] = *str++ ;
X					cmdstr[2] = '\0' ;
X					i = atoi (cmdstr) ;
X					if(i < 0  ||  i > 23)
X						return(0) ;
X					mask += 2 ;
X					break ;
X			}
X		}
X	}
X	return(1) ;
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/IsTime.c || echo "restore of utilities.d/libgeti.d/IsTime.c fails"
echo "x - extracting utilities.d/libgeti.d/ReDispFld.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/ReDispFld.c &&
Xstatic char Sccsid[] = "@(#)ReDispFld.c	1.3   DeltaDate 1/22/90   ExtrDate 1/22/90";
X#include <curses.h>
X#include "GetInput.h"
X#include <ctype.h>
X
XReDispFld (win, rowStart, colStart, fldAttrib, fldMask, fldRange, fldLength, 
X	fldCharType, fldType, fldStr, colEnd, charKeyed, setNumb, 
X	origAttr)
X	WINDOW      	*win ;      	/* Window                */
X	int   		rowStart ;
X	int   		colStart ;
X	int   		fldAttrib ; 	/* field attribute             */
X	char  		*fldMask ;  	/* mask for character string      */
X	char  		*fldRange ; 	/* allowable range for field      */
X	unsigned	fldLength ; 	/* Maximum length of output       */
X	char  		fldCharType ;  	/* type of character           */
X	char  		fldType ;   	/* type of field         */
Xchar  *fldStr ;   /* the field without the mask chars */
Xint   colEnd ; /* last column for display  */
Xchar  charKeyed[] ;  /* characters keyed */
Xint   setNumb ;   /* for SET & MENU */
Xint   origAttr[] ;   /* original attributes for field */
X{
X   int   col ;
X
X   char  *fldWrk ;
X
X   if (fldCharType == SET  ||  fldCharType == MENU )
X      ShowSet(win, rowStart, colStart, -1, fldRange, fldLength, &setNumb, colEnd, charKeyed, origAttr) ;
X   else {
X      if (fldAttrib != -1)
X         wattrset(win, fldAttrib) ;
X      col = colStart ;
X      wmove(win, rowStart, col) ;
X      fldWrk = fldStr ;
X
X      if (fldAttrib == -1   &&  fldType ==  MONEY) {
X         int   decimalFound, decimalPlaces ;
X
X         decimalFound =  FALSE ;
X         decimalPlaces = 0 ;
X
X         while (*fldWrk != '\0') {
X            if (*fldWrk == '.')
X               decimalFound = TRUE ;
X            else if (decimalFound)
X               decimalPlaces++;
X            fldWrk++;
X         }
X         if (!decimalFound)
X            strcat(fldStr, ".00") ;
X         else if (decimalFound  &&  decimalPlaces < 2) {
X            if (decimalPlaces == 0)
X               strcat(fldStr, "00") ;
X            else if (decimalPlaces == 1)
X               strcat(fldStr, "0") ;
X         }
X
X         fldWrk = fldStr ;
X      }
X
X      while (col < colEnd  &&  *fldWrk != '\0') {
X         if (fldAttrib == -1)
X            wattrset(win, origAttr[col - colStart] ) ;
X         if (charKeyed [col - colStart] == 'M')
X            mvwaddch(win, rowStart, col, *(fldMask + col - colStart) ) ;
X         else
X            mvwaddch(win, rowStart, col, *fldWrk++) ;
X         col++;
X      };
X
X      if (strlen(fldStr) < fldLength) {
X         int   bytesFill ;
X
X         bytesFill = fldLength - strlen(fldStr) ;
X         while (bytesFill) {
X            if (fldAttrib == -1)
X               wattrset(win, origAttr[col - colStart]);
X            if (charKeyed [col - colStart] != 'M') {
X               bytesFill--;
X               mvwaddch(win, rowStart, col++, ' ') ;
X            } else {
X               mvwaddch(win, rowStart, col, *(fldMask + col - colStart) ) ;
X               col++;
X            }
X         }
X      }
X
X      while (col < colEnd) 
X      {
X         if (charKeyed [col - colStart] != 'M')
X            mvwaddch(win, rowStart, col, ' ') ;
X         else
X            mvwaddch(win, rowStart, col, *(fldMask + col - colStart) ) ;
X         col++;
X      }
X
X      wattrset(win, 0) ;
X   }
X
X	return(0) ;
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/ReDispFld.c || echo "restore of utilities.d/libgeti.d/ReDispFld.c fails"
echo "x - extracting utilities.d/libgeti.d/RingMenu.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/RingMenu.c &&
X#ifndef LINT
Xstatic char Sccsid[] = "@(#)RingMenu.c	1.3   DeltaDate 2/3/90   ExtrDate 2/3/90";
X#endif
X
X/***********************************************************************
X#############################################################################
X# This software/documentation is the proprietary trade secret and property  #
X# of Pacific Bell.  Receipt or possession of it does not convey any rights  #
X# to divulge, reproduce, use or allow others to use it without the specific #
X# written authorization of Pacific Bell.  Use must conform strictly to	    #
X# the license agreement between user and Pacific Bell.			    #
X#############################################################################
X
X	Program: RingMenu.c
X	Purpose: To display a Ring Menu, and prompt for option.
X		 Options are to be selected with first capital
X		 letter match, or use the cursor position key
X		 to move to the right option and depress RETURN.
X		 Help message for current option is always displayed
X		 the line below the option line.
X
X	Synopsis: RingMenu (win, line, opt, title, opt_table )
X			WINDOW	*win;			/* curses screen
X			unsigned short	line ;		/* line option on
X			unsigned short	opt ;		/* default option pos
X			char	*title;			/* menu title
X			char	*opt_table[][2];	/* option table
X							/*  name and description
X	Return: 1 - MAXOPTIONS
X
X	Author: Sam Lok
X	Date Written: March, 1989.
X	Installation: Pacific Bell
X	Modification History:
X	[Plx log name of programmer, date and description]
X
X***********************************************************************/
X
X#include <curses.h>
X#include <term.h>
X#include "GetInput.h"
X#include "keys.h"
X
X#define	MSGLINE		23
X#define	MAXOPTIONS	20
Xstruct ring				/* the ring */
X{
X	short	column ;		/* column position */
X	short	page ;			/* page number */
X} menu[MAXOPTIONS] ;
Xshort	Noptions ;			/* total number of options */
X
XRingMenu (win, line, opt, title, opt_table )
X	WINDOW	*win;
X	char	*opt_table[][2] ;
X	char	*title ;
X	unsigned short	line, opt ;
X{
X	register short	i, ii, ch ;
X
X	/*
X	 * Initializations
X	 */
X	putp( cursor_invisible ) ;	/* turn off cursor if possible */
X	for ( i=0;			/* count # option */
X	      *opt_table[i]!=NULL && i<MAXOPTIONS;
X	      i++ )
X		;
X	Noptions = i;
X
X	/* initialize ring menu */
X	/*
X	 * first option
X	 */
X	if ( title != NULL )
X		menu[0].column = strlen( title ) + 2 ;
X	else
X		menu[0].column = 0 ;
X	menu[0].page = 1 ;
X	/*
X	 * beyond the 1st option
X	 */
X	for ( i=1; i<Noptions ; i++ )
X	{
X		menu[i].page = menu[i-1].page ;
X		menu[i].column = menu[i-1].column
X				+ strlen( opt_table[i-1][0] ) + 2 ;
X		/*
X		 * about to roll off the right edge?
X		 */
X		if ( menu[i].column+strlen( opt_table[i][0] ) > COLS ||
X		     ( i < Noptions-1 &&
X		       menu[i].column+strlen( opt_table[i][0] )+5 > COLS ) )
X		{
X			menu[i].page++ ;	/* bump a page */
X			if ( title != NULL )	/* and wrap around */
X				menu[i].column = strlen( title ) + 7 ;
X			else
X				menu[i].column = 5 ;
X		}
X	}
X
X	i = ( opt<=Noptions && opt>0 ) ? opt-1 : 0 ;	/* set highlight */
X
X	/*
X	 * The LOOP
X	 */
X	while ( TRUE )
X	{
X		_showring( win, line, title, i, opt_table ) ;
X		ch = wgetch( win ) ;		/* get input */
X
X		if ( ch == KeyBackspace )	ch = KEY_BACKSPACE ;
X		if ( ch == KeyHelp )		ch = KEY_HELP ;
X		if ( ch == KeyRedraw )		ch = KEY_REFRESH ;
X		if ( ch == KeyPrint )		ch = KEY_PRINT ;
X
X		switch (ch)
X		{
X	 	case KEY_UP:
X		case KEY_LEFT:
X		case KEY_CTLK:
X		case KEY_CTLH:
X	 	case KEY_BACKSPACE:
X	 	case KEY_BTAB:
X			if ( --i < 0 )
X				i = Noptions - 1 ;
X			break ;
X
X	 	case KEY_DOWN:
X		case KEY_RIGHT:
X		case KEY_CTLJ:
X		case KEY_CTLL:
X	 	case ' ':
X	 	case KEY_TAB:
X			if ( ++i >= Noptions )
X				i = 0 ;
X		        break ;
X
X		case KEY_RETURN:
X		case KEY_ENTER:
X			_wclrring( win, line ) ;
X			putp( cursor_visible ) ;
X			return( i+1 ) ;
X			break ;
X
X		case KEY_HELP:
X			/*
X			ShowHelp( GENERAL, SPECIALKEYS, MSGLINE ) ;
X			*/
X			break ;
X
X		case KEY_REFRESH:
X			clearok( win, TRUE ) ;
X			break ;
X			
X		case KEY_PRINT:
X            		ScrnPrnt(win, LINES, COLS, MSGLINE) ;
X            		clearok(win, TRUE ) ;
X			break ;
X			
X		default:
X			for ( ii=0; ii<=Noptions-1; ii++ )
X			{
X				/* upper char match */
X				if ( strchr( opt_table[ii][0], toupper(ch) ) != NULL )
X				{
X					_wclrring( win, line ) ;
X					putp( cursor_visible ) ;
X		        		return ( ii+1 );
X				}
X			}
X			flash() ;
X		        break;
X		}
X	}
X}
X
X/*
X * _wclrring:  Erase the ring menu from screen
X */
X_wclrring( win, line )
X	WINDOW	*win ;
X	short	line ;
X{
X	wmove( win, line, 0 ) ; wclrtoeol( win ) ;
X	wmove( win, line+1, 0 ) ; wclrtoeol( win ) ;
X}
X
X/*
X * _showring: Display one lineful of RingMenu depending on the page
X *	      current option is on.
X */
X_showring( win, line, title, opt, opt_table )
X	WINDOW	*win ;
X	short 	line, opt ;
X	char	*title, *opt_table[][2] ;
X{
X	register short	i ;
X
X	wmove( win, line, 0 ) ;			/* go there */
X	if ( title != NULL )			/* title? */
X		wprintw( win, "%s  ", title ) ;
X	if ( menu[opt].page != 1 )		/* not 1st page? */
X		waddstr( win, "...  " ) ;
X		
X	/*
X	 * show options
X	 */
X	for ( i=0; i<Noptions && menu[i].page<=menu[opt].page; i++ )
X		if ( menu[i].page == menu[opt].page )	/* same page? */
X		{
X			if ( i == opt )		/* need highlight? */
X				wattrset( win, A_REVERSE );
X			waddstr( win, opt_table[i][0] );
X			wattrset( win, A_NORMAL ) ;
X			waddstr( win, "  " ) ;
X		}
X
X	if ( menu[opt].page < menu[Noptions-1].page )	/* not last page? */
X		waddstr( win, "..." ) ;
X	wclrtoeol( win ) ;
X
X	/*
X	 * show description
X	 */
X	wmove( win, line+1, 0 ) ;
X	wclrtoeol( win ) ;
X	mvwprintw( win, line+1,menu[0].column, "%s", opt_table[opt][1] ) ;
X
X	/*
X	 * fix cursor
X	 */
X	if ( menu[0].column >= 2 )
X		wmove(win, line, menu[0].column-2 );	/* before 1st option */
X	else
X		/* behind the last option */
X		wmove(win, line, menu[i-1].column+strlen(opt_table[i-1][0])+2 ) ;
X
X	wrefresh( win );
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/RingMenu.c || echo "restore of utilities.d/libgeti.d/RingMenu.c fails"
echo "x - extracting utilities.d/libgeti.d/ScrnOut.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/ScrnOut.c &&
Xstatic char Sccsid[] = "@(#)ScrnOut.c	1.2   DeltaDate 1/22/90   ExtrDate 1/22/90";
X
X#include	<curses.h>
X#include	"GetInput.h"
X
XScrnOut(win, y, x, fpout)
X	WINDOW	*win ;
X	int	y, x ;
X	FILE	*fpout ;
X{
X	int	xx, yy ;
X
X	for(yy = 0 ; yy < y ; yy++) {
X		for(xx = 0 ; xx < x ; xx++)
X			fputc( mvwinch( win, yy, xx ) & A_CHARTEXT, fpout) ;
X		fputc( '\n', fpout ) ;
X	}
X
X	return( 0 ) ;
X}
X
X
X
XScrnPrnt(win, y, x, msgLine)
X	WINDOW	*win ;
X	int	y, x ;
X	int	msgLine ;
X{
X	FILE	*fp ;
X
X	BELL;
X	mvaddstr(msgLine, 0, "Printing Screen ") ;
X	wattrOn(stdscr, A_BLINK) ;
X	addstr("...") ;
X	wattrOff(stdscr) ;
X	refresh() ;
X	BELL;
X
X	if( (fp = popen("lp -s", "w")) == NULL )
X		return(1) ;
X
X	ScrnOut(win, y, x, fp) ;
X
X	pclose(fp) ;
X
X	move(msgLine, 0) ;
X	clrtoeol() ;
X	refresh() ;
X
X	return(0) ;
X}
X
X
X
XScrnFile(win, y, x)
X	WINDOW	*win ;
X	int	y, x ;
X{
X	WINDOW	*twin ;
X	FILE	*fp ;
X	char	cmdstr[17] ;
X	union 	FldUnion Fld ;
X
X	twin = newwin(LINES, COLS, 0, 0) ;
X	mvwaddstr(twin, 10, 0, "File Name: ") ;
X	BELL;
X	cmdstr[0] = '\0' ;
X	Fld.strVal = cmdstr ;
X	GetInput (twin, 10, 11, &Fld, A_REVERSE, NOMASK, NORANGE, 16, 0, 
X		ALPHANUM, NOFILL, CHAR, AUTONEXT, NOMUST, LINES-1, LINES-1, 
X		"Enter the name of the file that will contain the image of the screen.", 
X		NULL, NULL) ;
X
X	if(cmdstr[0] == '\0')
X		return(1) ;
X
X	if( (fp = fopen(cmdstr, "w")) == NULL )
X		return(1) ;
X
X	ScrnOut(win, y, x, fp) ;
X
X	fclose(fp) ;
X
X	delwin(twin) ;
X
X	return(0) ;
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/ScrnOut.c || echo "restore of utilities.d/libgeti.d/ScrnOut.c fails"
echo "x - extracting utilities.d/libgeti.d/ShowChar.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/ShowChar.c &&
X#ifndef LINT
Xstatic char Sccsid[] = "@(#)ShowChar.c	1.3   DeltaDate 1/22/90   ExtrDate 1/22/90";
X#endif
X
X/*
X**  ShowChar()
X**	Validate character against the mask and convert to upper is neccessary.
X**	Display char to screen.
X*/
X
X#include 	<curses.h>
X#include 	<ctype.h>
X#include 	"GetInput.h"
X
Xextern int	insertmode;
X
XShowChar (win, rowStart, colStart, fldAttrib, fldMask, fldRange, fldLength, 
X	fldCharType, fldDispRow, fldType, keyStream, fldErrRow, charKeyed, 
X	colEnd, ch, origAttr)
X
X	WINDOW      	*win ;      	/* Window                */
X	int   		rowStart ;
X	int   		colStart ;
X	int   		fldAttrib ; 	/* Curses attribute         */
X	char  		*fldMask ;  	/* mask for character string      */
X	char  		*fldRange ; 	/* allowable range for field      */
X	unsigned	fldLength ; 	/* Maximum length of output       */
X	char  		fldCharType;	/* type of character           */
X	int   		fldDispRow ;   	/* where to display help message    */
X	char  		fldType ;   	/* type of field         */
X	int   		keyStream ; 	/* if TRUE then the function will
X                  			exit when the last character is
X                  			keyed           */
X	int   		fldErrRow ; 	/* where to display error message   */
X	char  		*charKeyed ;   	/* characters keyed array      */
X	int   		colEnd ; 	/* column start of field */
X	int   		*ch ;     	/* contains character keyed or being
X                  			moved */
X	int   		origAttr[] ;   	/* original attributes for field */
X{
X	int		row ;       /* working row field */
X   	int   		col ;       /* working column field */
X   	char  		charType ;
X   	char  		cmdstr[16] ;
X	int		junk;
X
X
X   	getyx(win, row, col) ;
X
X   	if (fldCharType == STATE  || fldMask == NULL)
X      		charType = fldCharType ;
X   	else 
X      		if (fldCharType == DATE  ||  fldCharType == TIME)
X         		charType = NUMERIC ;
X      		else
X         		charType = *(fldMask + col - colStart) ;
X
X   	switch (charType) 
X   	{
X   	   case HEX:
X      		break ;
X
X   	   case ALPHA:
X      		if (isalpha(*ch)) 
X		{
X			if (insertmode)
X			{
X				junk = doinsert (win, row, col, colStart, 
X						colEnd, charKeyed, fldMask,
X						fldCharType, fldType, rowStart,
X						fldAttrib, fldRange, fldLength,
X						fldErrRow, origAttr);
X				if (junk != 0)
X					break;
X			}
X         		wattrset(win, fldAttrib) ;
X         		waddch(win, *ch) ;
X         		wattrset(win, 0) ;
X         		*(charKeyed + col - colStart) = 'Y' ;
X      		} 
X		else 
X		{
X			CLEARROW (fldErrRow);
X			wattrOn (stdscr, A_REVERSE|A_BOLD);
X         		mvwaddstr(stdscr,
X		((fldErrRow%100) == fldErrRow) ? fldErrRow : fldErrRow/100, 
X		((fldErrRow%100) == fldErrRow) ? 0 : fldErrRow%100, 
X				"Only alpha characters allowed.") ;
X			wattrOff (stdscr);
X         		wmove(win, rowStart, col) ;
X         		BELL;
X      		}
X      		break ;
X
X   	   case ALPHANUM:
X   	   case UPPER_AN:
X   	   case STATE:
X      		if (isprint(*ch)) 
X      		{
X			if (insertmode)
X			{
X				junk = doinsert (win, row, col, colStart, 
X						colEnd, charKeyed, fldMask,
X						fldCharType, fldType, rowStart,
X						fldAttrib, fldRange, fldLength,
X						fldErrRow, origAttr);
X				if (junk != 0)
X					break;
X			}
X
X         		if (charType == UPPER_AN  ||  charType == STATE)
X            			*ch = toupper(*ch);
X         		wattrset(win, fldAttrib) ;
X         		waddch(win, *ch) ;
X         		wattrset(win, 0) ;
X         		*(charKeyed + col - colStart) = 'Y' ;
X      		} 
X      		else 
X      		{
X			CLEARROW (fldErrRow);
X			wattrOn (stdscr, A_REVERSE|A_BOLD);
X         		mvwaddstr(stdscr,
SHAR_EOF
echo "End of part 8"
echo "File utilities.d/libgeti.d/ShowChar.c is continued in part 9"
echo "9" > s2_seq_.tmp
exit 0