| 1 | #| |
|---|
| 2 | Copyright (c) 2007 |
|---|
| 3 | All rights reserved. |
|---|
| 4 | |
|---|
| 5 | Redistribution and use in source and binary forms, with or without |
|---|
| 6 | modification, are permitted provided that the following conditions |
|---|
| 7 | are met: |
|---|
| 8 | 1. Redistributions of source code must retain the above copyright |
|---|
| 9 | notice, this list of conditions and the following disclaimer. |
|---|
| 10 | 2. Redistributions in binary form must reproduce the above copyright |
|---|
| 11 | notice, this list of conditions and the following disclaimer in the |
|---|
| 12 | documentation and/or other materials provided with the distribution. |
|---|
| 13 | 3. The name of the author may not be used to endorse or promote products |
|---|
| 14 | derived from this software without specific prior written permission. |
|---|
| 15 | |
|---|
| 16 | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
|---|
| 17 | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
|---|
| 18 | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
|---|
| 19 | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
|---|
| 20 | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
|---|
| 21 | NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|---|
| 22 | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|---|
| 23 | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|---|
| 24 | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
|---|
| 25 | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|---|
| 26 | |# |
|---|
| 27 | (defpackage :nio-yarpc (:use :cl :nio :nio-sm :nio-buffer :nio-utils) |
|---|
| 28 | |
|---|
| 29 | (:export |
|---|
| 30 | |
|---|
| 31 | ;;base |
|---|
| 32 | yarpc-state-machine-factory get-packet-factory |
|---|
| 33 | |
|---|
| 34 | ;; yarpc-state-machine |
|---|
| 35 | yarpc-state-machine job-queue run-job +process-jobs-inline+ +serialise-packet-fn+ process-timeout |
|---|
| 36 | ;to be moved |
|---|
| 37 | test-rpc test-rpc-list test-rpc-string execute-call defremote process-timeout |
|---|
| 38 | |
|---|
| 39 | ;;yarpc-client-state-machine |
|---|
| 40 | yarpc-client-state-machine remote-execute simulate-connection +rpc-timeout+ |
|---|
| 41 | )) |
|---|
