rom/dos/parentoffh.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Lock the directory a file is located in
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9 #include <dos/dosasl.h>
  10 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/dos.h>
  16
  17         AROS_LH1(BPTR, ParentOfFH,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(BPTR, fh, D1),
  21
  22 /*  LOCATION */
  23         struct DosLibrary *, DOSBase, 64, Dos)
  24
  25 /*  FUNCTION
  26         Lock the directory a file is located in.
  27
  28     INPUTS
  29         fh  - Filhandle of which you want to obtain the parent
  30
  31     RESULT
  32         lock - Lock on the parent directory of the filehandle or
  33                NULL for failure.
  34
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         Lock(), UnLock(), Parent()
  44
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  51
  52     BPTR    lock = MKBADDR(NULL);
  53     LONG    success = DOSFALSE;
  54     char *  Buffer = NULL;
  55     LONG    Buffersize = 256;
  56     LONG    Attempts = 1;
  57
  58     #define DEF_BUFSIZESTEP 128
  59
  60     if (fh != NULL)
  61     {
  62         /* Attempt to get the string of the file fh */
  63         while ((DOSFALSE == success) && (Attempts <= 5))
  64         {
  65             Buffer = (char *) AllocMem(Buffersize, MEMF_CLEAR);
  66
  67             if (NULL ==  Buffer)
  68                 return NULL;
  69
  70             success = NameFromFH(fh, Buffer, Buffersize);
  71
  72             /* did it fail with a buffer overflow?? */
  73             if (DOSFALSE == success)
  74             {
  75                 if (ERROR_BUFFER_OVERFLOW == IoErr())
  76                 {
  77                     Attempts++;
  78                     FreeMem(Buffer, Buffersize);
  79                     Buffersize += DEF_BUFSIZESTEP;
  80                 }
  81                 else /* another error occured -> exit */
  82                 {
  83                     FreeMem(Buffer, Buffersize);
  84                     return NULL;
  85                 }
  86             }
  87
  88         } /* while ((DOSFALSE == success) && (Attempts <= 5)) */
  89
  90         if (DOSTRUE == success)
  91         {
  92             char * PP = PathPart(Buffer); /* get the path part of the file */
  93
  94             *PP = '\0';
  95
  96             lock = Lock (Buffer, SHARED_LOCK);
  97         }
  98
  99         FreeMem(Buffer, Buffersize);
 100
 101     } /* if (fh != NULL) */
 102
 103     return lock;
 104
 105     AROS_LIBFUNC_EXIT
 106
 107 } /* ParentOfFH */