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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
/* $XConsortium$ */
/*
* Copyright (c) 1993 Silicon Graphics, Inc.
* Copyright (c) 1993 Fujitsu, Ltd.
*
* Permission to use, copy, modify, distribute, and sell this software and
* its documentation for any purpose is hereby granted without fee, provided
* that (i) the above copyright notices and this permission notice appear in
* all copies of the software and related documentation, and (ii) the names of
* Silicon Graphics and Fujitsu may not be used in any advertising or
* publicity relating to the software without the specific, prior written
* permission of Silicon Graphics and Fujitsu.
*
* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
*
* IN NO EVENT SHALL SILICON GRAPHICS OR FUJITSU BE LIABLE FOR
* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
* OF THIS SOFTWARE.
*/
#ifndef ox_schema_h
#define ox_schema_h
#include "obj-impl.h"
/*
* These functions handle narrowing of a nil object reference.
* They should be static member functions in BaseObject, but
* currently are not because of a C++ compiler bug.
*/
void* _BaseObject_tnarrow(BaseObjectRef, TypeObjId, StubCreator);
void* _BaseObject_tcast(BaseObjectRef, TypeObjId);
typedef ULong ExchangeId;
class Exception;
class Exchange;
class MarshalBuffer;
class TypeImpl;
typedef void (*TypeObj_CallFunc)(BaseObjectRef, ULong, MarshalBuffer&);
typedef Exception* (*TypeObj_UnmarshalException)(MarshalBuffer&);
struct TypeObj_Descriptor;
struct TypeObj_OpData {
const char* name;
TypeObj_Descriptor* result;
Long nparams;
};
struct TypeObj_ParamData {
const char* name;
Long mode;
TypeObj_Descriptor* type;
};
struct TypeObj_Descriptor {
TypeImpl* type;
TypeObjId* id;
char* name;
TypeObj_Descriptor** parents;
Long* offsets;
TypeObj_UnmarshalException* excepts;
TypeObj_OpData* methods;
TypeObj_ParamData* params;
TypeObj_CallFunc receive;
};
class TypeImpl : public TypeObj {
public:
TypeImpl(TypeObj::KindOf, TypeObj_Descriptor*);
~TypeImpl();
Long ref__(Long);
//+ TypeObj::=
string name();
Boolean op_info(TypeObj::OpInfo& op, Long n);
KindOf kind();
Long enum_info();
void array_info(TypeObj_out& type, Long& size);
Long members();
TypeObj_return member_info(Long n);
void sequence_info(TypeObj_out& type, Long& size);
TypeObj_return typedef_info();
//+
static TypeImpl* make_type(TypeObj_Descriptor*);
protected:
SharedBaseObjectImpl object_;
TypeObj::KindOf kind_;
TypeObj_Descriptor* descriptor_;
Long opcount_;
};
class TypeSchemaImpl : public TypeSchema {
protected:
TypeSchemaImpl();
~TypeSchemaImpl();
public:
static TypeSchemaImpl* schema();
void load(TypeObj_Descriptor*);
void load_list(TypeObj_Descriptor**);
TypeObjRef map(TypeObjId);
void* cast(void* obj, TypeObjId ancestor, TypeObjId descendant);
void* match(void*, TypeObj_Descriptor*, TypeObjId);
void receiver(TypeObjId, TypeObj_CallFunc);
TypeObj_Descriptor* descriptor(TypeObjId);
void save();
void deactivate();
protected:
TypeObj_Descriptor** list_;
Long size_;
Long used_;
TypeObj_Descriptor* cache_[8];
static TypeSchemaImpl* schema_;
};
/*
* Handy macros for referring to type variables.
* The id (TypeIdVar) is _<type>_tid and the descriptor (TypeVar)
* is _<type>_type.
*/
#if !defined(UNIXCPP)
#define __TypeIdVar(T) _##T##_##tid
#define TypeIdVar(T) __TypeIdVar(T)
#define __TypeVar(T) _##T##_##type
#define TypeVar(T) __TypeVar(T)
#else
#define __TypeIdVar(T) _/**/T/**/_/**/tid
#define TypeIdVar(T) __TypeIdVar(T)
#define __TypeVar(T) _/**/T/**/_/**/type
#define TypeVar(T) __TypeVar(T)
#endif
/*
* Short-hand for simple type descriptors.
*/
#define DefineType(Name,SizeName,StringName) \
TypeObj_Descriptor TypeVar(Name) = { \
0, &TypeIdVar(Name), StringName, 0, 0, 0, 0, 0 \
};
#endif
|
