WIP: Add IDE process

Author: pete-murphy

server/Main.hs

@@ -20,7 +20,7 @@ import           Data.Aeson ((.=))
 import           Data.Bifunctor (first, second, bimap)
 import qualified Data.ByteString.Lazy as BL
 import           Data.Default (def)
-import           Data.Function (on)
+import           Data.Function (on, fix)
 import qualified Data.IORef as IORef
 import           Data.List (nubBy)
 import qualified Data.List.NonEmpty as NE
@@ -43,10 +43,12 @@ import qualified Language.PureScript.Make as Make
 import qualified Language.PureScript.Make.Cache as Cache
 import qualified Language.PureScript.TypeChecker.TypeSearch as TS
 import qualified Network.Wai.Handler.Warp as Warp
+import qualified System.Directory as Directory
 import           System.Environment (getArgs)
 import           System.Exit (exitFailure)
 import           System.FilePath.Glob (glob)
 import qualified System.IO as IO
+import qualified System.Process as Process
 import           Web.Scotty
 import qualified Web.Scotty as Scotty
 
@@ -113,6 +115,54 @@ buildMakeActions codegenRef =
   outputPrimDocs :: Make.Make ()
   outputPrimDocs = pure ()
 
+exampleQuery str = "\
+\{ \"command\": \"complete\",\
+  \\"currentModule\": \"Main\",\
+  \\"matcher\": {\
+    \\"matcher\": \"flex\",\
+    \\"params\": {\
+      \\"search\": \"" <> str <> "\",\
+      \\"maxResults\": 10\
+    \}\
+  \},\
+  \\"params\": {\
+    \\"filters\": [{\
+      \\"filter\": \"prefix\",\
+      \\"params\": {\
+        \\"search\": \"" <> str <> "\"\
+      \}\
+    \}],\
+    \\"options\": {\
+      \\"maxResults\": 20,\
+      \\"groupReexports\": true\
+    \}\
+  \}\
+\}\
+\"
+
+ideProcess :: IO ()
+ideProcess = do
+  currentDirectory <- Directory.getCurrentDirectory
+  let ideServer =
+        (Process.proc "purs" ["ide", "server"])
+          { Process.cwd = Just (currentDirectory <> "/staging")
+          }
+      ideClient = 
+          Process.createProcess_ "purs-ide-client"
+            (Process.proc "purs" ["ide", "client"])
+              { Process.std_in = Process.CreatePipe
+              , Process.std_out = Process.CreatePipe
+              }
+  Process.withCreateProcess ideServer $
+    \_ _ _ _ -> fix $ \loop -> do
+      getLine >>= \case
+        "STOP" -> pure ()
+        arg -> do
+          (Just handleIn, Just handleOut, _, _) <- ideClient
+          IO.hPutStrLn handleIn (exampleQuery arg)
+          IO.hGetContents handleOut >>= putStrLn
+          loop
+
 server :: [P.ExternsFile] -> P.Env -> P.Environment -> Int -> IO ()
 server externs initNamesEnv initEnv port = do
   codegenRef <- IORef.newIORef Nothing

stack.yaml.lock

@@ -5,19 +5,19 @@
 
 packages:
 - completed:
-    hackage: purescript-0.14.3@sha256:4b75604e86c335711e1b1f1f73ef381108d047c9277df1cdc71922ec7da7c181,18623
+    hackage: purescript-0.14.5@sha256:511f50e7f267b65e1f656cdff9f9665073496efdf4375a3a86aa68496dae7281,18623
     pantry-tree:
-      size: 132222
-      sha256: e3957c9d2c96434fcf5e8f310b34f4ea696cc8e5f63e60958eae5c6e31aba4c6
+      size: 121096
+      sha256: 895dfc2fc938d99930f4ad17d1c475baf59efb4ad0c64519dfd09e482db38ff3
   original:
-    hackage: purescript-0.14.3
+    hackage: purescript-0.14.5
 - completed:
-    hackage: purescript-cst-0.3.0.0@sha256:369317d52737c4fa8c74a875283ed6cc0ef68e7c64db13d6e5bb7a7f72b76572,3861
+    hackage: purescript-cst-0.4.0.0@sha256:bfe7be3962e83b645a4a8cd1805f31de17db3d3456962e1a2d17016fe5d7f96d,3861
     pantry-tree:
       size: 3018
-      sha256: 38f94bcc121068215c6082bab39b6c555cadd3b88e786740c394a5c4b98c4100
+      sha256: 1681432cc9fa87bc6344e7c604f94a15a016af6e4b7c3519ee035f0f51d90c9c
   original:
-    hackage: purescript-cst-0.3.0.0
+    hackage: purescript-cst-0.4.0.0
 - completed:
     hackage: language-javascript-0.7.0.0@sha256:3eab0262b8ac5621936a4beab6a0f97d0e00a63455a8b0e3ac1547b4088dae7d,3898
     pantry-tree:

trypurescript.cabal

@@ -32,6 +32,7 @@ executable trypurescript
                    http-types -any,
                    transformers -any,
                    mtl -any,
+                   process -any,
                    text -any,
                    time -any,
                    warp -any