compiler/arossupport/isdosentrya.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/arossupport.h>
   7 #include <proto/dos.h>
   8 #include <proto/utility.h>
   9
  10 #include <aros/system.h>
  11 #include <dos/dos.h>
  12
  13 #include <dos/dosextens.h>
  14 #include <exec/types.h>
  15 #include <utility/utility.h>
  16
  17 #define BUFFER_SIZE   100
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22
  23         BOOL IsDosEntryA(
  24
  25 /*  SYNOPSIS */
  26
  27         char  * Name,
  28         ULONG   Flags)
  29
  30 /*  LOCATION */
  31
  32 /*  FUNCTION
  33
  34         There is a need in file/directory processing where an application
  35         may need to determine whether a path is just a volume/device or
  36         assignment name.
  37
  38     INPUTS
  39
  40         Name  - The path to test.
  41
  42         Flags - Any combination of the following:
  43
  44                 LDF_ASSIGNS
  45                 LDF_DEVICES
  46                 LDF_VOLUMES
  47
  48     RESULT
  49
  50         Boolean True or False.
  51
  52     NOTES
  53
  54         Requires the programmer to open the utility.library and initialise
  55         UtilityBase.
  56
  57         In future releases the buffer size will be set via a taglist.
  58
  59     EXAMPLE
  60
  61         BOOL Success;
  62
  63         ...
  64
  65         Success = IsDosEntryA("Work:", LDF_VOLUMES)
  66         if (Success == TRUE)
  67         {
  68           ...
  69         }
  70
  71     BUGS
  72
  73     SEE ALSO
  74
  75         <dos/dosextens.h>
  76
  77     INTERNALS
  78
  79     HISTORY
  80
  81         27-Jul-1997     laguest     Initial inclusion into the AROS tree
  82
  83 ******************************************************************************/
  84 {
  85   struct DosList *DList;
  86   char           *DLName;
  87   int             Position;
  88   int             Success;
  89   BOOL            ReturnValue;
  90   char            Buffer[BUFFER_SIZE + 1];
  91   APTR DOSBase;
  92   APTR UtilityBase;
  93
  94   DOSBase = OpenLibrary("dos.library", 0);
  95   if (DOSBase == NULL)
  96       return FALSE;
  97
  98   UtilityBase = OpenLibrary("utility.library", 0);
  99   if (UtilityBase == NULL) {
 100       CloseLibrary(DOSBase);
 101       return FALSE;
 102   }
 103
 104   ReturnValue = FALSE;
 105
 106   Position = SplitName(Name, ':', &Buffer[0], 0, BUFFER_SIZE + 1);
 107   if (Position != -1 && Name[Position] == 0)
 108   {
 109     DList = AttemptLockDosList(Flags | LDF_READ);
 110     if (DList != NULL)
 111     {
 112       DList = NextDosEntry(DList, Flags);
 113       while (DList != NULL && ReturnValue == FALSE)
 114       {
 115         DLName = AROS_BSTR_ADDR(DList->dol_Name);
 116
 117         Success = Strnicmp(DLName, &Buffer[0], Position - 1);
 118         if (Success == 0)
 119         {
 120           ReturnValue = TRUE;
 121         }
 122
 123         DList = NextDosEntry(DList, Flags);
 124       }
 125
 126       UnLockDosList(Flags | LDF_READ);
 127     }
 128   }
 129
 130   CloseLibrary(UtilityBase);
 131   CloseLibrary(DOSBase);
 132   return (ReturnValue);
 133
 134 } /* IsDosEntry */