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 -... Line 1...
- 
 
 1 
/*
- 
 
 2 
 * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
- 
 
 3 
 * All rights reserved.
- 
 
 4 
 *
- 
 
 5 
 * Redistribution and use in source and binary forms, with or without
- 
 
 6 
 * modification, are permitted provided that the following conditions are met:
- 
 
 7 
 *
- 
 
 8 
 * 1. Redistributions of source code must retain the above copyright notice,
- 
 
 9 
 *    this list of conditions and the following disclaimer.
- 
 
 10 
 * 2. 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 
 * 3. Neither the name of The TenDRA Project nor the names of its contributors
- 
 
 14 
 *    may be used to endorse or promote products derived from this software
- 
 
 15 
 *    without specific, prior written permission.
- 
 
 16 
 *
- 
 
 17 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
- 
 
 18 
 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
- 
 
 19 
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- 
 
 20 
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
- 
 
 21 
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- 
 
 22 
 * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- 
 
 23 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- 
 
 24 
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- 
 
 25 
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- 
 
 26 
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- 
 
 27 
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- 
 
 28 
 *
- 
 
 29 
 * $Id$
- 
 
 30 
 */
1 
/*
 31 
/*
2 
    		 Crown Copyright (c) 1997
 32 
    		 Crown Copyright (c) 1997
3
33 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
 34 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
 35 
    owned by the United Kingdom Secretary of State for Defence
6 
    acting through the Defence Evaluation and Research Agency
 36 
    acting through the Defence Evaluation and Research Agency
7 
    (DERA).  It is made available to Recipients with a
 37 
    (DERA).  It is made available to Recipients with a
8 
    royalty-free licence for its use, reproduction, transfer
 38 
    royalty-free licence for its use, reproduction, transfer
9 
    to other parties and amendment for any purpose not excluding
 39 
    to other parties and amendment for any purpose not excluding
10 
    product development provided that any such use et cetera
 40 
    product development provided that any such use et cetera
11 
    shall be deemed to be acceptance of the following conditions:-
 41 
    shall be deemed to be acceptance of the following conditions:-
12
42 
 
13 
        (1) Its Recipients shall ensure that this Notice is
 43 
        (1) Its Recipients shall ensure that this Notice is
14 
        reproduced upon any copies or amended versions of it;
 44 
        reproduced upon any copies or amended versions of it;
15
45 
 
16 
        (2) Any amended version of it shall be clearly marked to
 46 
        (2) Any amended version of it shall be clearly marked to
17 
        show both the nature of and the organisation responsible
 47 
        show both the nature of and the organisation responsible
18 
        for the relevant amendment or amendments;
 48 
        for the relevant amendment or amendments;
19
49 
 
20 
        (3) Its onward transfer from a recipient to another
 50 
        (3) Its onward transfer from a recipient to another
21 
        party shall be deemed to be that party's acceptance of
 51 
        party shall be deemed to be that party's acceptance of
22 
        these conditions;
 52 
        these conditions;
23
53 
 
24 
        (4) DERA gives no warranty or assurance as to its
 54 
        (4) DERA gives no warranty or assurance as to its
25 
        quality or suitability for any purpose and DERA accepts
 55 
        quality or suitability for any purpose and DERA accepts
26 
        no liability whatsoever in relation to any use to which
 56 
        no liability whatsoever in relation to any use to which
27 
        it may be put.
 57 
        it may be put.
28 
*/
 58 
*/
29 
 
 59 
 
30 
 
 60 
 
31 
#ifndef TYPE_INCLUDED
 61 
#ifndef TYPE_INCLUDED
32 
#define TYPE_INCLUDED
 62 
#define TYPE_INCLUDED
33 
 
 63 
 
- 
 
 64 
#ifndef OBJECT_INCLUDED
- 
 
 65 
#include "object.h"
- 
 
 66 
#endif
34 
 
 67 
 
35 
/*
 68 
/*
36 
    TYPE REPRESENTING A C TYPE
 69 
    TYPE REPRESENTING A C TYPE
37 
 
 70 
 
38 
    A type consists of a type identifier followed by a union of different
 71 
    A type consists of a type identifier followed by a union of different
39 
    information, depending on the identifier.
 72 
    information, depending on the identifier.
40 
*/
 73 
*/
41 
 
 74 
 
42 
typedef struct type_tag {
 75 
typedef struct type_tag {
43 
    int id ;
 76 
    int id;
44 
    union {
 77 
    union {
45 
	object *obj ;
 78 
	object *obj;
46 
	struct type_tag *subtype ;
 79 
	struct type_tag *subtype;
47 
    } u ;
 80 
    } u;
48 
    union {
 81 
    union {
49 
	int no ;
 82 
	int no;
50 
	char *str ;
 83 
	char *str;
51 
	object *obj2 ;
 84 
	object *obj2;
52 
	struct type_tag *next ;
 85 
	struct type_tag *next;
53 
    } v ;
 86 
    } v;
54 
    boolean state ;
 87 
    boolean state;
55 
} type ;
 88 
} type;
56 
 
 89 
 
57 
 
 90 
 
58 
/*
 91 
/*
59 
    TYPE REPRESENTING A STRUCTURE OR UNION FIELD
 92 
    TYPE REPRESENTING A STRUCTURE OR UNION FIELD
60 
 
 93 
 
Line 62... Line 95...
62 
    corresponding token, a field name, a field type, and the parent
 95 
    corresponding token, a field name, a field type, and the parent
63 
    structure or union type.
 96 
    structure or union type.
64 
*/
 97 
*/
65 
 
 98 
 
66 
typedef struct field_tag {
 99 
typedef struct field_tag {
67 
    object *obj ;
 100 
    object *obj;
68 
    char *fname ;
 101 
    char *fname;
69 
    type *ftype ;
 102 
    type *ftype;
70 
    type *stype ;
 103 
    type *stype;
71 
} field ;
 104 
} field;
72 
 
 105 
 
73 
 
 106 
 
74 
/*
 107 
/*
75 
    TYPE IDENTIFIERS
 108 
    TYPE IDENTIFIERS
76 
 
 109 
 
Line 111... Line 144...
111 
 
 144 
 
112 
    The basic type specifiers are represented as combinations of these
 145 
    The basic type specifiers are represented as combinations of these
113 
    values.
 146 
    values.
114 
*/
 147 
*/
115 
 
 148 
 
116 
#define BTYPE_CHAR		( ( unsigned ) 0x0001 )
 149 
#define BTYPE_CHAR		((unsigned)0x0001)
117 
#define BTYPE_SHORT		( ( unsigned ) 0x0002 )
 150 
#define BTYPE_SHORT		((unsigned)0x0002)
118 
#define BTYPE_INT		( ( unsigned ) 0x0004 )
 151 
#define BTYPE_INT		((unsigned)0x0004)
119 
#define BTYPE_LONG		( ( unsigned ) 0x0008 )
 152 
#define BTYPE_LONG		((unsigned)0x0008)
120 
#define BTYPE_LLONG		( ( unsigned ) 0x0010 )
 153 
#define BTYPE_LLONG		((unsigned)0x0010)
121 
#define BTYPE_SIGNED		( ( unsigned ) 0x0020 )
 154 
#define BTYPE_SIGNED		((unsigned)0x0020)
122 
#define BTYPE_UNSIGNED		( ( unsigned ) 0x0040 )
 155 
#define BTYPE_UNSIGNED		((unsigned)0x0040)
123 
#define BTYPE_FLOAT		( ( unsigned ) 0x0080 )
 156 
#define BTYPE_FLOAT		((unsigned)0x0080)
124 
#define BTYPE_DOUBLE		( ( unsigned ) 0x0100 )
 157 
#define BTYPE_DOUBLE		((unsigned)0x0100)
125 
#define BTYPE_VOID		( ( unsigned ) 0x0200 )
 158 
#define BTYPE_VOID		((unsigned)0x0200)
126 
#define BTYPE_ERROR		( ( unsigned ) 0x0400 )
 159 
#define BTYPE_ERROR		((unsigned)0x0400)
127 
 
 160 
 
128 
 
 161 
 
129 
/*
 162 
/*
130 
    FUNDAMENTAL TYPES
 163 
    FUNDAMENTAL TYPES
131 
 
 164 
 
132 
    These types represent the basic C types.
 165 
    These types represent the basic C types.
133 
*/
 166 
*/
134 
 
 167 
 
135 
#define BUILTIN( TYPE, NAME, VERS, ID )	extern type *TYPE
 168 
#define BUILTIN(TYPE, NAME, VERS, ID)	extern type *TYPE
136 
#include "builtin.h"
 169 
#include "builtin.h"
137 
 
 170 
 
138 
 
 171 
 
139 
/*
 172 
/*
140 
    PROCEDURE DECLARATIONS
 173 
    PROCEDURE DECLARATIONS
141 
 
 174 
 
142 
    These routines are concerned with creating and manipulating types.
 175 
    These routines are concerned with creating and manipulating types.
143 
*/
 176 
*/
144 
 
 177 
 
145 
extern type *basic_type PROTO_S ( ( unsigned ) ) ;
 178 
extern type *basic_type(unsigned);
146 
extern type *make_type PROTO_S ( ( char *, int, int ) ) ;
 179 
extern type *make_type(char *, int, int);
147 
extern type *find_type PROTO_S ( ( char *, int, int, int ) ) ;
 180 
extern type *find_type(char *, int, int, int);
148 
extern type *make_subtype PROTO_S ( ( type *, int ) ) ;
 181 
extern type *make_subtype(type *, int);
149 
extern type *inject_type PROTO_S ( ( type *, type * ) ) ;
 182 
extern type *inject_type(type *, type *);
150 
extern type *check_type PROTO_S ( ( type *, int ) ) ;
 183 
extern type *check_type(type *, int);
151 
extern type *expand_type PROTO_S ( ( type * ) ) ;
 184 
extern type *expand_type(type *);
152 
extern field *make_field PROTO_S ( ( char *, int, type *, type * ) ) ;
 185 
extern field *make_field(char *, int, type *, type *);
153 
extern type *special_type PROTO_S ( ( char * ) ) ;
 186 
extern type *special_type(char *);
154 
extern void init_types PROTO_S ( ( void ) ) ;
 187 
extern void init_types(void);
155 
 
 188 
 
156 
 
 189 
 
157 
#endif
 190 
#endif