rom/dos/assignlock.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Create an assign.
   6     Lang: English
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10
  11 #include "dos_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH2(LONG, AssignLock,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(CONST_STRPTR, name, D1),
  22         AROS_LHA(BPTR,   lock, D2),
  23
  24 /*  LOCATION */
  25         struct DosLibrary *, DOSBase, 102, Dos)
  26
  27 /*  FUNCTION
  28         Create an assign from a given name to a lock. Replaces any older
  29         assignments from that name, 0 cancels the assign completely. Do not
  30         use or free the lock after calling this function - it becomes
  31         the assign and will be freed by the system if the assign is removed.
  32
  33     INPUTS
  34         name -- NUL terminated name of the assign.
  35         lock -- Lock to assigned directory.
  36
  37     RESULT
  38         != 0 success, 0 on failure. IoErr() gives additional information
  39         in that case. The lock is not freed on failure.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     BOOL success = DOSTRUE;
  56
  57     struct DosList    *dl, *newdl = NULL;
  58
  59     if (lock != BNULL)
  60     {
  61         newdl = MakeDosEntry(name, DLT_DIRECTORY);
  62
  63         if (newdl == NULL)
  64             return DOSFALSE;
  65         else
  66         {
  67             struct FileLock *fl = BADDR(lock);
  68
  69             newdl->dol_Task = fl->fl_Task;
  70             newdl->dol_Lock = lock;
  71         }
  72     }
  73
  74     dl = LockDosList(LDF_ALL | LDF_WRITE);
  75     dl = FindDosEntry(dl, name, LDF_ALL);
  76
  77     if (dl == NULL)
  78     {
  79         AddDosEntry(newdl);
  80     }
  81     else if (dl->dol_Type == DLT_DEVICE || dl->dol_Type == DLT_VOLUME)
  82     {
  83         dl = NULL;
  84         FreeDosEntry(newdl);
  85         SetIoErr(ERROR_OBJECT_EXISTS);
  86         success = DOSFALSE;
  87     }
  88     else
  89     {
  90         RemDosEntry(dl);
  91
  92         AddDosEntry(newdl);
  93     }
  94
  95     if (dl != NULL)
  96     {
  97         if (dl->dol_Lock)
  98         {
  99             UnLock(dl->dol_Lock);
 100         }
 101
 102         if (dl->dol_misc.dol_assign.dol_List != NULL)
 103         {
 104             struct AssignList *al, *oal;
 105
 106             for (al = dl->dol_misc.dol_assign.dol_List; al; )
 107             {
 108                 UnLock(al->al_Lock);
 109                 oal = al;
 110                 al = al->al_Next;
 111                 FreeVec(oal);
 112             }
 113         }
 114
 115         FreeVec(dl->dol_misc.dol_assign.dol_AssignName);
 116         FreeDosEntry(dl);
 117     }
 118
 119     UnLockDosList(LDF_ALL | LDF_WRITE);
 120
 121     return success;
 122
 123     AROS_LIBFUNC_EXIT
 124 } /* AssignLock */