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