blob: 03c9a50c18da63f40830166b75db295099f61bfa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
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: */
|