rom/dos/matchend.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include "dos_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <dos/dosasl.h>
  15 #include <proto/dos.h>
  16
  17         AROS_LH1(void, MatchEnd,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct AnchorPath *, AP, D1),
  21
  22 /*  LOCATION */
  23         struct DosLibrary *, DOSBase, 139, Dos)
  24
  25 /*  FUNCTION
  26         Free the memory that was allocated by calls to MatchFirst() and
  27         MatchNext()
  28
  29     INPUTS
  30         AP  - pointer to Anchor Path structure which had been passed to
  31               MatchFirst() before.
  32
  33     RESULT
  34         Allocated memory is returned and filelocks are freed.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  50
  51     struct AChain *ac = AP->ap_Base, *acnext;
  52
  53     if (ac)
  54     {
  55 #if MATCHFUNCS_NO_DUPLOCK
  56         /*
  57         ** CurrentDir to a valid lock, ie. one that will not be
  58         ** killed further below
  59         */
  60
  61         CurrentDir(ac->an_Lock);
  62 #endif
  63
  64         while(ac)
  65         {
  66             acnext = ac->an_Child;
  67
  68             /*
  69             ** Dont unlock lock in first AChain because it is the same
  70             ** as the current directory when MatchFirst was called. And
  71             ** this lock was not DupLock()ed (except MATCHFUNCS_NO_DUPLOCK == 0)!!!
  72             */
  73
  74             if (ac->an_Lock
  75 #if MATCHFUNCS_NO_DUPLOCK
  76                 && (ac != AP->ap_Base)
  77 #endif
  78                )
  79             {
  80                 UnLock(ac->an_Lock);
  81             }
  82             Match_FreeAChain(ac, DOSBase);
  83
  84             ac = acnext;
  85         }
  86     }
  87
  88     AP->ap_Current = NULL;
  89     AP->ap_Base = NULL;
  90
  91     AROS_LIBFUNC_EXIT
  92
  93 } /* MatchEnd */