+++ /dev/null
-///////////////////////////////////////////////////////////////////////////
-//
-// Copyright (c) 2002, Industrial Light & Magic, a division of Lucas
-// Digital Ltd. LLC
-//
-// All rights reserved.
-//
-// Redistribution and use in source and binary forms, with or without
-// modification, are permitted provided that the following conditions are
-// met:
-// * Redistributions of source code must retain the above copyright
-// notice, this list of conditions and the following disclaimer.
-// * Redistributions in binary form must reproduce the above
-// copyright notice, this list of conditions and the following disclaimer
-// in the documentation and/or other materials provided with the
-// distribution.
-// * Neither the name of Industrial Light & Magic nor the names of
-// its contributors may be used to endorse or promote products derived
-// from this software without specific prior written permission.
-//
-// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-//
-///////////////////////////////////////////////////////////////////////////
-
-
-#ifndef INCLUDED_IMF_XDR_H
-#define INCLUDED_IMF_XDR_H
-
-//----------------------------------------------------------------------------
-//
-// Xdr -- routines to convert data between the machine's native
-// format and a machine-independent external data representation:
-//
-// write<R> (T &o, S v); converts a value, v, of type S
-// into a machine-independent
-// representation and stores the
-// result in an output buffer, o.
-//
-// read<R> (T &i, S &v); reads the machine-independent
-// representation of a value of type
-// S from input buffer i, converts
-// the value into the machine's native
-// representation, and stores the result
-// in v.
-//
-// size<S>(); returns the size, in bytes, of the
-// machine-independent representation
-// of an object of type S.
-//
-// The write() and read() routines are templates; data can be written
-// to and read from any output or input buffer type T for which a helper
-// class, R, exits. Class R must define a method to store a char array
-// in a T, and a method to read a char array from a T:
-//
-// struct R
-// {
-// static void
-// writeChars (T &o, const char c[/*n*/], int n)
-// {
-// ... // Write c[0], c[1] ... c[n-1] to output buffer o.
-// }
-//
-// static void
-// readChars (T &i, char c[/*n*/], int n)
-// {
-// ... // Read n characters from input buffer i
-// // and copy them to c[0], c[1] ... c[n-1].
-// }
-// };
-//
-// Example - writing to and reading from iostreams:
-//
-// struct CharStreamIO
-// {
-// static void
-// writeChars (ostream &os, const char c[], int n)
-// {
-// os.write (c, n);
-// }
-//
-// static void
-// readChars (istream &is, char c[], int n)
-// {
-// is.read (c, n);
-// }
-// };
-//
-// ...
-//
-// Xdr::write<CharStreamIO> (os, 3);
-// Xdr::write<CharStreamIO> (os, 5.0);
-//
-//----------------------------------------------------------------------------
-
-#include <ImfInt64.h>
-#include "IexMathExc.h"
-#include "half.h"
-#include <limits.h>
-
-namespace Imf {
-namespace Xdr {
-
-
-//-------------------------------
-// Write data to an output stream
-//-------------------------------
-
-template <class S, class T>
-void
-write (T &out, bool v);
-
-template <class S, class T>
-void
-write (T &out, char v);
-
-template <class S, class T>
-void
-write (T &out, signed char v);
-
-template <class S, class T>
-void
-write (T &out, unsigned char v);
-
-template <class S, class T>
-void
-write (T &out, signed short v);
-
-template <class S, class T>
-void
-write (T &out, unsigned short v);
-
-template <class S, class T>
-void
-write (T &out, signed int v);
-
-template <class S, class T>
-void
-write (T &out, unsigned int v);
-
-template <class S, class T>
-void
-write (T &out, signed long v);
-
-template <class S, class T>
-void
-write (T &out, unsigned long v);
-
-#if ULONG_MAX != 18446744073709551615LU
-
- template <class S, class T>
- void
- write (T &out, Int64 v);
-
-#endif
-
-template <class S, class T>
-void
-write (T &out, float v);
-
-template <class S, class T>
-void
-write (T &out, double v);
-
-template <class S, class T>
-void
-write (T &out, half v);
-
-template <class S, class T>
-void
-write (T &out, const char v[/*n*/], int n); // fixed-size char array
-
-template <class S, class T>
-void
-write (T &out, const char v[]); // zero-terminated string
-
-
-//-----------------------------------------
-// Append padding bytes to an output stream
-//-----------------------------------------
-
-template <class S, class T>
-void
-pad (T &out, int n); // write n padding bytes
-
-
-
-//-------------------------------
-// Read data from an input stream
-//-------------------------------
-
-template <class S, class T>
-void
-read (T &in, bool &v);
-
-template <class S, class T>
-void
-read (T &in, char &v);
-
-template <class S, class T>
-void
-read (T &in, signed char &v);
-
-template <class S, class T>
-void
-read (T &in, unsigned char &v);
-
-template <class S, class T>
-void
-read (T &in, signed short &v);
-
-template <class S, class T>
-void
-read (T &in, unsigned short &v);
-
-template <class S, class T>
-void
-read (T &in, signed int &v);
-
-template <class S, class T>
-void
-read (T &in, unsigned int &v);
-
-template <class S, class T>
-void
-read (T &in, signed long &v);
-
-template <class S, class T>
-void
-read (T &in, unsigned long &v);
-
-#if ULONG_MAX != 18446744073709551615LU
-
- template <class S, class T>
- void
- read (T &in, Int64 &v);
-
-#endif
-
-template <class S, class T>
-void
-read (T &in, float &v);
-
-template <class S, class T>
-void
-read (T &in, double &v);
-
-template <class S, class T>
-void
-read (T &in, half &v);
-
-template <class S, class T>
-void
-read (T &in, char v[/*n*/], int n); // fixed-size char array
-
-template <class S, class T>
-void
-read (T &in, int n, char v[/*n*/]); // zero-terminated string
-
-
-//-------------------------------------------
-// Skip over padding bytes in an input stream
-//-------------------------------------------
-
-template <class S, class T>
-void
-skip (T &in, int n); // skip n padding bytes
-
-
-
-//--------------------------------------
-// Size of the machine-independent
-// representation of an object of type S
-//--------------------------------------
-
-template <class S>
-int
-size ();
-
-
-//---------------
-// Implementation
-//---------------
-
-template <class S, class T>
-inline void
-writeSignedChars (T &out, const signed char c[], int n)
-{
- S::writeChars (out, (const char *) c, n);
-}
-
-
-template <class S, class T>
-inline void
-writeUnsignedChars (T &out, const unsigned char c[], int n)
-{
- S::writeChars (out, (const char *) c, n);
-}
-
-
-template <class S, class T>
-inline void
-readSignedChars (T &in, signed char c[], int n)
-{
- S::readChars (in, (char *) c, n);
-}
-
-
-template <class S, class T>
-inline void
-readUnsignedChars (T &in, unsigned char c[], int n)
-{
- S::readChars (in, (char *) c, n);
-}
-
-
-template <class S, class T>
-inline void
-write (T &out, bool v)
-{
- char c = !!v;
- S::writeChars (out, &c, 1);
-}
-
-
-template <class S, class T>
-inline void
-write (T &out, char v)
-{
- S::writeChars (out, &v, 1);
-}
-
-
-template <class S, class T>
-inline void
-write (T &out, signed char v)
-{
- writeSignedChars<S> (out, &v, 1);
-}
-
-
-template <class S, class T>
-inline void
-write (T &out, unsigned char v)
-{
- writeUnsignedChars<S> (out, &v, 1);
-}
-
-
-template <class S, class T>
-void
-write (T &out, signed short v)
-{
- signed char b[2];
-
- b[0] = (signed char) (v);
- b[1] = (signed char) (v >> 8);
-
- writeSignedChars<S> (out, b, 2);
-}
-
-
-template <class S, class T>
-void
-write (T &out, unsigned short v)
-{
- unsigned char b[2];
-
- b[0] = (unsigned char) (v);
- b[1] = (unsigned char) (v >> 8);
-
- writeUnsignedChars<S> (out, b, 2);
-}
-
-
-template <class S, class T>
-void
-write (T &out, signed int v)
-{
- signed char b[4];
-
- b[0] = (signed char) (v);
- b[1] = (signed char) (v >> 8);
- b[2] = (signed char) (v >> 16);
- b[3] = (signed char) (v >> 24);
-
- writeSignedChars<S> (out, b, 4);
-}
-
-
-template <class S, class T>
-void
-write (T &out, unsigned int v)
-{
- unsigned char b[4];
-
- b[0] = (unsigned char) (v);
- b[1] = (unsigned char) (v >> 8);
- b[2] = (unsigned char) (v >> 16);
- b[3] = (unsigned char) (v >> 24);
-
- writeUnsignedChars<S> (out, b, 4);
-}
-
-
-template <class S, class T>
-void
-write (T &out, signed long v)
-{
- signed char b[8];
-
- b[0] = (signed char) (v);
- b[1] = (signed char) (v >> 8);
- b[2] = (signed char) (v >> 16);
- b[3] = (signed char) (v >> 24);
-
- #if LONG_MAX == 2147483647
-
- if (v >= 0)
- {
- b[4] = 0;
- b[5] = 0;
- b[6] = 0;
- b[7] = 0;
- }
- else
- {
- b[4] = ~0;
- b[5] = ~0;
- b[6] = ~0;
- b[7] = ~0;
- }
-
- #elif LONG_MAX == 9223372036854775807L
-
- b[4] = (signed char) (v >> 32);
- b[5] = (signed char) (v >> 40);
- b[6] = (signed char) (v >> 48);
- b[7] = (signed char) (v >> 56);
-
- #else
-
- #error write<T> (T &out, signed long v) not implemented
-
- #endif
-
- writeSignedChars<S> (out, b, 8);
-}
-
-
-template <class S, class T>
-void
-write (T &out, unsigned long v)
-{
- unsigned char b[8];
-
- b[0] = (unsigned char) (v);
- b[1] = (unsigned char) (v >> 8);
- b[2] = (unsigned char) (v >> 16);
- b[3] = (unsigned char) (v >> 24);
-
- #if ULONG_MAX == 4294967295U
-
- b[4] = 0;
- b[5] = 0;
- b[6] = 0;
- b[7] = 0;
-
- #elif ULONG_MAX == 18446744073709551615LU
-
- b[4] = (unsigned char) (v >> 32);
- b[5] = (unsigned char) (v >> 40);
- b[6] = (unsigned char) (v >> 48);
- b[7] = (unsigned char) (v >> 56);
-
- #else
-
- #error write<T> (T &out, unsigned long v) not implemented
-
- #endif
-
- writeUnsignedChars<S> (out, b, 8);
-}
-
-
-#if ULONG_MAX != 18446744073709551615LU
-
- template <class S, class T>
- void
- write (T &out, Int64 v)
- {
- unsigned char b[8];
-
- b[0] = (unsigned char) (v);
- b[1] = (unsigned char) (v >> 8);
- b[2] = (unsigned char) (v >> 16);
- b[3] = (unsigned char) (v >> 24);
- b[4] = (unsigned char) (v >> 32);
- b[5] = (unsigned char) (v >> 40);
- b[6] = (unsigned char) (v >> 48);
- b[7] = (unsigned char) (v >> 56);
-
- writeUnsignedChars<S> (out, b, 8);
- }
-
-#endif
-
-
-template <class S, class T>
-void
-write (T &out, float v)
-{
- union {unsigned int i; float f;} u;
- u.f = v;
-
- unsigned char b[4];
-
- b[0] = (unsigned char) (u.i);
- b[1] = (unsigned char) (u.i >> 8);
- b[2] = (unsigned char) (u.i >> 16);
- b[3] = (unsigned char) (u.i >> 24);
-
- writeUnsignedChars<S> (out, b, 4);
-}
-
-
-template <class S, class T>
-void
-write (T &out, double v)
-{
- union {Int64 i; double d;} u;
- u.d = v;
-
- unsigned char b[8];
-
- b[0] = (unsigned char) (u.i);
- b[1] = (unsigned char) (u.i >> 8);
- b[2] = (unsigned char) (u.i >> 16);
- b[3] = (unsigned char) (u.i >> 24);
- b[4] = (unsigned char) (u.i >> 32);
- b[5] = (unsigned char) (u.i >> 40);
- b[6] = (unsigned char) (u.i >> 48);
- b[7] = (unsigned char) (u.i >> 56);
-
- writeUnsignedChars<S> (out, b, 8);
-}
-
-
-template <class S, class T>
-inline void
-write (T &out, half v)
-{
- unsigned char b[2];
-
- b[0] = (unsigned char) (v.bits());
- b[1] = (unsigned char) (v.bits() >> 8);
-
- writeUnsignedChars<S> (out, b, 2);
-}
-
-
-template <class S, class T>
-inline void
-write (T &out, const char v[], int n) // fixed-size char array
-{
- S::writeChars (out, v, n);
-}
-
-
-template <class S, class T>
-void
-write (T &out, const char v[]) // zero-terminated string
-{
- while (*v)
- {
- S::writeChars (out, v, 1);
- ++v;
- }
-
- S::writeChars (out, v, 1);
-}
-
-
-template <class S, class T>
-void
-pad (T &out, int n) // add n padding bytes
-{
- for (int i = 0; i < n; i++)
- {
- const char c = 0;
- S::writeChars (out, &c, 1);
- }
-}
-
-
-template <class S, class T>
-inline void
-read (T &in, bool &v)
-{
- char c;
-
- S::readChars (in, &c, 1);
- v = !!c;
-}
-
-
-template <class S, class T>
-inline void
-read (T &in, char &v)
-{
- S::readChars (in, &v, 1);
-}
-
-
-template <class S, class T>
-inline void
-read (T &in, signed char &v)
-{
- readSignedChars<S> (in, &v, 1);
-}
-
-
-template <class S, class T>
-inline void
-read (T &in, unsigned char &v)
-{
- readUnsignedChars<S> (in, &v, 1);
-}
-
-
-template <class S, class T>
-void
-read (T &in, signed short &v)
-{
- signed char b[2];
-
- readSignedChars<S> (in, b, 2);
-
- v = (b[0] & 0x00ff) |
- (b[1] << 8);
-}
-
-
-template <class S, class T>
-void
-read (T &in, unsigned short &v)
-{
- unsigned char b[2];
-
- readUnsignedChars<S> (in, b, 2);
-
- v = (b[0] & 0x00ff) |
- (b[1] << 8);
-}
-
-
-template <class S, class T>
-void
-read (T &in, signed int &v)
-{
- signed char b[4];
-
- readSignedChars<S> (in, b, 4);
-
- v = (b[0] & 0x000000ff) |
- ((b[1] << 8) & 0x0000ff00) |
- ((b[2] << 16) & 0x00ff0000) |
- (b[3] << 24);
-}
-
-
-template <class S, class T>
-void
-read (T &in, unsigned int &v)
-{
- unsigned char b[4];
-
- readUnsignedChars<S> (in, b, 4);
-
- v = (b[0] & 0x000000ff) |
- ((b[1] << 8) & 0x0000ff00) |
- ((b[2] << 16) & 0x00ff0000) |
- (b[3] << 24);
-}
-
-
-template <class S, class T>
-void
-read (T &in, signed long &v)
-{
- signed char b[8];
-
- readSignedChars<S> (in, b, 8);
-
- #if LONG_MAX == 2147483647
-
- v = (b[0] & 0x000000ff) |
- ((b[1] << 8) & 0x0000ff00) |
- ((b[2] << 16) & 0x00ff0000) |
- (b[3] << 24);
-
- if (( b[4] || b[5] || b[6] || b[7]) &&
- (~b[4] || ~b[5] || ~b[6] || ~b[7]))
- {
- throw Iex::OverflowExc ("Long int overflow - read a large "
- "64-bit integer in a 32-bit process.");
- }
-
- #elif LONG_MAX == 9223372036854775807L
-
- v = ((long) b[0] & 0x00000000000000ff) |
- (((long) b[1] << 8) & 0x000000000000ff00) |
- (((long) b[2] << 16) & 0x0000000000ff0000) |
- (((long) b[3] << 24) & 0x00000000ff000000) |
- (((long) b[4] << 32) & 0x000000ff00000000) |
- (((long) b[5] << 40) & 0x0000ff0000000000) |
- (((long) b[6] << 48) & 0x00ff000000000000) |
- ((long) b[7] << 56);
-
- #else
-
- #error read<T> (T &in, signed long &v) not implemented
-
- #endif
-}
-
-
-template <class S, class T>
-void
-read (T &in, unsigned long &v)
-{
- unsigned char b[8];
-
- readUnsignedChars<S> (in, b, 8);
-
- #if ULONG_MAX == 4294967295U
-
- v = (b[0] & 0x000000ff) |
- ((b[1] << 8) & 0x0000ff00) |
- ((b[2] << 16) & 0x00ff0000) |
- (b[3] << 24);
-
- if (b[4] || b[5] || b[6] || b[7])
- {
- throw Iex::OverflowExc ("Long int overflow - read a large "
- "64-bit integer in a 32-bit process.");
- }
-
- #elif ULONG_MAX == 18446744073709551615LU
-
- v = ((unsigned long) b[0] & 0x00000000000000ff) |
- (((unsigned long) b[1] << 8) & 0x000000000000ff00) |
- (((unsigned long) b[2] << 16) & 0x0000000000ff0000) |
- (((unsigned long) b[3] << 24) & 0x00000000ff000000) |
- (((unsigned long) b[4] << 32) & 0x000000ff00000000) |
- (((unsigned long) b[5] << 40) & 0x0000ff0000000000) |
- (((unsigned long) b[6] << 48) & 0x00ff000000000000) |
- ((unsigned long) b[7] << 56);
-
- #else
-
- #error read<T> (T &in, unsigned long &v) not implemented
-
- #endif
-}
-
-
-#if ULONG_MAX != 18446744073709551615LU
-
- template <class S, class T>
- void
- read (T &in, Int64 &v)
- {
- unsigned char b[8];
-
- readUnsignedChars<S> (in, b, 8);
-
- v = ((Int64) b[0] & 0x00000000000000ffLL) |
- (((Int64) b[1] << 8) & 0x000000000000ff00LL) |
- (((Int64) b[2] << 16) & 0x0000000000ff0000LL) |
- (((Int64) b[3] << 24) & 0x00000000ff000000LL) |
- (((Int64) b[4] << 32) & 0x000000ff00000000LL) |
- (((Int64) b[5] << 40) & 0x0000ff0000000000LL) |
- (((Int64) b[6] << 48) & 0x00ff000000000000LL) |
- ((Int64) b[7] << 56);
- }
-
-#endif
-
-
-template <class S, class T>
-void
-read (T &in, float &v)
-{
- unsigned char b[4];
-
- readUnsignedChars<S> (in, b, 4);
-
- union {unsigned int i; float f;} u;
-
- u.i = (b[0] & 0x000000ff) |
- ((b[1] << 8) & 0x0000ff00) |
- ((b[2] << 16) & 0x00ff0000) |
- (b[3] << 24);
-
- v = u.f;
-}
-
-
-template <class S, class T>
-void
-read (T &in, double &v)
-{
- unsigned char b[8];
-
- readUnsignedChars<S> (in, b, 8);
-
- union {Int64 i; double d;} u;
-
- u.i = ((Int64) b[0] & 0x00000000000000ffULL) |
- (((Int64) b[1] << 8) & 0x000000000000ff00ULL) |
- (((Int64) b[2] << 16) & 0x0000000000ff0000ULL) |
- (((Int64) b[3] << 24) & 0x00000000ff000000ULL) |
- (((Int64) b[4] << 32) & 0x000000ff00000000ULL) |
- (((Int64) b[5] << 40) & 0x0000ff0000000000ULL) |
- (((Int64) b[6] << 48) & 0x00ff000000000000ULL) |
- ((Int64) b[7] << 56);
-
- v = u.d;
-}
-
-
-template <class S, class T>
-inline void
-read (T &in, half &v)
-{
- unsigned char b[2];
-
- readUnsignedChars<S> (in, b, 2);
-
- v.setBits ((b[0] & 0x00ff) | (b[1] << 8));
-}
-
-
-template <class S, class T>
-inline void
-read (T &in, char v[], int n) // fixed-size char array
-{
- S::readChars (in, v, n);
-}
-
-
-template <class S, class T>
-void
-read (T &in, int n, char v[]) // zero-terminated string
-{
- while (n >= 0)
- {
- S::readChars (in, v, 1);
-
- if (*v == 0)
- break;
-
- --n;
- ++v;
- }
-}
-
-
-template <class S, class T>
-void
-skip (T &in, int n) // skip n padding bytes
-{
- char c[1024];
-
- while (n >= (int) sizeof (c))
- {
- if (!S::readChars (in, c, sizeof (c)))
- return;
-
- n -= sizeof (c);
- }
-
- if (n >= 1)
- S::readChars (in, c, n);
-}
-
-
-template <> inline int size <bool> () {return 1;}
-template <> inline int size <char> () {return 1;}
-template <> inline int size <signed char> () {return 1;}
-template <> inline int size <unsigned char> () {return 1;}
-template <> inline int size <signed short> () {return 2;}
-template <> inline int size <unsigned short> () {return 2;}
-template <> inline int size <signed int> () {return 4;}
-template <> inline int size <unsigned int> () {return 4;}
-template <> inline int size <signed long> () {return 8;}
-template <> inline int size <unsigned long> () {return 8;}
-template <> inline int size <float> () {return 4;}
-template <> inline int size <double> () {return 8;}
-template <> inline int size <half> () {return 2;}
-
-
-} // namespace Xdr
-} // namespace Imf
-
-#endif