Initial commit of dap

Author: dmjio

.ghci

@@ -0,0 +1,2 @@
+:set -isrc:exe:test
+:set -XOverloadedStrings

.gitignore

@@ -0,0 +1,36 @@
+# haskell
+stack.yaml.lock
+.stack-work/
+dist-newstyle/
+dist/
+cabal.project.local
+.ghc.environment.*
+*.o
+*.hi
+
+# nix
+result*
+
+# osx
+.DS_Store
+
+# emacs
+*~
+
+# tags
+TAGS
+main
+
+# C
+./main
+*.dSYM
+
+# stg
+*.fullpak
+*.modpak
+
+# tags
+tags
+
+# external-stg-interpreter
+.ext-stg-work

CHANGELOG.md

@@ -0,0 +1,5 @@
+# Revision history for dap
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

LICENSE

@@ -0,0 +1,28 @@
+BSD 3-Clause License
+
+Copyright (c) 2023, haskell-debugger
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+
+3. Neither the name of the copyright holder nor the names of its
+   contributors may be used to endorse or promote products derived from
+   this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

README.md

@@ -0,0 +1,111 @@
+# dap <img src="https://user-images.githubusercontent.com/875324/235317448-1cf2d543-40a8-4eaa-b765-6576ddd7f84f.png" width="5%" />
+
+A [Debug Adaptor Protocol](https://microsoft.github.io/debug-adapter-protocol) (DAP) library.
+
+This library can be used for constructing debug adaptors for any programming language.
+
+# Table of Contents
+1. [Usage](#usage)
+2. [Build](#build)
+3. [Develop](#develop)
+4. [Test](#test)
+5. [Docs](#docs)
+
+## Usage
+
+For a real-world implementation see the [haskell-estgi-debugger](https://github.com/haskell-debugger/haskell-estgi-debugger).
+
+```haskell
+module Main where
+
+import DAP
+
+-- | Runs server in main thread
+--
+main :: IO ()
+main = runDAPServer config mockServerTalk
+  where
+    capabilities = defaultCapabilities
+      { supportsConfigurationDoneRequest      = True
+      , supportsHitConditionalBreakpoints     = True
+      , supportsModulesRequest                = True
+      , additionalModuleColumns               = [ defaultColumnDescriptor
+                                                  { columnDescriptorAttributeName = "Extra"
+                                                  , columnDescriptorLabel = "Label"
+                                                  }
+                                                ]
+      , supportsValueFormattingOptions        = True
+      , supportTerminateDebuggee              = True
+      , supportsLoadedSourcesRequest          = True
+      }
+    config = ServerConfig
+      { host = testHost
+      , port = testPort
+      , serverCapabilities = capabilities
+      , debugLogging = False
+      }
+
+-- | Mock server communication, used in test runner
+--
+mockServerTalk
+  :: Command
+  -> Adaptor app ()
+mockServerTalk CommandInitialize = do
+  sendInitializeResponse
+  sendInitializedEvent
+mockServerTalk CommandConfigurationDone = do
+  sendConfigurationDoneResponse
+  sendStoppedEvent defaultStoppedEvent
+
+-- | Sample port shared amongst client and server
+--
+testPort :: Int
+testPort = 8001
+
+-- | Sample host shared amongst client and server
+--
+testHost :: String
+testHost = "localhost"
+```
+
+## Build
+
+```bash
+$ cabal build
+```
+
+```bash
+$ stack build
+```
+
+```bash
+$ nix build
+```
+
+## Develop
+
+```bash
+$ nix-shell --run ghcid
+```
+
+## Test
+
+```bash
+$ cabal test
+```
+
+```bash
+$ stack test
+```
+
+## Docs
+
+```bash
+$ stack haddock
+```
+
+```bash
+$ cabal haddock
+```
+
+

cabal.project

@@ -0,0 +1 @@
+packages: .

dap.cabal

@@ -0,0 +1,86 @@
+name:               dap
+version:            0.1.0.0
+description:        A library for the Debug Adaptor Protocol (DAP)
+synopsis:           A debug adaptor protocol library
+bug-reports:        https://github.com/dap/issues
+license:            BSD3
+license-file:       LICENSE
+author:             David Johnson, Csaba Hruska
+maintainer:         djohnson.m@gmail.com
+copyright:          (c) 2023 David Johnson
+category:           Debuggers, Language
+build-type:         Simple
+tested-with:        GHC==9.2.7
+cabal-version:      >= 1.10
+
+extra-source-files:
+  CHANGELOG.md
+
+library
+  exposed-modules:
+    DAP
+  other-modules:
+    DAP.Adaptor
+    DAP.Event
+    DAP.Internal
+    DAP.Response
+    DAP.Server
+    DAP.Types
+    DAP.Utils
+  build-depends:
+    aeson                >= 2.0.3  && < 2.1,
+    aeson-pretty         >= 0.8.9  && < 0.9,
+    base                 < 5,
+    bytestring           >= 0.11.4 && < 0.12,
+    containers           >= 0.6.5  && < 0.7,
+    lifted-base          >= 0.2.3  && < 0.3,
+    monad-control        >= 1.0.3  && < 1.1,
+    mtl                  >= 2.2.2  && < 2.3,
+    network              >= 3.1.2  && < 3.2,
+    network-simple       >= 0.4.5  && < 0.5,
+    text                 >= 1.2.5  && < 1.3,
+    time                 >= 1.11.1 && < 1.12,
+    unordered-containers >= 0.2.19 && < 0.3,
+    stm                  >= 2.5.0  && < 2.6,
+    transformers-base    >= 0.4.6  && < 0.5
+  hs-source-dirs:
+    src
+  default-language:
+    Haskell2010
+
+test-suite tests
+  type:
+    exitcode-stdio-1.0
+  hs-source-dirs:
+    test, src
+  main-is:
+    Main.hs
+  other-modules:
+    DAP.Response
+    DAP.Internal
+    DAP.Adaptor
+    DAP.Server
+    DAP.Types
+    DAP.Event
+    DAP.Utils
+  build-depends:
+      aeson
+    , aeson-pretty
+    , async              < 2.3
+    , base               < 5
+    , bytestring
+    , containers
+    , lifted-base
+    , monad-control
+    , hspec              < 2.12
+    , mtl
+    , network
+    , network-simple
+    , stm
+    , string-conversions < 0.5
+    , text
+    , time
+    , transformers-base
+    , unordered-containers
+  default-language:
+    Haskell2010

default.nix

@@ -0,0 +1,7 @@
+{ pkgs ? import <nixpkgs> {} }:
+let
+  dap = pkgs.haskell.packages.ghc927.callCabal2nix "dap" ./. {};
+in
+{
+  inherit dap pkgs;
+}

nix/default.nix

@@ -0,0 +1,12 @@
+with (builtins.fromJSON (builtins.readFile ./nixpkgs.json));
+let
+  nixpkgs = builtins.fetchTarball {
+    url = "https://github.com/NixOS/nixpkgs/archive/${rev}.tar.gz";
+    inherit sha256;
+  };
+  overlays = [];
+  config = {};
+in
+  import nixpkgs
+    { inherit overlays config;
+    }

nix/nixpkgs.json

@@ -0,0 +1,4 @@
+{
+  "rev" : "2362848adf8",
+  "sha256" : "0wjr874z2y3hc69slaa7d9cw7rj47r1vmc1ml7dw512jld23pn3p"
+}