1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski  *
3*b1cdbd2cSJim Jagielski  * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski  * or more contributor license agreements.  See the NOTICE file
5*b1cdbd2cSJim Jagielski  * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski  * regarding copyright ownership.  The ASF licenses this file
7*b1cdbd2cSJim Jagielski  * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski  * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski  * with the License.  You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski  *
11*b1cdbd2cSJim Jagielski  *   http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski  *
13*b1cdbd2cSJim Jagielski  * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski  * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski  * KIND, either express or implied.  See the License for the
17*b1cdbd2cSJim Jagielski  * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski  * under the License.
19*b1cdbd2cSJim Jagielski  *
20*b1cdbd2cSJim Jagielski  *************************************************************/
21*b1cdbd2cSJim Jagielski 
22*b1cdbd2cSJim Jagielski #include <precomp.h>
23*b1cdbd2cSJim Jagielski #include "pe_param.hxx"
24*b1cdbd2cSJim Jagielski 
25*b1cdbd2cSJim Jagielski 
26*b1cdbd2cSJim Jagielski // NOT FULLY DEFINED SERVICES
27*b1cdbd2cSJim Jagielski #include <cosv/tpl/tpltools.hxx>
28*b1cdbd2cSJim Jagielski #include <ary/cpp/c_gate.hxx>
29*b1cdbd2cSJim Jagielski #include <ary/cpp/cp_type.hxx>
30*b1cdbd2cSJim Jagielski #include "pe_type.hxx"
31*b1cdbd2cSJim Jagielski #include "pe_vari.hxx"
32*b1cdbd2cSJim Jagielski 
33*b1cdbd2cSJim Jagielski 
34*b1cdbd2cSJim Jagielski namespace cpp {
35*b1cdbd2cSJim Jagielski 
36*b1cdbd2cSJim Jagielski 
37*b1cdbd2cSJim Jagielski 
38*b1cdbd2cSJim Jagielski //***********************		PE_Parameter		***********************//
39*b1cdbd2cSJim Jagielski 
40*b1cdbd2cSJim Jagielski 
PE_Parameter(Cpp_PE * i_pParent)41*b1cdbd2cSJim Jagielski PE_Parameter::PE_Parameter( Cpp_PE * i_pParent )
42*b1cdbd2cSJim Jagielski 	:   Cpp_PE(i_pParent),
43*b1cdbd2cSJim Jagielski         pStati( new PeStatusArray<PE_Parameter> )
44*b1cdbd2cSJim Jagielski 	    // pSpType,
45*b1cdbd2cSJim Jagielski 	    // pSpuType,
46*b1cdbd2cSJim Jagielski 	    // pSpVariable,
47*b1cdbd2cSJim Jagielski 	    // pSpuVariable,
48*b1cdbd2cSJim Jagielski         // aResultParamInfo
49*b1cdbd2cSJim Jagielski {
50*b1cdbd2cSJim Jagielski 	Setup_StatusFunctions();
51*b1cdbd2cSJim Jagielski 
52*b1cdbd2cSJim Jagielski     pSpType         = new SP_Type(*this);
53*b1cdbd2cSJim Jagielski 	pSpuType        = new SPU_Type(*pSpType, &PE_Parameter::SpInit_Type, &PE_Parameter::SpReturn_Type);
54*b1cdbd2cSJim Jagielski 	pSpVariable     = new SP_Variable(*this);
55*b1cdbd2cSJim Jagielski 	pSpuVariable    = new SPU_Variable(*pSpVariable, &PE_Parameter::SpInit_Variable, &PE_Parameter::SpReturn_Variable);
56*b1cdbd2cSJim Jagielski }
57*b1cdbd2cSJim Jagielski 
~PE_Parameter()58*b1cdbd2cSJim Jagielski PE_Parameter::~PE_Parameter()
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski }
61*b1cdbd2cSJim Jagielski 
62*b1cdbd2cSJim Jagielski void
Call_Handler(const cpp::Token & i_rTok)63*b1cdbd2cSJim Jagielski PE_Parameter::Call_Handler( const cpp::Token & i_rTok )
64*b1cdbd2cSJim Jagielski {
65*b1cdbd2cSJim Jagielski 	pStati->Cur().Call_Handler(i_rTok.TypeId(), i_rTok.Text());
66*b1cdbd2cSJim Jagielski }
67*b1cdbd2cSJim Jagielski 
68*b1cdbd2cSJim Jagielski void
Setup_StatusFunctions()69*b1cdbd2cSJim Jagielski PE_Parameter::Setup_StatusFunctions()
70*b1cdbd2cSJim Jagielski {
71*b1cdbd2cSJim Jagielski 	typedef CallFunction<PE_Parameter>::F_Tok	F_Tok;
72*b1cdbd2cSJim Jagielski 	static F_Tok stateF_start[] =			{ &PE_Parameter::On_start_Type,
73*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
74*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
75*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
76*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
77*b1cdbd2cSJim Jagielski 
78*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
79*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
80*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Bracket_Right,
81*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
82*b1cdbd2cSJim Jagielski                                               &PE_Parameter::On_start_Ellipse,
83*b1cdbd2cSJim Jagielski 
84*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
85*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_start_Type,
86*b1cdbd2cSJim Jagielski                                               &PE_Parameter::On_start_Type };
87*b1cdbd2cSJim Jagielski 	static INT16 stateT_start[] =       	{ Tid_Identifier,
88*b1cdbd2cSJim Jagielski 											  Tid_class,
89*b1cdbd2cSJim Jagielski 											  Tid_struct,
90*b1cdbd2cSJim Jagielski 											  Tid_union,
91*b1cdbd2cSJim Jagielski 											  Tid_enum,
92*b1cdbd2cSJim Jagielski 
93*b1cdbd2cSJim Jagielski 											  Tid_const,
94*b1cdbd2cSJim Jagielski 											  Tid_volatile,
95*b1cdbd2cSJim Jagielski 											  Tid_Bracket_Right,
96*b1cdbd2cSJim Jagielski 											  Tid_DoubleColon,
97*b1cdbd2cSJim Jagielski                                               Tid_Ellipse,
98*b1cdbd2cSJim Jagielski 
99*b1cdbd2cSJim Jagielski 											  Tid_typename,
100*b1cdbd2cSJim Jagielski                                               Tid_BuiltInType,
101*b1cdbd2cSJim Jagielski 											  Tid_TypeSpecializer };
102*b1cdbd2cSJim Jagielski 
103*b1cdbd2cSJim Jagielski 	static F_Tok stateF_expectName[] =		{ &PE_Parameter::On_expectName_Identifier,
104*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_expectName_ArrayBracket_Left,
105*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_expectName_Bracket_Right,
106*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_expectName_Comma,
107*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_afterName_Assign  };
108*b1cdbd2cSJim Jagielski 	static INT16 stateT_expectName[] =     	{ Tid_Identifier,
109*b1cdbd2cSJim Jagielski 											  Tid_ArrayBracket_Left,
110*b1cdbd2cSJim Jagielski 											  Tid_Bracket_Right,
111*b1cdbd2cSJim Jagielski                                               Tid_Comma,
112*b1cdbd2cSJim Jagielski 											  Tid_Assign };
113*b1cdbd2cSJim Jagielski 	static F_Tok stateF_afterName[] =		{ &PE_Parameter::On_afterName_ArrayBracket_Left,
114*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_afterName_Bracket_Right,
115*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_afterName_Comma,
116*b1cdbd2cSJim Jagielski 											  &PE_Parameter::On_afterName_Assign };
117*b1cdbd2cSJim Jagielski 	static INT16 stateT_afterName[] =     	{ Tid_ArrayBracket_Left,
118*b1cdbd2cSJim Jagielski 											  Tid_Bracket_Right,
119*b1cdbd2cSJim Jagielski 											  Tid_Comma,
120*b1cdbd2cSJim Jagielski 											  Tid_Assign };
121*b1cdbd2cSJim Jagielski 	static F_Tok stateF_finished[] =		{ &PE_Parameter::On_finished_Comma,
122*b1cdbd2cSJim Jagielski                                               &PE_Parameter::On_finished_Bracket_Right };
123*b1cdbd2cSJim Jagielski 	static INT16 stateT_finished[] =     	{ Tid_Bracket_Right,
124*b1cdbd2cSJim Jagielski 											  Tid_Comma };
125*b1cdbd2cSJim Jagielski 
126*b1cdbd2cSJim Jagielski 	SEMPARSE_CREATE_STATUS(PE_Parameter, start, Hdl_SyntaxError);
127*b1cdbd2cSJim Jagielski 	SEMPARSE_CREATE_STATUS(PE_Parameter, expectName, Hdl_SyntaxError);
128*b1cdbd2cSJim Jagielski 	SEMPARSE_CREATE_STATUS(PE_Parameter, afterName, Hdl_SyntaxError);
129*b1cdbd2cSJim Jagielski 	SEMPARSE_CREATE_STATUS(PE_Parameter, finished, Hdl_SyntaxError);
130*b1cdbd2cSJim Jagielski }
131*b1cdbd2cSJim Jagielski 
132*b1cdbd2cSJim Jagielski 
133*b1cdbd2cSJim Jagielski void
InitData()134*b1cdbd2cSJim Jagielski PE_Parameter::InitData()
135*b1cdbd2cSJim Jagielski {
136*b1cdbd2cSJim Jagielski 	pStati->SetCur(start);
137*b1cdbd2cSJim Jagielski     aResultParamInfo.Empty();
138*b1cdbd2cSJim Jagielski }
139*b1cdbd2cSJim Jagielski 
140*b1cdbd2cSJim Jagielski void
TransferData()141*b1cdbd2cSJim Jagielski PE_Parameter::TransferData()
142*b1cdbd2cSJim Jagielski {
143*b1cdbd2cSJim Jagielski 	pStati->SetCur(size_of_states);
144*b1cdbd2cSJim Jagielski }
145*b1cdbd2cSJim Jagielski 
146*b1cdbd2cSJim Jagielski void
Hdl_SyntaxError(const char * i_sText)147*b1cdbd2cSJim Jagielski PE_Parameter::Hdl_SyntaxError( const char * i_sText)
148*b1cdbd2cSJim Jagielski {
149*b1cdbd2cSJim Jagielski 	StdHandlingOfSyntaxError(i_sText);
150*b1cdbd2cSJim Jagielski }
151*b1cdbd2cSJim Jagielski 
152*b1cdbd2cSJim Jagielski void
SpInit_Type()153*b1cdbd2cSJim Jagielski PE_Parameter::SpInit_Type()
154*b1cdbd2cSJim Jagielski {
155*b1cdbd2cSJim Jagielski     // Does nothing.
156*b1cdbd2cSJim Jagielski }
157*b1cdbd2cSJim Jagielski 
158*b1cdbd2cSJim Jagielski void
SpInit_Variable()159*b1cdbd2cSJim Jagielski PE_Parameter::SpInit_Variable()
160*b1cdbd2cSJim Jagielski {
161*b1cdbd2cSJim Jagielski     // Does nothing.
162*b1cdbd2cSJim Jagielski }
163*b1cdbd2cSJim Jagielski 
164*b1cdbd2cSJim Jagielski void
SpReturn_Type()165*b1cdbd2cSJim Jagielski PE_Parameter::SpReturn_Type()
166*b1cdbd2cSJim Jagielski {
167*b1cdbd2cSJim Jagielski     aResultParamInfo.nType = pSpuType->Child().Result_Type().Id();
168*b1cdbd2cSJim Jagielski 	pStati->SetCur(expectName);
169*b1cdbd2cSJim Jagielski }
170*b1cdbd2cSJim Jagielski 
171*b1cdbd2cSJim Jagielski void
SpReturn_Variable()172*b1cdbd2cSJim Jagielski PE_Parameter::SpReturn_Variable()
173*b1cdbd2cSJim Jagielski {
174*b1cdbd2cSJim Jagielski     if (pSpuVariable->Child().Result_Pattern() > 0)
175*b1cdbd2cSJim Jagielski     {
176*b1cdbd2cSJim Jagielski         aResultParamInfo.sSizeExpression = pSpuVariable->Child().Result_SizeExpression();
177*b1cdbd2cSJim Jagielski         aResultParamInfo.sInitExpression = pSpuVariable->Child().Result_InitExpression();
178*b1cdbd2cSJim Jagielski     }
179*b1cdbd2cSJim Jagielski }
180*b1cdbd2cSJim Jagielski 
181*b1cdbd2cSJim Jagielski void
On_start_Type(const char *)182*b1cdbd2cSJim Jagielski PE_Parameter::On_start_Type(const char *)
183*b1cdbd2cSJim Jagielski {
184*b1cdbd2cSJim Jagielski     pSpuType->Push(not_done);
185*b1cdbd2cSJim Jagielski }
186*b1cdbd2cSJim Jagielski 
187*b1cdbd2cSJim Jagielski void
On_start_Bracket_Right(const char *)188*b1cdbd2cSJim Jagielski PE_Parameter::On_start_Bracket_Right(const char *)
189*b1cdbd2cSJim Jagielski {
190*b1cdbd2cSJim Jagielski 	SetTokenResult(not_done, pop_success);
191*b1cdbd2cSJim Jagielski }
192*b1cdbd2cSJim Jagielski 
193*b1cdbd2cSJim Jagielski void
On_start_Ellipse(const char *)194*b1cdbd2cSJim Jagielski PE_Parameter::On_start_Ellipse(const char *)
195*b1cdbd2cSJim Jagielski {
196*b1cdbd2cSJim Jagielski 	SetTokenResult(done, pop_success);
197*b1cdbd2cSJim Jagielski 
198*b1cdbd2cSJim Jagielski     aResultParamInfo.nType = Env().AryGate().Types().Tid_Ellipse();
199*b1cdbd2cSJim Jagielski }
200*b1cdbd2cSJim Jagielski 
201*b1cdbd2cSJim Jagielski void
On_expectName_Identifier(const char * i_sText)202*b1cdbd2cSJim Jagielski PE_Parameter::On_expectName_Identifier(const char * i_sText)
203*b1cdbd2cSJim Jagielski {
204*b1cdbd2cSJim Jagielski 	SetTokenResult(done, stay);
205*b1cdbd2cSJim Jagielski 	pStati->SetCur(afterName);
206*b1cdbd2cSJim Jagielski 
207*b1cdbd2cSJim Jagielski     aResultParamInfo.sName = i_sText;
208*b1cdbd2cSJim Jagielski }
209*b1cdbd2cSJim Jagielski 
210*b1cdbd2cSJim Jagielski void
On_expectName_ArrayBracket_Left(const char * i_sText)211*b1cdbd2cSJim Jagielski PE_Parameter::On_expectName_ArrayBracket_Left(const char * i_sText)
212*b1cdbd2cSJim Jagielski {
213*b1cdbd2cSJim Jagielski     On_afterName_ArrayBracket_Left(i_sText);
214*b1cdbd2cSJim Jagielski }
215*b1cdbd2cSJim Jagielski 
216*b1cdbd2cSJim Jagielski void
On_expectName_Bracket_Right(const char * i_sText)217*b1cdbd2cSJim Jagielski PE_Parameter::On_expectName_Bracket_Right(const char * i_sText)
218*b1cdbd2cSJim Jagielski {
219*b1cdbd2cSJim Jagielski     On_afterName_Bracket_Right(i_sText);
220*b1cdbd2cSJim Jagielski }
221*b1cdbd2cSJim Jagielski 
222*b1cdbd2cSJim Jagielski void
On_expectName_Comma(const char * i_sText)223*b1cdbd2cSJim Jagielski PE_Parameter::On_expectName_Comma(const char * i_sText)
224*b1cdbd2cSJim Jagielski {
225*b1cdbd2cSJim Jagielski     On_afterName_Comma(i_sText);
226*b1cdbd2cSJim Jagielski }
227*b1cdbd2cSJim Jagielski 
228*b1cdbd2cSJim Jagielski void
On_afterName_ArrayBracket_Left(const char *)229*b1cdbd2cSJim Jagielski PE_Parameter::On_afterName_ArrayBracket_Left(const char *)
230*b1cdbd2cSJim Jagielski {
231*b1cdbd2cSJim Jagielski     pSpuVariable->Push(not_done);
232*b1cdbd2cSJim Jagielski }
233*b1cdbd2cSJim Jagielski 
234*b1cdbd2cSJim Jagielski void
On_afterName_Bracket_Right(const char *)235*b1cdbd2cSJim Jagielski PE_Parameter::On_afterName_Bracket_Right(const char *)
236*b1cdbd2cSJim Jagielski {
237*b1cdbd2cSJim Jagielski     SetTokenResult(not_done, pop_success);
238*b1cdbd2cSJim Jagielski }
239*b1cdbd2cSJim Jagielski 
240*b1cdbd2cSJim Jagielski void
On_afterName_Comma(const char *)241*b1cdbd2cSJim Jagielski PE_Parameter::On_afterName_Comma(const char *)
242*b1cdbd2cSJim Jagielski {
243*b1cdbd2cSJim Jagielski     SetTokenResult(not_done, pop_success);
244*b1cdbd2cSJim Jagielski }
245*b1cdbd2cSJim Jagielski 
246*b1cdbd2cSJim Jagielski void
On_afterName_Assign(const char *)247*b1cdbd2cSJim Jagielski PE_Parameter::On_afterName_Assign(const char *)
248*b1cdbd2cSJim Jagielski {
249*b1cdbd2cSJim Jagielski     pSpuVariable->Push(not_done);
250*b1cdbd2cSJim Jagielski }
251*b1cdbd2cSJim Jagielski 
252*b1cdbd2cSJim Jagielski void
On_finished_Bracket_Right(const char *)253*b1cdbd2cSJim Jagielski PE_Parameter::On_finished_Bracket_Right(const char *)
254*b1cdbd2cSJim Jagielski {
255*b1cdbd2cSJim Jagielski 	SetTokenResult(not_done, pop_success);
256*b1cdbd2cSJim Jagielski }
257*b1cdbd2cSJim Jagielski 
258*b1cdbd2cSJim Jagielski void
On_finished_Comma(const char *)259*b1cdbd2cSJim Jagielski PE_Parameter::On_finished_Comma(const char *)
260*b1cdbd2cSJim Jagielski {
261*b1cdbd2cSJim Jagielski     SetTokenResult(not_done, pop_success);
262*b1cdbd2cSJim Jagielski }
263*b1cdbd2cSJim Jagielski 
264*b1cdbd2cSJim Jagielski 
265*b1cdbd2cSJim Jagielski }   // namespace cpp
266*b1cdbd2cSJim Jagielski 
267*b1cdbd2cSJim Jagielski 
268*b1cdbd2cSJim Jagielski 
269*b1cdbd2cSJim Jagielski 
270*b1cdbd2cSJim Jagielski 
271*b1cdbd2cSJim Jagielski 
272*b1cdbd2cSJim Jagielski 
273*b1cdbd2cSJim Jagielski 
274*b1cdbd2cSJim Jagielski 
275