compiler/arossupport/writestring.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Write a big endian string to 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 WriteString (
  19
  20 /*  SYNOPSIS */
  21         struct Hook * hook,
  22         STRPTR        data,
  23         void        * stream)
  24
  25 /*  FUNCTION
  26         Writes one big endian string 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     struct BEIOM_Write wr = {BEIO_WRITE,};
  55     do
  56     {
  57       wr.Data = *data;
  58         if (CallHookA (hook, stream, &wr) == EOF)
  59             return FALSE;
  60     } while (*data ++);
  61
  62     return TRUE;
  63 } /* WriteString */
  64