1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
###############################################################################
## ##
## Copyright (c) 2006, Visiprise Software, Inc ##
## All rights reserved. ##
## ##
## Redistribution and use in source and binary forms, with or without ##
## modification, are permitted provided that the following conditions ##
## are met: ##
## ##
## * Redistributions of source code must retain the above copyright ##
## notice, this list of conditions and the following disclaimer. ##
## * Redistributions in binary form must reproduce the above ##
## copyright notice, this list of conditions and the following ##
## disclaimer in the documentation and/or other materials provided ##
## with the distribution. ##
## * Neither the name of the Visiprise Software, Inc nor the names ##
## of its contributors may be used to endorse or promote products ##
## derived from this software without specific prior written ##
## permission. ##
## ##
## THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ##
## "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ##
## LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ##
## FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE ##
## COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ##
## INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, ##
## BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; ##
## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER ##
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require WS::Server
package require WS::Utils
##
## Define the service
##
::WS::Server::Service \
-service wsMathExample \
-description {Math Example - Tcl Web Services} \
-host $::Config(host):$::Config(port)
##
## Define the operations available
##
::WS::Server::ServiceProc \
wsMathExample \
{Add {type string comment {Sum of two number}}} \
{
N1 {type double comment {First number to add}}
N2 {type double comment {Second number to add}}
} \
{Add two numbers} {
return [list AddResult [expr {$N1 + $N2}]]
}
::WS::Server::ServiceProc \
wsMathExample \
{Subtract {type string comment {Difference of two number}}} \
{
Minuend {type double comment {Number to subtrack from}}
Subtrahend {type double comment {Number to be subtracked}}
} \
{Subtract one number from another} {
return [list SubtractResult [expr {$Minuend - $Subtrahend}]]
}
::WS::Server::ServiceProc \
wsMathExample \
{Multiply {type string comment {Product of two number}}} \
{
N1 {type double comment {First number to multiply}}
N2 {type double comment {Second number to multiply}}
} \
{Multiply two numbers} {
return [list MultiplyResult [expr {$N1 * $N2}]]
}
::WS::Server::ServiceProc \
wsMathExample \
{Divide {type string comment {Quotient of two number}}} \
{
Dividend {type double comment {Number that is being divided}}
Divisor {type double comment {Number dividing}}
} \
{Divide one number by another} {
if {$Divisor == 0.0} {
return \
-code error \
-errorcode [list MATH DIVBYZERO] \
"Can not divide by zero"
}
return [list DivideResult [expr {$Dividend + $Divisor}]]
}
::WS::Server::ServiceProc \
wsMathExample \
{Sqrt {type string comment {Square root of a non-negative number}}} \
{
X {type double comment {Number raised to the half power}}
} \
{The the square root of a number} {
if {$X < 0.0} {
return \
-code error \
-errorcode [list MATH RANGERR] \
"Can not take the square root of a negative number, $X"
}
return [list SqrtResult [expr {sqrt($X)}]]
}
|
