File: hof-019.xq

package info (click to toggle)
qtxmlpatterns-opensource-src 5.15.2-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 309,144 kB
  • sloc: xml: 360,343; cpp: 91,994; ansic: 388; sh: 53; sed: 31; makefile: 23
file content (15 lines) | stat: -rw-r--r-- 446 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
xquery version "1.1";
(: Higher Order Functions :)
(: Function expecting a function, caller supplies local function :)
(: Author - Michael Kay, Saxonica :)

declare function local:scramble($x as function(*), $y as xs:string) as xs:string {
  $x($y)
};

declare function local:rot13($x as xs:string) as xs:string {
  translate($x, "abcdefghijklmnopqrstuvwxyz", "nopqrstuvwxyzabcdefghijklm")
};


local:scramble(local:rot13#1, "mike")