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("[DOS] namefrom_internal(0x%p, 0x%p, %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
  68         lock = parentlock;
  69
  70         /* Move name to the top of the buffer. */
  71         if(!error)
  72         {
  73             fixfib(fib);
  74             s1 = s2 = fib->fib_FileName;
  75
  76             while(*s2++)
  77             {
  78                 ;
  79             }
  80
  81             if(!parentlock)
  82             {
  83                 if (name > buffer)
  84                 {
  85                     *--name=':';
  86                 }
  87                 else
  88                 {
  89                     error = ERROR_LINE_TOO_LONG;
  90                 }
  91             }
  92             else if(!first)
  93             {
  94                 if (name > buffer)
  95                 {
  96                     *--name = '/';
  97                 }
  98                 else
  99                 {
 100                     error = ERROR_LINE_TOO_LONG;
 101                 }
 102             }
 103
 104             if (!error)
 105             {
 106                         s2--;
 107
 108                         if (name - (s2 - s1) >= buffer)
 109                         {
 110                             while(s2 > s1)
 111                         {
 112                             *--name = *--s2;
 113                         }
 114                         }
 115                         else
 116                         {
 117                             error = ERROR_LINE_TOO_LONG;
 118                         }
 119             }
 120
 121         } /* if(!error) */
 122         first = FALSE;
 123
 124     }
 125     while(!error && parentlock);
 126
 127     /* Move the name from the top to the bottom of the buffer. */
 128     if ((!error) && (name != buffer))
 129     {
 130         UBYTE c, old_c = '\0';
 131
 132         do
 133         {
 134             c = *name++;
 135
 136             if ((c != '/') || (old_c != ':'))
 137             {
 138                 *buffer++ = c;
 139             }
 140
 141             old_c = c;
 142
 143         }
 144         while (c);
 145     }
 146
 147     FreeDosObject(DOS_FIB, fib);
 148
 149     /* All done. */
 150
 151     SetIoErr(error);
 152
 153     D(bug("[NameFromX]='%s':%d\n", origbuffer, error));
 154
 155     return error
 156         ? DOSFALSE
 157         : DOSTRUE;
 158
 159 }