workbench/libs/icon/puticontaglist.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7
   8 #include <utility/tagitem.h>
   9 #include <proto/icon.h>
  10 #include <proto/workbench.h>
  11
  12 #include "icon_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18     AROS_LH3(BOOL, PutIconTagList,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(CONST_STRPTR,        name, A0),
  22         AROS_LHA(struct DiskObject *, icon, A1),
  23         AROS_LHA(struct TagItem *,    tags, A2),
  24
  25 /*  LOCATION */
  26         struct IconBase *, IconBase, 31, Icon)
  27
  28 /*  FUNCTION
  29
  30     INPUTS
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     struct TagItem       *tstate  = tags;
  49     struct TagItem       *tag     = NULL;
  50
  51     BOOL    success               = FALSE;
  52     LONG    defaultType           = -1;
  53     STRPTR  defaultName           = NULL;
  54     LONG error = 0;
  55     LONG   *errorCode             = NULL;
  56
  57     BOOL    notifyWorkbench       = FALSE;
  58     BOOL    onlyUpdatePosition    = FALSE;
  59
  60     /* Check input parameters ----------------------------------------------*/
  61     D(bug("[%s] Icon %p\n", __func__, icon));
  62     if (icon == NULL) return FALSE;
  63
  64     /* Parse taglist -------------------------------------------------------*/
  65     while ((tag = NextTagItem(&tstate)) != NULL)
  66     {
  67         D(bug("[%s]\tTag (0x%08x, 0x%p)\n", __func__, tag->ti_Tag, (APTR)tag->ti_Data));
  68         switch (tag->ti_Tag)
  69         {
  70
  71             case ICONPUTA_PutDefaultType:
  72                 defaultType = tag->ti_Data;
  73                 tag->ti_Tag = TAG_IGNORE; /* avoid recursion */
  74                 break;
  75
  76             case ICONPUTA_PutDefaultName:
  77                 defaultName = (STRPTR) tag->ti_Data;
  78                 tag->ti_Tag = TAG_IGNORE; /* avoid recursion */
  79                 break;
  80
  81             case ICONA_ErrorCode:
  82                 errorCode = (LONG *) tag->ti_Data;
  83                 break;
  84
  85             case ICONPUTA_NotifyWorkbench:
  86                 notifyWorkbench = tag->ti_Data;
  87                 break;
  88             case ICONPUTA_OnlyUpdatePosition:
  89                 onlyUpdatePosition = tag->ti_Data;
  90                 break;
  91         }
  92     }
  93
  94     D(bug("[%s]\tdefaultType=%d\n", __func__, defaultType));
  95     D(bug("[%s]\tdefaultName='%s'\n", __func__, defaultName));
  96     D(bug("[%s]\tname='%s'\n", __func__, name));
  97     if (defaultType != -1)
  98     {
  99         CONST_STRPTR defaultIconName = GetDefaultIconName(defaultType);
 100
 101         if (defaultIconName != NULL)
 102         {
 103             success = PutIconTags
 104             (
 105                 NULL, icon,
 106                 ICONPUTA_PutDefaultName, (IPTR) defaultIconName,
 107                 TAG_MORE,                (IPTR) tags
 108             );
 109             if (!success)
 110                 error = IoErr();
 111         }
 112     }
 113     else if (defaultName != NULL)
 114     {
 115         BPTR file = OpenDefaultIcon(defaultName, MODE_NEWFILE);
 116
 117         if (file != BNULL)
 118         {
 119             success = WriteIcon(file, icon, tags);
 120             if (!success)
 121                 error = IoErr();
 122             CloseDefaultIcon(file);
 123         }
 124     }
 125     else if (name != NULL)
 126     {
 127         BPTR file = OpenIcon(name, onlyUpdatePosition ? MODE_OLDFILE : MODE_NEWFILE);
 128         if (file != BNULL)
 129         {
 130             success = WriteIcon(file, icon, tags);
 131             if (!success)
 132                 error = IoErr();
 133             CloseIcon(file);
 134         }
 135     }
 136
 137     /* Notify workbench if we added/changed the icon */
 138     D(bug("[%s]\tsuccess=%d\n", __func__, success));
 139     if (success && name && notifyWorkbench && WorkbenchBase) {
 140         BPTR lock, parent;
 141
 142         lock = Lock(name, SHARED_LOCK);
 143         if (lock) {
 144             parent = ParentDir(lock);
 145             if (parent) {
 146                 UpdateWorkbench(FilePart(name), parent, UPDATEWB_ObjectAdded);
 147                 UnLock(parent);
 148             }
 149             UnLock(lock);
 150         }
 151     }
 152
 153     SetIoErr(error);
 154     if (errorCode != NULL)
 155         *errorCode = error;
 156     return success;
 157
 158     AROS_LIBFUNC_EXIT
 159 } /* PutIconTagList() */
 160