rom/dos/remassignlist.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: RemAssignList() - Remove an entry from a multi-dir assign.
   6     Lang: English
   7 */
   8
   9 #include <aros/debug.h>
  10 #include "dos_intern.h"
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH2(LONG, RemAssignList,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(CONST_STRPTR, name, D1),
  22         AROS_LHA(BPTR  , lock, D2),
  23
  24 /*  LOCATION */
  25         struct DosLibrary *, DOSBase, 106, Dos)
  26
  27 /*  FUNCTION
  28         Remove an entry from a multi-dir assign. The entry removed will be
  29         the first one that the SameLock() function called on the 'lock'
  30         parameter returns that they belong to the same object.
  31
  32         The entry for this lock will be removed from the lock, and the
  33         lock for the entry in the list will be unlocked.
  34
  35     INPUTS
  36         name    - Name of the device to remove lock from. This should
  37                   not contain the trailing ':'.
  38         lock    - Lock on the object to remove from the list.
  39
  40     RESULT
  41         success - Have we actually succeeded
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48         If this is the first lock in a list, this will not set
  49         dol_Device/dol_Unit correctly.
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     struct DosList *dl = NULL;
  60     BOOL res = DOSFALSE;
  61
  62     D(bug("RemAssignList: name = \"%s\", lock = $%lx\n", name, lock));
  63     dl = LockDosList(LDF_ASSIGNS | LDF_WRITE);
  64
  65     while (!res && (dl = FindDosEntry(dl, name, LDF_ASSIGNS)))
  66     {
  67         struct AssignList *al, *lastal = NULL;
  68
  69         al = dl->dol_misc.dol_assign.dol_List;
  70
  71         /*
  72             We have a matching element, lets find the correct
  73             member to remove. Initially check the inline lock.
  74         */
  75
  76         if (SameLock(dl->dol_Lock, lock) == LOCK_SAME)
  77         {
  78             /*
  79                 This is a bit tricky, me move the first element
  80                 in the list to the header
  81             */
  82
  83             UnLock(dl->dol_Lock);
  84
  85             if (al)
  86             {
  87                 dl->dol_misc.dol_assign.dol_List = al->al_Next;
  88                 dl->dol_Lock = al->al_Lock;
  89                 FreeVec(al);
  90             }
  91             else
  92             {
  93                 RemDosEntry(dl);
  94                 FreeDosEntry(dl);
  95             }
  96
  97             res = DOSTRUE;
  98         }
  99         else
 100         {
 101             while (al)
 102             {
 103                 if (SameLock(al->al_Lock, lock) == LOCK_SAME)
 104                 {
 105                     /* Remove this element. Singly linked list */
 106                     if (lastal == NULL)
 107                     {
 108                         /* First element of list... */
 109                         dl->dol_misc.dol_assign.dol_List = al->al_Next;
 110                     }
 111                     else
 112                     {
 113                         lastal->al_Next = al->al_Next;
 114                     }
 115
 116                     UnLock(al->al_Lock);
 117                     FreeVec(al);
 118                     al = NULL;
 119                     res = DOSTRUE;
 120                 }
 121                 else
 122                 {
 123                     lastal = al;
 124                     al = al->al_Next;
 125                 }
 126             }
 127         } /* in the assignlist */
 128
 129     } /* the assign exists */
 130
 131     UnLockDosList(LDF_ASSIGNS | LDF_WRITE);
 132
 133     return res;
 134
 135     AROS_LIBFUNC_EXIT
 136 } /* RemAssignList */