Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/2/2413

Internet Message Format | 1990-12-28 | 39.0 KB

From: [e-mail] (Paul J. Condie)
Newsgroups: alt.sources
Subject: menu(1) part 8 of 14
Message-ID: <[e-mail]>
Date: 26 Dec 90 20:10:56 GMT


#!/bin/sh
# this is part 8 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file ParseDeSrn.y 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 ParseDeSrn.y"
sed 's/^X//' << 'SHAR_EOF' >> ParseDeSrn.y
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> field_mustenter");
X                fflush (stderr);
X            }
X        }
X        ;
X        | field_prompt
X        {
X            strcpy (eott, "field_prompt");
X            if (debug)
X            {
X                fprintf (stderr,
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> field_prompt");
X                fflush (stderr);
X            }
X        }
X        ;
X        | field_terminator
X        {
X            strcpy (eott, "field_terminator");
X            if (debug)
X            {
X                fprintf (stderr,
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> field_terminator");
X                fflush (stderr);
X            }
X        }
X        ;
X        | field_defaults
X        {
X            strcpy (eott, "field_defaults");
X            if (debug)
X            {
X                fprintf (stderr,
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> field_defaults");
X                fflush (stderr);
X            }
X        }
X        ;
X
X        | field_noinput
X        {
X            strcpy (eott, "field_noinput");
X            if (debug)
X            {
X                fprintf (stderr,
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> field_noinput");
X                fflush (stderr);
X            }
X        }
X        ;
X
X        | before_field
X        {
X            strcpy (eott, "before_field");
X            if (debug)
X            {
X                fprintf (stderr,
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> before_field");
X                fflush (stderr);
X            }
X        }
X        ;
X
X        | after_field
X        {
X            strcpy (eott, "after_field");
X            if (debug)
X            {
X                fprintf (stderr,
X                "\n[ParseDeSrn]<.DEFINE_SCREEN> after_field");
X                fflush (stderr);
X            }
X        }
X        ;
X
X
Xscreen_title    : SCREEN_TITLE EQUAL STRING
X        {
X            strcpy (yyscreen->title, $3);
X        }
X        | SCREEN_TITLE EQUAL EVAR
X        {
X            strcpy (yyscreen->title, $3);
X        }
X        | SCREEN_TITLE EQUAL QUOTE_STRING
X        {
X            strcpy (yyscreen->title, $3);
X        }
X        ;
X
Xscreen_help    : SCREEN_HELP EQUAL STRING
X        {
X            strcpy (yyscreen->helpfile, $3);
X        }
X        | SCREEN_HELP EQUAL QUOTE_STRING
X        {
X            strcpy (yyscreen->helpfile, $3);
X        }
X        ;
X
Xscreen_pos    : SCREEN_POS EQUAL NUMBER NUMBER
X        {
X            yyscreen->toprow = $3;
X            yyscreen->leftcol = $4;
X        }
X        | SCREEN_POS EQUAL EVAR EVAR
X        {
X            strcpy (yyscreen->toprowvar, $3);
X            strcpy (yyscreen->leftcolvar, $4);
X            /*
X            yyscreen->toprow = atoi ((char *)getval (&$3, '1'));
X            yyscreen->leftcol = atoi ((char *)getval (&$4, '1'));
X            */
X        }
X        | SCREEN_POS EQUAL NUMBER EVAR
X        {
X            yyscreen->toprow = $3;
X            strcpy (yyscreen->leftcolvar, $4);
X        }
X        | SCREEN_POS EQUAL EVAR NUMBER
X        {
X            /*
X            yyscreen->toprow = atoi ((char *)getval (&$3, '1'));
X            */
X            strcpy (yyscreen->toprowvar, $3);
X            yyscreen->leftcol = $4;
X        }
X        ;
X
Xscreen_rows    : SCREEN_ROWS EQUAL NUMBER
X        {
X            yyscreen->rows = $3;
X        }
X        ;
Xscreen_cols    : SCREEN_COLS EQUAL NUMBER
X        {
X            yyscreen->cols = $3;
X        }
X        ;
Xscreen_border    : SCREEN_BORDER EQUAL STRING
X        {
X            /* get border type for active menu */
X            if (strcmp ($3, "DumbLine") == 0)
X                yyscreen->boxtype = DumbLine;
X            else    if (strcmp ($3, "StandoutLine") == 0)
X                    yyscreen->boxtype = StandoutLine;
X            else    if (strcmp ($3, "SingleLine") == 0 ||
X                    strcmp ($3, "DrawLine") == 0)
X                    yyscreen->boxtype = SingleLine;
X            else    if (strcmp ($3, "MosaicLine") == 0)
X                    yyscreen->boxtype = MosaicLine;
X            else    if (strcmp ($3, "DiamondLine") == 0)
X                    yyscreen->boxtype = DiamondLine;
X            else    if (strcmp ($3, "DotLine") == 0)
X                    yyscreen->boxtype = DotLine;
X            else    if (strcmp ($3, "PlusLine") == 0)
X                    yyscreen->boxtype = PlusLine;
X        }
X        |SCREEN_BORDER EQUAL STRING STRING
X        {
X            /* get border type for active menu */
X            if (strcmp ($3, "DumbLine") == 0)
X                yyscreen->boxtype = DumbLine;
X            else    if (strcmp ($3, "StandoutLine") == 0)
X                    yyscreen->boxtype = StandoutLine;
X            else    if (strcmp ($3, "SingleLine") == 0 ||
X                    strcmp ($3, "DrawLine") == 0)
X                    yyscreen->boxtype = SingleLine;
X            else    if (strcmp ($3, "MosaicLine") == 0)
X                    yyscreen->boxtype = MosaicLine;
X            else    if (strcmp ($3, "DiamondLine") == 0)
X                    yyscreen->boxtype = DiamondLine;
X            else    if (strcmp ($3, "DotLine") == 0)
X                    yyscreen->boxtype = DotLine;
X            else    if (strcmp ($3, "PlusLine") == 0)
X                    yyscreen->boxtype = PlusLine;
X
X            /* border type for inactive menu - dim (high 8 bits) */
X            if (strcmp ($4, "DumbLine") == 0)
X                yyscreen->boxtype = yyscreen->boxtype |
X                            (DumbLine << 9);
X            else    if (strcmp ($4, "StandoutLine") == 0)
X                    yyscreen->boxtype = yyscreen->boxtype |
X                            (StandoutLine << 9);
X            else    if (strcmp ($4, "SingleLine") == 0 ||
X                    strcmp ($4, "DrawLine") == 0)
X                    yyscreen->boxtype = yyscreen->boxtype |
X                            (SingleLine << 9);
X            else    if (strcmp ($4, "MosaicLine") == 0)
X                    yyscreen->boxtype = yyscreen->boxtype |
X                            (MosaicLine << 9);
X            else    if (strcmp ($4, "DiamondLine") == 0)
X                    yyscreen->boxtype = yyscreen->boxtype |
X                            (DiamondLine << 9);
X            else    if (strcmp ($4, "DotLine") == 0)
X                    yyscreen->boxtype = yyscreen->boxtype |
X                            (DotLine << 9);
X            else    if (strcmp ($4, "PlusLine") == 0)
X                    yyscreen->boxtype = yyscreen->boxtype |
X                            (PlusLine << 9);
X        }
X        ;
Xexit_last_field    : EXIT_LAST_FIELD
X        {
X            yyscreen->exitlastfield = TRUE;
X        }
X        ;
X
Xexit_on_cancel    : EXIT_ON_CANCEL
X        {
X            yyscreen->exitoncancel = TRUE;
X        }
X        ;
X
Xscreen_text    : SCREEN_TEXT EQUAL NUMBER NUMBER STRING
X        {
X            yyscreen->textinfo[textcount] = (struct TextInfo *)
X                    malloc (sizeof (struct TextInfo));
X            yyscreen->textinfo[textcount]->row = $3;
X            yyscreen->textinfo[textcount]->col = $4;
X            yyscreen->textinfo[textcount]->text =
X                (char *)malloc (strlen($5)+5);
X            strcpy (yyscreen->textinfo[textcount]->text, $5);
X            yyscreen->textinfo[++textcount] =
X                (struct TextInfo *)NULL;
X        }
X        | SCREEN_TEXT EQUAL NUMBER NUMBER QUOTE_STRING
X        {
X            yyscreen->textinfo[textcount] = (struct TextInfo *)
X                    malloc (sizeof (struct TextInfo));
X            yyscreen->textinfo[textcount]->row = $3;
X            yyscreen->textinfo[textcount]->col = $4;
X            yyscreen->textinfo[textcount]->text =
X                (char *)malloc (strlen($5)+5);
X            strcpy (yyscreen->textinfo[textcount]->text, $5);
X            yyscreen->textinfo[++textcount] =
X                (struct TextInfo *)NULL;
X        }
X        ;
X
Xafter_screen    : AFTER_SCREEN EQUAL QUOTE_STRING
X        {
X            yyscreen->after_screen = (char *)malloc (strlen($3)+5);
X            strcpy (yyscreen->after_screen, $3);
X        }
X        ;
X
X
X
X
Xfield_name    : FIELD_NAME EQUAL EVAR
X        {
X            /*
X            **  The field_name token signifes a new field
X            **  we need to malloc the field structure.
X            */
X               if ((++fieldcount) > MAXFIELDS)
X               {
X                      BEEP;
X                      mvprintw (ErrRow-2, 0,
X                  "Exceeded maximum screen fields of %d.",
X                  MAXFIELDS);
X                      shutdown ();
X               }
X            FLD = (struct FieldInfo *)malloc (sizeof (struct FieldInfo));
X            yyscreen->field[fieldcount] = (struct FieldInfo *)NULL;
X            strcpy (FLD->name, $3+1);
X
X            /* Set default field values */
X            strcpy (FLD->label, "");
X            FLD->min_input = 0;
X            strcpy (FLD->mask, "");
X            strcpy (FLD->range, "");
X            FLD->type = UPPER_AN;
X            FLD->adjust = NOFILL;
X            FLD->mustenter = FALSE;
X            strcpy (FLD->prompt, "");
X            strcpy (FLD->terminator, "[]");
X            FLD->noinput = FALSE;
X            FLD->before_field = (char *)NULL;
X            FLD->after_field = (char *)NULL;
X        }
X        ;
X
Xfield_label    : FIELD_LABEL EQUAL STRING
X        {
X            strcpy (FLD->label, $3);
X        }
X        | FIELD_LABEL EQUAL QUOTE_STRING
X        {
X            strcpy (FLD->label, $3);
X        }
X        ;
X
Xfield_row    : FIELD_ROW EQUAL NUMBER
X        {
X            FLD->row = $3;
X        }
X        ;
Xfield_col    : FIELD_COL EQUAL NUMBER
X        {
X            FLD->col = $3;
X        }
X        ;
X
Xfield_mask    : FIELD_MASK EQUAL STRING
X        {
X            strcpy (FLD->mask, $3);
X        }
X        | FIELD_MASK EQUAL QUOTE_STRING
X        {
X            strcpy (FLD->mask, $3);
X        }
X        ;
X
Xfield_range    : FIELD_RANGE EQUAL STRING
X        {
X            strcpy (FLD->range, $3);
X        }
X        | FIELD_RANGE EQUAL QUOTE_STRING
X        {
X            strcpy (FLD->range, $3);
X        }
X        ;
X
Xfield_length    : FIELD_LENGTH EQUAL NUMBER
X        {
X            FLD->length = $3;
X        }
X        ;
Xfield_min    : FIELD_MIN EQUAL NUMBER
X        {
X            FLD->min_input = $3;
X        }
X        ;
Xfield_type    : FIELD_TYPE EQUAL STRING
X        {
X            if (strcmp ($3, "ALPHANUM") == 0)
X                FLD->type = ALPHANUM;
X            else if (strcmp ($3, "ALPHA") == 0)
X                FLD->type = ALPHA;
X            else if (strcmp ($3, "NUMERIC") == 0)
X                FLD->type = NUMERIC;
X            else if (strcmp ($3, "SET") == 0)
X                FLD->type = SET;
X            else if (strcmp ($3, "UPPER") == 0)
X                FLD->type = UPPER;
X            else if (strcmp ($3, "UPPER_AN") == 0)
X                FLD->type = UPPER_AN;
X            else if (strcmp ($3, "HEX") == 0)
X                FLD->type = HEX;
X            else if (strcmp ($3, "STATE") == 0)
X                FLD->type = STATE;
X            else if (strcmp ($3, "ZIP") == 0)
X                FLD->type = ZIP;
X            else if (strcmp ($3, "DATE") == 0)
X                FLD->type = DATE;
X            else if (strcmp ($3, "TIME") == 0)
X                FLD->type = TIME;
X            else if (strcmp ($3, "MENU") == 0)
X                FLD->type = MENU;
X            else if (strcmp ($3, "PROTECT") == 0)
X                FLD->type = PROTECT;
X            else yyerror ("Invalid field_edits");
X        }
X        ;
Xfield_adjust    : FIELD_ADJUST EQUAL STRING
X        {
X            if (strcmp ($3, "NOFILL") == 0)
X                FLD->adjust = NOFILL;
X            else if (strcmp ($3, "RTADJ_ZFILL") == 0)
X                FLD->adjust = RTADJ_ZFILL;
X            else if (strcmp ($3, "RTADJ_BFILL") == 0)
X                FLD->adjust = RTADJ_BFILL;
X            else if (strcmp ($3, "LFADJ_ZFILL") == 0)
X                FLD->adjust = LFADJ_ZFILL;
X            else if (strcmp ($3, "LFADJ_BFILL") == 0)
X                FLD->adjust = LFADJ_BFILL;
X        }
X        | FIELD_ADJUST EQUAL QUOTE_STRING
X        {
X            if (strcmp ($3, "NOFILL") == 0)
X                FLD->adjust = NOFILL;
X            else if (strcmp ($3, "RTADJ_ZFILL") == 0)
X                FLD->adjust = RTADJ_ZFILL;
X            else if (strcmp ($3, "RTADJ_BFILL") == 0)
X                FLD->adjust = RTADJ_BFILL;
X            else if (strcmp ($3, "LFADJ_ZFILL") == 0)
X                FLD->adjust = LFADJ_ZFILL;
X            else if (strcmp ($3, "LFADJ_BFILL") == 0)
X                FLD->adjust = LFADJ_BFILL;
X        }
X        ;
X
Xfield_mustenter    : FIELD_MUSTENTER
X        {
X            FLD->mustenter = TRUE;
X        }
X        ;
X
Xfield_prompt    : FIELD_PROMPT EQUAL STRING
X        {
X            strcpy (FLD->prompt, $3);
X        }
X        | FIELD_PROMPT EQUAL QUOTE_STRING
X        {
X            strcpy (FLD->prompt, $3);
X        }
X        ;
X
Xfield_terminator : FIELD_TERMINATOR EQUAL QUOTE_STRING
X        {
X            if (strlen ($3) != 2)
X                yyerror ("Bad field_terminator.");
X            strcpy (FLD->terminator, $3);
X        }
X        ;
X
Xfield_defaults    : FIELD_DEFAULTS EQUAL QUOTE_STRING
X        {
X            yyscreen->fielddefaults = (char *)malloc (strlen($3)+5);
X            strcpy (yyscreen->fielddefaults, $3);
X        }
X        ;
X
Xfield_noinput    : FIELD_NOINPUT
X        {
X            FLD->noinput = TRUE;
X        }
X        ;
X
Xbefore_field : BEFORE_FIELD EQUAL QUOTE_STRING
X        {
X            FLD->before_field = (char *)malloc (strlen($3)+5);
X            strcpy (FLD->before_field, $3);
X        }
X        ;
X
Xafter_field : AFTER_FIELD EQUAL QUOTE_STRING
X        {
X            FLD->after_field = (char *)malloc (strlen($3)+5);
X            strcpy (FLD->after_field, $3);
X        }
X        ;
X
X
X
X%%
X
X/*  FUNCTION:    ParseDefineScreen()
X**        This function parses .DEFINE_SCREEN
X**  ARGS:    keyword        the keyword found
X**        menufile    the unix menu file
X**        menu        menu structure
X**        gnames        holder of goto menu names
X**        gfiles        holder of goto menu names (menu file)
X**        gindex        # of gnames
X**  RETURNS:    0
X*/
X
X
X#define    SRN    menu->srn[screencount-1]
X
Xextern FILE    *yyin;
Xextern FILE    *yyout;
Xextern    int    swin, ewin, longest;
X
X    char    ScreenName[50];                /* for yyerror */
X
X
XParseDefineScreen (keyword, menufile, menu, gnames, gfiles, gindex, opnumber)
X
X    char        keyword[];
X    FILE        *menufile;
X    struct MenuInfo    *menu;
X    char        gnames[][15], gfiles[][15];
X    int        *gindex;
X    int        *opnumber;
X{
X    char        *fgets(), line[BUFSIZE];
X    static int    screencount;
X    int        i = 0;
X    int        j;
X    char        *ws;
X
X
X    /* check if this is the first screen for this menu */
X    if (menu->srn[0] == (struct ScreenInfo *)NULL)
X        screencount = 0;
X
X       if ((++screencount) > MAXSCREENS)
X       {
X              BEEP;
X              mvprintw (ErrRow, 0,
X            "Exceeded maximum allowable .DEFINE_SCREEN.");
X              shutdown ();
X       }
X
X    SRN = (struct ScreenInfo *)malloc (sizeof (struct ScreenInfo));
X       if (SRN == NULL)
X       {
X              BEEP;
X              mvprintw (ErrRow, 0,
X            "Unable to allocate memory for .DEFINE_SCREEN.");
X              shutdown ();
X       }
X    /* terminate the screens list */
X    menu->srn[screencount] = (struct ScreenInfo *)NULL;
X    SRN->field[0] = (struct FieldInfo *)NULL;    /* no fields yet */
X
X
X    /* get screen name */
X    fgets (line, BUFSIZE, menufile);
X    sscanf (line, "%s", SRN->name);            /* screen name */
X    strcpy (ScreenName, SRN->name);            /* for yyerror */
X
X    yyin = menufile;
X    yyscreen = SRN;
X    fieldcount = 0;
X    textcount = 0;
X
X    /*
X    **  Set default screen values.
X    */
X    sprintf (SRN->title, "%d", AUTO);
X    SRN->rows = AUTO;
X    SRN->cols = AUTO;
X    SRN->toprow = AUTO;
X    SRN->leftcol = AUTO;
X    strcpy (SRN->toprowvar, "");
X    strcpy (SRN->leftcolvar, "");
X    SRN->boxtype = StandoutLine;
X    SRN->fielddefaults = (char *)NULL;
X    strcpy (SRN->helpfile, "menu.hlp");
X    SRN->exitlastfield = FALSE;
X    SRN->exitoncancel = FALSE;
X    SRN->textinfo[textcount] = (struct TextInfo *)NULL;
X    SRN->after_screen = (char *)NULL;
X
X#ifdef    _yydebug
X    if (debug)
X        yydebug = 1;
X#endif
X
X    yyparse ();
X
X       return (0);
X}
X
X
Xyyerror (s)
X    char    *s;
X{
X    mvprintw (ErrRow-5,0, "Unable to process .DEFINE_SCREEN  %s",
X            ScreenName);
X    mvprintw (ErrRow-4,0, "Field Number %d", fieldcount);
X    mvprintw (ErrRow-3,0, "%s", s);
X    mvprintw (ErrRow-2,0, "The error occured on token = \"%s\"", eott);
X    mvprintw (ErrRow-1,0, "Look ahead token number %d  <tokens.h>", yychar);
X    shutdown ();
X}
SHAR_EOF
echo "File ParseDeSrn.y is complete"
chmod 0644 ParseDeSrn.y || echo "restore of ParseDeSrn.y fails"
echo "x - extracting utilities.d/libgeti.d/AdjField.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/AdjField.c &&
Xstatic char Sccsid[] = "@(#)AdjField.c    1.1   DeltaDate 8/30/87   ExtrDate 1/22/90";
X#include    <curses.h>
X#include    "GetInput.h"
X#include    <ctype.h>
X
XAdjField(win, rowStart, colStart, fldAttrib, fldAdjust, colEnd, charKeyed)
X    WINDOW        *win ;        /* Window                    */
X    int        rowStart ;
X    int        colStart ;
X    int        fldAttrib ;    /* Curses attribute            */
X    char        fldAdjust ;    /* adjust/fill field             */
X    int        colEnd ;    /* column where field ends        */
X    char        charKeyed[] ;    /* characters keyed            */
X{
X    int        col ;        /* working column field */
X    int        row ;        /* working row field */
X    int        colMove ;    /* working column field for adjusting
X                           routines */
X    int        ch ;        /* contains character keyed or being
X                           moved */
X
X    char        *wrkKeyed ;    /* working pointer for charKeyed */
X    char        fillChar ;
X
X
X    getyx (win, row, col) ;
X
X    if (fldAdjust == RTADJ_BFILL || fldAdjust == LFADJ_BFILL)
X        fillChar = ' ' ;
X    else if (fldAdjust == RTADJ_ZFILL  ||  fldAdjust == LFADJ_ZFILL)
X        fillChar = '0' ;
X
X    if (fldAdjust == RTADJ_BFILL || fldAdjust == RTADJ_ZFILL) {
X
X        col-- ;
X
X        wrkKeyed = charKeyed + (col - colStart) ;
X
X        colMove = colEnd - 1 ;
X
X        while (col >= colStart) {
X
X            while ( *wrkKeyed != 'Y') {
X                wrkKeyed-- ;
X                col-- ;
X            }
X
X            if (col < colStart)
X                break ;
X
X            ch = mvwinch(win, rowStart, col--) & A_CHARTEXT ;
X            *wrkKeyed-- = 'N' ;
X
X            while ( colMove > colStart  &&
X                    charKeyed [colMove - colStart] != 'N')
X                colMove-- ;
X
X            charKeyed [colMove - colStart] = 'Y' ;
X
X            wattrset (win, fldAttrib) ;
X            mvwaddch (win, rowStart, colMove--, ch) ;
X            wattrset (win, 0) ;
X        }
X
X        wattrset (win, fldAttrib) ;
X
X        while (colMove >= colStart) {
X
X            if ( charKeyed [colMove - colStart] != 'N')
X                colMove-- ;
X            else {
X                charKeyed [colMove - colStart] = 'Y' ;
X                mvwaddch(win, rowStart, colMove--, fillChar) ;
X            }
X        }
X
X        wattrset (win, 0) ;
X        wmove (win, rowStart, colEnd) ;
X
X    } else if  (fldAdjust == LFADJ_BFILL || fldAdjust == LFADJ_ZFILL) {
X
X        if (col < colStart)
X            col = colStart;
X
X        wattrset (win, fldAttrib) ;
X
X        while (col < colEnd) {
X
X            if ( charKeyed [col - colStart] != 'N')
X                col++ ;
X            else {
X                charKeyed [col - colStart] = 'Y' ;
X                mvwaddch (win, rowStart, col++, fillChar) ;
X            }
X        }
X
X        wattrset (win, 0) ;
X        wmove (win, rowStart, colEnd) ;
X    }
X
X    wrefresh (win) ;
X
X    return(0) ;
X
X}
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/AdjField.c || echo "restore of utilities.d/libgeti.d/AdjField.c fails"
echo "x - extracting utilities.d/libgeti.d/BuildMenu.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/BuildMenu.c &&
X#ifndef LINT
Xstatic char Sccsid[] = "@(#)BuildMenu.c    1.1   DeltaDate 1/22/90   ExtrDate 1/22/90";
X#endif
X
X#include    <curses.h>
X
XBuildMenu (menu, fldRange)
X    char    menu[][80];
X    char    *fldRange;
X{
X    int    eidx = 0;                /* element index */
X    char    *rptr;                    /* range pointer */
X    char    *eptr;                    /* element pointer */
X
X    rptr = fldRange;
X
X    while (*rptr != '\0')
X    {
X        /* get range element eidx */
X        eptr = menu[eidx];
X        while (*rptr != ','  &&  *rptr != '\0')
X            *eptr++ = *rptr++;
X        *eptr = '\0';
X
X        /* skip junk */
X        while (*rptr == ','  || *rptr == ' '  ||  *rptr == '\t')
X            *rptr++;
X        eidx++;
X    }
X    strcpy (menu[eidx], "");
X}
X/* Paul J. Condie  11/88 */
SHAR_EOF
chmod 0444 utilities.d/libgeti.d/BuildMenu.c || echo "restore of utilities.d/libgeti.d/BuildMenu.c fails"
echo "x - extracting utilities.d/libgeti.d/DateFun.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/DateFun.c &&
Xstatic char Sccsid[] = "%W%   DeltaDate %G%   ExtrDate %H%";
X
X#define    BASEYEAR    1900
X
X/*
X *      is_leap - returns 1 if year is a leap year, 0 if not
X */
Xint is_leap(y)
Xint y;
X{
X    return(y % 4 == 0 && y % 100 != 0 || y % 400 == 0);
X}
X
X/*
X**
X**    maxdays, returns maximum number of days for 'year'
X**
X*/
Xint maxdays(y)
Xregister int y;
X{
X    return(is_leap(y) ? 366 : 365);
X}
X
Xstatic  int     day_tab[2][13] = {
X    {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
X    {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
X};
X
X
X/*
X *      julian - converts year month and day to julian date and returns it
X */
Xint julian(year, month, day)
Xint year, month, day;
X{
X    int i, leap;
X
X    leap = is_leap(year);
X    for (i = 1; i < month; i++)
X        day += day_tab[leap][i];
X    return(day);
X}
X
X
X
X/*
X**
X**      week_day - returns the day of the week given the Year,
X**            Month and Day.  Year must be >= 1973.
X**            If not, -1 is returned.
X**                      day of the week:
X**                Sunday = 0,  Monday = 1,  ...,  Saturday = 6.
X*/
Xint week_day( year, month, day )
X    int    year, month, day ;
X{
X    int    century ;
X
X    month -= 2 ;
X    if ( month < 1 )
X    {
X        month += 12 ;
X        year-- ;
X    }
X    century = (int)( year / 100 ) ;
X    year %= 100 ;
X    return(((int)( (13 * month - 1) / 5 ) + day + year + (int)( year / 4 ) +
X        (int)( century / 4 ) - ( 2 * century ) + 77) % 7 ) ;
X}
X
X
X/*
X *      month_day - Converts julian date to month and day. Month and day must be passed as addresses of ints.
X */
Xvoid
Xmonth_day(year, yearday, pmonth, pday)
Xint year, yearday, *pmonth, *pday;
X{
X    int i, leap;
X
X    leap = is_leap(year);
X    for (i = 1; yearday > day_tab[leap][i]; i++)  {
X        yearday -= day_tab[leap][i];
X    }
X    if(i > 12)
X        i = 1;
X
X    if(yearday <= 0)  {     /* special kludge for julian day 0 = Dec. 31st */
X        *pmonth = 12;
X        *pday = 31 + yearday;
X    }  else {
X        *pmonth = i;
X        *pday = yearday;
X    }
X}
X
X
X/* back up (if necessary) month and date to nearest sunday */
X/* return julian date of new date as well */
X
X/*
X *      weekstart - returns julian data of Sunday start date of given YY/MM/DD.
X */
Xint weekstart(year, month, date)
Xregister int year, *month, *date;
X{
X    int mp, dp, i, t;
X
X    if ((i = week_day(year, *month, *date)) != 0)  {
X        t = julian(year, *month, *date);
X        month_day(year, t - i, &mp, &dp);
X        if(mp > *month)
X            year--;
X        *month = mp;
X        *date = dp;
X    }
X    return(julian(year, *month, *date));
X}
X
X
X/* verifies the integrity of a date, returns 1 if good, 0 if bad */
Xint valid_date(yr, mo, day)
Xint yr, mo, day;
X{
X    int days, leap;
X
X    leap = is_leap(yr);
X    if (mo > 0 && mo < 13) {
X        days = day_tab[leap][mo];
X        if (day > 0 && day <= days && yr > 0)
X            return(1);
X    }
X    return(0);
X}
X
X
X/*
X**    datedays - returns the # of days from 1/1/BASEYEAR
X**        01/01/BASEYEAR = 1 days
X**    Year must be >= BASEYEAR.  If not, -1 is returned.
X*/
Xlong datedays(year, month, day)
X    int year, month, day;
X{
X    year -= BASEYEAR ;
X    if(year < 0)
X        return(-1);
X    else
X        return((long) ((year*365)+julian(year, month, day)+
X                   ((year-1)/4)));
X}
SHAR_EOF
chmod 0644 utilities.d/libgeti.d/DateFun.c || echo "restore of utilities.d/libgeti.d/DateFun.c fails"
echo "x - extracting utilities.d/libgeti.d/DisPrmpt.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/DisPrmpt.c &&
Xstatic char Sccsid[] = "%W%   DeltaDate %G%   ExtrDate %H%";
X#include    <curses.h>
X#include    "GetInput.h"
X
XDisPrmpt(win, Fld, fldAttrib, fldMask, fldLength, fldCharType, fldAdjust, fldType, colStart, colEnd, fldStr, charKeyed)
X    WINDOW        *win ;        /* Window                    */
X    FldUnPointer    Fld ;        /* Pointer to union for field        */
X    int        fldAttrib ;    /* Curses attribute            */
X    char        *fldMask ;    /* mask for character string         */
X    unsigned    fldLength ;    /* Maximum length of output         */
X    char        fldCharType ;    /* type of character             */
X    char        fldAdjust ;    /* Type of adjustment             */
X    char        fldType ;    /* type of field             */
X    int        colStart ;    /* column start of field */
X    int        colEnd ;    /* column end of field */
X    char        *fldStr ;    /* buffer that will contain output  */
X    char        *charKeyed ;    /* characters keyed  */
X{
X    char    *wrk, *fldWrk, *malloc();
X
X    int    ch ;
X    int    col ;
X    int    initFld ;
X    int    i, j ;
X
X    *fldStr = '\0' ;
X
X    /*
X    if (((fldType == HEX  ||  fldType == CHAR)  &&  *Fld->strVal == '\0') ||
X            (fldType == INT     &&  *Fld->intVal    == 0) ||
X            (fldType == SHORT   &&  *Fld->shortVal  == 0) ||
X            (fldType == LONG    &&  *Fld->longVal   == 0L) ||
X            (fldType == FLOAT   &&  *Fld->floatVal  == 0.0) ||
X            (fldType == DOUBLE  &&  *Fld->doubleVal == 0.0) ||
X            (fldType == MONEY   &&  *Fld->doubleVal == 0.0) ) {
X    */
X    if (((fldType == HEX  ||  fldType == CHAR)  &&  *Fld->strVal == '\0')) {
X
X        initFld = FALSE ;
X        fldWrk = fldStr ;
X        while (fldLength--)
X            *fldWrk++ = ' ' ;
X        *fldWrk = '\0' ;
X    } else {
X
X        initFld = TRUE ;
X
X        fldWrk = malloc(fldLength + 10);
X
X        if (fldType == HEX  ||   fldType == CHAR)
X            strcpy (fldWrk, Fld->strVal) ;
X        else if (fldType == INT)
X            sprintf (fldWrk, "%d", *Fld->intVal) ;
X        else if (fldType == SHORT)
X            sprintf (fldWrk, "%d", *Fld->shortVal) ;
X        else if (fldType == LONG)
X            sprintf (fldWrk, "%ld", *Fld->longVal) ;
X        else if (fldType == FLOAT)
X            sprintf (fldWrk, "%f", *Fld->floatVal) ;
X        else if (fldType == DOUBLE)
X            sprintf (fldWrk, "%g", *Fld->doubleVal) ;
X        else if (fldType == MONEY) {
X            sprintf (fldWrk, "%g", *Fld->doubleVal) ;
X            i = strlen(fldWrk) - 1 ;
X            wrk = fldWrk ;
X            while(*wrk != '.'   &&   *wrk != '\0')
X                wrk++ ;
X            if(*wrk == '\0')
X                strcat(fldWrk, ".00") ;
X            else {
X                wrk++ ;
X                j = 0 ;
X                while(*wrk++ != '\0')
X                    j++ ;
X
X                if(j == 0)
X                    strcat(fldWrk, "00") ;
X                else if(j == 1)
X                    strcat(fldWrk, "0") ;
X            }
X        }
X
X        if (fldAdjust == NOFILL)
X            strcpy (fldStr, fldWrk) ;
X        else if (fldAdjust == LFADJ_BFILL  || fldAdjust == LFADJ_ZFILL){
X            strcpy (fldStr, fldWrk) ;
X
X            for (i = strlen(fldStr) ; i < fldLength ; i++)
X                fldStr[i] = (fldAdjust == LFADJ_ZFILL) ? '0' : ' ' ;
X            fldStr[fldLength] = '\0' ;
X        } else if (fldAdjust == RTADJ_BFILL  || fldAdjust == RTADJ_ZFILL) {
X
X            for (i = 0 ; i < fldLength - strlen(fldWrk) ; i++)
X                fldStr[i] = (fldAdjust == RTADJ_ZFILL) ? '0' : ' ' ;
X            fldStr[fldLength - strlen(fldWrk)] = '\0' ;
X            strcat (fldStr, fldWrk) ;
X        }
X
X        free (fldWrk) ;
X
X    }
X    wattrset (win, fldAttrib) ;
X
X    col = colStart ;
X
X    do {
X        if (fldMask == NULL) {
X            *charKeyed++ = (initFld) ? 'Y' : 'N' ;
X            waddch(win, *fldStr++) ;
X        } else if (fldCharType != DATE  &&  fldCharType != TIME) {
X            /*
X            if(*(fldMask + col - colStart)  ==  ' ')
X                *(fldMask + col - colStart)  =  fldCharType ;
X            */
X            if(IsMask(fldCharType, *(fldMask + col - colStart))) {
X                *charKeyed++ = 'M' ;
X                waddch(win, *(fldMask + col - colStart) );
X            } else {
X                *charKeyed++ = (initFld) ? 'Y' : 'N' ;
X                waddch(win, *fldStr++) ;
X            }
X        } else {
X            if( (fldCharType == DATE  &&
X                (ch = *(fldMask + col - colStart)) == 'M'  ||
X                    ch == 'D'  ||  ch == 'Y') ||
X                (fldCharType == TIME  &&
X                (ch = *(fldMask + col - colStart)) == 'I'  ||
X                    ch == 'H'  ||  ch == 'M'  ||
X                    ch == 'S'  ||  ch == 'T')) {
X                *charKeyed++ = (initFld) ? 'Y' : 'N' ;
X                waddch(win, *fldStr++) ;
X            } else {
X                *charKeyed++ = 'M' ;
X                waddch(win, *(fldMask + col - colStart) );
X            }
X        }
X        col++ ;
X    } while (*fldStr != '\0'  &&  col < colEnd) ;
X
X    while(col < colEnd) {
X        if (fldMask == NULL) {
X            *charKeyed++ = 'N' ;
X            waddch(win, ' ') ;
X        } else if (fldCharType != DATE  &&  fldCharType != TIME) {
X            if(*(fldMask + col - colStart)  ==  ' ')
X                *(fldMask + col - colStart)  =  fldCharType ;
X            if(IsMask(fldCharType, *(fldMask + col - colStart))) {
X                *charKeyed++ = 'M' ;
X                waddch(win, *(fldMask + col - colStart) );
X            } else {
X                *charKeyed++ = 'N' ;
X                waddch(win, ' ') ;
X            }
X        } else {
X            if( (fldCharType == DATE  &&
X                (ch = *(fldMask + col - colStart)) == 'M'  ||
X                    ch == 'D'  ||  ch == 'Y') ||
X                (fldCharType == TIME  &&
X                (ch = *(fldMask + col - colStart)) == 'I'  ||
X                    ch == 'H'  ||  ch == 'M'  ||
X                    ch == 'S'  ||  ch == 'T')) {
X                *charKeyed++ = 'N' ;
X                waddch(win, ' ') ;
X            } else {
X                *charKeyed++ = 'M' ;
X                waddch(win, *(fldMask + col - colStart) );
X            }
X        }
X        col++ ;
X    }
X
X    wattrset (win, 0) ;
X
X    return(initFld) ;
X
X}
SHAR_EOF
chmod 0644 utilities.d/libgeti.d/DisPrmpt.c || echo "restore of utilities.d/libgeti.d/DisPrmpt.c fails"
echo "x - extracting utilities.d/libgeti.d/FindSet.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/FindSet.c &&
X#ifndef LINT
Xstatic char Sccsid[] = "%W%   DeltaDate %G%   ExtrDate %H%";
X#endif
X
X#include    <stdio.h>
X
X/*
X**  FindSet()
X**        Determines if the value loaded into Fld is a member of the set.
X**  RETURNS:
X**        -1    not a element of the set
X**        eNum    otherwise returns the element number (base 0)
X*/
X
X#include    "GetInput.h"
X
X
XFindSet(Fld, fldRange, fldLength, fldType)
X    FldUnPointer    Fld ;
X    char        *fldRange ;
X    int        fldLength ;
X    char        fldType ;
X{
X    char        *upper();
X    char        *a,
X            *b,
X            *fldCmp ;
X
X    char        *malloc();
X
X    int    eNum,                /* element number matched */
X        gotAmatch ;
X
X    gotAmatch = 0 ;
X
X    eNum = 0 ;
X
X    fldCmp = malloc(fldLength+10);
X
X    a = fldRange ;
X
X    while(*a != '\0') {
X
X        b = fldCmp ;
X
X        while(*a != ','  &&  *a != '\0')
X        /* load the next element into fldCmp */
X            *b++ = *a++ ;
X
X        *b = '\0' ;
X
X        switch(fldType) {
X            case CHAR:
X            case DATE:
X            case TIME:
X                if(strncmp(upper(fldCmp), upper(Fld->strVal), strlen(Fld->strVal)) == 0)
X                    gotAmatch = 1 ;
X                break ;
X            case INT:
X                if(*Fld->intVal == atoi(fldCmp))
X                    gotAmatch = 1 ;
X                break ;
X            case SHORT:
X                if(*Fld->shortVal == atoi(fldCmp))
X                    gotAmatch = 1 ;
X                break ;
X            case LONG:
X                if(*Fld->longVal == atoi(fldCmp))
X                    gotAmatch = 1 ;
X                break ;
X            case FLOAT:
X                if(*Fld->floatVal == atof(fldCmp))
X                    gotAmatch = 1 ;
X                break ;
X            case DOUBLE:
X                if(*Fld->doubleVal == atof(fldCmp))
X                    gotAmatch = 1 ;
X                break ;
X        }
X
X        if(gotAmatch)
X            break ;
X
X        eNum++ ;
X
X        while(*a == ','  ||  *a == ' '  ||  *a == '\t')
X            a++ ;
X    }
X
X    free(fldCmp) ;
X
X    if(gotAmatch)
X        return(eNum) ;
X    else
X        return (-1) ;
X}
SHAR_EOF
chmod 0644 utilities.d/libgeti.d/FindSet.c || echo "restore of utilities.d/libgeti.d/FindSet.c fails"
echo "x - extracting utilities.d/libgeti.d/GetInput.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > utilities.d/libgeti.d/GetInput.c &&
Xstatic char Sccsid[] = "%W%   DeltaDate %G%   ExtrDate %H%";
X
X#include     <curses.h>
X#include     <ctype.h>
X#include    "keys.h"
X#include     "GetInput.h"
X
X#define    MAXITEMS    200
X#define    NEWMENU        0
X
Xint    insertmode = FALSE;
X
X
XGetInput (win, rowStart, colStart, Fld, fldAttrib, fldMask, fldRange, fldLength,
X    fldMin, fldCharType, fldAdjust, fldType, keyStream, mustEnter,
X    fldErrRow, fldDispRow, helpMsg, helpFile, helpTag)
X
X    WINDOW          *win ;          /* Window                */
X    int           rowStart ;
X    int           colStart ;
X    FldUnPointer    Fld ;        /* Pointer to union for field     */
X    int           fldAttrib ;     /* Curses attribute         */
X    char          *fldMask ;      /* mask for character string      */
X    char          *fldRange ;     /* range of valid values for output */
X    int           fldLength;     /* Maximum length of output       */
X    int           fldMin;     /* Minimum length of output       */
X    char          fldCharType;    /* type of character           */
X    char          fldAdjust ;     /* adjust/fill field           */
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           mustEnter ;     /* boolean   */
X    int           fldErrRow ;     /* where to display error message   */
X    int           fldDispRow ;       /* where to display help message    */
X    char          *helpMsg ;      /* help message             */
X    char          helpFile[] ;       /* help file name        */
X    char          helpTag[] ;     /* tag where help begins       */
X{
X       int    colEnd ;        /* column end of field */
X       int       row ;           /* working row field */
X       int       col ;           /* working column field */
X       int       colSave ;          /* working column field */
X       int       colMove ;          /* working col field for adjusting routines */
X       int       colBegInput;    /* column where input begins */
X       int       ch ;            /* contains character keyed or being moved */
X       int       notFinished ;   /* bool indicator that indicates when the user
X                    is finished with keying in data */
X       int       setNumb ;       /* number to be returned showing which
X                    selection the user chose */
X       int       controlKey ;    /* if not 0 then the user hit a control key */
X       int       bytesKeyed ;    /* how many bytes were keyed */
X       int       initFld ;       /* indicate if field was initialized going into
X                                      this routine */
X       char      *fldStr ;       /* buffer that will contain output  */
X       char      *charKeyed ;    /* characters keyed by the user Y/N */
X                /*
X                **  charKeyd indicates how many characters
X                **  has been keyed in.  A "Y" in the position
X                **  indicates that the user has keyed a char
X                **  at that position, otherwise it will be "N"
X                **  or a "M" for a mask format character.
X                */
X       char      *fldWrk ;       /* working field */
X       int       origAttr[80] ;  /* original field attributes */
X       char      *malloc();
X    int    i;
X    int    junk;        /* use for anything */
X    char    menu[MAXITEMS+2][80];    /* popmenu items */
X    int    menuid;
X
X
X
X
X
X    if (fldCharType == PROTECT)
X    {
X        /* X out the field */
X        for (i = 0; i < fldLength; i++)
X            Fld->strVal[i] = 'X';
X        Fld->strVal[i] = '\0';
X    }
X
X       /*
X    ** bug fix  -  pjc  08/26/86
X    ** bytesKeyed = 0
X    */
X       setNumb = controlKey = bytesKeyed = 0;
X
X    /* find length of field from the values in fldRange */
X       if (fldCharType == SET  ||  fldCharType == MENU)
X              fldLength = GetSetLen(fldRange);
X
X       /*
X       ** pjc - 11/88
X       ** This allows you to pass ""
X       */
X    if (fldRange != NORANGE  &&  strcmp(fldRange, "") == 0)
X        fldRange = NORANGE;
X
X       if (fldMask != NOMASK  &&  strcmp(fldMask, "") == 0)
X        fldMask = NOMASK;
X       if (fldMask == NOMASK)
X       {
X              colEnd    = colStart + fldLength ;
X              fldStr    = malloc(fldLength + 10);
X              charKeyed = malloc(fldLength + 10);
X       }
X       else
X       {
X              colEnd    = colStart + strlen(fldMask) ;
X              fldStr    = malloc(strlen(fldMask) + 10);
X              charKeyed = malloc(strlen(fldMask) + 10);
X       }
X
X    /*
X    **    Save original terminal attributes.
X    */
X       for (col = colStart; col < colEnd; col++)
X              origAttr[col - colStart] = mvwinch(win, rowStart, col) &
X                        A_ATTRIBUTES ;
X
X    /* so a message you put on that line doesn't get erased */
X    if (helpMsg == NOMSG || strcmp (helpMsg, "DONT_CLEAR") == 0)
X        helpMsg = NOMSG;
X    else
X        CLEARROW (fldDispRow);
X
X       /*
X    ** bug fix     pjc  8/22/86
X    ** test for NOMSG
X    ** Display help message.
X    */
X       if (helpMsg != NOMSG)
X       {
X              /* pjc 7/87 - clrtoeol for new message
X              */
X              /* pjc 11/88 -
X              **    change helpMsg to always display to standard screen.
X              **    That way popup screens will work right.
X        **    Display message between col 1 to COLS-1 ... so that
X        **    it will work with a box border.
X              */
X
X              mvwaddstr (stdscr,
X        ((fldDispRow%100) == fldDispRow) ? fldDispRow : fldDispRow/100,
X        ((fldDispRow%100) == fldDispRow) ? 0 : fldDispRow%100,
X            helpMsg) ;
X              wnoutrefresh (stdscr);
X       }
X
X    /*
X       **    pjc 9/87
X       **    Added new attributes
X       **    If A_SAME then use the attributes that is showing
X       **    on the screen in that position.
X    **    As you see it is determined from first column.
X       */
X       if (fldAttrib == A_SAME)
X              fldAttrib = origAttr[0];
X
X       wmove(win, rowStart, colStart) ;
X       if (fldCharType == SET  ||  fldCharType == MENU)
X       {
X              setNumb = FindSet(Fld, fldRange, fldLength, fldType) ;
X              ShowSet(win, rowStart, colStart, fldAttrib, fldRange,
X            fldLength, &setNumb, colEnd, charKeyed, origAttr) ;
X        if (fldCharType == MENU)
X        {
X            char    menustrid[10];
X            int    mrow;
X            int    mcol;
X            int    numitems;
X
X            /* make a unique menuid from the row & column */
X            sprintf (menustrid, "%2d%2d", rowStart, colStart);
X            menuid = atoi (menustrid);
X
X            numitems = BuildMenu (menu, fldRange);
X            if (numitems == 0)
X                return (0);
X
X            /* try to put menu as close to the field as possible */
X            if ((rowStart + win->_begy) > 0)
X                mrow = rowStart + win->_begy - 1;
X            else
X                mrow = 0;
X            /* off the edge of the screen ? */
X            if ((colEnd + fldLength + 4) + win->_begx > COLS)
X            {
X                mcol = COLS - fldLength + 4;
X                mrow += 2;
X            }
X            else
X                mcol = colEnd + win->_begx;
X
X            if (mrow > 0  &&  numitems > (LINES - mrow - 2))
X            {
X                mrow = ((mrow-(numitems-(LINES-mrow-2))) > 0)
X                    ? (mrow-(numitems-(LINES-mrow-2))) : 0;
X            }
X
X            popmenu (NEWMENU, menuid, mrow, mcol, "",
X                helpFile, LINES-mrow-2, sizeof(menu[0]), menu);
X        }
X       }
X       else
X        /*
X        **    FALSE if Fld->strval == '\0'
X        **    TRUE  if Fld contained a default value.
X        */
X              initFld = DisPrmpt(win, Fld, fldAttrib, fldMask, fldLength,
X                fldCharType, fldAdjust, fldType, colStart,
X                colEnd, fldStr, charKeyed) ;
X
X
X
X    /*
X    ** find the first column where there is not a mask(M) character
X    ** This is the column where we begin the input.
X    */
X       col = colStart ;
X       fldWrk = charKeyed ;
X    /*
X    **  fldWrk - M = mask character, N = no mask character
X    */
X       while (col != colEnd  &&  *fldWrk++ == 'M')
X              col++;
X
X       colBegInput = col ;
X       wmove(win, rowStart, col) ;
X       notFinished = TRUE ;
X
X
X    if (fldCharType == PROTECT)
X    {
X        /* Password entry field */
X        wattrset (win, A_REVERSE);
X        strcpy (Fld->strVal, "");
X        free (fldStr);
X        free (charKeyed);
X        row = rowStart;
X        col = colStart;
X        fldStr = Fld->strVal;
X        *fldStr = '\0';
X        do
X        {
X            wmove (win, row, col);
X            wnoutrefresh (win);
X            doupdate ();
X            ch = wgetch (win);
X            if (ch == KeyHelp || ch == KEY_HELP)
X            {
X                ShowHelp (helpFile, helpTag, fldErrRow);
X                touchwin (win);
X                wnoutrefresh (win);
X            }
X        } while (ch == KeyHelp || ch == KEY_HELP);
X        *fldStr = (char)ch;
X        while (*fldStr != '\r')
X        {
X            if (col > colStart + fldLength - 1)
X                beep ();
X            else
X            {
X                addch ('X');
X                fldStr++;
X                col++;
X            }
X            wmove (win, row, col);
X            wnoutrefresh (win);
X            doupdate ();
X            ch = wgetch (win);
X            if (ch == KeyHelp || ch == KEY_HELP)
X            {
X                ShowHelp (helpFile, helpTag, fldErrRow);
X                touchwin (win);
X                wnoutrefresh (win);
X            }
X            else
X                *fldStr = (char)ch;
X        }
X        *fldStr = '\0';
X        wattrset (win, A_NORMAL);
X        return ((int)'\r');
X    }
X
X
X       while (TRUE)
X       {
X              do
X              {
X             /* pjc 11/88 for message and errors to stdscr */
X             wnoutrefresh (stdscr);
X                 wnoutrefresh(win) ;
X             doupdate ();
X
X                 getyx(win, row, col) ;
X
X               controlKey = 0;
X                 ch = wgetch(win);
X
X            CLEARROW (fldErrRow);
X               if (helpMsg != NOMSG)
X               {
X                      mvwaddstr (stdscr,
X        ((fldDispRow%100) == fldDispRow) ? fldDispRow : fldDispRow/100,
X        ((fldDispRow%100) == fldDispRow) ? 0 : fldDispRow%100,
X                    helpMsg) ;
X               }
X
X               wmove(win, row, col) ;
X
X            /* these keys accept the input before returning */
X            if (ch == KeyReturn)    ch = KEY_RETURN;
X            if (ch == KeyDown)    ch = KEY_DOWN;
X            if (ch == KeyUp)    ch = KEY_UP;
X            if (ch == KeyTab)    ch = KEY_TAB;
X            if (ch == KeyBTab)    ch = KEY_BTAB;
X            if (ch == KeyAccept)    ch = KEY_ACCEPT;
X
X            /* other keys */
X            if (ch == KeyHelp)    ch = KEY_HELP;
X            if (ch == KeyRedraw)    ch = KEY_REFRESH;
X            if (ch == KeyLeft)    ch = KEY_LEFT;
X            if (ch == KeyRight)    ch = KEY_RIGHT;
X            if (ch == KeyEOL)    ch = KEY_EOL;
X            if (ch == KeyDL)    ch = KEY_DL;
X            if (ch == KeyDC)    ch = KEY_DC;
X            if (ch == KeyIC)    ch = KEY_IC;
X            if (ch == KeySave)    ch = KEY_SAVE;
X            if (ch == KeyPrint)    ch = KEY_PRINT;
X            if (ch == KeyBeg)    ch = KEY_BEG;
X            if (ch == KeyEnd)    ch = KEY_END;
X            if (ch == KeyCancel)    ch = KEY_CANCEL;
X
X            switch (ch)
X            {
X               case KEY_BEG:
X                /* place cursor at beg of field */
X                col = colStart;
X                          wmove(win, rowStart, col) ;
X                break;
X
X               case KEY_END:
X                /* place cursor at end of input */
X                col = colEnd;
X                junk = colEnd;
X                while (col >= colStart)
X                {
X                    if (*(charKeyed+col-colStart) == 'N')
X                        junk = col;
X                    if (*(charKeyed+col-colStart) == 'Y')
X                        break;
X                    col--;
X                }
X                col = junk;
X                          wmove(win, rowStart, col) ;
X                break;
X
X               case KEY_HELP:
X                ShowHelp (helpFile, helpTag, fldErrRow);
X                touchwin (win);
X                wnoutrefresh (win);
X                continue;
X
X               case KEY_REFRESH:
X                clearok (win, TRUE);
X                continue;
X
X               case KEY_LEFT:
X                /* fixme
X                          if (col > colBegInput)
X                */
X                          if (col > colStart)
X                                 col--;
X                          else
X                                 BELL;
X                          while (col > colStart  &&
X                       *(charKeyed + col - colStart) == 'M')
X                                 --col ;
X                          while (*(charKeyed + col - colStart) == 'M')
X                                 col++;
X                          wmove(win, rowStart, col) ;
X                continue;
X
X               case KEY_RIGHT:
X                             if (col < colEnd - 1  &&
X                              (*(charKeyed + col - colStart) == 'Y' ||
X                      *(charKeyed + col - colStart) == 'M' ) )
X                                col++;
X                             else
X                                BELL;
X                             while (col < colEnd  &&
X                       *(charKeyed + col - colStart) == 'M')
X                                 col++;
X                             while (*(charKeyed + col - colStart) == 'M')
X                                col--;
X                             wmove(win, rowStart, col) ;
SHAR_EOF
echo "End of part 8"
echo "File utilities.d/libgeti.d/GetInput.c is continued in part 9"
echo "9" > s2_seq_.tmp
exit 0