rom/dos/assignpath.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Create a non-binding (path) assign.
   6     Lang: english
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10 #include <dos/dos.h>
  11 #include <dos/dosextens.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(BOOL, AssignPath,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(CONST_STRPTR, name, D1),
  23         AROS_LHA(CONST_STRPTR, path, D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 104, Dos)
  27
  28 /*  FUNCTION
  29         Create an assign for the given name, which will be resolved upon
  30         each reference to it. There will be no permanent lock kept on the
  31         specified path. This way you can create assigns to unmounted volumes
  32         which will only be requested when accessed. Also, using AssignPath()
  33         to assign C: to df0:c would make references go to to df0:c even if
  34         you change the disk.
  35
  36     INPUTS
  37         name  -- NULL terminated name of the assign.
  38         path  -- NULL terminated path to be resolved on each reference.
  39
  40     RESULT
  41         != 0 in case of success, 0 on failure. IoErr() gives additional
  42         information in that case.
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51         AssignAdd(), AssignLock(), AssignLate(), Open()
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     CONST_STRPTR    s2;
  60     struct DosList *dl, *newdl;
  61
  62     BOOL    result = DOSTRUE;
  63     STRPTR  pathcopy;
  64     ULONG   namelen;
  65
  66     newdl = MakeDosEntry(name, DLT_NONBINDING);
  67
  68     if(newdl == NULL)
  69         return DOSFALSE;
  70
  71     s2 = path;
  72
  73     while(*s2++)
  74         ;
  75
  76     namelen = s2 - path + 1;
  77     pathcopy = AllocVec(namelen, MEMF_PUBLIC | MEMF_CLEAR);
  78
  79     if(pathcopy == NULL)
  80     {
  81         FreeDosEntry(newdl);
  82         SetIoErr(ERROR_NO_FREE_STORE);
  83
  84         return DOSFALSE;
  85     }
  86
  87     CopyMem(path, pathcopy, namelen);
  88     newdl->dol_misc.dol_assign.dol_AssignName = pathcopy;
  89
  90     dl = LockDosList(LDF_ALL | LDF_WRITE);
  91     dl = FindDosEntry(dl, name, LDF_ALL);
  92
  93     if(dl == NULL)
  94     {
  95         AddDosEntry(newdl);
  96     }
  97     else if(dl->dol_Type == DLT_VOLUME || dl->dol_Type == DLT_DEVICE)
  98     {
  99         dl = NULL;
 100         FreeVec(newdl->dol_misc.dol_assign.dol_AssignName);
 101         FreeDosEntry(newdl);
 102         SetIoErr(ERROR_OBJECT_EXISTS);
 103
 104         result = DOSFALSE;
 105     }
 106     else
 107     {
 108         RemDosEntry(dl);
 109         AddDosEntry(newdl);
 110     }
 111
 112     if(dl != NULL)
 113     {
 114         UnLock(dl->dol_Lock);
 115
 116         if(dl->dol_misc.dol_assign.dol_List != NULL)
 117         {
 118             struct AssignList *al, *oal;
 119
 120             for(al = dl->dol_misc.dol_assign.dol_List; al; )
 121             {
 122                 UnLock(al->al_Lock);
 123                 oal = al;
 124                 al = al->al_Next;
 125                 FreeVec(oal);
 126             }
 127         }
 128
 129         FreeVec(dl->dol_misc.dol_assign.dol_AssignName);
 130         FreeDosEntry(dl);
 131     }
 132
 133     UnLockDosList(LDF_ALL | LDF_WRITE);
 134
 135     return result;
 136
 137     AROS_LIBFUNC_EXIT
 138 } /* AssignPath */