(define-library (json-rpc lolevel)

(export json-rpc-exit
        json-rpc-handler-table
        json-rpc-log-level
        json-rpc-loop
        json-rpc-read
        json-rpc-write

        custom-error-codes
        make-json-rpc-custom-error
        make-json-rpc-internal-error
        make-json-rpc-invalid-request-error
        json-rpc-error?
        json-rpc-custom-error?
        json-rpc-invalid-request-error?
        json-rpc-internal-error?)

(import (scheme base)
        (scheme char)
        (only (srfi 13)
              string-take
              string-trim
              string-trim-right)
        (srfi 28)
        (srfi 69))

(cond-expand
 (chicken
  (import (chicken base)
          (chicken port)
          medea
          r7rs
          scheme))
 (gambit (import (scheme-json-rpc srfi 180)))
 (else))

(cond-expand
 (gambit (import (scheme-json-rpc private)))
 (else (import (json-rpc private))))

(include "lolevel.scm"))