compiler/arossupport/writelong.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Write a big endian long (32bit) from a streamhook
   6     Lang: english
   7 */
   8
   9 #include <proto/dos.h>
  10
  11 /******************************************************************************
  12
  13     NAME */
  14 #include <stdio.h>
  15 #include <aros/bigendianio.h>
  16 #include <proto/alib.h>
  17
  18         BOOL WriteLong (
  19
  20 /*  SYNOPSIS */
  21         struct Hook * hook,
  22         ULONG         data,
  23         void        * stream)
  24
  25 /*  FUNCTION
  26         Writes one big endian 32bit value to a streamhook.
  27
  28     INPUTS
  29         hook - Write to this streamhook
  30         data - Data to be written
  31         stream - Stream passed to streamhook
  32
  33     RESULT
  34         The function returns TRUE on success and FALSE otherwise.
  35         See IoErr() for the reason in case of an error.
  36
  37     NOTES
  38         This function writes big endian values to a file even on little
  39         endian machines.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         ReadByte(), ReadWord(), ReadLong(), ReadFloat(), ReadDouble(),
  47         ReadString(), ReadStruct(), WriteByte(), WriteWord(), WriteLong(),
  48         WriteFloat(), WriteDouble(), WriteString(), WriteStruct()
  49
  50     HISTORY
  51
  52 ******************************************************************************/
  53 {
  54     UBYTE * ptr;
  55     struct BEIOM_Write wr={BEIO_WRITE, };
  56
  57 #if AROS_BIG_ENDIAN
  58     ptr = (UBYTE *)&data;
  59 #   define NEXT ++
  60 #else
  61     ptr = ((UBYTE *)&data) + 3;
  62 #   define NEXT --
  63 #endif
  64
  65 #define WRITE_ONE_CHAR                  \
  66     wr.Data = *ptr NEXT;    \
  67     if (CallHookA (hook, stream, &wr) == EOF) \
  68         return FALSE
  69
  70     WRITE_ONE_CHAR;
  71     WRITE_ONE_CHAR;
  72     WRITE_ONE_CHAR;
  73     WRITE_ONE_CHAR;
  74
  75     return TRUE;
  76 } /* WriteLong */
  77