Browse Source
git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@1596 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61shortcuts
David Srbecký
19 years ago
16 changed files with 444 additions and 102 deletions
@ -0,0 +1,11 @@
@@ -0,0 +1,11 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> |
||||
<PropertyGroup> |
||||
<PrepareForRunDependsOn>$(PrepareForRunDependsOn);MyPostBuildTarget</PrepareForRunDependsOn> |
||||
</PropertyGroup> |
||||
<ItemGroup> |
||||
<MyCopyItem Include="$(MSBuildProjectDirectory)\*.addin" /> |
||||
</ItemGroup> |
||||
<Target Name="MyPostBuildTarget"> |
||||
<Copy SourceFiles="@(MyCopyItem)" DestinationFolder="$(OutputPath)" /> |
||||
</Target> |
||||
</Project> |
||||
@ -0,0 +1,38 @@
@@ -0,0 +1,38 @@
|
||||
// <file>
|
||||
// <copyright see="prj:///doc/copyright.txt"/>
|
||||
// <license see="prj:///doc/license.txt"/>
|
||||
// <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
|
||||
// <version>$Revision$</version>
|
||||
// </file>
|
||||
|
||||
using System.Reflection; |
||||
using System.Runtime.CompilerServices; |
||||
using System.Runtime.InteropServices; |
||||
|
||||
// Information about this assembly is defined by the following
|
||||
// attributes.
|
||||
//
|
||||
// change them to the information which is associated with the assembly
|
||||
// you compile.
|
||||
|
||||
[assembly: AssemblyTitle("Debugger.BooInterpreter")] |
||||
[assembly: AssemblyDescription("Boo Interpreter for debugger")] |
||||
[assembly: AssemblyConfiguration("")] |
||||
[assembly: AssemblyCompany("")] |
||||
[assembly: AssemblyProduct("Debugger.BooInterpreter")] |
||||
[assembly: AssemblyCopyright("")] |
||||
[assembly: AssemblyTrademark("")] |
||||
[assembly: AssemblyCulture("")] |
||||
|
||||
// This sets the default COM visibility of types in the assembly to invisible.
|
||||
// If you need to expose a type to COM, use [ComVisible(true)] on that type.
|
||||
[assembly: ComVisible(false)] |
||||
|
||||
// The assembly version has following format :
|
||||
//
|
||||
// Major.Minor.Build.Revision
|
||||
//
|
||||
// You can specify all values by your own or you can build default build and revision
|
||||
// numbers with the '*' character (the default):
|
||||
|
||||
[assembly: AssemblyVersion("1.0.*")] |
||||
@ -0,0 +1,25 @@
@@ -0,0 +1,25 @@
|
||||
<AddIn name = "Debugger Boo Interpreter" |
||||
author = "David Srbecký" |
||||
copyright = "prj:///doc/copyright.txt" |
||||
description = "Interactive boo interpreter run in debugee"> |
||||
|
||||
<Manifest> |
||||
<Identity name = "ICSharpCode.DebuggerBooInterpreter"/> |
||||
<Dependency addin = "ICSharpCode.BooInterpreter"/> |
||||
<Dependency addin = "ICSharpCode.Debugger"/> |
||||
</Manifest> |
||||
|
||||
<Runtime> |
||||
<Import assembly = "Debugger.BooInterpreter.dll"/> |
||||
<Import assembly = "$ICSharpCode.BooInterpreter/Boo.Lang.dll"/> |
||||
<Import assembly = "$ICSharpCode.BooInterpreter/Boo.Lang.Compiler.dll"/> |
||||
<Import assembly = "$ICSharpCode.BooInterpreter/Boo.Lang.Interpreter.dll"/> |
||||
<Import assembly = "$ICSharpCode.BooInterpreter/Boo.InterpreterAddIn.dll"/> |
||||
<Import assembly = "$ICSharpCode.Debugger/Debugger.AddIn.dll"/> |
||||
<Import assembly = "$ICSharpCode.Debugger/Debugger.Core.dll"/> |
||||
</Runtime> |
||||
|
||||
<Path name="/AddIns/InterpreterAddIn/InterpreterContexts"> |
||||
<Class id="Debugee" class="Debugger.DebugeeInterpreterContext"/> |
||||
</Path> |
||||
</AddIn> |
||||
@ -0,0 +1,87 @@
@@ -0,0 +1,87 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> |
||||
<PropertyGroup> |
||||
<OutputType>Library</OutputType> |
||||
<RootNamespace>Debugger</RootNamespace> |
||||
<AssemblyName>Debugger.BooInterpreter</AssemblyName> |
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> |
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> |
||||
<ProjectGuid>{B45B39B9-620C-4F84-A555-1833790517AB}</ProjectGuid> |
||||
<AllowUnsafeBlocks>False</AllowUnsafeBlocks> |
||||
<NoStdLib>False</NoStdLib> |
||||
<RegisterForComInterop>False</RegisterForComInterop> |
||||
<GenerateSerializationAssemblies>Auto</GenerateSerializationAssemblies> |
||||
<BaseAddress>4194304</BaseAddress> |
||||
<PlatformTarget>AnyCPU</PlatformTarget> |
||||
<FileAlignment>4096</FileAlignment> |
||||
<WarningLevel>4</WarningLevel> |
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors> |
||||
<OutputPath>..\..\..\..\..\..\AddIns\AddIns\Misc\Debugger</OutputPath> |
||||
<CheckForOverflowUnderflow>True</CheckForOverflowUnderflow> |
||||
<RunPostBuildEvent>Always</RunPostBuildEvent> |
||||
</PropertyGroup> |
||||
<PropertyGroup Condition=" '$(Configuration)' == 'Debug' "> |
||||
<Optimize>False</Optimize> |
||||
<DefineConstants>DEBUG;TRACE</DefineConstants> |
||||
<DebugSymbols>true</DebugSymbols> |
||||
<DebugType>Full</DebugType> |
||||
</PropertyGroup> |
||||
<PropertyGroup Condition=" '$(Configuration)' == 'Release' "> |
||||
<Optimize>True</Optimize> |
||||
<DefineConstants>TRACE</DefineConstants> |
||||
<DebugSymbols>False</DebugSymbols> |
||||
<DebugType>None</DebugType> |
||||
</PropertyGroup> |
||||
<ItemGroup> |
||||
<Reference Include="System" /> |
||||
<Reference Include="System.Xml" /> |
||||
<Reference Include="System.Drawing" /> |
||||
<Reference Include="Boo.Lang.Interpreter"> |
||||
<HintPath>..\..\..\..\BackendBindings\Boo\RequiredLibraries\Boo.Lang.Interpreter.dll</HintPath> |
||||
<SpecificVersion>False</SpecificVersion> |
||||
<Private>True</Private> |
||||
</Reference> |
||||
<Reference Include="Boo.Lang"> |
||||
<HintPath>..\..\..\..\BackendBindings\Boo\RequiredLibraries\Boo.Lang.dll</HintPath> |
||||
<SpecificVersion>False</SpecificVersion> |
||||
<Private>False</Private> |
||||
</Reference> |
||||
</ItemGroup> |
||||
<ItemGroup> |
||||
<Compile Include="Configuration\AssemblyInfo.cs" /> |
||||
<Compile Include="Src\DebugeeInterpreterContext.cs" /> |
||||
<Compile Include="Src\DebugeeInteractiveInterpreter.cs" /> |
||||
</ItemGroup> |
||||
<ItemGroup> |
||||
<Folder Include="Src" /> |
||||
<Folder Include="Configuration" /> |
||||
<Content Include="Debugger.BooInterpreter.addin"> |
||||
<CopyToOutputDirectory>Never</CopyToOutputDirectory> |
||||
</Content> |
||||
<ProjectReference Include="..\..\Debugger.Core\Project\Debugger.Core.csproj"> |
||||
<Project>{1D18D788-F7EE-4585-A23B-34DC8EC63CB8}</Project> |
||||
<Name>Debugger.Core</Name> |
||||
<Private>False</Private> |
||||
</ProjectReference> |
||||
<ProjectReference Include="..\..\..\..\BackendBindings\Boo\Boo.InterpreterAddIn\Project\Boo.InterpreterAddIn.booproj"> |
||||
<Project>{928E34B2-5E46-4A4D-8E4D-2CA2CCDB905A}</Project> |
||||
<Name>Boo.InterpreterAddIn</Name> |
||||
<Private>False</Private> |
||||
</ProjectReference> |
||||
<ProjectReference Include="..\..\Debugger.AddIn\Project\Debugger.AddIn.csproj"> |
||||
<Project>{EC06F96A-AEEC-49D6-B03D-AB87C6EB674C}</Project> |
||||
<Name>Debugger.AddIn</Name> |
||||
<Private>False</Private> |
||||
</ProjectReference> |
||||
<Content Include="PostBuildEvent.proj" /> |
||||
<ProjectReference Include="..\..\..\..\..\Main\Base\Project\ICSharpCode.SharpDevelop.csproj"> |
||||
<Project>{2748AD25-9C63-4E12-877B-4DCE96FBED54}</Project> |
||||
<Name>ICSharpCode.SharpDevelop</Name> |
||||
</ProjectReference> |
||||
<ProjectReference Include="..\..\..\..\..\Main\Core\Project\ICSharpCode.Core.csproj"> |
||||
<Project>{35CEF10F-2D4C-45F2-9DD1-161E0FEC583C}</Project> |
||||
<Name>ICSharpCode.Core</Name> |
||||
</ProjectReference> |
||||
</ItemGroup> |
||||
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.Targets" /> |
||||
<Import Project="PostBuildEvent.proj" /> |
||||
</Project> |
||||
@ -0,0 +1,11 @@
@@ -0,0 +1,11 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> |
||||
<PropertyGroup> |
||||
<PrepareForRunDependsOn>$(PrepareForRunDependsOn);MyPostBuildTarget</PrepareForRunDependsOn> |
||||
</PropertyGroup> |
||||
<ItemGroup> |
||||
<MyCopyItem Include="$(MSBuildProjectDirectory)\*.addin" /> |
||||
</ItemGroup> |
||||
<Target Name="MyPostBuildTarget"> |
||||
<Copy SourceFiles="@(MyCopyItem)" DestinationFolder="$(OutputPath)" /> |
||||
</Target> |
||||
</Project> |
||||
@ -0,0 +1,58 @@
@@ -0,0 +1,58 @@
|
||||
// <file>
|
||||
// <copyright see="prj:///doc/copyright.txt"/>
|
||||
// <license see="prj:///doc/license.txt"/>
|
||||
// <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
|
||||
// <version>$Revision$</version>
|
||||
// </file>
|
||||
|
||||
using System; |
||||
|
||||
using Boo.Lang.Interpreter; |
||||
|
||||
namespace Debugger |
||||
{ |
||||
public class DebugeeInteractiveInterpreter: InteractiveInterpreter |
||||
{ |
||||
public DebugeeInteractiveInterpreter() |
||||
{ |
||||
} |
||||
|
||||
public override void Declare(string name, Type type) |
||||
{ |
||||
base.Declare(name, type); |
||||
} |
||||
|
||||
public override object GetValue(string name) |
||||
{ |
||||
System.Diagnostics.Debugger.Log(0xB00, "DebugeeInterpreterContext.BeforeGetValue", name); |
||||
return base.GetValue(name); |
||||
} |
||||
|
||||
public object GetValueInternal(string name) |
||||
{ |
||||
return base.GetValue(name); |
||||
} |
||||
|
||||
public override Type Lookup(string name) |
||||
{ |
||||
return base.Lookup(name); |
||||
} |
||||
|
||||
public override void SetLastValue(object val) |
||||
{ |
||||
base.SetLastValue(val); |
||||
} |
||||
|
||||
public override object SetValue(string name, object val) |
||||
{ |
||||
object ret = base.SetValue(name, val); |
||||
System.Diagnostics.Debugger.Log(0xB00, "DebugeeInterpreterContext.AfterSetValue", name); |
||||
return ret; |
||||
} |
||||
|
||||
public object SetValueInternal(string name, object val) |
||||
{ |
||||
return base.SetValue(name, val); |
||||
} |
||||
} |
||||
} |
||||
@ -0,0 +1,157 @@
@@ -0,0 +1,157 @@
|
||||
// <file>
|
||||
// <copyright see="prj:///doc/copyright.txt"/>
|
||||
// <license see="prj:///doc/license.txt"/>
|
||||
// <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
|
||||
// <version>$Revision$</version>
|
||||
// </file>
|
||||
|
||||
using System; |
||||
using System.IO; |
||||
using System.Reflection; |
||||
|
||||
using Boo.Lang.Interpreter; |
||||
using Boo.InterpreterAddIn; |
||||
|
||||
using Debugger.Wrappers.CorDebug; |
||||
using Debugger.Wrappers.MetaData; |
||||
|
||||
using ICSharpCode.Core; |
||||
using ICSharpCode.SharpDevelop.Services; |
||||
|
||||
namespace Debugger |
||||
{ |
||||
public class DebugeeInterpreterContext: InterpreterContext |
||||
{ |
||||
NDebugger debugger; |
||||
Variable interpreter; |
||||
|
||||
public DebugeeInterpreterContext() |
||||
{ |
||||
this.Title = "Debuggee"; |
||||
this.ToolTipText = "Runs commands in the debugged progam"; |
||||
this.Image = ICSharpCode.Core.ResourceService.GetBitmap("Boo.ProjectIcon"); |
||||
} |
||||
|
||||
bool CanLoadInterpreter { |
||||
get { |
||||
return interpreter != null || InjectInterpreter(); |
||||
} |
||||
} |
||||
|
||||
bool InjectInterpreter() |
||||
{ |
||||
if (!DebuggerService.IsDebuggerLoaded) { |
||||
PrintLine("Error: 'Debugger is not loaded'"); |
||||
return false; |
||||
} |
||||
WindowsDebugger winDebugger = DebuggerService.CurrentDebugger as WindowsDebugger; |
||||
if (winDebugger == null) { |
||||
PrintLine("Error: 'Incompatible debugger'"); |
||||
return false; |
||||
} |
||||
if (!winDebugger.IsDebugging) { |
||||
PrintLine("Error: 'No program is debugged'"); |
||||
return false; |
||||
} |
||||
debugger = winDebugger.DebuggerCore; |
||||
debugger.SelectedProcess.Expired += delegate { interpreter = null; }; |
||||
debugger.LogMessage -= OnDebuggerLogMessage; |
||||
debugger.LogMessage += OnDebuggerLogMessage; |
||||
|
||||
Variable assembly; |
||||
// Boo.Lang.Interpreter.dll
|
||||
string path = Path.Combine(Path.GetDirectoryName(typeof(InterpreterContext).Assembly.Location), "Boo.Lang.Interpreter.dll"); |
||||
assembly = LoadAssembly(path); |
||||
// Debugger.BooInterpreter.dll
|
||||
assembly = LoadAssembly(typeof(DebugeeInteractiveInterpreter).Assembly.Location); |
||||
Variable interpreterType = Eval.NewString(debugger, typeof(DebugeeInteractiveInterpreter).FullName).EvaluateNow(); |
||||
interpreter = Eval.CallFunction(debugger, typeof(Assembly), "CreateInstance", false, assembly, new Variable[] {interpreterType}).EvaluateNow(); |
||||
RunCommand( |
||||
"import System\n" + |
||||
"import System.IO\n" + |
||||
"import System.Text\n" + |
||||
"interpreter.RememberLastValue = true\n" + |
||||
"interpreter.Print = def(msg): System.Diagnostics.Debugger.Log(0xB00, \"DebugeeInterpreterContext.PrintLine\", msg)"); |
||||
|
||||
return true; |
||||
} |
||||
|
||||
Variable LoadAssembly(string path) |
||||
{ |
||||
Variable assemblyPath = Eval.NewString(debugger, path).EvaluateNow(); |
||||
Variable assembly = Eval.CallFunction(debugger, typeof(Assembly), "LoadFrom", false, null, new Variable[] {assemblyPath}).EvaluateNow(); |
||||
return assembly; |
||||
} |
||||
|
||||
public override void RunCommand(string code) |
||||
{ |
||||
if (CanLoadInterpreter) { |
||||
Variable cmd = Eval.NewString(debugger, code).EvaluateNow(); |
||||
Eval.CallFunction(debugger, typeof(InteractiveInterpreter), "LoopEval", false, interpreter, new Variable[] {cmd}).EvaluateNow(); |
||||
} |
||||
} |
||||
|
||||
public override string[] GetGlobals() |
||||
{ |
||||
return null; |
||||
} |
||||
|
||||
public override string[] SuggestCodeCompletion(string code) |
||||
{ |
||||
if (CanLoadInterpreter) { |
||||
Variable cmd = Eval.NewString(debugger, code).EvaluateNow(); |
||||
Eval.CallFunction(debugger, typeof(AbstractInterpreter), "SuggestCodeCompletion", false, interpreter, new Variable[] {cmd}).EvaluateNow(); |
||||
return null; |
||||
} else { |
||||
return null; |
||||
} |
||||
} |
||||
|
||||
void OnDebuggerLogMessage(object sender, MessageEventArgs e) |
||||
{ |
||||
if (e.Level == 0xB00 && interpreter != null) { |
||||
switch (e.Category) { |
||||
case "DebugeeInterpreterContext.PrintLine": |
||||
PrintLine(e.Message); |
||||
break; |
||||
case "DebugeeInterpreterContext.BeforeGetValue": |
||||
BeforeGetValue(e.Message); |
||||
break; |
||||
case "DebugeeInterpreterContext.AfterSetValue": |
||||
AfterSetValue(e.Message); |
||||
break; |
||||
} |
||||
} |
||||
} |
||||
|
||||
void BeforeGetValue(string name) |
||||
{ |
||||
// PrintLine("BeforeGetValue: " + name);
|
||||
Variable localVar = debugger.LocalVariables[name]; |
||||
if (localVar != null) { |
||||
PrintLine("Warning: 'Getting of local variables not implemented'"); |
||||
} |
||||
} |
||||
|
||||
void AfterSetValue(string name) |
||||
{ |
||||
//PrintLine("AfterSetValue: " + name);
|
||||
Variable localVar = debugger.LocalVariables[name]; |
||||
if (localVar != null) { |
||||
PrintLine("Warning: 'Setting of local variables not implemented'"); |
||||
} |
||||
} |
||||
|
||||
void SetValueInternal(string valueName, Variable newValue) |
||||
{ |
||||
Variable name = Eval.NewString(debugger, valueName).Result; |
||||
Eval.CallFunction(debugger, typeof(DebugeeInteractiveInterpreter), "SetValueInternal", false, interpreter, new Variable[] {name, newValue}).ScheduleEvaluation(); |
||||
} |
||||
|
||||
Variable GetValueInternal(string valueName) |
||||
{ |
||||
Variable name = Eval.NewString(debugger, valueName).EvaluateNow(); |
||||
return Eval.CallFunction(debugger, typeof(DebugeeInteractiveInterpreter), "GetValueInternal", false, interpreter, new Variable[] {name}).EvaluateNow(); |
||||
} |
||||
} |
||||
} |
||||
@ -1,84 +0,0 @@
@@ -1,84 +0,0 @@
|
||||
/* |
||||
* Created by SharpDevelop. |
||||
* User: User |
||||
* Date: 10/07/2006 |
||||
* Time: 01:47 |
||||
* |
||||
* To change this template use Tools | Options | Coding | Edit Standard Headers. |
||||
*/ |
||||
|
||||
using System; |
||||
|
||||
using Debugger.Wrappers.CorDebug; |
||||
using Debugger.Wrappers.MetaData; |
||||
|
||||
namespace Debugger |
||||
{ |
||||
public class InterpreterWrapper |
||||
{ |
||||
const string booDll = "Boo.Lang.Interpreter.dll"; |
||||
|
||||
NDebugger debugger; |
||||
Variable interpreter; |
||||
|
||||
public NDebugger Debugger { |
||||
get { |
||||
return debugger; |
||||
} |
||||
} |
||||
|
||||
public static InterpreterWrapper InjectBooInterpreter(NDebugger debugger, string booPath) |
||||
{ |
||||
return new InterpreterWrapper(debugger, booPath); |
||||
} |
||||
|
||||
private InterpreterWrapper(NDebugger debugger, string booInterpreterPath) |
||||
{ |
||||
this.debugger = debugger; |
||||
|
||||
Variable assemblyPath = Eval.NewString(debugger, booInterpreterPath).EvaluateNow(); |
||||
Variable assembly = Eval.CallFunction(debugger, "mscorlib.dll", "System.Reflection.Assembly", "LoadFrom", false, null, new Variable[] {assemblyPath}).EvaluateNow(); |
||||
Variable interpreterType = Eval.NewString(debugger, "Boo.Lang.Interpreter.InteractiveInterpreter").EvaluateNow(); |
||||
interpreter = Eval.CallFunction(debugger, "mscorlib.dll", "System.Reflection.Assembly", "CreateInstance", false, assembly, new Variable[] {interpreterType}).EvaluateNow(); |
||||
RunCommand("interpreter.RememberLastValue = true"); |
||||
|
||||
// Testing:
|
||||
RunCommand("1 + 2"); |
||||
Variable res = GetLastValue(); |
||||
SetValue("a", res); |
||||
RunCommand("a = a + 100"); |
||||
Variable a = GetValue("a"); |
||||
Variable sug = SuggestCodeCompletion("interpreter.__codecomplete__"); |
||||
} |
||||
|
||||
|
||||
public void RunCommand(string code) |
||||
{ |
||||
Variable cmd = Eval.NewString(debugger, code).EvaluateNow(); |
||||
Eval.CallFunction(debugger, booDll, "Boo.Lang.Interpreter.InteractiveInterpreter", "LoopEval", false, interpreter, new Variable[] {cmd}).EvaluateNow(); |
||||
} |
||||
|
||||
public void SetValue(string valueName, Variable newValue) |
||||
{ |
||||
Variable name = Eval.NewString(debugger, valueName).EvaluateNow(); |
||||
Eval.CallFunction(debugger, booDll, "Boo.Lang.Interpreter.InteractiveInterpreter", "SetValue", false, interpreter, new Variable[] {name, newValue}).EvaluateNow(); |
||||
} |
||||
|
||||
public Variable GetValue(string valueName) |
||||
{ |
||||
Variable name = Eval.NewString(debugger, valueName).EvaluateNow(); |
||||
return Eval.CallFunction(debugger, booDll, "Boo.Lang.Interpreter.InteractiveInterpreter", "GetValue", false, interpreter, new Variable[] {name}).EvaluateNow(); |
||||
} |
||||
|
||||
public Variable GetLastValue() |
||||
{ |
||||
return Eval.CallFunction(debugger, booDll, "Boo.Lang.Interpreter.InteractiveInterpreter", "get_LastValue", false, interpreter, new Variable[] {}).EvaluateNow(); |
||||
} |
||||
|
||||
public Variable SuggestCodeCompletion(string code) |
||||
{ |
||||
Variable cmd = Eval.NewString(debugger, code).EvaluateNow(); |
||||
return Eval.CallFunction(debugger, booDll, "Boo.Lang.Interpreter.AbstractInterpreter", "SuggestCodeCompletion", false, interpreter, new Variable[] {cmd}).EvaluateNow(); |
||||
} |
||||
} |
||||
} |
||||
Loading…
Reference in new issue