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    fn initialization_options(&self) -> Option<serde_json::Value> {
 97        Some(json!({
 98            "purescript": {
 99                "addSpagoSources": true
100            }
101        }))
102    }
103
104    fn language_ids(&self) -> HashMap<String, String> {
105        [("PureScript".into(), "purescript".into())]
106            .into_iter()
107            .collect()
108    }
109}
110
111async fn get_cached_server_binary(
112    container_dir: PathBuf,
113    node: &dyn NodeRuntime,
114) -> Option<LanguageServerBinary> {
115    async_maybe!({
116        let mut last_version_dir = None;
117        let mut entries = fs::read_dir(&container_dir).await?;
118        while let Some(entry) = entries.next().await {
119            let entry = entry?;
120            if entry.file_type().await?.is_dir() {
121                last_version_dir = Some(entry.path());
122            }
123        }
124
125        let last_version_dir = last_version_dir.ok_or_else(|| anyhow!("no cached binary"))?;
126        let server_path = last_version_dir.join(SERVER_PATH);
127        if server_path.exists() {
128            Ok(LanguageServerBinary {
129                path: node.binary_path().await?,
130                env: None,
131                arguments: server_binary_arguments(&server_path),
132            })
133        } else {
134            Err(anyhow!(
135                "missing executable in directory {:?}",
136                last_version_dir
137            ))
138        }
139    })
140    .await
141    .log_err()
142}