rom/dos/examine.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: dos.library function Examine().
   6     Lang: English
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10 #include <dos/filesystem.h>
  11 #include <dos/exall.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(BOOL, Examine,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(BPTR,                   lock, D1),
  23         AROS_LHA(struct FileInfoBlock *, fib,  D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 17, Dos)
  27
  28 /*  FUNCTION
  29
  30     Fill in a FileInfoBlock structure concerning a file or directory
  31     associated with a particular lock.
  32
  33     INPUTS
  34
  35     lock  --  lock to examine
  36     fib   --  FileInfoBlock where the result of the examination is stored
  37
  38     RESULT
  39
  40     A boolean telling whether the operation was successful or not.
  41
  42     NOTES
  43
  44     FileInfoBlocks should be allocated with AllocDosObject(). You may make
  45     a copy of the FileInfoBlock but, however, this copy may NOT be passed
  46     to ExNext()!
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     Lock(), UnLock(), ExNext(), AllocDosObject(), ExAll(), <dos/dos.h>
  55
  56     INTERNALS
  57
  58 *****************************************************************************/
  59
  60 /*****************************************************************************
  61
  62     NAME
  63 #include <clib/dos_protos.h>
  64
  65         AROS_LH2(BOOL, ExamineFH,
  66
  67     SYNOPSIS
  68         AROS_LHA(BPTR                  , fh, D1),
  69         AROS_LHA(struct FileInfoBlock *, fib, D2),
  70
  71     LOCATION
  72         struct DosLibrary *, DOSBase, 65, Dos)
  73
  74     FUNCTION
  75
  76     INPUTS
  77
  78     RESULT
  79
  80     NOTES
  81
  82     EXAMPLE
  83
  84     BUGS
  85
  86     SEE ALSO
  87
  88     INTERNALS
  89
  90 *****************************************************************************/
  91 /*AROS alias ExamineFH Examine */
  92 {
  93     AROS_LIBFUNC_INIT
  94
  95     UBYTE buffer[512];
  96     struct ExAllData *ead=(struct ExAllData *)buffer;
  97     STRPTR src, dst;
  98     ULONG i;
  99
 100     /* Get pointer to filehandle */
 101     struct FileHandle *fh = (struct FileHandle *)BADDR(lock);
 102
 103     /* Get pointer to I/O request. Use stackspace for now. */
 104     struct IOFileSys iofs;
 105
 106     /* Prepare I/O request. */
 107     InitIOFS(&iofs, FSA_EXAMINE, DOSBase);
 108
 109     iofs.IOFS.io_Device = fh->fh_Device;
 110     iofs.IOFS.io_Unit   = fh->fh_Unit;
 111
 112     iofs.io_Union.io_EXAMINE.io_ead  = (struct ExAllData *)buffer;
 113     iofs.io_Union.io_EXAMINE.io_Size = sizeof(buffer);
 114     iofs.io_Union.io_EXAMINE.io_Mode = ED_OWNER;
 115
 116     /* Send the request. */
 117     DosDoIO(&iofs.IOFS);
 118
 119     /* Set error code and return */
 120     SetIoErr(iofs.io_DosError);
 121
 122     if(iofs.io_DosError)
 123         return DOSFALSE;
 124     else
 125     {
 126         /* in fib_DiskKey the result from telldir is being stored which
 127            gives us important info for a call to ExNext() */
 128         fib->fib_DiskKey      = iofs.io_DirPos;
 129         fib->fib_DirEntryType = ead->ed_Type;
 130
 131         src = ead->ed_Name;
 132         dst = fib->fib_FileName;
 133
 134         if(src != NULL)
 135         {
 136             for(i = 0; i < MAXFILENAMELENGTH - 1; i++)
 137             {
 138                 if(!(*dst++ = *src++))
 139                     break;
 140             }
 141         }
 142
 143         *dst++ = 0;
 144
 145         fib->fib_Protection     = ead->ed_Prot;
 146         fib->fib_EntryType      = ead->ed_Type;
 147         fib->fib_Size           = ead->ed_Size;
 148         fib->fib_Date.ds_Days   = ead->ed_Days;
 149         fib->fib_Date.ds_Minute = ead->ed_Mins;
 150         fib->fib_Date.ds_Tick   = ead->ed_Ticks;
 151
 152         src = ead->ed_Comment;
 153         dst = fib->fib_Comment;
 154
 155         if(src != NULL)
 156         {
 157             for(i = 0; i < 79; i++)
 158             {
 159                 if(!(*dst++ = *src++))
 160                     break;
 161             }
 162         }
 163
 164         *dst++ = 0;
 165         fib->fib_OwnerUID = ead->ed_OwnerUID;
 166         fib->fib_OwnerGID = ead->ed_OwnerGID;
 167
 168         return DOSTRUE;
 169     }
 170
 171     AROS_LIBFUNC_EXIT
 172 } /* Examine */