rom/dos/remassignlist.c

   1 /*
   2     Copyright © 1995-2001, 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(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 remove 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. This will be fixed shortly.
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  59
  60     struct DosList *dl = NULL;
  61     BOOL res = DOSFALSE;
  62
  63     D(bug("RemAssignList: name = \"%s\", lock = $%lx\n", name, lock));
  64     dl = LockDosList(LDF_ASSIGNS | LDF_WRITE);
  65
  66     while (!res && (dl = FindDosEntry(dl, name, LDF_ASSIGNS)))
  67     {
  68         struct AssignList *al, *lastal = NULL;
  69
  70         al = dl->dol_misc.dol_assign.dol_List;
  71
  72         /*
  73             We have a matching element, lets find the correct
  74             member to remove. Initially check the inline lock.
  75         */
  76
  77         if (SameLock(dl->dol_Lock, lock) == LOCK_SAME)
  78         {
  79             /*
  80                 This is a bit tricky, me move the first element
  81                 in the list to the header
  82             */
  83             dl->dol_misc.dol_assign.dol_List = al->al_Next;
  84             UnLock(dl->dol_Lock);
  85             dl->dol_Lock = al->al_Lock;
  86             FreeVec(al);
  87             res = DOSTRUE;
  88         }
  89         else
  90         {
  91             while (al)
  92             {
  93                 if (SameLock(al->al_Lock, lock) == LOCK_SAME)
  94                 {
  95                     /* Remove this element. Singly linked list */
  96                     if (lastal == NULL)
  97                     {
  98                         /* First element of list... */
  99                         dl->dol_misc.dol_assign.dol_List = al->al_Next;
 100                     }
 101                     else
 102                     {
 103                         lastal->al_Next = al->al_Next;
 104                     }
 105
 106                     UnLock(al->al_Lock);
 107                     FreeVec(al);
 108                     al = NULL;
 109                     res = DOSTRUE;
 110                 }
 111                 else
 112                 {
 113                     lastal = al;
 114                     al = al->al_Next;
 115                 }
 116             }
 117         } /* in the assignlist */
 118
 119     } /* the assign exists */
 120
 121     UnLockDosList(LDF_ASSIGNS | LDF_WRITE);
 122
 123     return res;
 124
 125     AROS_LIBFUNC_EXIT
 126 } /* RemAssignList */