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 "icon_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/icon.h>
  15
  16         AROS_LH1(BOOL, DeleteDiskObject,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(UBYTE *, name, A0),
  20
  21 /*  LOCATION */
  22         struct Library *, IconBase, 23, Icon)
  23
  24 /*  FUNCTION
  25         Deletes an icon description file.
  26
  27     INPUTS
  28         name  -  name of the icon file without the ".info".
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37         Does not yet notify workbench about the deletion.
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48     UBYTE * infofilename;
  49     BOOL    success;
  50
  51     if (!(infofilename = (UBYTE*)AllocVec (strlen(name) + 6,
  52         MEMF_ANY | MEMF_CLEAR)
  53     ) )
  54        return (FALSE);
  55
  56     /* Construct the icon's name */
  57     strcpy (infofilename, name);
  58     strcat (infofilename, ".info");
  59
  60     success = DeleteFile (infofilename);
  61
  62     FreeVec (infofilename);
  63
  64     return success;
  65     AROS_LIBFUNC_EXIT
  66 } /* DeleteDiskObject */