/*
 * $Id: setenvsy5.c,v 1.2 1997/02/04 17:34:39 mclareni Exp $
 *
 * $Log: setenvsy5.c,v $
 * Revision 1.2  1997/02/04 17:34:39  mclareni
 * Merge Winnt and 97a versions
 *
 * Revision 1.1.1.1.2.1  1997/01/21 11:29:40  mclareni
 * All mods for Winnt 96a on winnt branch
 *
 * Revision 1.1.1.1  1996/02/15 17:49:26  mclareni
 * Kernlib
 *
 */
/*>    ROUTINE SETENI
  CERN PROGLIB# Z265    SETENI          .VERSION KERNFOR  4.36  930602
  ORIG. 22/02/91, JZ
  Fortran interface routine to putenv

      CALL SETENVF (NAME, TEXT*)

          NAME  the name of the environment variable,
          TEXT  the value to be assigned
*/
#include <stdio.h>
#include "kerngen/fortchar.h"
#include "kerngen/fortranc.h"

#if defined(CERNLIB_QX_SC)
int type_of_call seteni_(fname, ftext, lgname, lgtext)
#endif
#if defined(CERNLIB_QXNO_SC)
int type_of_call seteni(fname, ftext, lgname, lgtext)
#endif
#if defined(CERNLIB_QXCAPT)
int type_of_call SETENI(fname, ftext, lgname, lgtext)
#endif
#if defined(CERNLIB_QMCRY)
      _fcd  fname,  ftext;
#endif
#if !defined(CERNLIB_QMCRY)
      char *fname, *ftext;
#endif
      int  *lgtext, *lgname;
{
      char *ptname, *pttext, *pts, *ptt, *fchtak();
      int  nname, ntext, istat, putenv();
      int  ntot, j;

      istat = -1;
      nname = *lgname;
      ntext = *lgtext;
      ntot  = nname + 1 + ntext;

      ptname = fchtak(fname,ntot);
      if (ptname == NULL)          goto out1;
      pttext = fchtak(ftext,ntext);
      if (pttext == NULL)          goto out2;

      pts = pttext;
      ptt = ptname + nname;
      *ptt++ = '=';
      for (j = 0; j <= ntext; j++) *ptt++ = *pts++;

      istat = putenv (ptname);
      free(pttext);
      if (istat == 0)              return 0;

out2: free(ptname);
out1: return istat;
}
/*> END <----------------------------------------------------------*/