/************************************************************************
 * env.c -- print all the environment                                  *
 *                                                                     *
 *             Copyright 1990 Peter Chubb                              *
 *               All rights reserved                                   *
 *                                                                     *
 ************************************************************************/

static char RCSID[] = "$Id: env.c,v 1.1 90/05/26 12:46:48 peterc Exp $";

/*
 *
 * $Log:       env.c,v $
 * Revision 1.1  90/05/26  12:46:48  peterc
 * Initial revision
 * 
 *
 */

# include <exec/types.h>
# include <proto/dos.h>
# include <proto/exec.h>
# include <string.h>

# define ENVDIR "ENV:"
# define BUFSIZ 512

void
_main()
{
    BPTR lck;
    BPTR Op;
    BPTR Ep;
    struct FileInfoBlock *FB = AllocMem(sizeof(struct FileInfoBlock), 0);
    long Status = 0;
    register char *p;
    register char *q;
    int                  len;
    struct DosLibrary *DOSBase;
    char *buf = AllocMem(BUFSIZ, 0);

    if (!(DOSBase = (struct DosLibrary *) OpenLibrary("dos.library", 0)))
       return;

    Op  = Output();
  
    lck = Lock(ENVDIR, SHARED_LOCK);
    if (lck)
    {
       Status = Examine(lck, FB);
       if (Status)
           while (ExNext(lck, FB))
           {
               if (FB->fib_EntryType >= 0)
                   continue;
               Write(Op, FB->fib_FileName, strlen(FB->fib_FileName));
               Write(Op, "=", 1);
               for (p = ENVDIR, q = buf; *p; *q++ = *p++)
                       ;
               for (p = FB->fib_FileName; *p; *q++ = *p++)
                       ;
               *q = '\0';

       if ((Ep = Open(buf, MODE_OLDFILE)) != (BPTR)0)
               {
                   if ((len = Read(Ep, buf, BUFSIZ)) > 0)
                   {
                       Write(Op, buf, len);
                   }
                   Close(Ep);
               }
               Write(Op, "\n", 1);
           }
       UnLock(lck);
    }

    CloseLibrary((struct Library *)DOSBase);
    FreeMem(buf, BUFSIZ);
    FreeMem(FB, sizeof (*FB));
}