Initial import
[darksolar] / node_modules / mongodb / node_modules / bson / lib / bson / float_parser.js
1 // Copyright (c) 2008, Fair Oaks Labs, Inc.
2 // All rights reserved.
3 // 
4 // Redistribution and use in source and binary forms, with or without
5 // modification, are permitted provided that the following conditions are met:
6 // 
7 //  * Redistributions of source code must retain the above copyright notice,
8 //    this list of conditions and the following disclaimer.
9 // 
10 //  * Redistributions in binary form must reproduce the above copyright notice,
11 //    this list of conditions and the following disclaimer in the documentation
12 //    and/or other materials provided with the distribution.
13 // 
14 //  * Neither the name of Fair Oaks Labs, Inc. nor the names of its contributors
15 //    may be used to endorse or promote products derived from this software
16 //    without specific prior written permission.
17 // 
18 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19 // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 // ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
22 // LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 // SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 // POSSIBILITY OF SUCH DAMAGE.
29 //
30 //
31 // Modifications to writeIEEE754 to support negative zeroes made by Brian White
32
33 var readIEEE754 = function(buffer, offset, endian, mLen, nBytes) {
34   var e, m,
35       bBE = (endian === 'big'),
36       eLen = nBytes * 8 - mLen - 1,
37       eMax = (1 << eLen) - 1,
38       eBias = eMax >> 1,
39       nBits = -7,
40       i = bBE ? 0 : (nBytes - 1),
41       d = bBE ? 1 : -1,
42       s = buffer[offset + i];
43
44   i += d;
45
46   e = s & ((1 << (-nBits)) - 1);
47   s >>= (-nBits);
48   nBits += eLen;
49   for (; nBits > 0; e = e * 256 + buffer[offset + i], i += d, nBits -= 8);
50
51   m = e & ((1 << (-nBits)) - 1);
52   e >>= (-nBits);
53   nBits += mLen;
54   for (; nBits > 0; m = m * 256 + buffer[offset + i], i += d, nBits -= 8);
55
56   if (e === 0) {
57     e = 1 - eBias;
58   } else if (e === eMax) {
59     return m ? NaN : ((s ? -1 : 1) * Infinity);
60   } else {
61     m = m + Math.pow(2, mLen);
62     e = e - eBias;
63   }
64   return (s ? -1 : 1) * m * Math.pow(2, e - mLen);
65 };
66
67 var writeIEEE754 = function(buffer, value, offset, endian, mLen, nBytes) {
68   var e, m, c,
69       bBE = (endian === 'big'),
70       eLen = nBytes * 8 - mLen - 1,
71       eMax = (1 << eLen) - 1,
72       eBias = eMax >> 1,
73       rt = (mLen === 23 ? Math.pow(2, -24) - Math.pow(2, -77) : 0),
74       i = bBE ? (nBytes-1) : 0,
75       d = bBE ? -1 : 1,
76       s = value < 0 || (value === 0 && 1 / value < 0) ? 1 : 0;
77
78   value = Math.abs(value);
79
80   if (isNaN(value) || value === Infinity) {
81     m = isNaN(value) ? 1 : 0;
82     e = eMax;
83   } else {
84     e = Math.floor(Math.log(value) / Math.LN2);
85     if (value * (c = Math.pow(2, -e)) < 1) {
86       e--;
87       c *= 2;
88     }
89     if (e+eBias >= 1) {
90       value += rt / c;
91     } else {
92       value += rt * Math.pow(2, 1 - eBias);
93     }
94     if (value * c >= 2) {
95       e++;
96       c /= 2;
97     }
98
99     if (e + eBias >= eMax) {
100       m = 0;
101       e = eMax;
102     } else if (e + eBias >= 1) {
103       m = (value * c - 1) * Math.pow(2, mLen);
104       e = e + eBias;
105     } else {
106       m = value * Math.pow(2, eBias - 1) * Math.pow(2, mLen);
107       e = 0;
108     }
109   }
110
111   for (; mLen >= 8; buffer[offset + i] = m & 0xff, i += d, m /= 256, mLen -= 8);
112
113   e = (e << mLen) | m;
114   eLen += mLen;
115   for (; eLen > 0; buffer[offset + i] = e & 0xff, i += d, e /= 256, eLen -= 8);
116
117   buffer[offset + i - d] |= s * 128;
118 };
119
120 if(typeof window === 'undefined') {
121   exports.readIEEE754 = readIEEE754;
122   exports.writeIEEE754 = writeIEEE754;
123 }