#lang racket
(require (planet jaymccarthy/xml-rpc)
         web-server/servlet-env)
(define (add x y) (+ x y))
(define xml-rpc-adder
  (make-handle-xml-rpc
   (hasheq 'math.add add
           'math.+ +
           'addFun add)))
(define (run-server!)
  (serve/servlet xml-rpc-adder
                 #:port 8888
                 #:servlet-path "/servlets/rpc/xmlrpc.rkt"
                 #:command-line? #t))
(run-server!)