rom/dos/matchend.c

   1 /*
   2     Copyright © 1995-2013, 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 and file locks that were allocated by calls to
  27         MatchFirst() and MatchNext().
  28
  29     INPUTS
  30         AP - pointer to Anchor Path structure which had been passed to
  31              MatchFirst() before.
  32
  33     RESULT
  34         None.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     struct AChain *ac = AP->ap_Base, *acnext;
  51
  52     if (ac)
  53     {
  54 #if MATCHFUNCS_NO_DUPLOCK
  55         /*
  56         ** CurrentDir to a valid lock, ie. one that will not be
  57         ** killed further below
  58         */
  59
  60         CurrentDir(ac->an_Lock);
  61 #endif
  62
  63         while(ac)
  64         {
  65             acnext = ac->an_Child;
  66
  67             /*
  68             ** Dont unlock lock in first AChain because it is the same
  69             ** as the current directory when MatchFirst was called. And
  70             ** this lock was not DupLock()ed (except MATCHFUNCS_NO_DUPLOCK == 0)!!!
  71             */
  72
  73             if (ac->an_Lock
  74 #if MATCHFUNCS_NO_DUPLOCK
  75                 && (ac != AP->ap_Base)
  76 #endif
  77                )
  78             {
  79                 UnLock(ac->an_Lock);
  80             }
  81             Match_FreeAChain(ac, DOSBase);
  82
  83             ac = acnext;
  84         }
  85     }
  86
  87     AP->ap_Current = NULL;
  88     AP->ap_Base = NULL;
  89
  90     AROS_LIBFUNC_EXIT
  91
  92 } /* MatchEnd */