workbench/system/Wanderer/Tools/Delete/main.c

   1 /*
   2     Copyright © 2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #define DEBUG 1
   9 #include <aros/debug.h>
  10
  11 #include <proto/intuition.h>
  12 #include <proto/exec.h>
  13 #include <proto/muimaster.h>
  14 #include <proto/workbench.h>
  15 #include <proto/dos.h>
  16
  17 #include <dos/dos.h>
  18 #include <libraries/asl.h>
  19 #include <libraries/mui.h>
  20 #include <workbench/workbench.h>
  21 #include <workbench/startup.h>
  22
  23 #include <string.h>
  24
  25 #include "locale.h"
  26
  27 STRPTR AllocateNameFromLock(BPTR lock);
  28
  29 int main(int argc, char **argv)
  30 {
  31         int result = RETURN_OK;
  32
  33     if (argc == 0)
  34     {
  35         struct WBStartup *startup = (struct WBStartup *) argv;
  36
  37         if (startup->sm_NumArgs == 2)
  38         {
  39             BPTR   parent = startup->sm_ArgList[1].wa_Lock;
  40             STRPTR name   = startup->sm_ArgList[1].wa_Name;
  41
  42             if
  43             (
  44                 MUI_Request
  45                 (
  46                     NULL, NULL, 0,
  47                     _(MSG_DELETE_REQUEST), _(MSG_DELETE_CHOICE),
  48                     _(MSG_REQUEST), (IPTR) name
  49                 ) == 1
  50             )
  51             {
  52                 BPTR cd   = CurrentDir(parent);
  53                 BPTR lock = Lock(name, ACCESS_WRITE);
  54
  55                 if (lock != NULL)
  56                 {
  57                     STRPTR buffer = AllocateNameFromLock(lock);
  58
  59                     UnLock(lock);
  60
  61                     if (buffer != NULL)
  62                     {
  63                         if (DeleteFile(name))
  64                         {
  65                             UpdateWorkbenchObject(buffer, WBPROJECT, TAG_DONE);
  66                         }
  67                         else
  68                         {
  69                             MUI_Request
  70                             (
  71                                 NULL, NULL, 0,
  72                                 _(MSG_ERROR), _(MSG_OK),
  73                                 _(MSG_COULDNT_DELETE)
  74                             );
  75                         }
  76
  77                         FreeVec(buffer);
  78                     }
  79                     else
  80                     {
  81                         MUI_Request
  82                         (
  83                             NULL, NULL, 0,
  84                             _(MSG_ERROR), _(MSG_OK),
  85                             _(MSG_COULDNT_ALLOCATE)
  86                         );
  87                     }
  88                 }
  89                 else
  90                 {
  91                     MUI_Request
  92                     (
  93                         NULL, NULL, 0,
  94                         _(MSG_ERROR), _(MSG_OK),
  95                         _(MSG_COULDNT_LOCK)
  96                     );
  97                 }
  98
  99                 CurrentDir(cd);
 100             }
 101         }
 102         else if (startup->sm_NumArgs > 2)
 103         {
 104             ULONG i;
 105
 106             for (i = 1; i < startup->sm_NumArgs; i++)
 107             {
 108                 OpenWorkbenchObject
 109                 (
 110                     "WANDERER:Tools/Delete",
 111                     WBOPENA_ArgLock, (IPTR) startup->sm_ArgList[i].wa_Lock,
 112                     WBOPENA_ArgName, (IPTR) startup->sm_ArgList[i].wa_Name,
 113                     TAG_DONE
 114                 );
 115             }
 116         }
 117         else
 118         {
 119             MUI_RequestA
 120             (
 121                 NULL, NULL, 0,
 122                 _(MSG_INFO), _(MSG_OK), _(MSG_WRONG_ARGS), NULL
 123             );
 124             result = RETURN_ERROR;
 125         }
 126     }
 127     else
 128     {
 129         PutStr(_(MSG_WB_ONLY));
 130         result = RETURN_FAIL;
 131     }
 132     return result;
 133 }
 134
 135 STRPTR AllocateNameFromLock(BPTR lock)
 136 {
 137     ULONG  length = 512;
 138     STRPTR buffer = NULL;
 139     BOOL   done   = FALSE;
 140
 141     while (!done)
 142     {
 143         if (buffer != NULL) FreeVec(buffer);
 144
 145         buffer = AllocVec(length, MEMF_ANY);
 146         if (buffer != NULL)
 147         {
 148             if (NameFromLock(lock, buffer, length))
 149             {
 150                 done = TRUE;
 151                 break;
 152             }
 153             else
 154             {
 155                 if (IoErr() == ERROR_LINE_TOO_LONG)
 156                 {
 157                     length += 512;
 158                     continue;
 159                 }
 160                 else
 161                 {
 162                     break;
 163                 }
 164             }
 165         }
 166         else
 167         {
 168             SetIoErr(ERROR_NO_FREE_STORE);
 169             break;
 170         }
 171     }
 172
 173     if (done)
 174     {
 175         return buffer;
 176     }
 177     else
 178     {
 179         if (buffer != NULL) FreeVec(buffer);
 180         return NULL;
 181     }
 182 }