soap_service.clj

(ns soap-service.core
  (:import (javax.jws WebMethod WebService WebParam)
           (javax.xml.ws Endpoint)))

(definterface ITestService
  (^int add [^int a ^int b]))

(deftype ^{WebService {:targetNamespace "http://service.test.com"}} TestService []
  ITestService
  (^int ^{WebMethod []} add [_
                             ^int #^{WebParam {:name "a"}} a
                             ^int #^{WebParam {:name "b"}} b]
   (+ a b)))

(defn endpoint []
  (Endpoint/publish "http://localhost:3001/testService" (TestService.)))

(comment
  (def service (endpoint))
  (.stop service)
  )