(define-library (lsp-server)

(export lsp-server-debug-on-error
        lsp-server-log-file
        lsp-server-log-level
        lsp-server-start/stdio
        lsp-server-start/tcp
        lsp-server-version)

(cond-expand
 (chicken-5
  (import (only (chicken base) alist-ref case-lambda)
          (except (chicken io)
                  read-string write-string read-token)
          (except (r7rs)
                  string-length string-ref string-set! make-string string substring
                  string->list list->string string-fill! write-char read-char)
          (only (utf8-srfi-13)
                string-fold
                string-take
                string-tokenize
                string-upcase)
          (only (utf8-srfi-14) char-set)
          (only utf8 display string-length make-string string-set!)))
 (chicken-6
  (import (scheme base)
          (scheme write)
          (only (srfi 13)
                string-fold
                string-take
                string-tokenize
                string-upcase)))
 (else))

(cond-expand
 (chicken (import (chicken format)
                  (lsp-server private chicken)
                  (only (chicken condition) print-error-message)
                  (only (srfi 133) vector-fold)
                  (only (chicken file) file-exists?)
                  (chicken tcp)
                  apropos
                  (srfi 18)
                  (srfi 180)))
 (gambit (import (only (scheme base)
                       define-record-type
                       let-values)
                 (scheme write)
                 (rename (except (gambit) guard)
                         (r7rs-guard guard))
                 (lsp-server private gambit)
                 (only (srfi 13)
                       string-fold
                       string-take)
                 (only (srfi 14) char-set))
         (include "~~lib/_gambit#.scm"))
 (guile (import (only (scheme base)
                      define-record-type
                      guard
                      input-port-open?
                      let-values
                      output-port-open?)
                (scheme write)
                (srfi 1)
                (srfi 8)
                (only (srfi 13)
                      string-fold
                      string-take
                      string-tokenize
                      string-upcase)
                (only (srfi 14) char-set)
                (srfi 18)
                (srfi 43)
                (ice-9 documentation)
                (ice-9 session)
                (system vm program)
                (lsp-server private adapter)
                (lsp-server private transport)))
 (else))

(import (scheme case-lambda)
        (scheme file)
        (scheme load)
        (only (scheme process-context)
              exit
              command-line)
        (srfi 28)
        (srfi 69)
        (json-rpc)
        (json-rpc lolevel)

        (lsp-server private diagnostics)
        (lsp-server private file)
        (lsp-server private util)
        (lsp-server private document)
        (lsp-server private parse)
        (lsp-server private compat)
        (lsp-server private transport)
        )

(include "lsp-server-impl.scm"))