Skip to content

Instantly share code, notes, and snippets.

@jmercouris
Created March 25, 2018 16:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jmercouris/2756ffce44d0176ffe0fc52d23dd9c82 to your computer and use it in GitHub Desktop.
Save jmercouris/2756ffce44d0176ffe0fc52d23dd9c82 to your computer and use it in GitHub Desktop.
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: package.lisp,v 1.4 2004/06/17 19:43:11 rschlatte Exp $
;;;;
;;;; S-XML-RPC package definition
;;;;
;;;; Copyright (C) 2002, 2004 Sven Van Caekenberghe, Beta Nine BVBA.
;;;;
;;;; You are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
(defpackage s-xml-rpc
(:use
common-lisp
#+ccl ccl
#+lispworks mp
#+lispworks comm
s-xml
s-base64)
(:export
#:xml-rpc-call
#:encode-xml-rpc-call
#:call-xml-rpc-server
#:xml-rpc-condition
#:xml-rpc-fault #:xml-rpc-fault-code #:xml-rpc-fault-string
#:xml-rpc-error #:xml-rpc-error-place #:xml-rpc-error-data
#:start-xml-rpc-server
#:xml-rpc-time #:xml-rpc-time-p
#:xml-rpc-time-universal-time
#:xml-rpc-struct #:xml-rpc-struct-p
#:xml-rpc-struct-alist #:get-xml-rpc-struct-member #:xml-rpc-struct-equal
#:*xml-rpc-host* #:*xml-rpc-port* #:*xml-rpc-url* #:*xml-rpc-agent*
#:*xml-rpc-proxy-host* #:*xml-rpc-proxy-port* #:*xml-rpc-authorization*
#:*xml-rpc-debug* #:*xml-rpc-debug-stream*
#:*xml-rpc-package* #:*xml-rpc-call-hook*
#:execute-xml-rpc-call #:stop-server
#:|system.listMethods| #:|system.methodSignature| #:|system.methodHelp|
#:|system.multicall| #:|system.getCapabilities|)
(:documentation "An implementation of the standard XML-RPC protocol for both client and server"))
(defpackage s-xml-rpc-exports
(:use)
(:import-from :s-xml-rpc #:|system.listMethods| #:|system.methodSignature|
#:|system.methodHelp| #:|system.multicall|
#:|system.getCapabilities|)
(:documentation "This package contains the functions callable via xml-rpc."))
;;;; eof
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment