-
Notifications
You must be signed in to change notification settings - Fork 0
/
AdaLanguageServer.cs
93 lines (79 loc) · 2.88 KB
/
AdaLanguageServer.cs
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
using Microsoft.VisualStudio.LanguageServer.Client;
using Microsoft.VisualStudio.Threading;
using Microsoft.VisualStudio.Utilities;
using System;
using System.Collections.Generic;
using System.ComponentModel.Composition;
using System.Diagnostics;
using System.IO;
using System.IO.Pipes;
using System.Linq;
using System.Reflection;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
namespace AdaLanguageServer
{
[ContentType("Ada")]
[Export(typeof(ILanguageClient))]
public class AdaLanguageServer : ILanguageClient
{
public string Name => "Ada Language Server";
public IEnumerable<string> ConfigurationSections => null;
public object InitializationOptions => null;
public IEnumerable<string> FilesToWatch => null;
public event AsyncEventHandler<EventArgs> StartAsync;
public event AsyncEventHandler<EventArgs> StopAsync;
public async Task<Connection> ActivateAsync(CancellationToken token)
{
ProcessStartInfo info = new ProcessStartInfo();
info.FileName = "lsp-ada_driver.exe";
info.RedirectStandardInput = true;
info.RedirectStandardOutput = true;
info.UseShellExecute = false;
info.CreateNoWindow = true;
Process process = new Process();
process.StartInfo = info;
if (process.Start())
{
return new Connection(process.StandardOutput.BaseStream, process.StandardInput.BaseStream);
}
return null;
}
public async Task OnLoadedAsync()
{
await StartAsync.InvokeAsync(this, EventArgs.Empty);
}
public Task OnServerInitializeFailedAsync(Exception e)
{
return Task.CompletedTask;
}
public Task OnServerInitializedAsync()
{
return Task.CompletedTask;
}
}
public class AdaContentDefinition
{
[Export]
[Name("Ada")]
[BaseDefinition(CodeRemoteContentDefinition.CodeRemoteContentTypeName)]
internal static ContentTypeDefinition AdaContentTypeDefinition;
[Export]
[FileExtension(".ads")]
[ContentType("Ada")]
internal static FileExtensionToContentTypeDefinition AdsFileExtensionDefinition;
[Export]
[FileExtension(".adb")]
[ContentType("Ada")]
internal static FileExtensionToContentTypeDefinition AdbFileExtensionDefinition;
[Export]
[FileExtension(".ada")]
[ContentType("Ada")]
internal static FileExtensionToContentTypeDefinition AdaFileExtensionDefinition;
[Export]
[FileExtension(".gpr")]
[ContentType("Ada")]
internal static FileExtensionToContentTypeDefinition GprFileExtensionDefinition;
}
}