(define-library (json-rpc)

(export json-rpc-call
        json-rpc-call/tcp
        json-rpc-log-file
        json-rpc-log-level
        json-rpc-exit
        json-rpc-handler-table
        json-rpc-start-server/tcp)

(import (scheme base)
        (scheme case-lambda)
        (scheme char)
        (scheme write))

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

(cond-expand
 (chicken (import (chicken tcp)
                  (medea)
                  (r7rs)
                  (only (chicken condition) print-error-message)))
 (else))

(cond-expand
 (guile (import (srfi srfi-28)))
 (else (import (srfi 28))))

(include "json-rpc.scm"))