diff options
Diffstat (limited to 'OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs')
-rw-r--r-- | OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs b/OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs index c7078cf..3975fa3 100644 --- a/OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs +++ b/OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs | |||
@@ -25,20 +25,32 @@ | |||
25 | * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | 25 | * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
26 | */ | 26 | */ |
27 | using System; | 27 | using System; |
28 | using System.CodeDom.Compiler; | ||
28 | using System.Collections.Generic; | 29 | using System.Collections.Generic; |
29 | using System.Text; | 30 | using System.Text; |
30 | using OpenSim.ApplicationPlugins.ScriptEngine.Components; | 31 | using Microsoft.VisualBasic; |
32 | using OpenSim.ScriptEngine.Shared; | ||
31 | 33 | ||
32 | namespace OpenSim.ScriptEngine.Components.DotNetEngine.Compilers | 34 | namespace OpenSim.ScriptEngine.Components.DotNetEngine.Compilers |
33 | { | 35 | { |
34 | public class Compiler_VB : CompilerBase | 36 | public class Compiler_VB : CILCompiler, IScriptCompiler |
35 | { | 37 | { |
36 | public override void Start() | 38 | |
39 | public Compiler_VB() | ||
37 | { | 40 | { |
41 | CompileProvider = new VBCodeProvider() as CodeDomProvider; | ||
38 | } | 42 | } |
39 | 43 | ||
40 | public override void Close() | 44 | public override string PreProcessScript(ref string script) |
41 | { | 45 | { |
46 | return | ||
47 | "Imports OpenSim.Region.ScriptEngine.Shared: Imports System.Collections.Generic: " + | ||
48 | String.Empty + "NameSpace SecondLife:" + | ||
49 | String.Empty + "Public Class Script: Inherits OpenSim.Region.ScriptEngine.Shared.ScriptBase.ScriptBaseClass: " + | ||
50 | "\r\nPublic Sub New()\r\nEnd Sub: " + | ||
51 | script + | ||
52 | ":End Class :End Namespace\r\n"; | ||
42 | } | 53 | } |
43 | } | 54 | } |
44 | } | 55 | } |
56 | |||