workbench/libs/nonvolatile/nvdisk/writenvddata.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13 #include "nvdisk_intern.h"
  14 #include <dos/dos.h>
  15 #include <proto/dos.h>
  16 #include <libraries/nonvolatile.h>
  17
  18
  19 AROS_LH4(LONG, WriteNVDData,
  20
  21 /*  SYNOPSIS */
  22
  23         AROS_LHA(STRPTR, appName,  A0),
  24         AROS_LHA(STRPTR, itemName, A1),
  25         AROS_LHA(APTR,   data,     A2),
  26         AROS_LHA(LONG,   length,   A3),
  27
  28 /*  LOCATION */
  29
  30         struct Library *, nvdBase, 6, NVDisk)
  31
  32 /*  FUNCTION
  33
  34     Write data to the nonvolatile memory.
  35
  36     INPUTS
  37
  38     appName   --  the name of the application owning the data
  39     itemName  --  the name of the data to write
  40     data      --  the data to write
  41     length    --  the size of the data in bytes
  42
  43     RESULT
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     nonvolatile.library/StoreNV()
  54
  55     INTERNALS
  56
  57     HISTORY
  58
  59     November 2000,  SDuvan  --  implemeneted
  60
  61 ******************************************************************************/
  62
  63 {
  64     AROS_LIBFUNC_INIT
  65
  66     LONG retval  = 0;
  67     BPTR oldCDir = CurrentDir(GPB(nvdBase)->nvd_location);
  68     BPTR lock    = Lock(appName, SHARED_LOCK);
  69     BPTR file;
  70
  71     if(lock == BNULL)
  72     {
  73         lock = CreateDir(appName);
  74
  75         if(lock == BNULL)
  76         {
  77             LONG err = IoErr();
  78             if(err == ERROR_WRITE_PROTECTED ||
  79                err == ERROR_DISK_WRITE_PROTECTED)
  80                 return NVERR_WRITEPROT;
  81             else
  82                 return NVERR_FAIL;
  83         }
  84     }
  85
  86     /* 'lock' is now containing a valid lock on the 'appName' directory. */
  87
  88     CurrentDir(lock);
  89
  90     file = Open(itemName, MODE_NEWFILE);
  91
  92     if(file == BNULL)
  93     {
  94         UnLock(lock);
  95         CurrentDir(oldCDir);
  96         return NVERR_FAIL;
  97     }
  98
  99     if(Write(file, data, length) == -1)
 100     {
 101         retval = NVERR_FATAL;
 102     }
 103
 104     Close(file);
 105     UnLock(lock);
 106     CurrentDir(oldCDir);
 107
 108     return retval;
 109
 110     AROS_LIBFUNC_EXIT
 111 } /* WriteData */
 112