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