source: buchla-68k/ram/etidin.c@ 0c834c5

/*
   =============================================================================
        etidin.c -- MIDAS instrument editor - instrument number field handlers
        Version 28 -- 1988-09-15 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"
#include "fields.h"
#include "hwdefs.h"
#include "vsdd.h"
#include "vsddsw.h"
#include "graphdef.h"

#include "midas.h"
#include "instdsp.h"

#define DIN_OFF         14

extern  unsigned        *instob;

extern  short   vtcrow, vtccol, stccol, curinst, curvce, idcfsw, idintmp;
extern  short   editsw, curfunc, submenu;

extern  short   idbox[][8];
extern  short   instmod[];
extern  short   vce2grp[];

extern  char    dspbuf[];

extern  struct  instdef idefs[];
extern  struct  instdef vbufs[];

/* 

*/

/*
   =============================================================================
        et_idin() -- load the edit buffer
   =============================================================================
*/

short et_idin(short n)
{
        sprintf(ebuf, "%02d", curinst);
        ebflag = TRUE;

        return(SUCCESS);
}


/*
   =============================================================================
        ef_idin() -- parse (unload) the edit buffer
   =============================================================================
*/

short ef_idin(short n)
{
        register short i, tmpval, j;
        register struct instdef *ip;

        if (idcfsw) {           /* 'E' with menu up */

                if (vtcrow EQ 22) {             /* fetch or escape */

                        if (vtccol LT 35) {

                                newinst(idintmp);
                                execins(curvce, curinst, 1);

                                if (NOT editsw) {

                                        if ((i = vce2grp[curvce]) > 0) {

                                                for (j =0; j < 12; j++)
                                                        if (vce2grp[j] EQ i)
                                                                execins(j, curinst, 1);
                                        }
                                }
                        }

                        objclr(TTCPRI);
                        idvlblc();
                        idcfsw = FALSE;
                        submenu = FALSE;

                        if (vtccol LT 35) {

                                allwins();

                        } else {

                                dswin(22);
                                dswin(19);
                        }
/* 

*/      
                } else if (vtcrow EQ 23) {      /* copy to library */

                        if (idintmp) {

                                memcpyw(&idefs[idintmp], &vbufs[curvce],
                                        (sizeof (struct instdef) / 2));

                                curinst = idintmp;
                                instmod[curvce] = FALSE;
                        }

                        objclr(TTCPRI);
                        idvlblc();
                        idcfsw = FALSE;
                        submenu = FALSE;
                        dswin(22);
                        dswin(19);

                        if (idintmp EQ 0)
                                return(FAILURE);

                } else
                        return(FAILURE);

                return(SUCCESS);
/* 

*/
        } else {                /* 'E' with menu not up */
        
                ebuf[2] = '\0';                 /* terminate the string in ebuf */
                ebflag = FALSE;

                tmpval = 0;

                for (i = 0; i < 2; i++)         /* convert from ASCII to binary */
                        tmpval = (tmpval * 10) + (ebuf[i] - '0');

                if (tmpval GE NINST)            /* check the range */
                        return(FAILURE);

                idintmp = tmpval;               /* save selected value */
                idcpfch();                      /* put up copy/fetch menu */
                dswin(22);
                SetPri(TTCURS, TTCPRI);
                ttcpos(22, 17);
                idcfsw = TRUE;
                submenu = TRUE;
                return(SUCCESS);
        }
}

/* 

*/

/*
   =============================================================================
        rd_idin() -- (re)display the field
   =============================================================================
*/

short rd_idin(short n)
{
        if (idcfsw)                     /* don't display if copy/fetch is up */
                return(FAILURE);

        /* convert to ASCII */

        sprintf(dspbuf, "%02d", curinst);

        vbank(0);                       /* display the value */

        vcputsv(instob, 64, (instmod[curvce] ? ID_CHGD : idbox[n][4]),
                idbox[n][5], idbox[n][6], idbox[n][7] + DIN_OFF, dspbuf, 14);

        return(SUCCESS);
}

/* 

*/

/*
   =============================================================================
        nd_idin() -- handle new data entry
   =============================================================================
*/

short nd_idin(short n, short k)
{
        register short ec, c;

        ec = stccol - cfetp->flcol;     /* setup edit buffer column */
        ebuf[ec] = k + '0';
        ebuf[2] = '\0';

        dspbuf[0] = k + '0';
        dspbuf[1] = '\0';

        vbank(0);

        vcputsv(instob, 64, ID_ENTRY, idbox[n][5],
                idbox[n][6], stccol, dspbuf, 14);

        advicur();

        return(SUCCESS);
}