1use anyhow::{anyhow, Result};
  2use async_trait::async_trait;
  3use collections::HashMap;
  4use futures::StreamExt;
  5use language::{LanguageServerName, LspAdapter, LspAdapterDelegate};
  6use lsp::LanguageServerBinary;
  7use node_runtime::NodeRuntime;
  8use serde_json::json;
  9use smol::fs;
 10use std::{
 11    any::Any,
 12    ffi::OsString,
 13    path::{Path, PathBuf},
 14    sync::Arc,
 15};
 16use util::{async_maybe, ResultExt};
 17
 18const SERVER_PATH: &str = "node_modules/.bin/purescript-language-server";
 19
 20fn server_binary_arguments(server_path: &Path) -> Vec<OsString> {
 21    vec![server_path.into(), "--stdio".into()]
 22}
 23
 24pub struct PurescriptLspAdapter {
 25    node: Arc<dyn NodeRuntime>,
 26}
 27
 28impl PurescriptLspAdapter {
 29    // todo(linux): remove
 30    #[cfg_attr(target_os = "linux", allow(dead_code))]
 31    pub fn new(node: Arc<dyn NodeRuntime>) -> Self {
 32        Self { node }
 33    }
 34}
 35
 36#[async_trait(?Send)]
 37impl LspAdapter for PurescriptLspAdapter {
 38    fn name(&self) -> LanguageServerName {
 39        LanguageServerName("purescript-language-server".into())
 40    }
 41
 42    async fn fetch_latest_server_version(
 43        &self,
 44        _: &dyn LspAdapterDelegate,
 45    ) -> Result<Box<dyn 'static + Send + Any>> {
 46        Ok(Box::new(
 47            self.node
 48                .npm_package_latest_version("purescript-language-server")
 49                .await?,
 50        ) as Box<_>)
 51    }
 52
 53    async fn fetch_server_binary(
 54        &self,
 55        latest_version: Box<dyn 'static + Send + Any>,
 56        container_dir: PathBuf,
 57        _: &dyn LspAdapterDelegate,
 58    ) -> Result<LanguageServerBinary> {
 59        let latest_version = latest_version.downcast::<String>().unwrap();
 60        let server_path = container_dir.join(SERVER_PATH);
 61        let package_name = "purescript-language-server";
 62
 63        let should_install_npm_package = self
 64            .node
 65            .should_install_npm_package(package_name, &server_path, &container_dir, &latest_version)
 66            .await;
 67
 68        if should_install_npm_package {
 69            self.node
 70                .npm_install_packages(&container_dir, &[(package_name, latest_version.as_str())])
 71                .await?;
 72        }
 73
 74        Ok(LanguageServerBinary {
 75            path: self.node.binary_path().await?,
 76            env: None,
 77            arguments: server_binary_arguments(&server_path),
 78        })
 79    }
 80
 81    async fn cached_server_binary(
 82        &self,
 83        container_dir: PathBuf,
 84        _: &dyn LspAdapterDelegate,
 85    ) -> Option<LanguageServerBinary> {
 86        get_cached_server_binary(container_dir, &*self.node).await
 87    }
 88
 89    async fn installation_test_binary(
 90        &self,
 91        container_dir: PathBuf,
 92    ) -> Option<LanguageServerBinary> {
 93        get_cached_server_binary(container_dir, &*self.node).await
 94    }
 95
 96    async fn initialization_options(
 97        self: Arc<Self>,
 98        _: &Arc<dyn LspAdapterDelegate>,
 99    ) -> Result<Option<serde_json::Value>> {
100        Ok(Some(json!({
101            "purescript": {
102                "addSpagoSources": true
103            }
104        })))
105    }
106
107    fn language_ids(&self) -> HashMap<String, String> {
108        [("PureScript".into(), "purescript".into())]
109            .into_iter()
110            .collect()
111    }
112}
113
114async fn get_cached_server_binary(
115    container_dir: PathBuf,
116    node: &dyn NodeRuntime,
117) -> Option<LanguageServerBinary> {
118    async_maybe!({
119        let mut last_version_dir = None;
120        let mut entries = fs::read_dir(&container_dir).await?;
121        while let Some(entry) = entries.next().await {
122            let entry = entry?;
123            if entry.file_type().await?.is_dir() {
124                last_version_dir = Some(entry.path());
125            }
126        }
127
128        let last_version_dir = last_version_dir.ok_or_else(|| anyhow!("no cached binary"))?;
129        let server_path = last_version_dir.join(SERVER_PATH);
130        if server_path.exists() {
131            Ok(LanguageServerBinary {
132                path: node.binary_path().await?,
133                env: None,
134                arguments: server_binary_arguments(&server_path),
135            })
136        } else {
137            Err(anyhow!(
138                "missing executable in directory {:?}",
139                last_version_dir
140            ))
141        }
142    })
143    .await
144    .log_err()
145}