From 9511a8c76370f21e839114007dcd2b25c69b009a Mon Sep 17 00:00:00 2001
From: Tedd Hansen
Date: Sat, 8 Nov 2008 17:35:48 +0000
Subject: Work in progress on SECS stuff. Have been holding it off until after
 0.6 release. Still messy as hell and doesn't really work yet. Will undergo
 dramatic changes. AND MOST IMPORTANTLY: Will be conformed to work in coop
 with todays DNE and XEngine, hopefully one day providing a common interface
 for all components.

---
 .../Components/DotNetEngine/Compilers/Compiler_VB.cs | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

(limited to 'OpenSim/ScriptEngine/Components/DotNetEngine/Compilers/Compiler_VB.cs')

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 @@
  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 using System;
+using System.CodeDom.Compiler;
 using System.Collections.Generic;
 using System.Text;
-using OpenSim.ApplicationPlugins.ScriptEngine.Components;
+using Microsoft.VisualBasic;
+using OpenSim.ScriptEngine.Shared;
 
 namespace OpenSim.ScriptEngine.Components.DotNetEngine.Compilers
 {
-    public class Compiler_VB : CompilerBase
+    public class Compiler_VB : CILCompiler, IScriptCompiler
     {
-        public override void Start()
+ 
+        public Compiler_VB()
         {
+            CompileProvider = new VBCodeProvider() as CodeDomProvider;
         }
 
-        public override void Close()
+        public override string PreProcessScript(ref string script)
         {
+            return
+                "Imports OpenSim.Region.ScriptEngine.Shared: Imports System.Collections.Generic: " +
+                String.Empty + "NameSpace SecondLife:" +
+                String.Empty + "Public Class Script: Inherits OpenSim.Region.ScriptEngine.Shared.ScriptBase.ScriptBaseClass: " +
+                "\r\nPublic Sub New()\r\nEnd Sub: " +
+                script +
+                ":End Class :End Namespace\r\n";
         }
     }
 }
+
-- 
cgit v1.1