rom/dos/namefrom.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Retrieve the full pathname from a lock or a filehandle.
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include "dos_intern.h"
  11 #include <proto/dos.h>
  12 #include <aros/debug.h>
  13
  14 BOOL namefrom_internal(struct DosLibrary *DOSBase, BPTR lock, STRPTR buffer, LONG length)
  15 {
  16     STRPTR               s1, s2, name;
  17     D(STRPTR origbuffer;)
  18     BPTR parentlock, origlock;
  19     struct FileInfoBlock *fib;
  20     struct MsgPort *port;
  21     LONG  error;
  22     SIPTR code = DOSFALSE;
  23     BOOL  first = TRUE;
  24
  25     D(origbuffer = buffer);
  26     D(bug("NameFromX(%x,%x,%d,%d)\n", BADDR(lock), buffer, length));
  27
  28     if (length < 1)
  29     {
  30         SetIoErr(ERROR_LINE_TOO_LONG);
  31         return DOSFALSE;
  32     }
  33
  34     fib = AllocDosObject(DOS_FIB, 0);
  35     if (!fib)
  36     {
  37         SetIoErr(ERROR_NO_FREE_STORE);
  38         return DOSFALSE;
  39     }
  40
  41     if (lock != BNULL) {
  42         port = ((struct FileLock*)BADDR(lock))->fl_Task;
  43     } else {
  44         port = DOSBase->dl_Root->rn_BootProc;
  45     }
  46
  47     /* Construct the name from top to bottom */
  48     name = buffer + length;
  49     *--name = 0;
  50
  51     origlock = lock;
  52     parentlock = BNULL;
  53
  54     /* Loop over path */
  55     do
  56     {
  57         error = dopacket2(DOSBase, NULL, port, ACTION_EXAMINE_OBJECT, lock, MKBADDR(fib)) == 0;
  58         //bug("name='%s'\n", fib->fib_FileName);
  59         if (!error) {
  60             parentlock = (BPTR)dopacket1(DOSBase, &code, port, ACTION_PARENT, lock);
  61             if (!parentlock && !first)
  62                 error = code;
  63             //bug("parentlock=%x\n", parentlock);
  64         }
  65         if (lock != origlock && lock)
  66                 UnLock(lock);
  67         lock = parentlock;
  68
  69         /* Move name to the top of the buffer. */
  70         if(!error)
  71         {
  72             fixfib(fib);
  73             s1 = s2 = fib->fib_FileName;
  74
  75             while(*s2++)
  76             {
  77                 ;
  78             }
  79
  80             if(!parentlock)
  81             {
  82                 if (name > buffer)
  83                 {
  84                     *--name=':';
  85                 }
  86                 else
  87                 {
  88                     error = ERROR_LINE_TOO_LONG;
  89                 }
  90             }
  91             else if(!first)
  92             {
  93                 if (name > buffer)
  94                 {
  95                     *--name = '/';
  96                 }
  97                 else
  98                 {
  99                     error = ERROR_LINE_TOO_LONG;
 100                 }
 101             }
 102
 103             if (!error)
 104             {
 105                         s2--;
 106
 107                         if (name - (s2 - s1) >= buffer)
 108                         {
 109                             while(s2 > s1)
 110                         {
 111                             *--name = *--s2;
 112                         }
 113                         }
 114                         else
 115                         {
 116                             error = ERROR_LINE_TOO_LONG;
 117                         }
 118             }
 119
 120         } /* if(!error) */
 121         first = FALSE;
 122
 123     }
 124     while(!error && parentlock);
 125
 126     /* Move the name from the top to the bottom of the buffer. */
 127     if (!error)
 128     {
 129         UBYTE c, old_c = '\0';
 130
 131         do
 132         {
 133             c = *name++;
 134
 135             if ((c != '/') || (old_c != ':'))
 136             {
 137                 *buffer++ = c;
 138             }
 139
 140             old_c = c;
 141
 142         }
 143         while (c);
 144     }
 145
 146     FreeDosObject(DOS_FIB, fib);
 147
 148     /* All done. */
 149
 150     SetIoErr(error);
 151
 152     D(bug("[NameFromX]='%s':%d\n", origbuffer, error));
 153
 154     return error
 155         ? DOSFALSE
 156         : DOSTRUE;
 157
 158 }