public DebugService()
{
bpboundchange = new EventHandler(BpBoundChange);
localsview = new ListViewEx();
autosview = new ListViewEx();
thisview = new ListViewEx();
callstackview = new ListViewEx();
InitVariableView(localsview, autosview, thisview);
InitCallstackView(callstackview);
// ServiceHost.Project.Opened += new EventHandler(ProjectEvent);
// ServiceHost.Project.Closed += new EventHandler(ProjectEvent);
//
// ServiceHost.File.Opened +=new FileManagerEventHandler(FileEvent);
// ServiceHost.File.Closed +=new FileManagerEventHandler(FileEvent);
if (SettingsService.idemode)
{
IWindowService ws = ServiceHost.Window;
IDockContent tbp = Runtime.DockFactory.Content();
tbp.Text = "Locals";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
tbp.Controls.Add(localsview);
tbp.Show(ws.Document, DockState.DockBottom);
tbp.Hide();
tbp.HideOnClose = true;
tbp = Runtime.DockFactory.Content();
tbp.Text = "Autos";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
autosview.Tag = tbp;
tbp.Controls.Add(autosview);
tbp.Show(ws.Document, DockState.DockBottom);
tbp.Hide();
tbp.HideOnClose = true;
tbp = Runtime.DockFactory.Content();
tbp.Text = "This";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
thisview.Tag = tbp;
tbp.Controls.Add(thisview);
tbp.Show(ws.Document, DockState.DockBottom);
tbp.Hide();
tbp.HideOnClose = true;
tbp = Runtime.DockFactory.Content();
tbp.Text = "Callstack";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
callstackview.Tag = tbp;
tbp.Controls.Add(callstackview);
tbp.Show(ws.Document, DockState.DockBottom);
tbp.Hide();
tbp.HideOnClose = true;
}
}
public StandardConsole()
{
if (SettingsService.idemode)
{
tbp = Runtime.DockFactory.Content();
tbp.Text = "Output";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
wcon.Dock = DockStyle.Fill;
tbp.Controls.Add(wcon);
tbp.Show(ServiceHost.Window.Document, DockState.DockBottom);
tbp.Hide();
tbp.HideOnClose = true;
}
}
public ErrorService()
{
if (SettingsService.idemode)
{
tbp = Runtime.DockFactory.Content();
tbp.Text = "Results";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
tbp.Controls.Add(view);
tbp.Show(ServiceHost.Window.Document, DockState.DockBottom);
view.Tag = tbp;
tbp.Hide();
tbp.HideOnClose = true;
}
}
public PropertyService()
{
if (SettingsService.idemode)
{
tbp = Runtime.DockFactory.Content();
tbp.Text = "Properties";
tbp.Icon = ServiceHost.ImageListProvider.GetIcon("console.png");
tbp.Controls.Add(props);
tbp.Show(ServiceHost.Window.Document, DockState.DockRightAutoHide);
props.Tag = tbp;
tbp.Hide();
tbp.HideOnClose = true;
props.propertyGrid1.PropertyValueChanged += new PropertyValueChangedEventHandler(propertyGrid1_PropertyValueChanged);
}
}
public ProjectManager()
{
string recfn = Application.StartupPath + Path.DirectorySeparatorChar + "recentprojects.ini";
if (File.Exists(recfn))
{
TextReader reader = new StreamReader(recfn, Encoding.Default, true);
string rf;
//fast CPU hack ;p
int priority = 0;
while ((rf = reader.ReadLine()) != null)
{
if (File.Exists(rf))
{
recentfiles.Add(new MRUFile(rf, priority++));
}
}
reader.Close();
}
if (SettingsService.idemode)
{
tp.Text = "Project Explorer";
tp.Icon = ServiceHost.ImageListProvider.GetIcon("Project.Type.png");
to.Text = "Outline";
to.Icon = ServiceHost.ImageListProvider.GetIcon("CodeValueType.png");
tp.Controls.Add(outlineview);
to.Controls.Add(ServiceHost.CodeModel.Tree);
IWindowService ws = ServiceHost.Window;
tp.Show(ws.Document, DockState.DockRightAutoHide);
to.Show(ws.Document, DockState.DockRightAutoHide);
to.Hide();
tp.Hide();
to.HideOnClose = true;
tp.HideOnClose = true;
OutlineView.DoubleClick += new EventHandler(Tree_DoubleClick);
buildengine.BinPath = ServiceHost.Discovery.NetRuntimeRoot;
}
Opened += new EventHandler(ProjectManagerEvent);
Closed += new EventHandler(ProjectManagerEvent);
}
public void InitCommand()
{
#if !DEBUG
//proj.DeserializeProjectData();
#endif
string fn = (Application.StartupPath + Path.DirectorySeparatorChar + "profile.ls").Replace("\\", @"\\");
if (!File.Exists(fn))
{
using (Stream i = typeof(ScriptingService).Assembly.GetManifestResourceStream("Xacc.Resources.profile.ls"))
{
using (Stream o = File.Create(fn))
{
byte[] b = new byte[i.Length];
i.Read(b, 0, b.Length);
o.Write(b, 0, b.Length);
}
}
}
using (TextReader r = File.OpenText(fn))
{
try
{
LSharp.Runtime.EvalString("(do " + r.ReadToEnd() + ")");
}
catch (Exception ex)
{
Trace.WriteLine("Init exception: {0}", ex);
}
}
if (SettingsService.idemode)
{
atb = ServiceHost.File.Open(Application.StartupPath + "/command.ls", DockState.DockBottom)
as AdvancedTextBox;
atb.AutoSave = true;
tbp = atb.Parent as IDockContent;
tbp.HideOnClose = true;
tbp.Hide();
atb.ProjectHint = proj;
}
}
public void InitCommand()
{
if (SettingsService.idemode)
{
atb = ServiceHost.File.Open <ShellTextBox>(Application.StartupPath + "/shell", DockState.DockBottom);
atb.svc = this;
atb.Clear();
ServiceHost.File.Closing += delegate(object sender, FileEventArgs e)
{
e.Cancel |= (StringComparer.InvariantCultureIgnoreCase.Compare(e.FileName, Application.StartupPath + "\\shell") == 0);
};
atb.LineInserted += new AdvancedTextBox.LineInsertNotify(atb_LineInserted);
atb.AutoSave = true;
tbp = atb.Parent as IDockContent;
tbp.Text = "Scheme Shell ";
tbp.HideOnClose = true;
tbp.Hide();
InitializeShell();
}
}
