/*!*****************************************************
*
*    ex13.c 
*    ======
*
*    EXpspt();      Interface routine for PSH_PMT
*    EXpopt();      Interface routine for POP_PMT
*    EXcrts();      Interface routine for CRE_TSTR
*    EXgtts();      Interface routine for GET_TSTR
*    EXcrmy();      Interface routine for CRE_MEN
*    EXpsmy();      Interface routine for PSH_MEN
*    EXpomy();      Interface routine for POP_MEN
*    EXgtal();      Interface routine for GET_ALT
*    EXgtmy();      Interface routine for GET_MEN
*    EXlsin();      Interface routine for LST_INI
*    EXlsex();      Interface routine for LST_EXI
*    EXlsln();      Interface routine for LST_LIN
*
*    This file is part of the VARKON Execute  Library.
*    URL:  http://www.varkon.com
*
*    This library is free software; you can redistribute it and/or
*    modify it under the terms of the GNU Library General Public
*    License as published by the Free Software Foundation; either
*    version 2 of the License, or (at your option) any later version.
*
*    This library is distributed in the hope that it will be useful,
*    but WITHOUT ANY WARRANTY; without even the implied warranty of
*    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
*    Library General Public License for more details.
*
*    You should have received a copy of the GNU Library General Public
*    License along with this library; if not, write to the Free
*    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
*    (C)Microform AB 1984-1998, Johan Kjellander, johan@microform.se
*
*********************************************************/

#include "../../DB/include/DB.h"
#include "../../IG/include/IG.h"
#include "../include/EX.h"

extern char    txtmem []; /* Textsträngar */
extern char   *txtind[];  /* Pekare till t-strängar */
extern MNUALT  malist[];  /* Menyalternativ */  
extern MNUDAT  mnutab[];  /* Menyer */
extern char   *fstmem;    /* Pekare till nästa lediga t-sträng */

#ifdef WIN32
extern int msshmu(),mshdmu();
#endif

/*!******************************************************/

        short EXpspt(char *pstr)
 
/*      Interface-rutin för PSH_PMT. Skriver en sträng i
 *      promt-arean.
 *
 *      In:  *pstr => Pekare till prompt-sträng.
 *
 *      Ut:  Inget.
 *
 *      FV:  0     => Ok.
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      19/4/87  Kodning, J. Kjellander
 *
 ******************************************************!*/

  {
    igplma(pstr,IG_MESS);

    return(0);
  }

/********************************************************/
/********************************************************/

        short EXpopt()
 
/*      Interface-rutin för POP_PMT. Stryker aktiv promt
 *      från skärm och ur stacken.
 *
 *      In:  Inget.
 *
 *      Ut:  Inget.
 *
 *      FV:  0     => Ok.
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      19/4/87  Kodning, J. Kjellander
 *
 ******************************************************!*/

  {
    igrsma();

    return(0);
  }

/********************************************************/
/********************************************************/

        short EXcrts(
        DBshort tsnr,
        char   *tstr)
 
/*      Interface-rutin för CRE_TSTR. Skapar/uppdaterar
 *      en t-sträng med visst nummer.
 *
 *      In:  tsnr  => T-strängens nummer.
 *           *tstr => Pekare till t-sträng.
 *
 *      FV:  0     => Ok.
 *
 *      Felkoder: EX1792 = Otillåtet tsnr
 *                EX1802 = txtmem fullt.
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      19/4/87    Kodning, J. Kjellander
 *      1996-05-28 Återanvändning av minne, J.Kjellander
 *
 ******************************************************!*/

  {
    char txtbuf[V3STRLEN+1],errbuf[10];

/*
***Kolla att t-strängnumret ligger inom tillåtet intervall.
*/
    if ( tsnr < 0 || tsnr >= TXTMAX )
      {
      sprintf(errbuf,"%d",tsnr);
      return(erpush("EX1792",errbuf));
      }
/*
***Kopiera och mappa "%num" till kontrolltecken.
*/
    editcopy(txtbuf,tstr);
/*
***Om t-strängen med detta nummer har skapats redan tidigare
***och det nu är frågan om att erätta den med något annat 
***och detta "något annat" inte tar mer plats än förut kan
***vi återanvända samma plats.
*/
    if ( txtind[tsnr] != NULL  &&
         (strlen(txtind[tsnr])  >= strlen(txtbuf)) )
      {
      strcpy(txtind[tsnr],txtbuf);
      }
/*
***Om t-strängen inte är skapad sen tidigare eller nu är
***längre än tidigare tar vi plats från txtmem.
***Kolla isåfall först att det finns plats.
*/
    else
      {
      if ( fstmem > txtmem+CHRMAX-81 ) return(erpush("EX1802",""));
/*
***Lagra t-strängen i txtmem.
*/
      txtind[tsnr] = fstmem;
      strcpy(fstmem,txtbuf);
      fstmem += strlen(txtbuf) +1;
      }

    return(0);
  }

/********************************************************/
/*!******************************************************/

        short EXgtts(
        DBshort  tsnr,
        PMLITVA *tstr)
 
/*      Interface-rutin för GET_TSTR. Returnerar t-sträng
 *      med visst nummer.
 *
 *      In:  tsnr  => T-strängens nummer.
 *
 *      Ut:  *tstr => Pekare till t-sträng.
 *
 *      FV:  0     => Ok.
 *
 *      Felkoder:  EX1792 = Otillåtet tsnr
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      19/4/87  Kodning, J. Kjellander
 *      24/7/87  Feltest, R. Svedin
 *
 ******************************************************!*/

  {

    char errbuf[10];

/*
***Kolla att t-strängnumret inom tillåtet intervall.
*/
    if ( tsnr < 0 || tsnr >= TXTMAX )
      {
      sprintf(errbuf,"%d",tsnr);
      return(erpush("EX1792",errbuf));
      }

    if ( txtind[tsnr] == NULL ) strcpy(tstr->lit.str_va,"");
    else strcpy(tstr->lit.str_va,txtind[tsnr]);

    return(0);
  }

/********************************************************/
/********************************************************/

        short EXcrmy(
        PMPARVA *pv,
        DBshort  npar)
 
/*      Interface-rutin för CRE_MEN. Skapar en meny.
 *
 *      In: pv   = Pekare till rubrik och alternativ
 *          npar = Antal alternativ 
 *
 *      Ut: Inget.
 *
 *      FV:  0     => Ok.
 *
 *      Felkoder: EX1812 = Otillåtet menynummer.
 *                EX1822 = Can't malloc()
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      19/4/87  Kodning, J. Kjellander
 *      27/2/91  Ny minneshanterare, J. Kjellander
 *
 ******************************************************!*/

  {
    short mnum,i,nalt;
    char  rubrik[V3STRLEN+1];
    char  altstr[20][V3STRLEN+1];
    char  alttyp[20];
    short altnum[20];
    char *actstr;
    char  errbuf[10];

/*
***Kolla att menynummer ligger inom tillåtet intervall.
*/
    mnum = (short)pv[1].par_va.lit.int_va;

    if ( mnum < 0 || mnum >= MNUMAX )
      {
      sprintf(errbuf,"%d",mnum);
      return(erpush("EX1812",errbuf));
      }
/*
***Rubrik.
*/
    editcopy(rubrik,pv[2].par_va.lit.str_va);
/*
***Alternativ.
*/
    nalt = (short)((npar-2)/2);

    for ( i=0; i<nalt; ++i )
      {
      editcopy(altstr[i],pv[3+2*i].par_va.lit.str_va);
      actstr = pv[4+2*i].par_va.lit.str_va;
      alttyp[i] = *actstr;
      sscanf(actstr+1,"%hd",&altnum[i]);
      }
/*
***Lagra.
*/
   if ( igstmu(mnum,rubrik,nalt,altstr,alttyp,altnum) < 0 )
      {
      sprintf(errbuf,"%d",mnum);
      return(erpush("EX1822",errbuf));
      }
 
   return(0);
  }

/********************************************************/
/********************************************************/

        short EXpsmy(DBshort mnr)
 
/*      Interface-rutin för PSH_MEN. Skriver ut en meny
 *      i meny-arean, menyn blir aktiv meny.
 *
 *      In:  mnr   => Menyns nummer.
 *
 *      Ut:  Inget.
 *
 *      FV:  0     => Ok.
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      20/4/87 Kodning, J. Kjellander
 *      16/1/96 WIN32, J. Kjellander
 *
 ******************************************************!*/

  {
#ifdef WIN32
    msshmu((int)mnr);
#else
    igaamu(mnr);
#endif

    return(0);
  }

/********************************************************/
/*!******************************************************/

        short EXpomy()
 
/*      Interface-rutin för POP_MEN. Stryker aktiv meny
 *      och gör föregående meny aktiv.
 *
 *      In:  Inget.
 *
 *      Ut:  Inget.
 *
 *      FV:  0     => Ok.
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      20/4/87 Kodning, J. Kjellander
 *      16/1/96 WIN32, J. Kjellander
 *
 ******************************************************!*/

  {
#ifdef WIN32
    mshdmu();
#else
    igsamu();
#endif

    return(0);
  }

/********************************************************/
/********************************************************/

        short EXgtal(
        char    *prstr,
        PMLITVA *akod)
 
/*      Interface-rutin för GET_ALT. Promptar användaren att
 *      göra ett val ur en meny.
 *
 *      In: *prstr => Pekare till promptsträng.
 *
 *      Ut: *akod  => Pekare till aktionskod.
 *
 *      FV:  0     => Ok.
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      20/4/87 Kodning, J. Kjellander
 *      1/3/94  Snabbval, J. Kjellander
 *
 ******************************************************!*/

  {
    short  alttyp;
    MNUALT *pmualt;

    igplma(prstr,IG_MESS);

    iggalt(&pmualt,&alttyp);

    if ( pmualt == NULL ) strcpy(akod->lit.str_va,"");
    else
      {
      akod->lit.str_va[0] = pmualt->acttyp;
      sprintf(&(akod->lit.str_va[1]),"%d",pmualt->actnum);
      igerpl();
      }

    igrsma();

    return(0);
  }

/********************************************************/
/********************************************************/

        short EXgtmy(
        DBshort  mnr,
        char    *rubr)
 
/*      Interface-rutin för GET_MEN. Returnerar rubrik-
 *      text för angiven meny.
 *
 *      In:  mnr   => Menynummer.
 *
 *      Ut: *rubr  => Pekare till rubriktext.
 *
 *      FV:  0     => Ok.
 *
 *      Felkoder:  EX1812 = Otillåtet menynummer
 *
 *      (C)microform ab 13/4/87 R. Svedin
 *
 *      20/4/87  Kodning, J. Kjellander
 *      24/4/87  Feltest, R. Svedin
 *
 ******************************************************!*/

  {
    char errbuf[10];

/*
***Kolla att meny-numret ligger inom tillåtet intervall.
*/
    if ( mnr < 0 || mnr >= MNUMAX )
      {
      sprintf(errbuf,"%d",mnr);
      return(erpush("EX1812",errbuf));
      }

    if ( mnutab[mnr].rubr != NULL ) strcpy(rubr,mnutab[mnr].rubr);
    else strcpy(rubr,"");

    return(0);
  }

/********************************************************/
/*!******************************************************/

        short EXlsin(char *rubr)

/*      Interface-rutin för LST_INI. Initierar list-
 *      arean.
 *
 *      In: *rubr  => Pekare till rubrik.
 *
 *      Ut: Inget.
 *
 *      FV: Inget.
 *
 *      (C)microform ab 1/10/86 R. Svedin
 *
 ******************************************************!*/

  {
    iginla(rubr);
    return(0);
  }

/********************************************************/
/*!******************************************************/

        short EXlsex()

/*      Interface-rutin för LST_EXI. Avslutar list-
 *      arean.
 *
 *      In: Inget.
 *
 *      Ut: Inget.
 *
 *      FV: Inget.
 *
 *      (C)microform ab 1/10/86 R. Svedin
 *
 ******************************************************!*/

  {
    igexla();
    return(0);
  }

/********************************************************/
/*!******************************************************/

        short EXlsln(char *utstr)

/*      Interface-rutin för LST_LIN. Skriver en rad
 *      i list-arean.
 *
 *      In: *utstr => Pekare till sträng.
 *
 *      Ut: Inget.
 *
 *      FV: Inget.
 *
 *      (C)microform ab 1/10/86 R. Svedin
 *
 ******************************************************!*/

  {
    igalla(utstr,(short)1 );
    return(0);
  }

/********************************************************/