rom/dos/write.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Write data to a file.
   6     Lang: English
   7 */
   8 #include <aros/debug.h>
   9 #include <proto/exec.h>
  10 #include <dos/filesystem.h>
  11 #include "dos_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH3(LONG, Write,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(BPTR,       file,   D1),
  22         AROS_LHA(CONST_APTR, buffer, D2),
  23         AROS_LHA(LONG,       length, D3),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 8, Dos)
  27
  28 /*  FUNCTION
  29         Write some data to a given file. The request is directly
  30         given to the filesystem - no buffering is involved. For
  31         small amounts of data it's probably better to use the
  32         buffered I/O routines.
  33
  34     INPUTS
  35         file   - filehandle
  36         buffer - pointer to data buffer
  37         length - number of bytes to write. The filesystem is
  38                  advised to try to fulfill the request as good
  39                  as possible.
  40
  41     RESULT
  42         The number of bytes actually written, -1 if an error happened.
  43         IoErr() will give additional information in that case.
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     /* Get pointer to filehandle. */
  60     struct FileHandle *fh = (struct FileHandle *)BADDR(file);
  61
  62     /* Get pointer to I/O request. Use stackspace for now. */
  63     struct IOFileSys iofs;
  64
  65     /* Make sure the input parameters are sane. */
  66     ASSERT_VALID_PTR( fh );
  67     ASSERT_VALID_PTR( fh->fh_Device );
  68     ASSERT_VALID_PTR( fh->fh_Unit );
  69     ASSERT_VALID_PTR( buffer );
  70
  71     /* Handle append mode. */
  72     if( fh->fh_Flags & FHF_APPEND )
  73     {
  74         InternalSeek( fh, 0, OFFSET_END, DOSBase );
  75     }
  76
  77     /* Prepare I/O request */
  78     InitIOFS( &iofs, FSA_WRITE, DOSBase );
  79
  80     iofs.IOFS.io_Device = fh->fh_Device;
  81     iofs.IOFS.io_Unit   = fh->fh_Unit;
  82
  83     iofs.io_Union.io_WRITE.io_Buffer = (APTR)buffer;
  84     iofs.io_Union.io_WRITE.io_Length = length;
  85
  86     /* send the request, with error reporting */
  87     do {
  88         DosDoIO(&iofs.IOFS);
  89     } while (iofs.io_DosError != 0
  90         && !ErrorReport(iofs.io_DosError, REPORT_STREAM, (IPTR)fh, NULL));
  91
  92     SetIoErr(iofs.io_DosError);
  93
  94     return iofs.io_DosError == 0 ? iofs.io_Union.io_WRITE.io_Length : -1;
  95
  96     AROS_LIBFUNC_EXIT
  97 } /* Write */