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
|
/* file generated by oo2c -- do not edit */
#include "LRealConv.h"
#include "CharClass.h"
#include "LongInts.h"
#include "LowLReal.h"
#include "Strings.h"
/* local definitions */
typedef LongInts__LongInt LRealConv__LongInt;
static ConvTypes__ScanState LRealConv__RS;
static ConvTypes__ScanState LRealConv__P;
static ConvTypes__ScanState LRealConv__F;
static ConvTypes__ScanState LRealConv__E;
static ConvTypes__ScanState LRealConv__SE;
static ConvTypes__ScanState LRealConv__WE;
static ConvTypes__ScanState LRealConv__SR;
/* function prototypes */
unsigned char LRealConv__IsExponent(unsigned char ch);
unsigned char LRealConv__IsSign(unsigned char ch);
double LRealConv__Real(LongInts__LongInt x, int exp, int digits, unsigned char *outOfRange);
/* module and type descriptors */
static const struct {
int length;
void* pad;
const char name[10];
} _n0 = {10, NULL, {"LRealConv"}};
static struct _MD LRealConv_md = {
NULL,
&Kernel__ModuleDesc_td.td,
{
NULL,
(const unsigned char*)_n0.name,
-1,
NULL
}
};
/* local strings */
static const unsigned char _c2[] = "2.4312432637500083E-88";
static const unsigned char _c1[] = "5.1059259362558051E-111";
static const unsigned char _c0[] = "-1.8770465240919248E+246";
|
