oak_r/
lsp.rs

1use crate::{kind::RSyntaxKind, language::RLanguage};
2use core::range::Range;
3use futures::Future;
4use oak_core::tree::RedNode;
5use oak_hover::{Hover, HoverProvider};
6use oak_lsp::service::LanguageService;
7use oak_vfs::Vfs;
8
9pub struct RHoverProvider;
10
11impl HoverProvider<RLanguage> for RHoverProvider {
12    fn hover(&self, node: &RedNode<RLanguage>, _range: Range<usize>) -> Option<Hover> {
13        let kind = node.green.kind;
14        let contents = match kind {
15            RSyntaxKind::FunctionDefinition => "### R Function\nDefines a callable block of code.",
16            _ => return None,
17        };
18        Some(Hover { contents: contents.to_string(), range: Some(node.span()) })
19    }
20}
21
22pub struct RLanguageService<V: Vfs> {
23    vfs: V,
24    workspace: oak_lsp::workspace::WorkspaceManager,
25    hover_provider: RHoverProvider,
26}
27
28impl<V: Vfs> RLanguageService<V> {
29    pub fn new(vfs: V) -> Self {
30        Self { vfs, workspace: oak_lsp::workspace::WorkspaceManager::default(), hover_provider: RHoverProvider }
31    }
32}
33
34impl<V: Vfs + Send + Sync + 'static + oak_vfs::WritableVfs> LanguageService for RLanguageService<V> {
35    type Lang = RLanguage;
36    type Vfs = V;
37
38    fn vfs(&self) -> &Self::Vfs {
39        &self.vfs
40    }
41    fn workspace(&self) -> &oak_lsp::workspace::WorkspaceManager {
42        &self.workspace
43    }
44
45    fn get_root(&self, uri: &str) -> impl Future<Output = Option<RedNode<'_, RLanguage>>> + Send + '_ {
46        let source = self.vfs().get_source(uri);
47        async move {
48            let source = source?;
49            let language = RLanguage::default();
50            let parser = crate::parser::RParser::new(&language);
51            let lexer = crate::lexer::RLexer::new(&language);
52            let mut cache = oak_core::parser::session::ParseSession::<RLanguage>::default();
53            let _output = oak_core::parser::parse(&parser, &lexer, &source, &[], &mut cache);
54            None
55        }
56    }
57
58    fn hover(&self, uri: &str, range: Range<usize>) -> impl Future<Output = Option<oak_lsp::Hover>> + Send + '_ {
59        let uri = uri.to_string();
60        async move { self.with_root(&uri, |root| self.hover_provider.hover(&root, range).map(|h| oak_lsp::Hover { contents: h.contents, range: h.range })).await.flatten() }
61    }
62}
oak_r/lsp.rs

oak_r/
lsp.rs
