autodoc/source/parser_i/idl/pe_const.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29 #include "sal/config.h"
  30
  31 #include "sal/types.h"
  32
  33 #include <precomp.h>
  34 #include <s2_luidl/pe_const.hxx>
  35
  36 // NOT FULLY DECLARED SERVICES
  37 #include <ary/idl/i_gate.hxx>
  38 #include <ary/idl/i_constant.hxx>
  39 #include <ary/idl/i_constgroup.hxx>
  40 #include <ary/idl/ip_ce.hxx>
  41 #include <ary/doc/d_oldidldocu.hxx>
  42 #include <s2_luidl/pe_type2.hxx>
  43 #include <s2_luidl/pe_evalu.hxx>
  44 #include <s2_luidl/tk_punct.hxx>
  45 #include <s2_luidl/tk_ident.hxx>
  46 #include <s2_luidl/tk_keyw.hxx>
  47
  48
  49 namespace csi
  50 {
  51 namespace uidl
  52 {
  53
  54
  55 #ifdef DF
  56 #undef DF
  57 #endif
  58 #define DF  &PE_Constant::On_Default
  59
  60 PE_Constant::F_TOK
  61 PE_Constant::aDispatcher[PE_Constant::e_STATES_MAX][PE_Constant::tt_MAX] =
  62         {   { DF, DF, DF },  // e_none
  63             { DF, &PE_Constant::On_expect_name_Identifier,
  64                       DF },  // expect_name
  65             { DF, DF, &PE_Constant::On_expect_curl_bracket_open_Punctuation },  // expect_curl_bracket_open
  66             { &PE_Constant::On_expect_const_Stereotype,
  67                   DF, &PE_Constant::On_expect_const_Punctuation },  // expect_const
  68             { DF, &PE_Constant::On_expect_value_Identifier,
  69                       DF },  // expect_value
  70             { DF, DF, &PE_Constant::On_expect_finish_Punctuation }  // expect_finish
  71         };
  72
  73
  74
  75 inline void
  76 PE_Constant::CallHandler( const char *      i_sTokenText,
  77                           E_TokenType       i_eTokenType )
  78     { (this->*aDispatcher[eState][i_eTokenType])(i_sTokenText); }
  79
  80
  81
  82
  83 PE_Constant::PE_Constant()
  84     :   eState(e_none),
  85         sData_Name(),
  86         nDataId(0),
  87         pPE_Type(0),
  88         nType(0),
  89         pPE_Value(0),
  90         sName(),
  91         sAssignment()
  92 {
  93     pPE_Type = new PE_Type(nType);
  94     pPE_Value = new PE_Value(sName, sAssignment, true);
  95 }
  96
  97 void
  98 PE_Constant::EstablishContacts( UnoIDL_PE *                 io_pParentPE,
  99                                 ary::Repository &       io_rRepository,
 100                                 TokenProcessing_Result &    o_rResult )
 101 {
 102     UnoIDL_PE::EstablishContacts(io_pParentPE,io_rRepository,o_rResult);
 103     pPE_Type->EstablishContacts(this,io_rRepository,o_rResult);
 104     pPE_Value->EstablishContacts(this,io_rRepository,o_rResult);
 105 }
 106
 107 PE_Constant::~PE_Constant()
 108 {
 109 }
 110
 111 void
 112 PE_Constant::ProcessToken( const Token & i_rToken )
 113 {
 114     i_rToken.Trigger(*this);
 115 }
 116
 117 void
 118 PE_Constant::Process_Identifier( const TokIdentifier & i_rToken )
 119 {
 120     CallHandler(i_rToken.Text(), tt_identifier);
 121 }
 122
 123 void
 124 PE_Constant::Process_Punctuation( const TokPunctuation & i_rToken )
 125 {
 126     CallHandler(i_rToken.Text(), tt_punctuation);
 127 }
 128
 129 void
 130 PE_Constant::Process_Stereotype( const TokStereotype & i_rToken )
 131 {
 132     CallHandler(i_rToken.Text(), tt_stereotype);
 133 }
 134
 135 void
 136 PE_Constant::On_expect_name_Identifier(const char * i_sText)
 137 {
 138     sName = i_sText;
 139
 140     SetResult(done,stay);
 141     eState = expect_curl_bracket_open;
 142 }
 143
 144 void
 145 PE_Constant::On_expect_curl_bracket_open_Punctuation(const char * i_sText)
 146 {
 147     if ( i_sText[0] == '{')
 148     {
 149         sData_Name = sName;
 150
 151         ary::idl::ConstantsGroup &
 152         rCe = Gate().Ces().
 153                     Store_ConstantsGroup(CurNamespace().CeId(),sData_Name);
 154         PassDocuAt(rCe);
 155         nDataId = rCe.CeId();
 156
 157         SetResult(done,stay);
 158         eState = expect_const;
 159     }
 160     else
 161     {
 162         On_Default(i_sText);
 163     }
 164 }
 165
 166 void
 167 PE_Constant::On_expect_const_Stereotype(SAL_UNUSED_PARAMETER const char *)
 168 {
 169     SetResult( done, push_sure, pPE_Type.Ptr() );
 170 }
 171
 172 void
 173 PE_Constant::On_expect_const_Punctuation(const char * i_sText)
 174 {
 175     if ( i_sText[0] == '}')
 176     {
 177         SetResult(done,stay);
 178         eState = expect_finish;
 179     }
 180     else
 181     {
 182         On_Default(i_sText);
 183     }
 184 }
 185
 186 void
 187 PE_Constant::On_expect_value_Identifier(SAL_UNUSED_PARAMETER const char *)
 188 {
 189     SetResult( not_done, push_sure, pPE_Value.Ptr() );
 190 }
 191
 192 void
 193 PE_Constant::On_expect_finish_Punctuation(const char * i_sText)
 194 {
 195     if ( i_sText[0] == ';')
 196     {
 197         SetResult(done,pop_success);
 198         eState = e_none;
 199     }
 200     else
 201     {
 202         On_Default(i_sText);
 203     }
 204 }
 205
 206 void
 207 PE_Constant::On_Default(SAL_UNUSED_PARAMETER const char * )
 208 {
 209     SetResult(not_done,pop_failure);
 210     eState = e_none;
 211 }
 212
 213 void
 214 PE_Constant::EmptySingleConstData()
 215 {
 216     nType = 0;
 217     sName = "";
 218     sAssignment = "";
 219 }
 220
 221 void
 222 PE_Constant::CreateSingleConstant()
 223 {
 224     ary::idl::Constant &
 225         rCe = Gate().Ces().Store_Constant( nDataId,
 226                                            sName,
 227                                            nType,
 228                                            sAssignment );
 229     pPE_Type->PassDocuAt(rCe);
 230 }
 231
 232 void
 233 PE_Constant::InitData()
 234 {
 235     eState = expect_name;
 236
 237     sData_Name.clear();
 238     nDataId = 0;
 239
 240     EmptySingleConstData();
 241 }
 242
 243 void
 244 PE_Constant::ReceiveData()
 245 {
 246     switch (eState)
 247     {
 248         case expect_const:
 249                     eState = expect_value;
 250                     break;
 251         case expect_value:
 252         {
 253                     if (sName.length() == 0 OR sAssignment.length() == 0 OR NOT nType.IsValid())
 254                     {
 255                         Cerr() << "Constant without value found." << Endl();
 256                         eState = expect_const;
 257                         break;
 258                     }
 259
 260                     CreateSingleConstant();
 261                     EmptySingleConstData();
 262                     eState = expect_const;
 263         }           break;
 264         default:
 265                     SetResult(not_done, pop_failure);
 266                     eState = e_none;
 267     }   // end switch
 268 }
 269
 270 void
 271 PE_Constant::TransferData()
 272 {
 273     csv_assert(nDataId.IsValid());
 274     eState = e_none;
 275 }
 276
 277 UnoIDL_PE &
 278 PE_Constant::MyPE()
 279 {
 280     return *this;
 281 }
 282
 283 }   // namespace uidl
 284 }   // namespace csi
 285
 286 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */