basic/source/classes/sbintern.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: sbintern.cxx,v $
  10  * $Revision: 1.14 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_basic.hxx"
  33 #include <tools/shl.hxx>
  34
  35 #include "sbintern.hxx"
  36 #include "sbunoobj.hxx"
  37 #include "token.hxx"                            // Tokenizer
  38 #include "symtbl.hxx"                           // Symbolverwaltung
  39 #include "parser.hxx"                           // Parser
  40 #include "codegen.hxx"                          // Code-Generator
  41 #include <basic/basmgr.hxx>
  42
  43 SV_IMPL_PTRARR(SbErrorStack, SbErrorStackEntry*)
  44
  45 SbiGlobals* GetSbData()
  46 {
  47     SbiGlobals** pp = (SbiGlobals**) ::GetAppData( SHL_SBC );
  48     SbiGlobals* p = *pp;
  49     if( !p )
  50         p = *pp = new SbiGlobals;
  51     return p;
  52 }
  53
  54 SbiGlobals::SbiGlobals()
  55 {
  56     pInst = NULL;
  57     pMod  = NULL;
  58     pSbFac= NULL;
  59     pUnoFac = NULL;
  60     pTypeFac = NULL;
  61     pOLEFac = NULL;
  62     pCompMod = NULL; // JSM
  63     nInst = 0;
  64     nCode = 0;
  65     nLine = 0;
  66     nCol1 = nCol2 = 0;
  67     bCompiler = FALSE;
  68     bGlobalInitErr = FALSE;
  69     bRunInit = FALSE;
  70     eLanguageMode = SB_LANG_BASIC;
  71     pErrStack = NULL;
  72     pTransliterationWrapper = NULL;
  73     bBlockCompilerError = FALSE;
  74     pAppBasMgr = NULL;
  75     pMSOMacroRuntimLib = NULL;
  76 }
  77
  78 SbiGlobals::~SbiGlobals()
  79 {
  80     delete pErrStack;
  81     delete pSbFac;
  82     delete pUnoFac;
  83     delete pTransliterationWrapper;
  84 }
  85