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 #include <dos/filesystem.h>
  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 != NULL)
  60     {
  61         newdl = MakeDosEntry(name, DLT_DIRECTORY);
  62
  63         if (newdl == NULL)
  64             return DOSFALSE;
  65         else
  66         {
  67 #ifdef AROS_DOS_PACKETS
  68             struct FileLock *fl = BADDR(lock);
  69
  70             newdl->dol_Task = fl->fl_Task;
  71 #else
  72             struct FileHandle *fh = (struct FileHandle *)BADDR(lock);
  73
  74             newdl->dol_Ext.dol_AROS.dol_Unit   = fh->fh_Unit;
  75             newdl->dol_Ext.dol_AROS.dol_Device = fh->fh_Device;
  76 #endif
  77             newdl->dol_Lock                    = lock;
  78         }
  79     }
  80
  81     dl = LockDosList(LDF_ALL | LDF_WRITE);
  82     dl = FindDosEntry(dl, name, LDF_ALL);
  83
  84     if (dl == NULL)
  85     {
  86         AddDosEntry(newdl);
  87     }
  88     else if (dl->dol_Type == DLT_DEVICE || dl->dol_Type == DLT_VOLUME)
  89     {
  90         dl = NULL;
  91         FreeDosEntry(newdl);
  92         SetIoErr(ERROR_OBJECT_EXISTS);
  93         success = DOSFALSE;
  94     }
  95     else
  96     {
  97         RemDosEntry(dl);
  98
  99         AddDosEntry(newdl);
 100     }
 101
 102     if (dl != NULL)
 103     {
 104         if (dl->dol_Lock)
 105         {
 106             UnLock(dl->dol_Lock);
 107         }
 108
 109         if (dl->dol_misc.dol_assign.dol_List != NULL)
 110         {
 111             struct AssignList *al, *oal;
 112
 113             for (al = dl->dol_misc.dol_assign.dol_List; al; )
 114             {
 115                 UnLock(al->al_Lock);
 116                 oal = al;
 117                 al = al->al_Next;
 118                 FreeVec(oal);
 119             }
 120         }
 121
 122         FreeVec(dl->dol_misc.dol_assign.dol_AssignName);
 123         FreeDosEntry(dl);
 124     }
 125
 126     UnLockDosList(LDF_ALL | LDF_WRITE);
 127
 128     return success;
 129
 130     AROS_LIBFUNC_EXIT
 131 } /* AssignLock */