test/dos/exnext.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Test ExNext() function
   6 */
   7
   8 #include <proto/dos.h>
   9 #include <proto/exec.h>
  10
  11 #include <dos/dos.h>
  12 #include <dos/exall.h>
  13 #include <dos/rdargs.h>
  14 #include <dos/var.h>
  15 #include <exec/memory.h>
  16 #include <exec/types.h>
  17
  18 #include <utility/tagitem.h>
  19 #include <stdio.h>
  20
  21 #include <aros/debug.h>
  22
  23 #define ARG_TEMPLATE    "DIRECTORY"
  24 #define TOTAL_ARGS      1
  25
  26 static const char version[] __attribute__((used)) = "$VER: ExNext 41.1 (30.01.2000)\n";
  27
  28 int main(int argc, char *argv[])
  29 {
  30     struct RDArgs *rda;
  31     IPTR *args[TOTAL_ARGS] = {NULL};
  32     int Return_Value;
  33     BPTR lock;
  34
  35     Return_Value = RETURN_OK;
  36
  37     rda = ReadArgs(ARG_TEMPLATE, (IPTR *) args, NULL);
  38     if (rda)
  39     {
  40         if (!args[0])
  41             lock = Lock("", ACCESS_READ);
  42         else
  43             lock = Lock((STRPTR) args[0], ACCESS_READ);
  44
  45         if (lock)
  46         {
  47             struct FileInfoBlock *FIB;
  48             BOOL success;
  49             FIB = AllocVec(sizeof(struct FileInfoBlock), MEMF_CLEAR);
  50             if (FIB)
  51             {
  52                 success = Examine(lock, FIB);
  53                 kprintf("calling ExNext()...\n");
  54                 success = ExNext(lock, FIB);
  55                 kprintf("called ExNext()\n");
  56                 while (success != DOSFALSE)
  57                 {
  58                     /* don't show dirs */
  59                     if (FIB->fib_DirEntryType < 0)
  60                         printf("%s\n", FIB->fib_FileName);
  61                     else
  62                         printf("%s (not a file)\n", FIB->fib_FileName);
  63                     kprintf("calling ExNext()...\n");
  64                     success = ExNext(lock, FIB);
  65                     kprintf("called ExNext()\n");
  66                 }
  67                 FreeVec(FIB);
  68             }
  69             UnLock(lock);
  70         }
  71         else
  72         {
  73             PrintFault(IoErr(), "ExNext");
  74             Return_Value = RETURN_FAIL;
  75         }
  76     }
  77     else
  78     {
  79         PrintFault(IoErr(), "ExNext");
  80         Return_Value = RETURN_ERROR;
  81     }
  82
  83     if (rda)
  84         FreeArgs(rda);
  85
  86     return (Return_Value);
  87 }