Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – tendra.SVN – Blame – /branches/algol60/src/installers/sparc/common/exptypes.h – Rev 2

Subversion Repositories tendra.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1
/*
2
    		 Crown Copyright (c) 1997
3
 
4
    This TenDRA(r) Computer Program is subject to Copyright
5
    owned by the United Kingdom Secretary of State for Defence
6
    acting through the Defence Evaluation and Research Agency
7
    (DERA).  It is made available to Recipients with a
8
    royalty-free licence for its use, reproduction, transfer
9
    to other parties and amendment for any purpose not excluding
10
    product development provided that any such use et cetera
11
    shall be deemed to be acceptance of the following conditions:-
12
 
13
        (1) Its Recipients shall ensure that this Notice is
14
        reproduced upon any copies or amended versions of it;
15
 
16
        (2) Any amended version of it shall be clearly marked to
17
        show both the nature of and the organisation responsible
18
        for the relevant amendment or amendments;
19
 
20
        (3) Its onward transfer from a recipient to another
21
        party shall be deemed to be that party's acceptance of
22
        these conditions;
23
 
24
        (4) DERA gives no warranty or assurance as to its
25
        quality or suitability for any purpose and DERA accepts
26
        no liability whatsoever in relation to any use to which
27
        it may be put.
28
*/
29
 
30
 
31
 
32
 
33
/*
34
			    VERSION INFORMATION
35
			    ===================
36
 
37
--------------------------------------------------------------------------
38
$Header: /u/g/release/CVSROOT/Source/src/installers/sparc/common/exptypes.h,v 1.1.1.1 1998/01/17 15:55:54 release Exp $
39
--------------------------------------------------------------------------
40
$Log: exptypes.h,v $
41
 * Revision 1.1.1.1  1998/01/17  15:55:54  release
42
 * First version to be checked into rolling release.
43
 *
44
 * Revision 1.4  1997/08/23  13:53:40  pwe
45
 * initial ANDF-DE
46
 *
47
 * Revision 1.3  1997/02/18  11:47:50  pwe
48
 * NEWDIAGS for debugging optimised code
49
 *
50
 * Revision 1.2  1995/12/15  10:12:30  john
51
 * Minor change
52
 *
53
 * Revision 1.1.1.1  1995/03/13  10:18:33  john
54
 * Entered into CVS
55
 *
56
 * Revision 1.2  1994/07/04  09:24:54  djch
57
 * Jun94 tape version
58
 *
59
 * Revision 1.1  1994/05/03  14:50:14  djch
60
 * Initial revision
61
 *
62
 * Revision 1.1  93/06/24  14:58:13  14:58:13  ra (Robert Andrews)
63
 * Initial revision
64
 * 
65
--------------------------------------------------------------------------
66
*/
67
 
68
 
69
#ifndef EXPTYPES_INCLUDED
70
#define EXPTYPES_INCLUDED
71
 
72
 
73
/*
74
    TYPE REPRESENTING EXPRESSION PROPERTIES
75
*/
76
 
77
typedef unsigned short prop ;
78
 
79
 
80
/*
81
    UNION REPRESENTING AN EXPRESSION CONSTITUENT
82
*/
83
 
84
typedef union {
85
    struct exp_t *e ;
86
    char *str ;
87
    int l ;
88
    unsigned int ui ;
89
    float f ;
90
    struct dec_t *glob ;
91
#ifndef NEWDIAGS
92
    diag_info *d ;
93
#endif
94
    struct aldef_t *ald ;
95
} expno ;
96
 
97
 
98
/*
99
    TYPE REPRESENTING AN EXPRESSION
100
*/
101
 
102
struct exp_t {
103
    expno brof ;
104
    expno numf ;
105
    expno ptf ;
106
    expno sonf ;
107
    struct exp_t *shf ;
108
    prop propsf ;
109
    unsigned char namef ;
110
    int lastf : 1 ;
111
    unsigned int park : 1 ;
112
#ifdef NEWDIAGS
113
    diag_info * diagf; 
114
#endif
115
} ;
116
 
117
typedef struct exp_t *exp ;
118
 
119
#endif /* EXPTYPES_INCLUDED */