workbench/libs/datatypes/savedtobjecta.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7
   8 #include <proto/utility.h>
   9 #include <proto/icon.h>
  10 #include <proto/dos.h>
  11 #include <proto/datatypes.h>
  12 #include <exec/memory.h>
  13 #include <datatypes/datatypesclass.h>
  14 #include <workbench/icon.h>
  15 #include <workbench/workbench.h>
  16 #include <utility/tagitem.h>
  17 #include "datatypes_intern.h"
  18
  19 STRPTR CreateIconName(STRPTR name, struct Library *DataTypesBase);
  20
  21 /*****************************************************************************
  22
  23     NAME */
  24
  25         AROS_LH7(ULONG, SaveDTObjectA,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(Object           *, o       , A0),
  29         AROS_LHA(struct Window    *, win     , A1),
  30         AROS_LHA(struct Requester *, req     , A2),
  31         AROS_LHA(STRPTR            , file    , A3),
  32         AROS_LHA(ULONG             , mode    , D0),
  33         AROS_LHA(BOOL              , saveicon, D1),
  34         AROS_LHA(struct TagItem   *, attrs   , A4),
  35
  36 /*  LOCATION */
  37         struct Library *, DataTypesBase, 49, DataTypes)
  38
  39 /*  FUNCTION
  40
  41     Save the contents of an object to a file using DTM_WRITE.
  42
  43     INPUTS
  44
  45     o         --  data type object to write to a file
  46     win       --  window the object is attached to
  47     req       --  requester the object is attached to
  48     file      --  name of the file to save the object to
  49     mode      --  save mode (RAW, IFF etc.), one of the DTWM_ identifiers
  50     saveicon  --  should an icon be saved together with the file
  51     attrs     --  additional attributes (these are subclass specific)
  52
  53     RESULT
  54
  55     The return value of DTM_WRITE.
  56
  57     NOTES
  58
  59     If DTM_WRITE returns 0, the file will be deleted.
  60
  61     EXAMPLE
  62
  63     BUGS
  64
  65     SEE ALSO
  66
  67     INTERNALS
  68
  69 *****************************************************************************/
  70 {
  71     AROS_LIBFUNC_INIT
  72
  73     ULONG            err;
  74     struct dtWrite   write;
  75     struct DataType *dt;
  76     ULONG            rc       = 0;
  77     struct Library  *IconBase = OpenLibrary("icon.library", 39L);
  78     struct TagItem   tags[2]  =
  79     {
  80         { DTA_DataType, (STACKIPTR)&dt  },
  81         { TAG_DONE    , (STACKIPTR)NULL }
  82     };
  83
  84     if(o == NULL || file == NULL)
  85     {
  86         SetIoErr(ERROR_REQUIRED_ARG_MISSING);
  87         rc = 0;
  88         goto cleanup;
  89     }
  90
  91     write.MethodID     = DTM_WRITE;
  92     write.dtw_GInfo    = NULL;
  93     write.dtw_Mode     = mode;
  94     write.dtw_AttrList = attrs;
  95
  96     if(GetDTAttrsA(o, (struct TagItem *)&tags) == 0)
  97     {
  98         SetIoErr(ERROR_OBJECT_WRONG_TYPE);
  99         rc = 0;
 100         goto cleanup;
 101     }
 102
 103     write.dtw_FileHandle = Open(file, MODE_NEWFILE);
 104     if (write.dtw_FileHandle == BNULL)
 105     {
 106         rc = 0;
 107         goto cleanup;
 108     }
 109
 110     rc = DoDTMethodA(o, win, req, (Msg)&write);
 111
 112     /* Save possible error */
 113     err = IoErr();
 114
 115     if (Close(write.dtw_FileHandle) == DOSFALSE)
 116     {
 117         if(rc != 0) SetIoErr(err);
 118         else        DeleteFile(file);
 119
 120         rc = 0;
 121         goto cleanup;
 122     }
 123
 124     /* If the DTM_WRITE didn't succeed, we delete the file */
 125     if(rc == 0)
 126     {
 127         DeleteFile(file);
 128         rc = 0;
 129         goto cleanup;
 130     }
 131
 132     if (saveicon && IconBase != NULL)
 133     {
 134         struct DiskObject *icon = GetDiskObjectNew(file);
 135
 136         if(icon != NULL)
 137         {
 138             PutDiskObject(file, icon);
 139             FreeDiskObject(icon);
 140         }
 141     }
 142
 143 cleanup:
 144     if (IconBase != NULL) CloseLibrary(IconBase);
 145
 146     return rc;
 147
 148     AROS_LIBFUNC_EXIT
 149 } /* SaveDTObjectA() */