Amiga ISO Collection/AmigaUtilCD1.iso/Cruncher/XPK416SR.LHA/xpk_Source/shell/xDir.c

C/C++ Source or Header | 1997-09-06 | 4.6 KB | 214 lines

#define NAME        "xDir"
#define DISTRIBUTION    "(Freeware) "
#define REVISION    "5"

/* Programmheader

    Name:        xDir
    Author:        SDI (before 1.2 Urban Dominik Müller)
    Distribution:    Freeware
    Description:    xpk file lister
    Compileropts:    -
    Linkeropts:    -l xpkmaster

 1.0    : first public release
 1.1    : Enforcer hit fixed, version string added, wrote documentation
 1.2   29.11.96 : reworked for new includes
 1.3   24.04.97 : fixed lots of errors, made a lot shorter, easier
 1.4   12.07.97 : totally rewritten
 1.5   27.97.97 : little fixes
*/

#include "SDI_defines.h"
#define SDI_TO_ANSI
#include "SDI_ASM_STD_protos.h"
#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/xpkmaster.h>
#include <exec/memory.h>

struct DataList {
  struct DataList *    next;
  UWORD            size; /* size of complete list */
  UBYTE             text[0]; /* text data, which follows the structure */
};

#define TEXTSIZE    40

struct Library *XpkBase = 0;

ULONG exitem(STRPTR, ULONG *, ULONG *);
ULONG exfile(struct FileInfoBlock *, struct DataList *, ULONG *, ULONG *);

void main(int argc, char *argv[])
{
  ULONG ret = 20;

  if(argc == 2 && argv[1][0] == '?')
  {
    printf("Usage: xDir files/dirs\n"); exit(10);
  }

  if((XpkBase = OpenLibrary(XPKNAME, 3)))
  {
    ULONG utot = 0, ctot = 0;

    printf("Original  Packed  Ratio Type Protection Name\n"
    "-------- -------- ----- ---- ---------- ----\n");

    if(argc == 1)
      ret = exitem("", &utot, &ctot);
    else
    {
      ULONG i = 1;
      while(i < argc && !(ret = exitem(argv[i], &utot, &ctot)))
      {
        if(++i < argc)
          printf("\n");
      }
    }

    if(!ret)
      printf("-------- -------- -----\n%8ld %8ld  %2ld%%\n", utot, ctot,
      (utot && (utot > ctot)) ? 100 - (100 * ctot) / utot : 0);
  }
  else
    printf("Cannot open xpkmaster.library\n");

  if(CTRL_C)
    printf(" *** Break\n");

  exit(ret);
}

ULONG exitem(STRPTR name, ULONG *utot, ULONG *ctot)
{
  BPTR lock;
  ULONG ret = 20;

  if((lock = Lock(name, ACCESS_READ)))
  {
    struct FileInfoBlock *fib;

    if((fib = (struct FileInfoBlock *) AllocMem(sizeof(struct FileInfoBlock), MEMF_ANY)))
    {
      if(Examine(lock, fib))
      {
        struct DataList *list, *d, in = {0,0};

    list = ∈

        if(fib->fib_DirEntryType < 0)
        {
      BPTR prev;
          name[strlen(name)-strlen(fib->fib_FileName)] = 0; /* cut the filename */
          UnLock(lock);
          if((lock = Lock(name, ACCESS_READ)))
          {
        prev = CurrentDir(lock);
            ret = exfile(fib, list, utot, ctot);
        CurrentDir(prev);
      }
      else
        printf("Error locking %s\n", name);
    }
    else
    {
      BPTR prev;

      prev = CurrentDir(lock);
      while(ExNext(lock, fib) && !(ret = exfile(fib, list, utot, ctot)))
        ;
      CurrentDir(prev);
    }

    list = list->next; /* skip init entry */

    if(!ret)
    {
      for(d = list; !CTRL_C && d; d = d->next)
        printf("%s", d->text);
    }

    while(list) /* free the list */
    {
      d = list->next;
      FreeMem(list, list->size);
      list = d;
    }
      }
      else
        printf("Error %ld locking %s\n", IoErr(), name);

      FreeMem(fib, sizeof(struct FileInfoBlock));
    }
    else
      printf("Not enough memory\n");

    if(lock)
      UnLock(lock);
  }
  else
    printf("Error %ld locking %s\n", IoErr(), name);

  return ret;
}

ULONG exfile(struct FileInfoBlock *fib, struct DataList *l, ULONG *utot, ULONG *ctot)
{
  struct DataList *dl, *le;
  ULONG listsize, fl;
  struct XpkFib xfib;
  ULONG i, clen = 0, ulen = 0;

  fl = strlen(fib->fib_FileName);
  listsize = sizeof(struct DataList) + fl + TEXTSIZE + 2; /* '\n' and '\0' */

  if(!(dl = (struct DataList *) AllocMem(listsize, MEMF_ANY|MEMF_CLEAR)))
  {
    printf("Not enough memory\n"); return 20;
  }

  memset(dl->text, ' ', 40);
  dl->size = listsize;

  if(fib->fib_EntryType >= 0)
    CopyMem("<Dir>", dl->text+3, 5);
  else if(!XpkExamineTags(&xfib, XPK_InName, fib->fib_FileName, TAG_DONE)
  && xfib.xf_Type == XPKTYPE_PACKED)
  {
    sprintf(dl->text, "%8ld %8ld  %2ld%%  %4s",
    ulen = xfib.xf_ULen, clen = xfib.xf_CLen, xfib.xf_Ratio,
    xfib.xf_Packer);
    dl->text[28] = ' ';
  }
  else
  {
    sprintf(dl->text, "%8ld", clen = ulen = fib->fib_Size);
    dl->text[8] = ' ';
  }

  dl->text[29] = fib->fib_DirEntryType < 0 ? '-' : 'D';
  for(i = 0; i < 8; i++)
    dl->text[37-i] = (fib->fib_Protection ^ 0x0f) & (1 << i) ? "dewrapsh"[i] : '-';

  *utot += ulen;
  *ctot += clen;

  CopyMem(fib->fib_FileName, dl->text+40, fl);
  dl->text[40+fl] = '\n';

  /* sort and insert the new line, skip &in entry first */
  do
  {
    le = l;
    l = l->next;
  } while(l && stricmp(l->text+40, dl->text+40) > 0);

  dl->next = l;
  le->next = dl;

  return 0;
}