(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-delete-handler!
        json-rpc-install-handler!
        json-rpc-send-request
        json-rpc-send-notification
        json-rpc-start-server/tcp

        define-notification-handler
        define-request-handler)

(cond-expand
 (chicken (import (chicken tcp)
                  (srfi 180)
                  (r7rs)))
 (else))

(import (scheme case-lambda)
        (scheme char)
        (scheme write)
        (json-rpc private)
        (json-rpc private compat)
        (json-rpc lolevel)
        (srfi 28)
        (srfi 69))

(cond-expand
 (chicken (import (scheme base)
                  (only (chicken condition) print-error-message)))
 (gambit (import (except (scheme base) guard)
                 (rename (only (gambit) r7rs-guard)
                         (r7rs-guard guard))))
 (guile (import (scheme base)))
 (else))

(include "json-rpc-impl.scm"))