workbench/libs/icon/deletediskobject.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/dos.h>
   9 #include <proto/workbench.h>
  10 #include "icon_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/icon.h>
  16
  17         AROS_LH1(BOOL, DeleteDiskObject,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(UBYTE *, name, A0),
  21
  22 /*  LOCATION */
  23         struct IconBase *, IconBase, 23, Icon)
  24
  25 /*  FUNCTION
  26         Deletes an icon description file.
  27
  28     INPUTS
  29         name  -  name of the icon file without the ".info".
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48     UBYTE * infofilename;
  49     BOOL    success = FALSE;
  50     BPTR lock, parent;
  51     LONG ioerr;
  52
  53     if (!(infofilename = (UBYTE*)AllocVec (strlen(name) + 6,
  54         MEMF_ANY | MEMF_CLEAR)
  55     ) )
  56        return (FALSE);
  57
  58     /* Construct the icon's name */
  59     strcpy (infofilename, name);
  60     strcat (infofilename, ".info");
  61
  62     lock = Lock(infofilename, SHARED_LOCK);
  63     if (lock) {
  64         parent = ParentDir(lock);
  65         UnLock(lock); // DeleteFile() fails on locked files
  66         if (parent) {
  67             success = DeleteFile (infofilename);
  68             if (success && WorkbenchBase) {
  69                 UpdateWorkbench(FilePart(name), parent, UPDATEWB_ObjectRemoved);
  70             }
  71             ioerr = IoErr(); // UnLock() resets error
  72             UnLock(parent);
  73             SetIoErr(ioerr);
  74         }
  75     }
  76
  77     FreeVec (infofilename);
  78
  79     return success;
  80     AROS_LIBFUNC_EXIT
  81 } /* DeleteDiskObject */