1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/* Copyright (C) 1988-1991 Apple Computer, Inc.
* All Rights Reserved.
*
* Warranty Information
* Even though Apple has reviewed this software, Apple makes no warranty
* or representation, either express or implied, with respect to this
* software, its quality, accuracy, merchantability, or fitness for a
* particular purpose. As a result, this software is provided "as is,"
* and you, its user, are assuming the entire risk as to its quality
* and accuracy.
*
* This code may be used and freely distributed as long as it includes
* this copyright notice and the warranty information.
*
*
* Motorola processors (Macintosh, Sun, Sparc, MIPS, etc)
* pack bytes from high to low (they are big-endian).
* Use the HighLow routines to match the native format
* of these machines.
*
* Intel-like machines (PCs, Sequent)
* pack bytes from low to high (the are little-endian).
* Use the LowHigh routines to match the native format
* of these machines.
*
* These routines have been tested on the following machines:
* Apple Macintosh, MPW 3.1 C compiler
* Apple Macintosh, THINK C compiler
* Silicon Graphics IRIS, MIPS compiler
* Cray X/MP and Y/MP
* Digital Equipment VAX
*
*
* Implemented by Malcolm Slaney and Ken Turkowski.
*
* Malcolm Slaney contributions during 1988-1990 include big- and little-
* endian file I/O, conversion to and from Motorola's extended 80-bit
* FLOATing-point format, and conversions to and from IEEE single-
* precision FLOATing-point format.
*
* In 1991, Ken Turkowski implemented the conversions to and from
* IEEE double-precision format, added more precision to the extended
* conversions, and accommodated conversions involving +/- infinity,
* NaN's, and denormalized numbers.
*
* $Id: portableio.c,v 2.6 1991/04/30 17:06:02 malcolm Exp $
*
* $Log: portableio.c,v $
* Revision 2.6 91/04/30 17:06:02 malcolm
* Apr 2000
* MFC - hacked out everything we don't need for layer II
*/
#include <stdio.h>
#include <math.h>
#include "portableio.h"
#include "common.h"
/****************************************************************
* Big/little-endian independent I/O routines.
****************************************************************/
int Read16BitsHighLow (fp)
FILE *fp;
{
int first, second, result;
first = 0xff & getc (fp);
second = 0xff & getc (fp);
result = (first << 8) + second;
#ifndef THINK_C42
if (result & 0x8000)
result = result - 0x10000;
#endif /* THINK_C */
return (result);
}
double ReadIeeeExtendedHighLow (fp)
FILE *fp;
{
char bits[kExtendedLength];
ReadBytes (fp, bits, kExtendedLength);
return ConvertFromIeeeExtended (bits);
}
int Read32BitsHighLow (fp)
FILE *fp;
{
int first, second, result;
first = 0xffff & Read16BitsHighLow (fp);
second = 0xffff & Read16BitsHighLow (fp);
result = (first << 16) + second;
#ifdef CRAY
if (result & 0x80000000)
result = result - 0x100000000;
#endif
return (result);
}
void ReadBytes (fp, p, n)
FILE *fp;
char *p;
int n;
{
while (!feof (fp) & (n-- > 0))
*p++ = getc (fp);
}
|
