object.h 962 B

1234567891011121314151617181920212223242526272829303132333435
  1. /* $Header$ */
  2. /*
  3. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. * See the copyright notice in the ACK home directory, in the file "Copyright".
  5. */
  6. #include "byte_order.h"
  7. #if CHAR_UNSIGNED
  8. #define Xchar(ch) (ch)
  9. #else
  10. #define Xchar(ch) ((ch) & 0377)
  11. #endif
  12. #if BYTES_REVERSED
  13. #define uget2(c) (Xchar((c)[0]) | ((unsigned) Xchar((c)[1]) << 8))
  14. #define Xput2(i, c) (((c)[0] = (i)), ((c)[1] = (i) >> 8))
  15. #define put2(i, c) { register int j = (i); Xput2(j, c); }
  16. #else
  17. #define uget2(c) (* ((unsigned short *) (c)))
  18. #define Xput2(i, c) (* ((short *) (c)) = (i))
  19. #define put2(i, c) Xput2(i, c)
  20. #endif
  21. #define get2(c) ((short) uget2(c))
  22. #if WORDS_REVERSED || BYTES_REVERSED
  23. #define get4(c) (uget2(c) | ((long) uget2((c)+2) << 16))
  24. #define put4(l, c) { register long x=(l); \
  25. Xput2((int)x,c); \
  26. Xput2((int)(x>>16),(c)+2); \
  27. }
  28. #else
  29. #define get4(c) (* ((long *) (c)))
  30. #define put4(l, c) (* ((long *) (c)) = (l))
  31. #endif