327 lines
9 KiB
C++
327 lines
9 KiB
C++
/*************************************************************************
|
|
*
|
|
* $RCSfile: idlc.cxx,v $
|
|
*
|
|
* $Revision: 1.3 $
|
|
*
|
|
* last change: $Author: obo $ $Date: 2003-10-20 13:07:30 $
|
|
*
|
|
* The Contents of this file are made available subject to the terms of
|
|
* either of the following licenses
|
|
*
|
|
* - GNU Lesser General Public License Version 2.1
|
|
* - Sun Industry Standards Source License Version 1.1
|
|
*
|
|
* Sun Microsystems Inc., October, 2000
|
|
*
|
|
* GNU Lesser General Public License Version 2.1
|
|
* =============================================
|
|
* Copyright 2000 by Sun Microsystems, Inc.
|
|
* 901 San Antonio Road, Palo Alto, CA 94303, USA
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License version 2.1, as published by the Free Software Foundation.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
|
* MA 02111-1307 USA
|
|
*
|
|
*
|
|
* Sun Industry Standards Source License Version 1.1
|
|
* =================================================
|
|
* The contents of this file are subject to the Sun Industry Standards
|
|
* Source License Version 1.1 (the "License"); You may not use this file
|
|
* except in compliance with the License. You may obtain a copy of the
|
|
* License at http://www.openoffice.org/license.html.
|
|
*
|
|
* Software provided under this License is provided on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
|
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
|
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
|
* See the License for the specific provisions governing your rights and
|
|
* obligations concerning the Software.
|
|
*
|
|
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
|
*
|
|
* Copyright: 2000 by Sun Microsystems, Inc.
|
|
*
|
|
* All Rights Reserved.
|
|
*
|
|
* Contributor(s): _______________________________________
|
|
*
|
|
*
|
|
************************************************************************/
|
|
#ifndef _IDLC_IDLC_HXX_
|
|
#include <idlc/idlc.hxx>
|
|
#endif
|
|
|
|
#ifndef _IDLC_ERRORHANDLER_HXX_
|
|
#include <idlc/errorhandler.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTSCOPE_HXX_
|
|
#include <idlc/astscope.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTMODULE_HXX_
|
|
#include <idlc/astmodule.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTSERVICE_HXX_
|
|
#include <idlc/astservice.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTCONSTANTS_HXX_
|
|
#include <idlc/astconstants.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTEXCEPTION_HXX_
|
|
#include <idlc/astexception.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTUNION_HXX_
|
|
#include <idlc/astunion.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTENUM_HXX_
|
|
#include <idlc/astenum.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTINTERFACE_HXX_
|
|
#include <idlc/astinterface.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTOPERATION_HXX_
|
|
#include <idlc/astoperation.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTBASETYPE_HXX_
|
|
#include <idlc/astbasetype.hxx>
|
|
#endif
|
|
|
|
using namespace ::rtl;
|
|
|
|
AstDeclaration* SAL_CALL scopeAsDecl(AstScope* pScope)
|
|
{
|
|
if (pScope == NULL) return NULL;
|
|
|
|
switch( pScope->getScopeNodeType() )
|
|
{
|
|
case NT_service:
|
|
case NT_singleton:
|
|
return (AstService*)(pScope);
|
|
case NT_module:
|
|
case NT_root:
|
|
return (AstModule*)(pScope);
|
|
case NT_constants:
|
|
return (AstConstants*)(pScope);
|
|
case NT_interface:
|
|
return (AstInterface*)(pScope);
|
|
case NT_operation:
|
|
return (AstOperation*)(pScope);
|
|
case NT_exception:
|
|
return (AstException*)(pScope);
|
|
case NT_union:
|
|
return (AstUnion*)(pScope);
|
|
case NT_struct:
|
|
return (AstStruct*)(pScope);
|
|
case NT_enum:
|
|
return (AstEnum*)(pScope);
|
|
default:
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
AstScope* SAL_CALL declAsScope(AstDeclaration* pDecl)
|
|
{
|
|
if (pDecl == NULL) return NULL;
|
|
|
|
switch(pDecl->getNodeType())
|
|
{
|
|
case NT_interface:
|
|
return (AstInterface*)(pDecl);
|
|
case NT_service:
|
|
case NT_singleton:
|
|
return (AstService*)(pDecl);
|
|
case NT_module:
|
|
case NT_root:
|
|
return (AstModule*)(pDecl);
|
|
case NT_constants:
|
|
return (AstConstants*)(pDecl);
|
|
case NT_exception:
|
|
return (AstException*)(pDecl);
|
|
case NT_union:
|
|
return (AstUnion*)(pDecl);
|
|
case NT_struct:
|
|
return (AstStruct*)(pDecl);
|
|
case NT_enum:
|
|
return (AstEnum*)(pDecl);
|
|
case NT_operation:
|
|
return (AstOperation*)(pDecl);
|
|
default:
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
static void SAL_CALL initializePredefinedTypes(AstModule* pRoot)
|
|
{
|
|
AstBaseType* pPredefined = NULL;
|
|
if ( pRoot )
|
|
{
|
|
pPredefined = new AstBaseType(ET_long, OString("long"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_ulong, OString("unsigned long"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_hyper, OString("hyper"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_uhyper, OString("unsigned hyper"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_short, OString("short"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_ushort, OString("unsigned short"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_float, OString("float"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_double, OString("double"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_char, OString("char"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_byte, OString("byte"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_any, OString("any"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_string, OString("string"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_type, OString("type"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_boolean, OString("boolean"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
|
|
pPredefined = new AstBaseType(ET_void, OString("void"), pRoot);
|
|
pRoot->addDeclaration(pPredefined);
|
|
}
|
|
}
|
|
|
|
Idlc::Idlc(Options* pOptions)
|
|
: m_pOptions(pOptions)
|
|
, m_bIsInMainfile(sal_True)
|
|
, m_errorCount(0)
|
|
, m_warningCount(0)
|
|
, m_lineNumber(0)
|
|
, m_parseState(PS_NoState)
|
|
, m_bIsDocValid(sal_False)
|
|
{
|
|
m_pScopes = new AstStack();
|
|
// init root object after construction
|
|
m_pRoot = NULL;
|
|
m_pErrorHandler = new ErrorHandler();
|
|
m_bGenerateDoc = m_pOptions->isValid("-C");
|
|
}
|
|
|
|
Idlc::~Idlc()
|
|
{
|
|
if (m_pRoot)
|
|
delete m_pRoot;
|
|
if (m_pScopes)
|
|
delete m_pScopes;
|
|
if (m_pErrorHandler)
|
|
delete m_pErrorHandler;
|
|
}
|
|
|
|
void Idlc::init()
|
|
{
|
|
if ( m_pRoot )
|
|
delete m_pRoot;
|
|
|
|
m_pRoot = new AstModule(NT_root, OString(), NULL);
|
|
|
|
// push the root node on the stack
|
|
m_pScopes->push(m_pRoot);
|
|
initializePredefinedTypes(m_pRoot);
|
|
}
|
|
|
|
void Idlc::reset()
|
|
{
|
|
m_errorCount = 0;
|
|
m_warningCount = 0;
|
|
m_lineNumber = 0;
|
|
m_parseState = PS_NoState;
|
|
|
|
m_fileName = OString();
|
|
m_mainFileName = OString();
|
|
m_realFileName = OString();
|
|
m_documentation = OString();
|
|
|
|
m_pScopes->clear();
|
|
if ( m_pRoot)
|
|
delete m_pRoot;
|
|
|
|
m_pRoot = new AstModule(NT_root, OString(), NULL);
|
|
|
|
// push the root node on the stack
|
|
m_pScopes->push(m_pRoot);
|
|
initializePredefinedTypes(m_pRoot);
|
|
}
|
|
|
|
sal_Bool Idlc::isDocValid()
|
|
{
|
|
if ( m_bGenerateDoc )
|
|
return m_bIsDocValid;
|
|
return sal_False;;
|
|
}
|
|
|
|
static Idlc* pStaticIdlc = NULL;
|
|
|
|
Idlc* SAL_CALL idlc()
|
|
{
|
|
return pStaticIdlc;
|
|
}
|
|
|
|
Idlc* SAL_CALL setIdlc(Options* pOptions)
|
|
{
|
|
if ( pStaticIdlc )
|
|
{
|
|
delete pStaticIdlc;
|
|
}
|
|
pStaticIdlc = new Idlc(pOptions);
|
|
pStaticIdlc->init();
|
|
return pStaticIdlc;
|
|
}
|
|
|
|
sal_Bool SAL_CALL canBeRedefined(AstDeclaration *pDecl)
|
|
{
|
|
switch (pDecl->getNodeType())
|
|
{
|
|
case NT_module:
|
|
case NT_constants:
|
|
case NT_interface:
|
|
case NT_const:
|
|
case NT_exception:
|
|
case NT_parameter:
|
|
case NT_enum_val:
|
|
case NT_array:
|
|
case NT_sequence:
|
|
case NT_union:
|
|
case NT_struct:
|
|
case NT_enum:
|
|
case NT_typedef:
|
|
// return sal_True;
|
|
case NT_union_branch:
|
|
case NT_member:
|
|
case NT_attribute:
|
|
case NT_operation:
|
|
case NT_predefined:
|
|
default:
|
|
return sal_False;
|
|
}
|
|
}
|