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]
 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        version: Box<dyn 'static + Send + Any>,
 56        container_dir: PathBuf,
 57        _: &dyn LspAdapterDelegate,
 58    ) -> Result<LanguageServerBinary> {
 59        let version = version.downcast::<String>().unwrap();
 60        let server_path = container_dir.join(SERVER_PATH);
 61
 62        if fs::metadata(&server_path).await.is_err() {
 63            self.node
 64                .npm_install_packages(
 65                    &container_dir,
 66                    &[("purescript-language-server", version.as_str())],
 67                )
 68                .await?;
 69        }
 70
 71        Ok(LanguageServerBinary {
 72            path: self.node.binary_path().await?,
 73            env: None,
 74            arguments: server_binary_arguments(&server_path),
 75        })
 76    }
 77
 78    async fn cached_server_binary(
 79        &self,
 80        container_dir: PathBuf,
 81        _: &dyn LspAdapterDelegate,
 82    ) -> Option<LanguageServerBinary> {
 83        get_cached_server_binary(container_dir, &*self.node).await
 84    }
 85
 86    async fn installation_test_binary(
 87        &self,
 88        container_dir: PathBuf,
 89    ) -> Option<LanguageServerBinary> {
 90        get_cached_server_binary(container_dir, &*self.node).await
 91    }
 92
 93    fn initialization_options(&self) -> Option<serde_json::Value> {
 94        Some(json!({
 95            "purescript": {
 96                "addSpagoSources": true
 97            }
 98        }))
 99    }
100
101    fn language_ids(&self) -> HashMap<String, String> {
102        [("PureScript".into(), "purescript".into())]
103            .into_iter()
104            .collect()
105    }
106}
107
108async fn get_cached_server_binary(
109    container_dir: PathBuf,
110    node: &dyn NodeRuntime,
111) -> Option<LanguageServerBinary> {
112    async_maybe!({
113        let mut last_version_dir = None;
114        let mut entries = fs::read_dir(&container_dir).await?;
115        while let Some(entry) = entries.next().await {
116            let entry = entry?;
117            if entry.file_type().await?.is_dir() {
118                last_version_dir = Some(entry.path());
119            }
120        }
121
122        let last_version_dir = last_version_dir.ok_or_else(|| anyhow!("no cached binary"))?;
123        let server_path = last_version_dir.join(SERVER_PATH);
124        if server_path.exists() {
125            Ok(LanguageServerBinary {
126                path: node.binary_path().await?,
127                env: None,
128                arguments: server_binary_arguments(&server_path),
129            })
130        } else {
131            Err(anyhow!(
132                "missing executable in directory {:?}",
133                last_version_dir
134            ))
135        }
136    })
137    .await
138    .log_err()
139}