blob: 3b6e3a85b24d57f2e70b3cccb46752fdc42c8d1b (
plain)
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
|
(:
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
* regarding copyright ownership. The ASF licenses this file
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
:)
declare namespace q="http://www.webserviceX.NET/";
declare namespace c="http://example.com/customer";
declare namespace stock="scaservice:java/bigbank.StockValue";
(: declare namespace currency="scaproperty:java/java.lang.String"; :)
declare function stock:calculate($quoteDoc, $accountDoc) as xs:double {
let $checking :=
trace(
sum(
for $a in $accountDoc/c:customer/c:accounts/c:checking
return $a/@balance
), "Checking Balance")
let $saving :=
trace(
sum(
for $a in $accountDoc/c:customer/c:accounts/c:saving
return $a/@balance
), "Saving Balance")
let $value :=
trace(
sum(
for $quote in $quoteDoc/StockQuotes/Stock,
$account in $accountDoc/c:customer/c:accounts/c:stock
where string($quote/Symbol) = string($account/@symbol)
return
trace(number($quote/Last),"Stock Price") * trace(number($account/@quantity), "Quantity")
), "Stock Value")
return trace($checking + $saving + $value, "Total Value")
};
|
