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
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
|
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>
<HEAD>
<TITLE>nevrax.org : docs</TITLE>
<LINK REL=stylesheet TYPE="text/css" HREF="/inc/css/nevrax.css">
<link href="doxygen.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY MARGINHEIGHT="0" MARGINWIDTH="0">
<!-- uplinks -->
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD WIDTH=16><IMG SRC="/inc/img/pixel.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD WIDTH=140 BGCOLOR=#dddddd><IMG SRC="/inc/img/pixel.gif" WIDTH="140" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD WIDTH=16><IMG SRC="/inc/img/pixel.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD><IMG width=6 height=14 SRC="/inc/img/reddots.gif" ALT="#" VSPACE=2 HSPACE=2 BORDER=0 ></TD><TD VALIGN=middle> <A CLASS=uplinks HREF=><b>Home</B></FONT></A> </TD>
<TD><IMG width=6 height=14 SRC="/inc/img/reddots.gif" ALT="#" VSPACE=2 HSPACE=2 BORDER=0 ></TD><TD VALIGN=middle> <A CLASS=uplinks HREF=http://www.nevrax.com><b>nevrax.com</B></FONT></A> </TD>
</TR>
</TABLE>
<!-- banner Nevrax -->
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%>
<TR><TD BGCOLOR="#000000" BACKGROUND="/inc/img/black_banner.jpg"><A HREF=""><IMG SRC="/inc/img/nevrax.gif" WIDTH="170" HEIGHT="45" BORDER=0 ALT="Nevrax" ></A></TD></TR>
</TABLE>
<!-- main table -->
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 height=100%>
<TR>
<TD WIDTH=16><IMG SRC="/inc/img/pixel.gif" WIDTH="16" HEIGHT="10" BORDER=0 ALT=""></TD>
<TD WIDTH=140 BGCOLOR=#dddddd VALIGN=TOP ALIGN=middle><IMG SRC="/inc/img/pixel.gif" WIDTH="140" HEIGHT="10" BORDER=0 ALT="">
<!------ Begin Box ------>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=black><TR><TD><TABLE border=0 cellspacing=2 cellpadding=0 width=120><tr><TD ALIGN=middle bgcolor=black>
<FONT COLOR=white FACE="sans-serif"><B>Nevrax.org</B></FONT></TD></TR><tr><td colspan=2 bgcolor=#FFFFFF>
<TABLE cellspacing=0 cellpadding=1 border=0>
<tr><td ALIGN=middle><a class='linkbox' href="/news/" TITLE="Rubrique news"><img width=13 height=15 hspace=5 border=0 src=/inc/img/picto-news.gif ALT=#></A></td><td><a class='linkbox' href="/news/" TITLE="News">News</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="/mail/" TITLE="Rubrique mail"><img width=15 height=11 hspace=5 border=0 src=/inc/img/picto-mail.gif ALT=#></A></td><td><a class='linkbox' href="/mail/" TITLE="Mailing list archive">Mailing-list</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="/docs/" TITLE="Rubrique docs"><img width=14 height=16 hspace=5 border=0 src=/inc/img/picto-docs.gif ALT=#></A></td><td><a class='linkbox' href="/docs/" TITLE="Documentation">Documentation</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="/cvs/" TITLE="Rubrique cvs"><img width=13 height=17 hspace=5 border=0 src=/inc/img/picto-cvs.gif ALT=#></A></td><td><a class='linkbox' href="/cvs/" TITLE="CVS Web">CVS</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="/bugs/" TITLE="Rubrique bugs"><img width=20 height=16 hspace=5 border=0 src=/inc/img/picto-bugs.gif ALT=#></A></td><td><a class='linkbox' href="/bugs/" TITLE="Bugtracking">Bugs</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="/GPL.php3" TITLE="Rubrique license"><img width=18 height=12 hspace=5 border=0 src=/inc/img/picto-gpl.gif ALT=#></A></td><td><a class='linkbox' href="/GPL.php3" TITLE="License">License</a></td></tr>
</TABLE>
</TD></TR></TABLE></TD></TR></TABLE>
<!------ End Box ------>
</TD>
<TD WIDTH=15><IMG SRC="/inc/img/pixel.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD ALIGN=left valign=top><IMG SRC="/inc/img/pixel.gif" WIDTH="140" HEIGHT="10" BORDER=0 ALT="">
<!-- title -->
<TABLE background="/inc/img/redline.gif" CELLSPACING=0 CELLPADDING=0 BORDER=0 width=100%><tr><td>
<A HREF="/docs/"><img src="/inc/img/t_docs.gif" ALT="Docs" HEIGHT=20 BORDER=0></A>
</td><td><IMG SRC="/inc/img/pixel.gif" WIDTH="1" HEIGHT="1" BORDER=0 ALT="">
</td></tr></table>
<!-- block -->
<TABLE bgcolor="#dddddd" CELLSPACING=0 CELLPADDING=0 BORDER=0 width=100%><tr><td width=1% valign=middle><img width=6 height=14 hspace=2 vspace=2 src="/inc/img/reddots.gif"></TD>
<TD><B>Documentation</B></TD>
<TD ALIGN=RIGHT> </td>
</tr></table>
<!-- Generated by Doxygen 1.2.2 on Mon Mar 5 22:00:39 2001 -->
<center>
<a class="qindex" href="index.html">Main Page</a> <a class="qindex" href="namespaces.html">Namespace List</a> <a class="qindex" href="hierarchy.html">Class Hierarchy</a> <a class="qindex" href="classes.html">Alphabetical List</a> <a class="qindex" href="annotated.html">Compound List</a> <a class="qindex" href="files.html">File List</a> <a class="qindex" href="namespacemembers.html">Namespace Members</a> <a class="qindex" href="functions.html">Compound Members</a> <a class="qindex" href="globals.html">File Members</a> <a class="qindex" href="pages.html">Related Pages</a> <a class="qindexRef" doxygen="_cgi:/cgi-bin/nel-search.cgi" href="/cgi-bin/nel-search.cgi">Search</a> </center>
<hr><h1>agent_proxy_mailer.cpp</h1><a href="agent_proxy_mailer_cpp.html">Go to the documentation of this file.</a><div class="fragment"><pre>00001
00006 <font class="comment">/* Copyright, 2000 Nevrax Ltd.
</font>00007 <font class="comment"> *
</font>00008 <font class="comment"> * This file is part of NEVRAX NEL.
</font>00009 <font class="comment"> * NEVRAX NEL is free software; you can redistribute it and/or modify
</font>00010 <font class="comment"> * it under the terms of the GNU General Public License as published by
</font>00011 <font class="comment"> * the Free Software Foundation; either version 2, or (at your option)
</font>00012 <font class="comment"> * any later version.
</font>00013 <font class="comment">
</font>00014 <font class="comment"> * NEVRAX NEL is distributed in the hope that it will be useful, but
</font>00015 <font class="comment"> * WITHOUT ANY WARRANTY; without even the implied warranty of
</font>00016 <font class="comment"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
</font>00017 <font class="comment"> * General Public License for more details.
</font>00018 <font class="comment">
</font>00019 <font class="comment"> * You should have received a copy of the GNU General Public License
</font>00020 <font class="comment"> * along with NEVRAX NEL; see the file COPYING. If not, write to the
</font>00021 <font class="comment"> * Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
</font>00022 <font class="comment"> * MA 02111-1307, USA.
</font>00023 <font class="comment"> */</font>
00024 <font class="preprocessor">#include "<a class="code" href="agent_h.html">nel/ai/agent/agent.h</a>"</font>
00025 <font class="preprocessor">#include "<a class="code" href="codage_h.html">nel/ai/script/codage.h</a>"</font>
00026 <font class="preprocessor">#include "<a class="code" href="agent_local_mailer_h.html">nel/ai/agent/agent_local_mailer.h</a>"</font>
00027 <font class="preprocessor">#include "<a class="code" href="interpret_object_agent_h.html">nel/ai/script/interpret_object_agent.h</a>"</font>
00028 <font class="preprocessor">#include "<a class="code" href="interpret_object_message_h.html">nel/ai/script/interpret_object_message.h</a>"</font>
00029 <font class="preprocessor">#include "<a class="code" href="main_agent_script_h.html">nel/ai/agent/main_agent_script.h</a>"</font>
00030 <font class="preprocessor">#include "<a class="code" href="ai_exception_h.html">nel/ai/e/ai_exception.h</a>"</font>
00031 <font class="preprocessor">#include "<a class="code" href="agent_proxy_mailer_h.html">nel/ai/agent/agent_proxy_mailer.h</a>"</font>
00032 <font class="preprocessor">#include "<a class="code" href="agent_method_def_h.html">nel/ai/agent/agent_method_def.h</a>"</font>
00033 <font class="preprocessor">#include "<a class="code" href="type_def_h.html">nel/ai/script/type_def.h</a>"</font>
00034 <font class="preprocessor">#include "<a class="code" href="object_unknown_h.html">nel/ai/script/object_unknown.h</a>"</font>
00035 <font class="preprocessor">#include "<a class="code" href="agent_object_h.html">nel/ai/agent/agent_object.h</a>"</font>
00036 <font class="preprocessor">#include "<a class="code" href="agent_digital_h.html">nel/ai/agent/agent_digital.h</a>"</font>
00037
00038 <font class="keyword">namespace</font> NLAIAGENT
00039 {
<a name="l00040"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#p1">00040</a> IMainAgent *CProxyAgentMail::MainAgent = NULL;
00041
<a name="l00042"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#p2">00042</a> CProxyAgentMail::CMethodCall **CProxyAgentMail::StaticMethod = NULL;
<a name="l00043"></a><a class="code" href="namespace_NLAIAGENT.html#a10">00043</a> <a class="code" href="class_NLAISCRIPT__CParam.html">NLAISCRIPT::CParam</a> *Param;
00044
<a name="l00045"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#d0">00045</a> <font class="keywordtype">void</font> CProxyAgentMail::initClass()<font class="keyword">
</font>00046 <font class="keyword"> </font>{
00047 CProxyAgentMail::StaticMethod = <font class="keyword">new</font> CProxyAgentMail::CMethodCall *[CProxyAgentMail::TLast];
00048 Param = <font class="keyword">new</font> NLAISCRIPT::CParam(1,<font class="keyword">new</font> <a class="code" href="class_NLAISCRIPT__COperandSimple.html">NLAISCRIPT::COperandSimple</a>(<font class="keyword">new</font> <a class="code" href="class_NLAIC__CIdentType.html">NLAIC::CIdentType</a>(CStringType::IdStringType)));
00049 CProxyAgentMail::StaticMethod[TConstructor]= <font class="keyword">new</font> CProxyAgentMail::CMethodCall(
00050 _CONSTRUCTOR_,
00051 CProxyAgentMail::TConstructor,
00052 Param,
00053 CProxyAgentMail::CheckAll,
00054 1,
00055 <font class="keyword">new</font> <a class="code" href="class_NLAISCRIPT__CObjectUnknown.html">NLAISCRIPT::CObjectUnknown</a>(<font class="keyword">new</font> <a class="code" href="class_NLAISCRIPT__COperandVoid.html">NLAISCRIPT::COperandVoid</a>));
00056 }
00057
<a name="l00058"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#d1">00058</a> <font class="keywordtype">void</font> CProxyAgentMail::releaseClass()<font class="keyword">
</font>00059 <font class="keyword"> </font>{
00060 sint i;
00061 Param->release();
00062 <font class="keywordflow">for</font>(i = 0; i < CProxyAgentMail::TLast; i ++)
00063 {
00064 <font class="keyword">delete</font> CProxyAgentMail::StaticMethod[i];
00065 }
00066 <font class="keyword">delete</font> CProxyAgentMail::StaticMethod;
00067 }
00068
<a name="l00069"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a0">00069</a> CProxyAgentMail::CProxyAgentMail():IBasicAgent((IWordNumRef *)NULL),_AgentRef(NULL)
00070 {
00071 }
<a name="l00072"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a1">00072</a> CProxyAgentMail::CProxyAgentMail(<font class="keyword">const</font> CAgentNumber &agentRef):IBasicAgent((IWordNumRef *)NULL),_AgentRef(new CAgentNumber(agentRef))
00073 {
00074 }
<a name="l00075"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a3">00075</a> CProxyAgentMail::~CProxyAgentMail()<font class="keyword">
</font>00076 <font class="keyword"> </font>{
00077 <font class="keywordflow">if</font>(_AgentRef != NULL) <font class="keyword">delete</font> _AgentRef;
00078 }
00079
<a name="l00080"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a16">00080</a> <font class="keywordtype">void</font> CProxyAgentMail::onKill(IConnectIA *a)<font class="keyword">
</font>00081 <font class="keyword"> </font>{
00082 }
00083
00084 std::list<IBasicAgent *> listBidon;
<a name="l00085"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a17">00085</a> std::list<IBasicAgent *>::iterator CProxyAgentMail::addChild(IBasicAgent *p)<font class="keyword">
</font>00086 <font class="keyword"> </font>{
00087 <font class="keywordflow">return</font> listBidon.begin();
00088 }
00089
<a name="l00090"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a18">00090</a> <font class="keywordtype">void</font> CProxyAgentMail::removeChild(<font class="keyword">const</font> IBasicAgent *p)<font class="keyword">
</font>00091 <font class="keyword"> </font>{
00092 }
00093
<a name="l00094"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a19">00094</a> <font class="keywordtype">void</font> CProxyAgentMail::removeChild(std::list<IBasicAgent *>::iterator &iter)<font class="keyword">
</font>00095 <font class="keyword"> </font>{
00096 }
00097
<a name="l00098"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a20">00098</a> <font class="keywordtype">void</font> CProxyAgentMail::runChildren()<font class="keyword">
</font>00099 <font class="keyword"> </font>{
00100 }
<a name="l00101"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a21">00101</a> <font class="keywordtype">void</font> CProxyAgentMail::processMessages()<font class="keyword">
</font>00102 <font class="keyword"> </font>{
00103 }
00104
<a name="l00105"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a22">00105</a> IObjectIA::CProcessResult CProxyAgentMail::sendMessage(IObjectIA *m)<font class="keyword">
</font>00106 <font class="keyword"> </font>{
00107 IMessageBase *msg = (IMessageBase *)m;
00108
00109 <font class="keywordflow">if</font>(NLAISCRIPT::CMsgNotifyParentClass::IdMsgNotifyParentClass == msg->getType() )
00110 {
00111 <font class="keyword">const</font> INombreDefine *n = (<font class="keyword">const</font> INombreDefine *)msg->getFront();
00112 <font class="keywordflow">if</font>(n->getNumber() != 0.0)
00113 {
00114 <font class="keyword">const</font> CLocalAgentMail *parent = (<font class="keyword">const</font> CLocalAgentMail *)msg->get();
00115 setParent((<font class="keyword">const</font> IWordNumRef *)*parent->getHost());
00116 }
00117 <font class="keywordflow">return</font> IObjectIA::CProcessResult();
00118 }
00119 <font class="keywordflow">else</font>
00120 {
00121 <font class="keywordflow">return</font> MainAgent->sendMessage(*_AgentRef,msg);
00122 }
00123 }
00124
<a name="l00125"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a12">00125</a> tQueue CProxyAgentMail::isMember(<font class="keyword">const</font> IVarName *h,<font class="keyword">const</font> IVarName *m,<font class="keyword">const</font> IObjectIA &param)<font class="keyword"> const
</font>00126 <font class="keyword"> </font>{
00127
00128 tQueue a;
00129 sint i;
00130 CProxyAgentMail::TMethodNumDef index = CProxyAgentMail::TLast;
00131
00132 <font class="keywordflow">if</font>(h == NULL)
00133 {
00134 <font class="keywordflow">for</font>( i = 0; i< CProxyAgentMail::TLast; i++)
00135 {
00136 <font class="keywordflow">if</font>(CProxyAgentMail::StaticMethod[i]->MethodName == *m)
00137 {
00138 index = (CProxyAgentMail::TMethodNumDef)CProxyAgentMail::StaticMethod[i]->Index;
00139 <font class="keywordflow">switch</font>(CProxyAgentMail::StaticMethod[i]->CheckArgType)
00140 {
00141 <font class="keywordflow">case</font> CProxyAgentMail::CheckAll:
00142 {
00143 <font class="keywordtype">double</font> d = ((<a class="code" href="class_NLAISCRIPT__CParam.html">NLAISCRIPT::CParam</a> &)*CProxyAgentMail::StaticMethod[i]->ArgType).eval((<a class="code" href="class_NLAISCRIPT__CParam.html">NLAISCRIPT::CParam</a> &)param);
00144 <font class="keywordflow">if</font>(d >= 0.0)
00145 {
00146 tQueue r;
00147 CProxyAgentMail::StaticMethod[i]->ReturnValue->incRef();
00148 r.push(CIdMethod( (getMethodIndexSize() + CProxyAgentMail::StaticMethod[i]->Index),
00149 0.0,
00150 NULL,
00151 CProxyAgentMail::StaticMethod[i]->ReturnValue));
00152 <font class="keywordflow">return</font> r;
00153 }
00154 }
00155 <font class="keywordflow">break</font>;
00156 <font class="keywordflow">case</font> CProxyAgentMail::CheckCount:
00157 {
00158 <font class="keywordflow">if</font>(((<a class="code" href="class_NLAISCRIPT__CParam.html">NLAISCRIPT::CParam</a> &)param).size() == CProxyAgentMail::StaticMethod[i]->ArgCount)
00159 {
00160 tQueue r;
00161 CProxyAgentMail::StaticMethod[i]->ReturnValue->incRef();
00162 r.push(CIdMethod( (getMethodIndexSize() + CProxyAgentMail::StaticMethod[i]->Index),
00163 0.0,
00164 NULL,
00165 CProxyAgentMail::StaticMethod[i]->ReturnValue ));
00166 <font class="keywordflow">return</font> r;
00167 }
00168 }
00169 <font class="keywordflow">break</font>;
00170 <font class="keywordflow">case</font> CProxyAgentMail::DoNotCheck:
00171 {
00172 tQueue r;
00173 CProxyAgentMail::StaticMethod[i]->ReturnValue->incRef();
00174 r.push(CIdMethod( (getMethodIndexSize() + CProxyAgentMail::StaticMethod[i]->Index),
00175 0.0,
00176 NULL,
00177 CProxyAgentMail::StaticMethod[i]->ReturnValue));
00178 <font class="keywordflow">return</font> r;
00179 }
00180 <font class="keywordflow">break</font>;
00181
00182 }
00183 }
00184 }
00185 }
00186
00187 <font class="keywordflow">return</font> IBasicAgent::isMember(h,m,param);
00188 }
00189
<a name="l00190"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a13">00190</a> IObjectIA::CProcessResult CProxyAgentMail::runMethodeMember(sint32 h, sint32 m, IObjectIA *p)<font class="keyword">
</font>00191 <font class="keyword"> </font>{
00192 <font class="keywordflow">return</font> runMethodeMember(m,p);
00193 }
<a name="l00194"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a14">00194</a> IObjectIA::CProcessResult CProxyAgentMail::runMethodeMember(sint32 m,IObjectIA *p)<font class="keyword">
</font>00195 <font class="keyword"> </font>{
00196 <font class="keywordflow">switch</font>(m - getMethodIndexSize())
00197 {
00198 <font class="keywordflow">case</font> CProxyAgentMail::TConstructor:
00199 {
00200 CStringType *n = (CStringType *)((IBaseGroupType *)p)->get();
00201 <font class="keywordflow">if</font>(_AgentRef != NULL) <font class="keyword">delete</font> _AgentRef;
00202 _AgentRef = <font class="keyword">new</font> CAgentNumber(n->getStr().getString());
00203 }
00204 <font class="keywordflow">break</font>;
00205 }
00206 <font class="keywordflow">return</font> IBasicAgent::runMethodeMember(m,p);
00207 }
<a name="l00208"></a><a class="code" href="class_NLAIAGENT__CProxyAgentMail.html#a15">00208</a> sint32 CProxyAgentMail::getMethodIndexSize()<font class="keyword"> const
</font>00209 <font class="keyword"> </font>{
00210 <font class="keywordflow">return</font> IBasicAgent::getMethodIndexSize() + 1;
00211 }
00212 }
</div></pre>
<!-- footer -->
<BR><FONT Size=+5> </FONT>
</TD>
<TD WIDTH=15><IMG SRC=/inc/img/pixel.gif WIDTH=15 HEIGHT=15 BORDER=0 ALT=""></TD>
</TR>
</TABLE>
</BODY>
</HTML>
|
