compiler/arossupport/readlong.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Read 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 ReadLong (
  19
  20 /*  SYNOPSIS */
  21         struct Hook * hook,
  22         ULONG       * dataptr,
  23         void        * stream)
  24
  25 /*  FUNCTION
  26         Reads one big endian 32bit value from a streamhook.
  27
  28     INPUTS
  29         hook - Streamhook
  30         dataptr - Put the data here
  31         stream - Read from this stream
  32
  33     RESULT
  34         The function returns TRUE on success. On success, the value
  35         read is written into dataptr. On failure, FALSE is returned and the
  36         contents of dataptr are not changed.
  37
  38     NOTES
  39         This function reads big endian values from a streamhook even on
  40         little endian machines.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         ReadByte(), ReadWord(), ReadLong(), ReadFloat(), ReadDouble(),
  48         ReadString(), ReadStruct(), WriteByte(), WriteWord(), WriteLong(),
  49         WriteFloat(), WriteDouble(), WriteString(), WriteStruct()
  50
  51     HISTORY
  52         14.09.93    ada created
  53
  54 ******************************************************************************/
  55 {
  56     ULONG   value;
  57     LONG    c;
  58     UBYTE * ptr;
  59
  60     struct BEIOM_Read rd = {BEIO_READ};
  61
  62 #if AROS_BIG_ENDIAN
  63     ptr = (UBYTE *)&value;
  64 #   define NEXT ++
  65 #else
  66     ptr = ((UBYTE *)&value) + 3;
  67 #   define NEXT --
  68 #endif
  69
  70 #define READ_ONE_BYTE               \
  71     if ((c = CallHookA (hook, stream, &rd)) == EOF) \
  72         return FALSE;               \
  73                                     \
  74     *ptr NEXT = c
  75
  76     READ_ONE_BYTE;
  77     READ_ONE_BYTE;
  78     READ_ONE_BYTE;
  79     READ_ONE_BYTE;
  80
  81     *dataptr = value;
  82
  83     return TRUE;
  84 } /* ReadLong */
  85