Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 35... Line 35...
35 
#ifndef FLT_OPS_H_INCLUDED
 35 
#ifndef FLT_OPS_H_INCLUDED
36 
#define FLT_OPS_H_INCLUDED
 36 
#define FLT_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union FLOAT */
 38 
/* Operations for union FLOAT */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : FLOAT : ) EXP : unsigned : TAG_flt #
 40 
#pragma token PROC(EXP : FLOAT :) EXP : unsigned : TAG_flt #
41 
#pragma interface TAG_flt
 41 
#pragma interface TAG_flt
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component tok of union FLOAT */
 44 
/* Operations for component tok of union FLOAT */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : FLOAT : )\
 46 
#pragma token PROC(EXP : FLOAT :)\
47 
    EXP : PTR ( ulong_type ) : flt_tok #
 47 
    EXP : PTR(ulong_type) : flt_tok #
48 
#pragma interface flt_tok
 48 
#pragma interface flt_tok
49 
 
 49 
 
50 
/* Operations for field simple of union FLOAT */
 50 
/* Operations for field simple of union FLOAT */
51 
 
 51 
 
52 
#pragma token EXP const : unsigned : flt_simple_tag #
 52 
#pragma token EXP const : unsigned : flt_simple_tag #
53 
#pragma token PROC ( EXP : FLOAT : ) EXP : int : IS_flt_simple #
 53 
#pragma token PROC(EXP : FLOAT :) EXP : int : IS_flt_simple #
54 
#pragma interface flt_simple_tag IS_flt_simple
 54 
#pragma interface flt_simple_tag IS_flt_simple
55 
 
 55 
 
56 
#pragma token PROC ( EXP : FLOAT : )\
 56 
#pragma token PROC(EXP : FLOAT :)\
57 
    EXP : PTR ( string ) : flt_simple_int_part #
 57 
    EXP : PTR(string) : flt_simple_int_part #
58 
#pragma interface flt_simple_int_part
 58 
#pragma interface flt_simple_int_part
59 
 
 59 
 
60 
#pragma token PROC ( EXP : FLOAT : )\
 60 
#pragma token PROC(EXP : FLOAT :)\
61 
    EXP : PTR ( string ) : flt_simple_frac_part #
 61 
    EXP : PTR(string) : flt_simple_frac_part #
62 
#pragma interface flt_simple_frac_part
 62 
#pragma interface flt_simple_frac_part
63 
 
 63 
 
64 
#pragma token PROC ( EXP : FLOAT : )\
 64 
#pragma token PROC(EXP : FLOAT :)\
65 
    EXP : PTR ( NAT ) : flt_simple_exponent #
 65 
    EXP : PTR(NAT) : flt_simple_exponent #
66 
#pragma interface flt_simple_exponent
 66 
#pragma interface flt_simple_exponent
67 
 
 67 
 
68 
#pragma token PROC (\
 68 
#pragma token PROC(\
69 
	EXP : string :,\
 69 
	EXP : string :,\
70 
	EXP : string :,\
 70 
	EXP : string :,\
71 
	EXP : NAT :,\
 71 
	EXP : NAT :,\
72 
	EXP lvalue : FLOAT :\
 72 
	EXP lvalue : FLOAT :\
73 
    ) STATEMENT MAKE_flt_simple #
 73 
    ) STATEMENT MAKE_flt_simple #
74 
#pragma interface MAKE_flt_simple
 74 
#pragma interface MAKE_flt_simple
75 
 
 75 
 
76 
#pragma token PROC (\
 76 
#pragma token PROC(\
77 
	EXP lvalue : ulong_type :,\
 77 
	EXP lvalue : ulong_type :,\
78 
	EXP lvalue : string :,\
 78 
	EXP lvalue : string :,\
79 
	EXP lvalue : string :,\
 79 
	EXP lvalue : string :,\
80 
	EXP lvalue : NAT :,\
 80 
	EXP lvalue : NAT :,\
81 
	EXP : FLOAT :\
 81 
	EXP : FLOAT :\
82 
    ) STATEMENT DECONS_flt_simple #
 82 
    ) STATEMENT DECONS_flt_simple #
83 
#pragma interface DECONS_flt_simple
 83 
#pragma interface DECONS_flt_simple
84 
 
 84 
 
85 
#pragma token PROC (\
 85 
#pragma token PROC(\
86 
	EXP : DESTROYER :,\
 86 
	EXP : DESTROYER :,\
87 
	EXP lvalue : ulong_type :,\
 87 
	EXP lvalue : ulong_type :,\
88 
	EXP lvalue : string :,\
 88 
	EXP lvalue : string :,\
89 
	EXP lvalue : string :,\
 89 
	EXP lvalue : string :,\
90 
	EXP lvalue : NAT :,\
 90 
	EXP lvalue : NAT :,\