1 files changed, 103 insertions, 0 deletions
diff --git a/basic/source/comp/sbcomp.cxx b/basic/source/comp/sbcomp.cxx
new file mode 100644
index 000000000000..03c9a50c18da
--- /dev/null
+++ b/basic/source/comp/sbcomp.cxx
@@ -0,0 +1,103 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*************************************************************************
+ *
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * Copyright 2000, 2010 Oracle and/or its affiliates.
+ *
+ * OpenOffice.org - a multi-platform office productivity suite
+ *
+ * This file is part of OpenOffice.org.
+ *
+ * OpenOffice.org is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License version 3
+ * only, as published by the Free Software Foundation.
+ *
+ * OpenOffice.org 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 version 3 for more details
+ * (a copy is included in the LICENSE file that accompanied this code).
+ *
+ * You should have received a copy of the GNU Lesser General Public License
+ * version 3 along with OpenOffice.org.  If not, see
+ * <http://www.openoffice.org/license.html>
+ * for a copy of the LGPLv3 License.
+ *
+ ************************************************************************/
+
+// MARKER(update_precomp.py): autogen include statement, do not remove
+#include "precompiled_basic.hxx"
+
+#include <basic/sbx.hxx>
+#include "sbcomp.hxx"
+#include "image.hxx"
+
+// Diese Routine ist hier definiert, damit der Compiler als eigenes Segment
+// geladen werden kann.
+
+BOOL SbModule::Compile()
+{
+    if( pImage )
+        return TRUE;
+    StarBASIC* pBasic = PTR_CAST(StarBASIC,GetParent());
+    if( !pBasic )
+        return FALSE;
+    SbxBase::ResetError();
+    // Aktuelles Modul!
+    SbModule* pOld = pCMOD;
+    pCMOD = this;
+
+    SbiParser* pParser = new SbiParser( (StarBASIC*) GetParent(), this );
+    while( pParser->Parse() ) {}
+    if( !pParser->GetErrors() )
+        pParser->aGen.Save();
+    delete pParser;
+    // fuer den Disassembler
+    if( pImage )
+        pImage->aOUSource = aOUSource;
+
+    pCMOD = pOld;
+
+    // Beim Compilieren eines Moduls werden die Modul-globalen
+    // Variablen aller Module ungueltig
+    BOOL bRet = IsCompiled();
+    if( bRet )
+    {
+        pBasic->ClearAllModuleVars();
+        RemoveVars(); // remove 'this' Modules variables
+        // clear all method statics
+        for( USHORT i = 0; i < pMethods->Count(); i++ )
+        {
+            SbMethod* p = PTR_CAST(SbMethod,pMethods->Get( i ) );
+            if( p )
+                p->ClearStatics();
+        }
+
+        // #i31510 Init other libs only if Basic isn't running
+        if( pINST == NULL )
+        {
+            SbxObject* pParent_ = pBasic->GetParent();
+            if( pParent_ )
+                pBasic = PTR_CAST(StarBASIC,pParent_);
+            if( pBasic )
+                pBasic->ClearAllModuleVars();
+        }
+    }
+
+    return bRet;
+}
+
+/**************************************************************************
+*
+*   Syntax-Highlighting
+*
+**************************************************************************/
+
+void StarBASIC::Highlight( const String& rSrc, SbTextPortions& rList )
+{
+    SbiTokenizer aTok( rSrc );
+    aTok.Hilite( rList );
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */