automizy-email-editor

<!DOCTYPE HTML PUBLIC "-//W5C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Code Prettifier</title> <script>(function () { var sourceBaseUrl = /[&?]distrib/.test(location.search) ? "../distrib/google-code-prettify/" : "../src/"; var sources = [ "prettify.js", "lang-basic.js", "lang-css.js", // Language extensions tested. "lang-clj.js", "lang-lisp.js", "lang-llvm.js", "lang-matlab.js", "lang-mumps.js", "lang-n.js", "lang-pascal.js", "lang-r.js", "lang-tcl.js", "lang-tex.js", "lang-xq.js" ]; var styles = [ "prettify.css" ]; if (window.console) { console.log("sourceBaseUrl=" + sourceBaseUrl); } for (var i = 0; i < sources.length; ++i) { document.write( "<script src=\"" + sourceBaseUrl + sources[i] + "\"><\/script>"); } document.write( "<script src=\"test_base.js\" type=\"text/javascript\"><\/script>"); for (var i = 0; i < styles.length; ++i) { document.write( "<link rel=\"stylesheet\" href=\"" + sourceBaseUrl + styles[i] + "\">"); } })(); window.onload = (function() { var attempt = function() { var go = window["go"]; var prettyPrint = window["prettyPrint"]; var goldens = window["goldens"]; if(go && prettyPrint && goldens) { go(goldens); } else { setTimeout(attempt, 20); } }; return attempt; })(); </script> <link rel="stylesheet" type="text/css" href="test_styles.css" /> </head> <body bgcolor="white"> <div id="timing"></div> <div id="errorReport" style="white-space: pre"></div> <h1>XQuery mode</h1> From <code>http://www.patrick-wied.at/static/xquery/prettify/</code> <pre class="prettyprint lang-xq" id="xquery"> (: Took some of Mike Brevoort's xquery code samples because they are nice and show common xquery syntax :) (:~ : Given a sequence of version URIs, publish all of these versions of each document : If there is a version of the same document already published, unpublish it 1st : : When "publish" is referred to, we mean that it is put into the PUBLISHED collection : unpublish removes content from this collection : @param $version_uris - sequence of uris of versions of managed documents to publish :) declare function comoms-dls:publish($version_uris as item()*) { for $uri in $version_uris let $doc := fn:doc($uri) let $managed_base_uri := $doc/node()/property::dls:version/dls:document-uri/text() let $existing := comoms-dls:publishedDoc($managed_base_uri) let $unpublishExisting := if($existing) then comoms-dls:unpublishVersion((xdmp:node-uri($existing))) else () let $addPermissions := dls:document-add-permissions($uri, (xdmp:permission('mkp-anon', 'read'))) return dls:document-add-collections($uri, ("PUBLISHED")) }; declare function comoms-dls:publishLatest($uri) { (: TODO check if it's in the draft collection probably :) let $latest_version_uri := comoms-dls:latestVersionUri($uri) let $log:= xdmp:log(fn:concat("latest: ", $latest_version_uri)) let $log:= xdmp:log(fn:concat("uri: ", $uri)) return comoms-dls:publish($latest_version_uri) }; declare function comoms-dls:latestVersionUri($uri) { let $latest_version_num := ( for $version in dls:document-history($uri)/dls:version order by fn:number($version//dls:version-id/text()) descending return $version//dls:version-id/text() )[1] return dls:document-version-uri($uri, $latest_version_num) }; declare function comoms-dls:unpublish($uris as item()*) { for $uri in $uris return let $published_doc := comoms-dls:publishedDoc($uri) return if($published_doc) then let $published_version_uri := xdmp:node-uri($published_doc) return comoms-dls:unpublishVersion($published_version_uri) else () }; declare function comoms-dls:latestPublishedDocAuthor($uri) { let $author_id := doc($uri)/property::dls:version/dls:author/text() return if($author_id) then comoms-user:getUsername($author_id) else () }; (:~ : Given a sequence of version URIs, unpublish all of these versions of each document :) declare function comoms-dls:unpublishVersion($version_uris as item()*) { for $uri in $version_uris return let $removePermissions := dls:document-remove-permissions($uri, (xdmp:permission('mkp-anon', 'read'))) return dls:document-remove-collections($uri, ("PUBLISHED")) }; (:~ : Given the base URI of a managed piece of content, return the document of the node : of the version that is published :) declare function comoms-dls:publishedDoc($uri) { fn:collection("PUBLISHED")[property::dls:version/dls:document-uri = $uri] }; (:~ : Test if any version of the managed document is published :) declare function comoms-dls:isPublished($uri) { if( comoms-dls:publishedDoc($uri)) then fn:true() else fn:false() }; declare function comoms-dls:publishedState($uri) { let $doc := comoms-dls:publishedDoc($uri) let $published_uri := if($doc) then xdmp:node-uri($doc) else () let $latest := comoms-dls:latestVersionUri($uri) return if($doc) then if($latest ne $published_uri) then "stale" else "published" else "unpublished" }; declare function comoms-dls:getManagedDocUri($uri) { let $doc := fn:doc($uri) let $managed_uri := $doc/property::dls:version/dls:document-uri/text() let $managed_uri := if($managed_uri) then $managed_uri else $uri return $managed_uri }; (:~ : Given a manage content url (e.g. /content/123456.xml) return the appropriate : version of the document based on what stage collection is being viewed and : what's published : : @param $uri a manage content url (e.g. /content/123456.xml) - NOT A VERSIONED URI :) declare function comoms-dls:doc($uri) { let $doc := fn:root(comoms-dls:collection()[property::dls:version/dls:document-uri = $uri][1]) return if($doc) then $doc else let $managedDocInCollection := comoms-dls:collection-name() = xdmp:document-get-collections($uri) return if($managedDocInCollection) then fn:doc($uri) else () }; (:~ : Get the collection to be used when querying for content : THIS or comoms-dls:collection-name() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT :) declare function comoms-dls:collection() { fn:collection( comoms-dls:collection-name() ) }; (:~ : Get the collection nameto be used when querying for content : THIS or comoms-dls:collection() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT :) declare function comoms-dls:collection-name() as xs:string { let $default_collection := "PUBLISHED" return if(comoms-user:isAdmin()) then let $pub_stage_collection_cookie := comoms-util:getCookie("COMOMS_COLLECTION") return if($pub_stage_collection_cookie) then $pub_stage_collection_cookie else $default_collection else $default_collection }; (:~ : Check if the published collection is being viewed :) declare function comoms-dls:isViewingPublished() { if(comoms-dls:collection-name() = "PUBLISHED") then fn:true() else fn:false() }; (:~ : Get the best URL for the content URI. : This is either the default URI based on detail type or should also take : into account friendly urls and navigation structures to figure out the : best choice :) declare function comoms-dls:contentUrl($uri) { (: TODO: add friendly URL and nav structure logic 1st :) let $doc := fn:doc($uri) let $managedDocUri := $doc/property::dls:version/dls:document-uri let $uri := if($managedDocUri) then $managedDocUri else $uri let $type := $doc/node()/fn:name() let $content_id := fn:tokenize( fn:tokenize($uri, "/")[3], "\.")[1] return fn:concat("/", $type, "/", $content_id) }; (: : : gets list of doc versions and uri. : :) declare function comoms-dls:versionHistory($uri) { let $published_doc := comoms-dls:publishedDoc($uri) let $published_uri := if($published_doc) then xdmp:node-uri($published_doc) else () return <versions> { for $version in dls:document-history($uri)/dls:version let $version_num := $version/dls:version-id/text() let $created := $version/dls:created/text() let $author_id := $version/dls:author/text() let $author := comoms-user:getUsername($author_id) let $note := $version/dls:annotation/text() let $version_uri := xdmp:node-uri(dls:document-version($uri, $version_num)) let $published := $published_uri eq $version_uri return <version> <version-number>{$version_num}</version-number> <created>{$created}</created> <author>{$author}</author> <published>{$published}</published> <version-uri>{$version_uri}</version-uri> </version> } </versions> }; (: ########################################################################### :) (: PRIVATE FUNCTIONS :) (: ########################################################################### :) declare function comoms-dls:_import() { "xquery version '1.0-ml'; import module namespace dls = 'http://marklogic.com/xdmp/dls' at '/MarkLogic/dls.xqy'; " }; (: ---- ---- :) xquery version '1.0-ml'; declare variable $URI as xs:string external; declare function local:document-move-forest($uri as xs:string, $forest-ids as xs:unsignedLong*) { xdmp:document-insert( $uri, fn:doc($uri), xdmp:document-get-permissions($uri), xdmp:document-get-collections($uri), xdmp:document-get-quality($uri), $forest-ids ) }; let $xml := <xml att="blah" att2="blah"> sdasd<b>asdasd</b> </xml> (: -------- :) for $d in fn:doc("depts.xml")/depts/deptno let $e := fn:doc("emps.xml")/emps/emp[deptno = $d] where fn:count($e) >= 10 order by fn:avg($e/salary) descending return <big-dept> { $d, <headcount>{fn:count($e)}</headcount>, <avgsal>{fn:avg($e/salary)}</avgsal> } </big-dept> (: -------- :) declare function local:depth($e as node()) as xs:integer { (: A node with no children has depth 1 :) (: Otherwise, add 1 to max depth of children :) if (fn:empty($e/*)) then 1 else fn:max(for $c in $e/* return local:depth($c)) + 1 }; local:depth(fn:doc("partlist.xml")) (: -------- :) <html><head/><body> { for $act in doc("hamlet.xml")//ACT let $speakers := distinct-values($act//SPEAKER) return <div>{ string($act/TITLE) }</h1> <ul> { for $speaker in $speakers return <li>{ $speaker }</li> } </ul> </div> } </body></html> (: -------- :) { for $book in doc("books.xml")//book return if (contains($book/author/text(),"Herbert") or contains($book/author/text(),"Asimov")) then $book else $book/text() let $let := <x>"test"</x> return element element { attribute attribute { 1 }, element test { 'a' }, attribute foo { "bar" }, fn:doc()[ foo/@bar eq $let ], //x } } (: -------- :) <bib> { for $b in doc("http://bstore1.example.com/bib.xml")/bib/book where $b/publisher = "Addison-Wesley" and $b/@year > 1991 return <book year="{ $b/@year }"> { $b/title } </book> } </bib> (: -------- :) </pre> <h1>Nemerle code</h1> <pre id="nemerle" class="prettyprint lang-nemerle"> class Set ['a] { mutable storage : list ['a] = []; public Add (e : 'a) : void { when (! Contains (e)) storage ::= e; } public Contains (e : 'a) : bool { storage.Contains (e) } } def s1 = Set (); s1.Add (3); s1.Add (42); assert (s1.Contains (3)); // s1.Add ("foo"); // error here! def s2 = Set (); s2.Add ("foo"); assert (s2.Contains ("foo")); </pre> <h1>Tex support</h1> <pre id="latex" class="prettyprint lang-tex">% resume.tex % vim:set ft=tex spell: \documentclass[10pt,letterpaper]{article} \usepackage[letterpaper,margin=0.8in]{geometry} \usepackage{mdwlist} \usepackage[T1]{fontenc} \usepackage{textcomp} \pagestyle{empty} \setlength{\tabcolsep}{0em} </pre> <h1>Issue 144</h1> Escaped quotes in bash. <pre id="issue144" class="prettyprint"> #! /bin/bash # toascii.sh for i in $(echo $* | fold -w 1);do printf "%x " \'$i; done; echo </pre> <h1>Issue 145</h1> <pre id="issue145" class="prettyprint"> <script type="text/javascript">  </script> </pre> <h1>Clojure Syntax Highlighting</h1> <pre class="prettyprint lang-clj" id="clojure"> ; Clojure test comment (ns test (:gen-class)) (def foo "bar") (defn bar [arg1 arg2 & args] "sample function" (for [arg args] (prn arg))) (bar "foo" "bar" "blah" :baz) </pre> <h1>HTML 5 language on code</h1> <p> The text is specified to be lisp by the class attribute. Semicolon is normally a valid punctuation character but in lisp it is a comment so should be colored as a comment if the className is being properly parsed.</p> <code class="prettyprint language-lisp" id="html5conv1">; foo</code> <h1>HTML 5 language on nested code element</h1> <p>The language is attached to a CODE element inside a PRE.</p> <pre class="prettyprint" id="html5conv2" ><code class="language-lisp">; foo</code></pre> <h1>HTML 5 language on nested code element not foiled by space</h1> <p>The language is attached to a CODE element inside a PRE and there is space between the PRE element's tags and CODE element's tags.</p> <pre class="prettyprint" id="html5conv3"> <code class="language-lisp"> ; foo </code> </pre> <h1>HTML 5 nested code element language ignored if not only content</h1> <p>The below is not treated as lisp despite there being a lisp language specifier on the contained CODE element, the CODE element does not wrap all non-space content.</p> <pre class="prettyprint" id="html5conv4"> before CODE <code class="language-lisp">; foo</code> </pre> <p>The language is attached to an HTML5 comment that looks like an XML processing instruction.</p> <?prettify lang=lisp?> <pre class="prettyprint" id="procinstr1">; foo</pre> <p>The language is attached to a regular HTML5 comment that looks like an XML processing instruction.</p>  <pre class="prettyprint" id="procinstr2">; foo</pre> <p>The language is attached to a regular HTML5 comment that looks like an XML processing instruction.</p>  <pre class="prettyprint" id="procinstr3">; foo</pre> <p>The language is attached to a regular HTML5 comment that looks like an XML processing instruction.</p>  <pre id="procinstr4">; foo</pre> <h1>Issues 185 and 261: Don't reprettify prettified content</h1> <code class="prettyprint prettyprinted" id="issue185" ><span class="str">"No tag backs."</span></code> <pre class="prettyprint prettyprinted linenums" id="issue261" ><ol class="linenums"><li class="L0"><span class="str">"No tag backs."</span></li></ol></pre> <h1>Issue 201: C type not full word</h1> <code class="prettyprint lang-c" id="issue201" >static Persistent<String> listeners_symbol;</code> <h1>Pascal w/ language specified</h1> <pre class="prettyprint lang-pascal" id="pascal_lang"> (* some comment here *) PROCEDURE TestCase.AssertEquals(msg:String; expect, act:Longint); VAR ex, ac:String; BEGIN IF expect <> act THEN BEGIN Str(expect, ex); Fail(Concat(msg,' expected ',ex,' but was ',ac)); END; factors := new(ArrayListPtr, Init); FOR candidate := 2 TO i DO BEGIN WHILE i MOD candidate = 0 DO BEGIN factors^.Add(candidate); i := i DIV candidate; END; END; END; </pre> <h1>BASIC w/ language specified</h1> <pre class="prettyprint lang-basic" id="basic_lang"> 200 REM ----- method teardown 210 PRINT "green" 220 RETURN 470 IF af=0 THEN GOTO 520 480 FOR j=1 TO af 500 ac=pf(j) : me$=STR$(j)+". factor" : GOSUB 100 510 NEXT 530 RETURN 1000 DATA "one", 1, 0 </pre> <h1>Dart language handler</h1> <pre class="prettyprint lang-dart" id="dart"> part of myLib; part 'something.dart'; import 'dart:math' as test show foo, bar; class Point { final num x, y; Point(this.x, this.y); Point.zero() : x = 0, y = 0; // Named constructor // with an initializer list. num distanceTo(Point other) { var dx = x - other.x; var dy = y - other.y; return sqrt(dx * dx + dy * dy); } } // This is a single-line comment. /* This is a multiline comment. */ main() { Point p = new Point(7, 12); String thing = 'It\'s awesome!'; String thing2 = ''' This is a test! \''' This is the end of the test'''; String thing3 = r""" This is a raw multiline string!"""; num x = 0x123ABC; num y = 1.8e-12; bool flag = false; String raw = r"This is a raw string, where \n doesn't matter"; } </pre> <h1>TCL_lang</h1> <pre class="prettyprint lang-tcl" id="tcl_lang">#!/bin/tclsh proc fib {n} { set a 0 set b 1 while {$n > 0} { set tmp $a set a [expr $a + $b] set b $tmp incr n -1 } return $a } </pre> <h1>R, S language support</h1> <pre class="prettyprint lang-r" id="r_lang"> ### Example R script for syntax highlighting # This is a comment ## Valid names abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV0123456789._a <- NULL .foo_ <- NULL ._foo <- NULL ## Invalid names 0abc <- NULL .0abc <- NULL abc+cde <- NULL ## Reserved Words NA NA_integer_ NA_real_ NA_character_ NA_complex_ NULL NaN Inf ## Not reserved NULLa <- NULL NULL1 <- NULL NULL. <- NULL NA_foo_ <- NULL ## Numbers 12345678901 123456.78901 123e3 123E3 1.23e-3 1.23e3 1.23e-3 ## integer constants 123L 1.23L ## imaginary numbers 123i -123i 123e4i 123e-4i ## Hex numbers 0xabcdefABCDEF01234 0xabcp123 0xabcP123 ## Not hex 0xg ## Special operators %xyz% ## %xyz% 1 %% 2 diag(2) %*% diag(2) 1 %/% 2 1 %in% 1:10 diag(2) %o% diag(2) diag(2) %x% diag(2) `%foo bar%` <- function(x, y) x + y 1 %foo bar% 2 ## Control Structures (3.2) and Function ## if, else if (TRUE) print("foo") else print("bar") ## For, in for(i in 1:5) { print(i) } ## While, break i <- 1 while (TRUE) { i <- i + 1 if (i > 3) break } ## Repeat repeat {1+1} ## Switch x <- 3 switch(x, 2+2, mean(1:10), rnorm(5)) ## Function, dot-dot-dot, return foo <- function(...) { return(sum(...)) } # Not keywords functiona <- 2 + 2 function. <- 2 + 2 function1 <- 2 + 2 ## Grouping Tokens 10.3.7 ## Parentheses 1 + (2 + 3) ## brackets foo <- function(a) { a + 1 } ## Indexing 10.3.8 ## [] bar <- 1:10 bar[3] ## [[]] foo <- list(a=1, b=2, c=3) foo[["a"]] ## $ foo$a foo$"a" ## Operators 2 - 2 2 + 2 2 ~ 2 ! TRUE ?"help" 1:2 2 * 2 2 / 2 2^2 2 < 2 2 > 2 2 == 2 2 >= 2 2 <= 2 2 != 2 TRUE & FALSE TRUE && FALSE TRUE | FALSE TRUE || FALSE foo <- 2 + 2 foo = 2 + 2 2 + 2 -> foo foo <<- 2 + 2 2 + 2 ->> foo base:::sum base::sum ## Strings foo <- "hello, world!" foo <- 'hello, world!' foo <- "Hello, 'world!" foo <- 'Hello, "world!' foo <- 'Hello, \'world!\'' foo <- "Hello, \"world!\"" foo <- "Hello, world!" foo <- 'Hello, world!' ## Backtick strings `foo123 +!"bar'baz` <- 2 + 2 </pre> <h1>MUMPS</h1> <pre class="prettyprint lang-mumps" id="mumps"> HDR ; -- prt/display header N X,I I '$D(VALMHDR) X:$G(VALM("HDR"))]"" VALM("HDR") ; -- prt hdr line W:'$D(VALMPG1) @IOF K VALMPG1 W:VALMCC $C(13)_IOUON_$C(13)_IOINHI_$C(13) ; -- turn on undln/hi I $E(IOST,1,2)="C-" D IOXY^VALM4(0,0) ; -- position cursor W $E(VALM("TITLE"),1,30) ; -- prt title W:VALMCC IOINORM,IOUON ; -- turn off hi W $J("",30-$L(VALM("TITLE"))) ; -- fill in w/blanks I $E(IOST,1,2)="C-" W $C(13) D IOXY^VALM4(30,0) ; -- position cursor W $J("",((VALMWD-80)/2)),$$HTE^XLFDT($H,1),$J("",10+((VALMWD-80)/2)),"Page: ",$J(VALMPGE,4)," of ",$J($$PAGE^VALM4(VALMCNT,VALM("LINES")),4)_$S($D(VALMORE):"+",1:" ") ; -- prt rest of hdr W:VALMCC IOUOFF I $E(IOST,1,2)="C-" D IOXY^VALM4(0,0) ; -- turn off undln F I=1:1:VALM("TM")-3 W !,$S('$D(VALMHDR(I)):"",$L(VALMHDR(I))>(VALMWD-1):$$EXTRACT^VALM4($G(VALMHDR(I))),1:VALMHDR(I)) ; -- prt hdr Q </pre> <h1>LLVM</h1> <a href="http://llvm.org/docs/LangRef.html">Hello world module</a> <pre class="prettyprint lang-llvm" id="llvm"> ; Declare the string constant as a global constant. @.str = private unnamed_addr constant [13 x i8] c"hello world\0A\00" ; External declaration of the puts function declare i32 @puts(i8* nocapture) nounwind ; Definition of main function define i32 @main() { ; i32()* ; Convert [13 x i8]* to i8 *... %cast210 = getelementptr [13 x i8]* @.str, i64 0, i64 0 ; Call puts function to write out the string to stdout. call i32 @puts(i8* %cast210) ret i32 0 } ; Named metadata !1 = metadata !{i32 42} !foo = !{!1, null} </pre> <h1>Issue 217 : Regex following '!'</h1> <pre id="issue217" class="prettyprint lang-js"> if(!/^https?:\/\//i.test(val) && foo == 'bar') { val = 'http://' + val; } </pre> <h1>Issue 32 : Matlab</h1> <pre id="matlab" class="prettyprint lang-matlab"> %%%%%%%%%%%%%%%%%% DATA TYPES %%%%%%%%%%%%%%%%%% v = [1,2,3;4,5,6]; v(v>4) = 0; s = struct('key',1, 'key2','string'); s.key = 2; C = cell(1,2); C{1,1} = 0:9; double(1) single(1) uint8(1) int8(1) %%%%%%%%%%%%%%%%%% STRINGS & TRANSPOSE %%%%%%%%%%%%%%%%%% plot(data'); legend(labels) str = 'asdasd'; % this is a string str = 'asdas'; str = 'sdasd''sdasd'; str = ['one' 'two' 'three']; str = strcat('one', 'two', 'three'); % matrix transpose M = rand(3,3)'; x = M.'; x = [10 20; 30, 40]'; disp(x') fprintf('%d\n', x(:)') % with comment {1,2}' % another comment %%%%%%%%%%%%%%%%%% LINE CONTINUATION %%%%%%%%%%%%%%%%%% [1 20; ... 30 4] ['gdgsd'... 'sdfs'] {... 'sdasd' ; 'asdsad'} %%%%%%%%%%%%%%%%%% SYSTEM COMMANDS %%%%%%%%%%%%%%%%%% !touch file.txt %%%%%%%%%%%%%%%%%% COMMAND OUTPUT %%%%%%%%%%%%%%%%%% >> 1+1 ans = 2 >> 1+1 ans = 2 %%%%%%%%%%%%%%%%%% KEYWORDS %%%%%%%%%%%%%%%%%% function ret = fcn(in) ret = sum(in.^2); end classdef CC < handle properties (SetAccess = public) x = 0; end methods function this = CC(varargin) this.x = 9; end end end x = []; parfor i=1:10 x[i] = i; end true ~= false if x==1 true elseif false else return end while true continue break end try error('aa:aa', 'asdasd') catch ME warning(ME) end switch x case 1 disp(1) otherwise 0 end %%%%%%%%%%%%%%%%%% NUM LITERALS %%%%%%%%%%%%%%%%%% 1 1. .1 1.0 -1 -1. -.1 -1.0 +10 +01. +.1 +1.0 1e1 1e-1 1.e1 1.e-1 1.0e1 1.0e-1 .1e1 .1e-1 -.1e+1 +1.e-1 1i .10j -1.001i +1e-100j -.10e-01i % unary vs binary operators 1+1 1+ 1 1 +1 1 + 1 +1+1 +1+ 1 +1 +1 +1 + 1 %%%%%%%%%%%%%%%%%% COMMENTS %%%%%%%%%%%%%%%%%% % % comment % % % comment % comment %# comment %% comment %#x = sum(x); %{ block comment %} %{ %} %{ %} %{ 1 2 %} %{ % sdf {} sdf %asda{} sfds %} %{ dsf %} %{%} %{ zzz=10; %} %{%x=10;%} %{ x a=10; %} %{ %a=10; %} x % nested block comments fail %{ dfsdf %{ xxx %} dfsdf %} % fails here! %{ x=10; %%{ %%} y=20; %} </pre> </body> <script type="text/javascript"> /** * maps ids of rewritten code to the expected output. * For brevity, <span class="foo"> has been changed to `FOO and close span tags * have been changed to `END. */ var goldens = { xquery: ( '`COM(: \n' + '\tTook some of Mike Brevoort\'s xquery code samples because they are nice and show common xquery syntax \n' + ':)`END`PLN\n' + ' \n' + ' `END`COM(:~\n' + ' : Given a sequence of version URIs, publish all of these versions of each document\n' + ' : If there is a version of the same document already published, unpublish it 1st\n' + ' :\n' + ' : When "publish" is referred to, we mean that it is put into the PUBLISHED collection\n' + ' : unpublish removes content from this collection\n' + ' : @param $version_uris - sequence of uris of versions of managed documents to publish\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publish(`END<span class="var pln">$version_uris`END`PLN `END`KWDas`END`PLN `END`KWDitem`END`PLN()*) {\n' + ' `END`KWDfor`END`PLN `END<span class="var pln">$uri`END`PLN `END`KWDin`END`PLN `END<span class="var pln">$version_uris`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$doc`END`PLN := `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$managed_base_uri`END`PLN := `END<span class="var pln">$doc`END`PLN/`END`KWDnode`END`PLN()/property::dls:version/dls:document-uri/`END`KWDtext`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$existing`END`PLN := comoms-dls:publishedDoc(`END<span class="var pln">$managed_base_uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$unpublishExisting`END`PLN := `END`KWDif`END`PLN(`END<span class="var pln">$existing`END`PLN) `END`KWDthen`END`PLN comoms-dls:unpublishVersion((`END<span class="fun pln">xdmp:node-uri`END`PLN(`END<span class="var pln">$existing`END`PLN))) `END`KWDelse`END`PLN ()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$addPermissions`END`PLN := `END<span class="fun pln">dls:document-add-permissions`END`PLN(`END<span class="var pln">$uri`END`PLN, (`END<span class="fun pln">xdmp:permission`END`PLN(`END`STR\'mkp-anon\'`END`PLN, `END`STR\'read\'`END`PLN)))\n' + ' `END`KWDreturn`END`PLN\n' + ' `END<span class="fun pln">dls:document-add-collections`END`PLN(`END<span class="var pln">$uri`END`PLN, (`END`STR"PUBLISHED"`END`PLN)) \n' + ' };\n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publishLatest(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`COM(: TODO check if it\'s in the draft collection probably :)`END`PLN\n' + ' \n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$latest_version_uri`END`PLN := comoms-dls:latestVersionUri(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$log`END`PLN:= `END<span class="fun pln">xdmp:log`END`PLN(`END<span class="fun pln">fn:concat`END`PLN(`END`STR"latest: "`END`PLN, `END<span class="var pln">$latest_version_uri`END`PLN)) \n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$log`END`PLN:= `END<span class="fun pln">xdmp:log`END`PLN(`END<span class="fun pln">fn:concat`END`PLN(`END`STR"uri: "`END`PLN, `END<span class="var pln">$uri`END`PLN)) \n' + ' `END`KWDreturn`END`PLN comoms-dls:publish(`END<span class="var pln">$latest_version_uri`END`PLN) \n' + ' \n' + ' };\n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:latestVersionUri(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$latest_version_num`END`PLN :=\n' + ' (\n' + ' `END`KWDfor`END`PLN `END<span class="var pln">$version`END`PLN `END`KWDin`END`PLN `END<span class="fun pln">dls:document-history`END`PLN(`END<span class="var pln">$uri`END`PLN)/dls:version\n' + ' `END`KWDorder`END`PLN `END`KWDby`END`PLN `END<span class="fun pln">fn:number`END`PLN(`END<span class="var pln">$version`END`PLN//dls:version-id/`END`KWDtext`END`PLN()) `END`KWDdescending`END`PLN\n' + ' `END`KWDreturn`END`PLN `END<span class="var pln">$version`END`PLN//dls:version-id/`END`KWDtext`END`PLN()\n' + ' )[1]\n' + ' \n' + ' \n' + ' `END`KWDreturn`END`PLN `END<span class="fun pln">dls:document-version-uri`END`PLN(`END<span class="var pln">$uri`END`PLN, `END<span class="var pln">$latest_version_num`END`PLN)\n' + ' };\n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:unpublish(`END<span class="var pln">$uris`END`PLN `END`KWDas`END`PLN `END`KWDitem`END`PLN()*) {\n' + ' `END`KWDfor`END`PLN `END<span class="var pln">$uri`END`PLN `END`KWDin`END`PLN `END<span class="var pln">$uris`END`PLN\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$published_doc`END`PLN := comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$published_doc`END`PLN) `END`KWDthen`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$published_version_uri`END`PLN := `END<span class="fun pln">xdmp:node-uri`END`PLN(`END<span class="var pln">$published_doc`END`PLN)\n' + ' `END`KWDreturn`END`PLN comoms-dls:unpublishVersion(`END<span class="var pln">$published_version_uri`END`PLN) \n' + ' `END`KWDelse`END`PLN\n' + ' ()\n' + ' };\n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:latestPublishedDocAuthor(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$author_id`END`PLN := `END<span class="fun pln">doc`END`PLN(`END<span class="var pln">$uri`END`PLN)/property::dls:version/dls:author/`END`KWDtext`END`PLN()\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$author_id`END`PLN) `END`KWDthen`END`PLN\n' + ' comoms-user:getUsername(`END<span class="var pln">$author_id`END`PLN)\n' + ' `END`KWDelse`END`PLN\n' + ' ()\n' + ' \n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Given a sequence of version URIs, unpublish all of these versions of each document\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:unpublishVersion(`END<span class="var pln">$version_uris`END`PLN `END`KWDas`END`PLN `END`KWDitem`END`PLN()*) {\n' + ' `END`KWDfor`END`PLN `END<span class="var pln">$uri`END`PLN `END`KWDin`END`PLN `END<span class="var pln">$version_uris`END`PLN\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$removePermissions`END`PLN := `END<span class="fun pln">dls:document-remove-permissions`END`PLN(`END<span class="var pln">$uri`END`PLN, (`END<span class="fun pln">xdmp:permission`END`PLN(`END`STR\'mkp-anon\'`END`PLN, `END`STR\'read\'`END`PLN)))\n' + ' `END`KWDreturn`END`PLN `END<span class="fun pln">dls:document-remove-collections`END`PLN(`END<span class="var pln">$uri`END`PLN, (`END`STR"PUBLISHED"`END`PLN)) \n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Given the base URI of a managed piece of content, return the document of the node\n' + ' : of the version that is published\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END<span class="fun pln">fn:collection`END`PLN(`END`STR"PUBLISHED"`END`PLN)[property::dls:version/dls:document-uri = `END<span class="var pln">$uri`END`PLN]\n' + ' };\n' + ' \n' + ' \n' + ' `END`COM(:~\n' + ' : Test if any version of the managed document is published\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:isPublished(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDif`END`PLN( comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN)) `END`KWDthen`END`PLN\n' + ' `END<span class="fun pln">fn:true`END`PLN()\n' + ' `END`KWDelse`END`PLN\n' + ' `END<span class="fun pln">fn:false`END`PLN()\n' + ' };\n' + ' \n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publishedState(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$doc`END`PLN := comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$published_uri`END`PLN := `END`KWDif`END`PLN(`END<span class="var pln">$doc`END`PLN) `END`KWDthen`END`PLN `END<span class="fun pln">xdmp:node-uri`END`PLN(`END<span class="var pln">$doc`END`PLN) `END`KWDelse`END`PLN ()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$latest`END`PLN := comoms-dls:latestVersionUri(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$doc`END`PLN) `END`KWDthen`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$latest`END`PLN ne `END<span class="var pln">$published_uri`END`PLN) `END`KWDthen`END`PLN\n' + ' `END`STR"stale"`END`PLN\n' + ' `END`KWDelse`END`PLN\n' + ' `END`STR"published"`END`PLN\n' + ' `END`KWDelse`END`PLN\n' + ' `END`STR"unpublished"`END`PLN\n' + ' };\n' + ' \n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:getManagedDocUri(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$doc`END`PLN := `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$managed_uri`END`PLN := `END<span class="var pln">$doc`END`PLN/property::dls:version/dls:document-uri/`END`KWDtext`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$managed_uri`END`PLN := `END`KWDif`END`PLN(`END<span class="var pln">$managed_uri`END`PLN) `END`KWDthen`END`PLN `END<span class="var pln">$managed_uri`END`PLN `END`KWDelse`END`PLN `END<span class="var pln">$uri`END`PLN\n' + ' `END`KWDreturn`END`PLN `END<span class="var pln">$managed_uri`END`PLN\n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Given a manage content url (e.g. /content/123456.xml) return the appropriate\n' + ' : version of the document based on what stage collection is being viewed and\n' + ' : what\'s published\n' + ' :\n' + ' : @param $uri a manage content url (e.g. /content/123456.xml) - NOT A VERSIONED URI\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:doc(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$doc`END`PLN := `END<span class="fun pln">fn:root`END`PLN(comoms-dls:collection()[property::dls:version/dls:document-uri = `END<span class="var pln">$uri`END`PLN][1])\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$doc`END`PLN) `END`KWDthen`END`PLN\n' + ' `END<span class="var pln">$doc`END`PLN\n' + ' `END`KWDelse`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$managedDocInCollection`END`PLN := comoms-dls:collection-name() = `END<span class="fun pln">xdmp:document-get-collections`END`PLN(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$managedDocInCollection`END`PLN) `END`KWDthen`END`PLN\n' + ' `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDelse`END`PLN\n' + ' ()\n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Get the collection to be used when querying for content\n' + ' : THIS or comoms-dls:collection-name() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:collection() {\n' + ' `END<span class="fun pln">fn:collection`END`PLN( comoms-dls:collection-name() )\n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Get the collection nameto be used when querying for content\n' + ' : THIS or comoms-dls:collection() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:collection-name() `END`KWDas`END`PLN `END`TYPxs:string`END`PLN {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$default_collection`END`PLN := `END`STR"PUBLISHED"`END`PLN\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(comoms-user:isAdmin()) `END`KWDthen`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$pub_stage_collection_cookie`END`PLN := comoms-util:getCookie(`END`STR"COMOMS_COLLECTION"`END`PLN)\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`KWDif`END`PLN(`END<span class="var pln">$pub_stage_collection_cookie`END`PLN) `END`KWDthen`END`PLN\n' + ' `END<span class="var pln">$pub_stage_collection_cookie`END`PLN\n' + ' `END`KWDelse`END`PLN\n' + ' `END<span class="var pln">$default_collection`END`PLN\n' + ' `END`KWDelse`END`PLN\n' + ' `END<span class="var pln">$default_collection`END`PLN\n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Check if the published collection is being viewed\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:isViewingPublished() {\n' + ' `END`KWDif`END`PLN(comoms-dls:collection-name() = `END`STR"PUBLISHED"`END`PLN) `END`KWDthen`END`PLN\n' + ' `END<span class="fun pln">fn:true`END`PLN()\n' + ' `END`KWDelse`END`PLN\n' + ' `END<span class="fun pln">fn:false`END`PLN()\n' + ' };\n' + ' \n' + ' `END`COM(:~\n' + ' : Get the best URL for the content URI.\n' + ' : This is either the default URI based on detail type or should also take\n' + ' : into account friendly urls and navigation structures to figure out the\n' + ' : best choice\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:contentUrl(`END<span class="var pln">$uri`END`PLN) {\n' + ' \n' + ' `END`COM(: TODO: add friendly URL and nav structure logic 1st :)`END`PLN\n' + ' \n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$doc`END`PLN := `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$managedDocUri`END`PLN := `END<span class="var pln">$doc`END`PLN/property::dls:version/dls:document-uri\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$uri`END`PLN := `END`KWDif`END`PLN(`END<span class="var pln">$managedDocUri`END`PLN) `END`KWDthen`END`PLN `END<span class="var pln">$managedDocUri`END`PLN `END`KWDelse`END`PLN `END<span class="var pln">$uri`END`PLN\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$type`END`PLN := `END<span class="var pln">$doc`END`PLN/`END`KWDnode`END`PLN()/`END<span class="fun pln">fn:name`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$content_id`END`PLN := `END<span class="fun pln">fn:tokenize`END`PLN( `END<span class="fun pln">fn:tokenize`END`PLN(`END<span class="var pln">$uri`END`PLN, `END`STR"/"`END`PLN)[3], `END`STR"\\."`END`PLN)[1]\n' + ' `END`KWDreturn`END`PLN\n' + ' `END<span class="fun pln">fn:concat`END`PLN(`END`STR"/"`END`PLN, `END<span class="var pln">$type`END`PLN, `END`STR"/"`END`PLN, `END<span class="var pln">$content_id`END`PLN)\n' + ' };\n' + ' \n' + ' `END`COM(:\n' + ' :\n' + ' : gets list of doc versions and uri.\n' + ' :\n' + ' :)`END`PLN\n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:versionHistory(`END<span class="var pln">$uri`END`PLN) {\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$published_doc`END`PLN := comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN)\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$published_uri`END`PLN := `END`KWDif`END`PLN(`END<span class="var pln">$published_doc`END`PLN) `END`KWDthen`END`PLN `END<span class="fun pln">xdmp:node-uri`END`PLN(`END<span class="var pln">$published_doc`END`PLN) `END`KWDelse`END`PLN ()\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`TAG<versions>`END`PLN\n' + ' {\n' + ' `END`KWDfor`END`PLN `END<span class="var pln">$version`END`PLN `END`KWDin`END`PLN `END<span class="fun pln">dls:document-history`END`PLN(`END<span class="var pln">$uri`END`PLN)/dls:version\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$version_num`END`PLN := `END<span class="var pln">$version`END`PLN/dls:version-id/`END`KWDtext`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$created`END`PLN := `END<span class="var pln">$version`END`PLN/dls:created/`END`KWDtext`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$author_id`END`PLN := `END<span class="var pln">$version`END`PLN/dls:author/`END`KWDtext`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$author`END`PLN := comoms-user:getUsername(`END<span class="var pln">$author_id`END`PLN)\n' + ' \n' + ' \n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$note`END`PLN := `END<span class="var pln">$version`END`PLN/dls:annotation/`END`KWDtext`END`PLN()\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$version_uri`END`PLN := `END<span class="fun pln">xdmp:node-uri`END`PLN(`END<span class="fun pln">dls:document-version`END`PLN(`END<span class="var pln">$uri`END`PLN, `END<span class="var pln">$version_num`END`PLN))\n' + ' `END`KWDlet`END`PLN `END<span class="var pln">$published`END`PLN := `END<span class="var pln">$published_uri`END`PLN `END`KWDeq`END`PLN `END<span class="var pln">$version_uri`END`PLN\n' + ' `END`KWDreturn`END`PLN\n' + ' `END`TAG<version>`END`PLN\n' + ' `END`TAG<version-number>`END`PLN{`END<span class="var pln">$version_num`END`PLN}`END`TAG</version-number>`END`PLN\n' + ' `END`TAG<created>`END`PLN{`END<span class="var pln">$created`END`PLN}`END`TAG</created>`END`PLN \n' + ' `END`TAG<author>`END`PLN{`END<span class="var pln">$author`END`PLN}`END`TAG</author>`END`PLN\n' + ' `END`TAG<published>`END`PLN{`END<span class="var pln">$published`END`PLN}`END`TAG</published>`END`PLN\n' + ' `END`TAG<version-uri>`END`PLN{`END<span class="var pln">$version_uri`END`PLN}`END`TAG</version-uri>`END`PLN\n' + ' `END`TAG</version>`END`PLN \n' + ' } \n' + ' `END`TAG</versions>`END`PLN\n' + ' };\n' + ' \n' + ' \n' + ' \n' + ' \n' + ' \n' + ' \n' + ' `END`COM(: ########################################################################### :)`END`PLN\n' + ' `END`COM(: PRIVATE FUNCTIONS :)`END`PLN\n' + ' `END`COM(: ########################################################################### :)`END`PLN\n' + ' \n' + ' `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:_import() {\n' + ' `END`STR"xquery version \'1.0-ml\';\n' + ' import module namespace dls = \'http://marklogic.com/xdmp/dls\' at \'/MarkLogic/dls.xqy\'; "`END`PLN\n' + ' }; \n' + ' \n' + '`END`COM(: ----\n' + '---- :)`END`PLN\n' + '`END`KWDxquery`END`PLN `END`KWDversion`END`PLN `END`STR\'1.0-ml\'`END`PLN;\n' + '`END`KWDdeclare`END`PLN `END`KWDvariable`END`PLN `END<span class="var pln">$URI`END`PLN `END`KWDas`END`PLN `END`TYPxs:string`END`PLN `END`KWDexternal`END`PLN;\n' + ' \n' + '`END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN local:document-move-forest(`END<span class="var pln">$uri`END`PLN `END`KWDas`END`PLN `END`TYPxs:string`END`PLN, `END<span class="var pln">$forest-ids`END`PLN `END`KWDas`END`PLN `END`TYPxs:unsignedLong`END`PLN*)\n' + '{\n' + ' `END<span class="fun pln">xdmp:document-insert`END`PLN(\n' + ' `END<span class="var pln">$uri`END`PLN,\n' + ' `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' + ' `END<span class="fun pln">xdmp:document-get-permissions`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' + ' `END<span class="fun pln">xdmp:document-get-collections`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' + ' `END<span class="fun pln">xdmp:document-get-quality`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' + ' `END<span class="var pln">$forest-ids`END`PLN\n' + ' )\n' + '};\n' + ' \n' + '`END`KWDlet`END`PLN `END<span class="var pln">$xml`END`PLN :=\n' + ' `END`TAG<xml`END`PLN att=`END`STR"blah"`END`PLN att2=`END`STR"blah"`END`TAG>`END`PLN\n' + ' sdasd`END`TAG<b>`END`PLNasdasd`END`TAG</b>`END`PLN\n' + ' `END`TAG</xml>`END`PLN\n' + '`END`COM(: -------- :)`END`PLN\n' + '`END`KWDfor`END`PLN `END<span class="var pln">$d`END`PLN `END`KWDin`END`PLN `END<span class="fun pln">fn:doc`END`PLN(`END`STR"depts.xml"`END`PLN)/depts/deptno\n' + '`END`KWDlet`END`PLN `END<span class="var pln">$e`END`PLN := `END<span class="fun pln">fn:doc`END`PLN(`END`STR"emps.xml"`END`PLN)/emps/emp[deptno = `END<span class="var pln">$d`END`PLN]\n' + '`END`KWDwhere`END`PLN `END<span class="fun pln">fn:count`END`PLN(`END<span class="var pln">$e`END`PLN) >= 10\n' + '`END`KWDorder`END`PLN `END`KWDby`END`PLN `END<span class="fun pln">fn:avg`END`PLN(`END<span class="var pln">$e`END`PLN/salary) `END`KWDdescending`END`PLN\n' + '`END`KWDreturn`END`PLN\n' + ' `END`TAG<big-dept>`END`PLN\n' + ' {\n' + ' `END<span class="var pln">$d`END`PLN,\n' + ' `END`TAG<headcount>`END`PLN{`END<span class="fun pln">fn:count`END`PLN(`END<span class="var pln">$e`END`PLN)}`END`TAG</headco