PageRenderTime 48ms CodeModel.GetById 16ms RepoModel.GetById 0ms app.codeStats 0ms

/modules-services/service-translator/src/main/webapp/google-code-prettify/tests/prettify_test_2.html

http://github.com/lucmoreau/ProvToolbox
HTML | 893 lines | 844 code | 49 blank | 0 comment | 0 complexity | 2ead6af174eab9727d472e96ae2ee3ad MD5 | raw file
Possible License(s): AGPL-3.0, BSD-3-Clause, Apache-2.0, GPL-3.0 
    

  1. <!DOCTYPE HTML PUBLIC "-//W5C//DTD HTML 4.01 Transitional//EN">
    2. 

  2. <html>
    3. 

  3. <head>
    4. 

  4. <title>Code Prettifier</title>
    5. 

  5. <script>(function () {
    6. 

  6.   var sourceBaseUrl = /[&?]distrib/.test(location.search)
    7. 

  7.       ? "../distrib/google-code-prettify/" : "../src/";
    8. 

  8.   var sources = [
    9. 

  9.       "prettify.js",
    10. 

  10.       "lang-css.js",
    11. 

  11.       // Language extensions tested.
    12. 

  12.       "lang-clj.js",
    13. 

  13.       "lang-lisp.js",
    14. 

  14.       "lang-xq.js",
    15. 

  15.       "lang-n.js",
    16. 

  16.       "lang-tex.js"
    17. 

  17.  ];
    18. 

  18.   var styles = [
    19. 

  19.       "prettify.css"
    20. 

  20.   ];
    21. 

  21.   if (window.console) {
    22. 

  22.     console.log("sourceBaseUrl=" + sourceBaseUrl);
    23. 

  23.   }
    24. 

  24.   for (var i = 0; i < sources.length; ++i) {
    25. 

  25.     document.write(
    26. 

  26.         "<script src=\"" + sourceBaseUrl + sources[i] + "\"><\/script>");
    27. 

  27.   }
    28. 

  28.   for (var i = 0; i < styles.length; ++i) {
    29. 

  29.     document.write(
    30. 

  30.         "<link rel=\"stylesheet\" href=\"" + sourceBaseUrl + styles[i] + "\">");
    31. 

  31.   }
    32. 

  32. })();
    33. 

  33. </script>
    34. 

  34. 

  35. <script src="test_base.js" type="text/javascript"
    36. 

  36.  onerror="alert('Error: failed to load ' + this.src)"></script>
    37. 

  37. <link rel="stylesheet" type="text/css" href="test_styles.css" />
    38. 

  38. </head>
    39. 

  39. 

  40. <body onload="go(goldens)" bgcolor="white">
    41. 

  41. <div id="timing"></div>
    42. 

  42. <div id="errorReport" style="white-space: pre"></div>
    43. 

  43. 

  44. <h1>XQuery mode</h1>
    45. 

  45. From <code>http://www.patrick-wied.at/static/xquery/prettify/</code>
    46. 

  46. <pre class="prettyprint lang-xq" id="xquery">
    47. 

  47. (: 
    48. 

  48. 	Took some of Mike Brevoort's xquery code samples because they are nice and show common xquery syntax 
    49. 

  49. :)
    50. 

  50.  
    51. 

  51.   (:~
    52. 

  52.    : Given a sequence of version URIs, publish all of these versions of each document
    53. 

  53.    : If there is a version of the same document already published, unpublish it 1st
    54. 

  54.    :
    55. 

  55.    : When "publish" is referred to, we mean that it is put into the PUBLISHED collection
    56. 

  56.    : unpublish removes content from this collection
    57. 

  57.    : @param $version_uris - sequence of uris of versions of managed documents to publish
    58. 

  58.    :)
    59. 

  59.   declare function comoms-dls:publish($version_uris as item()*) {
    60. 

  60.       for $uri in $version_uris
    61. 

  61.       let $doc := fn:doc($uri)
    62. 

  62.       let $managed_base_uri := $doc/node()/property::dls:version/dls:document-uri/text()
    63. 

  63.       let $existing :=  comoms-dls:publishedDoc($managed_base_uri)
    64. 

  64.       let $unpublishExisting := if($existing) then comoms-dls:unpublishVersion((xdmp:node-uri($existing)))  else ()
    65. 

  65.       let $addPermissions := dls:document-add-permissions($uri, (xdmp:permission('mkp-anon', 'read')))
    66. 

  66.       return
    67. 

  67.           dls:document-add-collections($uri, ("PUBLISHED"))    
    68. 

  68.   };
    69. 

  69.  
    70. 

  70.   declare function comoms-dls:publishLatest($uri) {
    71. 

  71.       (: TODO check if it's in the draft collection probably :)
    72. 

  72.  
    73. 

  73.       let $latest_version_uri := comoms-dls:latestVersionUri($uri)
    74. 

  74.       let $log:= xdmp:log(fn:concat("latest: ", $latest_version_uri))    
    75. 

  75.       let $log:= xdmp:log(fn:concat("uri: ", $uri))            
    76. 

  76.       return comoms-dls:publish($latest_version_uri)    
    77. 

  77.  
    78. 

  78.   };
    79. 

  79.  
    80. 

  80.   declare function comoms-dls:latestVersionUri($uri) {
    81. 

  81.       let $latest_version_num :=
    82. 

  82.           (
    83. 

  83.           for $version in dls:document-history($uri)/dls:version
    84. 

  84.           order by fn:number($version//dls:version-id/text()) descending
    85. 

  85.           return $version//dls:version-id/text()
    86. 

  86.           )[1]
    87. 

  87.  
    88. 

  88.  
    89. 

  89.       return dls:document-version-uri($uri, $latest_version_num)
    90. 

  90.   };
    91. 

  91.  
    92. 

  92.   declare function comoms-dls:unpublish($uris as item()*) {
    93. 

  93.       for $uri in $uris
    94. 

  94.       return
    95. 

  95.           let $published_doc := comoms-dls:publishedDoc($uri)
    96. 

  96.           return
    97. 

  97.               if($published_doc) then
    98. 

  98.                   let $published_version_uri := xdmp:node-uri($published_doc)
    99. 

  99.                   return comoms-dls:unpublishVersion($published_version_uri)        
    100. 

  100.               else
    101. 

  101.                   ()
    102. 

  102.   };
    103. 

  103.  
    104. 

  104.   declare function comoms-dls:latestPublishedDocAuthor($uri) {
    105. 

  105.       let $author_id := doc($uri)/property::dls:version/dls:author/text()
    106. 

  106.       return
    107. 

  107.           if($author_id) then
    108. 

  108.               comoms-user:getUsername($author_id)
    109. 

  109.           else
    110. 

  110.               ()
    111. 

  111.  
    112. 

  112.   };
    113. 

  113.  
    114. 

  114.   (:~
    115. 

  115.    : Given a sequence of version URIs, unpublish all of these versions of each document
    116. 

  116.    :)
    117. 

  117.   declare function comoms-dls:unpublishVersion($version_uris as item()*) {
    118. 

  118.       for $uri in $version_uris
    119. 

  119.       return
    120. 

  120.           let $removePermissions := dls:document-remove-permissions($uri, (xdmp:permission('mkp-anon', 'read')))
    121. 

  121.           return dls:document-remove-collections($uri, ("PUBLISHED"))        
    122. 

  122.   };
    123. 

  123.  
    124. 

  124.   (:~
    125. 

  125.    : Given the base URI of a managed piece of content, return the document of the node
    126. 

  126.    : of the version that is published
    127. 

  127.    :)
    128. 

  128.   declare function comoms-dls:publishedDoc($uri) {
    129. 

  129.       fn:collection("PUBLISHED")[property::dls:version/dls:document-uri = $uri]
    130. 

  130.   };
    131. 

  131.  
    132. 

  132.  
    133. 

  133.   (:~
    134. 

  134.    : Test if any version of the managed document is published
    135. 

  135.    :)
    136. 

  136.   declare function comoms-dls:isPublished($uri) {
    137. 

  137.       if( comoms-dls:publishedDoc($uri)) then
    138. 

  138.           fn:true()
    139. 

  139.       else
    140. 

  140.           fn:false()
    141. 

  141.   };
    142. 

  142.  
    143. 

  143.  
    144. 

  144.   declare function comoms-dls:publishedState($uri) {
    145. 

  145.       let $doc := comoms-dls:publishedDoc($uri)
    146. 

  146.       let $published_uri := if($doc) then xdmp:node-uri($doc) else ()
    147. 

  147.       let $latest := comoms-dls:latestVersionUri($uri)
    148. 

  148.       return
    149. 

  149.           if($doc) then
    150. 

  150.               if($latest ne $published_uri) then
    151. 

  151.                   "stale"
    152. 

  152.               else
    153. 

  153.                   "published"
    154. 

  154.           else
    155. 

  155.               "unpublished"
    156. 

  156.   };
    157. 

  157.  
    158. 

  158.  
    159. 

  159.   declare function comoms-dls:getManagedDocUri($uri) {
    160. 

  160.       let $doc := fn:doc($uri)
    161. 

  161.       let $managed_uri := $doc/property::dls:version/dls:document-uri/text()
    162. 

  162.       let $managed_uri := if($managed_uri) then $managed_uri else $uri
    163. 

  163.       return $managed_uri
    164. 

  164.   };
    165. 

  165.  
    166. 

  166.   (:~
    167. 

  167.    : Given a manage content url (e.g. /content/123456.xml) return the appropriate
    168. 

  168.    : version of the document based on what stage collection is being viewed and
    169. 

  169.    : what's published
    170. 

  170.    :
    171. 

  171.    : @param $uri a manage content url (e.g. /content/123456.xml) - NOT A VERSIONED URI
    172. 

  172.    :)
    173. 

  173.   declare function comoms-dls:doc($uri) {
    174. 

  174.       let $doc := fn:root(comoms-dls:collection()[property::dls:version/dls:document-uri = $uri][1])
    175. 

  175.       return
    176. 

  176.           if($doc) then
    177. 

  177.               $doc
    178. 

  178.           else
    179. 

  179.               let $managedDocInCollection := comoms-dls:collection-name() = xdmp:document-get-collections($uri)
    180. 

  180.               return
    181. 

  181.                   if($managedDocInCollection) then
    182. 

  182.                       fn:doc($uri)
    183. 

  183.                   else
    184. 

  184.                       ()
    185. 

  185.   };
    186. 

  186.  
    187. 

  187.   (:~
    188. 

  188.    : Get the collection to be used when querying for content
    189. 

  189.    : THIS or comoms-dls:collection-name() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT
    190. 

  190.    :)
    191. 

  191.   declare function comoms-dls:collection()  {
    192. 

  192.       fn:collection( comoms-dls:collection-name() )
    193. 

  193.   };
    194. 

  194.  
    195. 

  195.   (:~
    196. 

  196.    : Get the collection nameto be used when querying for content
    197. 

  197.    : THIS or comoms-dls:collection() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT
    198. 

  198.    :)
    199. 

  199.   declare function comoms-dls:collection-name() as xs:string {
    200. 

  200.       let $default_collection := "PUBLISHED"
    201. 

  201.       return
    202. 

  202.           if(comoms-user:isAdmin()) then
    203. 

  203.               let $pub_stage_collection_cookie := comoms-util:getCookie("COMOMS_COLLECTION")
    204. 

  204.               return
    205. 

  205.                   if($pub_stage_collection_cookie) then
    206. 

  206.                       $pub_stage_collection_cookie
    207. 

  207.                   else
    208. 

  208.                       $default_collection
    209. 

  209.           else
    210. 

  210.               $default_collection
    211. 

  211.   };
    212. 

  212.  
    213. 

  213.   (:~
    214. 

  214.    : Check if the published collection is being viewed
    215. 

  215.    :)
    216. 

  216.   declare function comoms-dls:isViewingPublished() {
    217. 

  217.       if(comoms-dls:collection-name() = "PUBLISHED") then
    218. 

  218.           fn:true()
    219. 

  219.       else
    220. 

  220.           fn:false()
    221. 

  221.   };
    222. 

  222.  
    223. 

  223.   (:~
    224. 

  224.    : Get the best URL for the content URI.
    225. 

  225.    : This is either the default URI based on detail type or should also take
    226. 

  226.    : into account friendly urls and navigation structures to figure out the
    227. 

  227.    : best choice
    228. 

  228.    :)
    229. 

  229.   declare function comoms-dls:contentUrl($uri) {
    230. 

  230.  
    231. 

  231.       (: TODO: add friendly URL and nav structure logic 1st :)
    232. 

  232.  
    233. 

  233.       let $doc := fn:doc($uri)
    234. 

  234.       let $managedDocUri := $doc/property::dls:version/dls:document-uri
    235. 

  235.       let $uri := if($managedDocUri) then $managedDocUri else $uri
    236. 

  236.       let $type := $doc/node()/fn:name()
    237. 

  237.       let $content_id := fn:tokenize( fn:tokenize($uri, "/")[3], "\.")[1]
    238. 

  238.       return
    239. 

  239.           fn:concat("/", $type, "/", $content_id)
    240. 

  240.   };
    241. 

  241.  
    242. 

  242.   (:
    243. 

  243.    :
    244. 

  244.    :  gets list of doc versions and uri.
    245. 

  245.    :
    246. 

  246.    :)
    247. 

  247.   declare function comoms-dls:versionHistory($uri) {
    248. 

  248.       let $published_doc := comoms-dls:publishedDoc($uri)
    249. 

  249.       let $published_uri := if($published_doc) then xdmp:node-uri($published_doc) else ()
    250. 

  250.       return
    251. 

  251.       &lt;versions&gt;
    252. 

  252.           {
    253. 

  253.           for $version in dls:document-history($uri)/dls:version
    254. 

  254.             let $version_num := $version/dls:version-id/text()
    255. 

  255.             let $created := $version/dls:created/text()
    256. 

  256.             let $author_id := $version/dls:author/text()
    257. 

  257.             let $author := comoms-user:getUsername($author_id)
    258. 

  258.  
    259. 

  259.  
    260. 

  260.             let $note := $version/dls:annotation/text()
    261. 

  261.             let $version_uri := xdmp:node-uri(dls:document-version($uri, $version_num))
    262. 

  262.             let $published := $published_uri eq $version_uri
    263. 

  263.             return
    264. 

  264.               &lt;version&gt;
    265. 

  265.                   &lt;version-number&gt;{$version_num}&lt;/version-number&gt;
    266. 

  266.                   &lt;created&gt;{$created}&lt;/created&gt;                
    267. 

  267.                   &lt;author&gt;{$author}&lt;/author&gt;
    268. 

  268.                   &lt;published&gt;{$published}&lt;/published&gt;
    269. 

  269.                   &lt;version-uri&gt;{$version_uri}&lt;/version-uri&gt;
    270. 

  270.               &lt;/version&gt;  
    271. 

  271.           }        
    272. 

  272.       &lt;/versions&gt;
    273. 

  273.   };
    274. 

  274.  
    275. 

  275.  
    276. 

  276.  
    277. 

  277.  
    278. 

  278.  
    279. 

  279.  
    280. 

  280.   (: ########################################################################### :)
    281. 

  281.   (: PRIVATE FUNCTIONS :)
    282. 

  282.   (: ########################################################################### :)
    283. 

  283.  
    284. 

  284.   declare function comoms-dls:_import() {
    285. 

  285.       "xquery version '1.0-ml';
    286. 

  286.        import module namespace dls = 'http://marklogic.com/xdmp/dls' at '/MarkLogic/dls.xqy'; "
    287. 

  287.   };  
    288. 

  288.  
    289. 

  289. (: ----
    290. 

  290. ---- :)
    291. 

  291. xquery version '1.0-ml';
    292. 

  292. declare variable $URI as xs:string external;
    293. 

  293.  
    294. 

  294. declare function local:document-move-forest($uri as xs:string, $forest-ids as xs:unsignedLong*)
    295. 

  295. {
    296. 

  296.   xdmp:document-insert(
    297. 

  297.     $uri,
    298. 

  298.     fn:doc($uri),
    299. 

  299.     xdmp:document-get-permissions($uri),
    300. 

  300.     xdmp:document-get-collections($uri),
    301. 

  301.     xdmp:document-get-quality($uri),
    302. 

  302.     $forest-ids
    303. 

  303.   )
    304. 

  304. };
    305. 

  305.  
    306. 

  306. let $xml :=
    307. 

  307.   &lt;xml att="blah" att2="blah"&gt;
    308. 

  308.     sdasd&lt;b&gt;asdasd&lt;/b&gt;
    309. 

  309.   &lt;/xml&gt;
    310. 

  310. (: -------- :)
    311. 

  311. for $d in fn:doc("depts.xml")/depts/deptno
    312. 

  312. let $e := fn:doc("emps.xml")/emps/emp[deptno = $d]
    313. 

  313. where fn:count($e) &gt;= 10
    314. 

  314. order by fn:avg($e/salary) descending
    315. 

  315. return
    316. 

  316.    &lt;big-dept&gt;
    317. 

  317.       {
    318. 

  318.       $d,
    319. 

  319.       &lt;headcount&gt;{fn:count($e)}&lt;/headcount&gt;,
    320. 

  320.       &lt;avgsal&gt;{fn:avg($e/salary)}&lt;/avgsal&gt;
    321. 

  321.       }
    322. 

  322.    &lt;/big-dept&gt;
    323. 

  323. (: -------- :)
    324. 

  324. declare function local:depth($e as node()) as xs:integer
    325. 

  325. {
    326. 

  326.    (: A node with no children has depth 1 :)
    327. 

  327.    (: Otherwise, add 1 to max depth of children :)
    328. 

  328.    if (fn:empty($e/*)) then 1
    329. 

  329.    else fn:max(for $c in $e/* return local:depth($c)) + 1
    330. 

  330. };
    331. 

  331.  
    332. 

  332. local:depth(fn:doc("partlist.xml"))
    333. 

  333.  
    334. 

  334. (: -------- :)
    335. 

  335. &lt;html&gt;&lt;head/&gt;&lt;body&gt;
    336. 

  336. {
    337. 

  337.   for $act in doc("hamlet.xml")//ACT
    338. 

  338.   let $speakers := distinct-values($act//SPEAKER)
    339. 

  339.   return
    340. 

  340.     &lt;div&gt;{ string($act/TITLE) }&lt;/h1&gt;
    341. 

  341.       &lt;ul&gt;
    342. 

  342.       {
    343. 

  343.         for $speaker in $speakers
    344. 

  344.         return &lt;li&gt;{ $speaker }&lt;/li&gt;
    345. 

  345.       }
    346. 

  346.       &lt;/ul&gt;
    347. 

  347.     &lt;/div&gt;
    348. 

  348. }
    349. 

  349. &lt;/body&gt;&lt;/html&gt;
    350. 

  350. (: -------- :)
    351. 

  351. {
    352. 

  352. 	for $book in doc("books.xml")//book
    353. 

  353.         return
    354. 

  354. 	if (contains($book/author/text(),"Herbert") or contains($book/author/text(),"Asimov"))
    355. 

  355. 		then $book
    356. 

  356. 	else $book/text()
    357. 

  357. 	
    358. 

  358. 	let $let := &lt;x&gt;"test"&lt;/x&gt;
    359. 

  359. 	return element element {
    360. 

  360. 	attribute attribute { 1 },
    361. 

  361. 	element test { 'a' },
    362. 

  362. 	attribute foo { "bar" },
    363. 

  363. 	fn:doc()[ foo/@bar eq $let ],
    364. 

  364. 	//x }
    365. 

  365. }
    366. 

  366. (: -------- :)
    367. 

  367. &lt;bib&gt;
    368. 

  368.  {
    369. 

  369.   for $b in doc("http://bstore1.example.com/bib.xml")/bib/book
    370. 

  370.   where $b/publisher = "Addison-Wesley" and $b/@year &gt; 1991
    371. 

  371.   return
    372. 

  372.     &lt;book year="{ $b/@year }"&gt;
    373. 

  373.      { $b/title }
    374. 

  374.     &lt;/book&gt;
    375. 

  375.  }
    376. 

  376. &lt;/bib&gt;
    377. 

  377. (: -------- :)
    378. 

  378. </pre>
    379. 

    380. 

  380. <h1>Nemerle code</h1>
    381. 

  381. <pre id="nemerle" class="prettyprint lang-nemerle">
    382. 

  382. class Set ['a]
    383. 

  383. {
    384. 

  384.   mutable storage : list ['a] = [];
    385. 

  385.   public Add (e : 'a) : void
    386. 

  386.   {
    387. 

  387.     when (! Contains (e))
    388. 

  388.       storage ::= e;
    389. 

  389.   }
    390. 

  390.   public Contains (e : 'a) : bool
    391. 

  391.   {
    392. 

  392.     storage.Contains (e)
    393. 

  393.   }
    394. 

  394. }
    395. 

  395.  
    396. 

  396. def s1 = Set ();
    397. 

  397. s1.Add (3);
    398. 

  398. s1.Add (42);
    399. 

  399. assert (s1.Contains (3));
    400. 

  400. // s1.Add ("foo"); // error here!
    401. 

  401. def s2 = Set ();
    402. 

  402. s2.Add ("foo");
    403. 

  403. assert (s2.Contains ("foo"));
    404. 

  404. </pre>
    405. 

    406. 

  406. <h1>Tex support</h1>
    407. 

  407. <pre id="latex" class="prettyprint lang-tex">% resume.tex
    408. 

  408. % vim:set ft=tex spell:
    409. 

  409. \documentclass[10pt,letterpaper]{article}
    410. 

  410. \usepackage[letterpaper,margin=0.8in]{geometry}
    411. 

  411. \usepackage{mdwlist}
    412. 

  412. \usepackage[T1]{fontenc}
    413. 

  413. \usepackage{textcomp}
    414. 

  414. \pagestyle{empty}
    415. 

  415. \setlength{\tabcolsep}{0em}
    416. 

  416. </pre>
    417. 

    418. 

  418. <h1>Issue 144</h1>
    419. 

  419. Escaped quotes in bash.
    420. 

  420. <pre id="issue144" class="prettyprint">
    421. 

  421. #! /bin/bash
    422. 

  422. # toascii.sh
    423. 

  423. for i in $(echo $* | fold -w 1);do
    424. 

  424.   printf "%x " \'$i;
    425. 

  425. done;
    426. 

  426. echo
    427. 

  427. </pre>
    428. 

    429. 

  429. <h1>Issue 145</h1>
    430. 

  430. <pre id="issue145" class="prettyprint">
    431. 

  431. &lt;script type="text/javascript"&gt;
    432. 

  432. &lt;!--
    433. 

  433.         var target = $$.css('backgroundImage').replace(/^url[\(\)'"]/g, '');
    434. 

    435. 

  435.         // nice long chain: wrap img element in span
    436. 

  436.         $$.wrap('&lt;span style="position: relative;"&gt;&lt;/span&gt;')
    437. 

  437. --&gt;
    438. 

  438. &lt;/script&gt;
    439. 

  439. </pre>
    440. 

    441. 

  441. <h1>Clojure Syntax Highlighting</h1>
    442. 

  442. <pre class="prettyprint lang-clj" id="clojure">
    443. 

  443. ; Clojure test comment
    444. 

  444. (ns test
    445. 

  445.  (:gen-class))
    446. 

    447. 

  447. (def foo "bar")
    448. 

  448. (defn bar [arg1 arg2 & args]
    449. 

  449.   "sample function"
    450. 

  450.   (for [arg args]
    451. 

  451.     (prn arg)))
    452. 

    453. 

  453. (bar "foo" "bar" "blah" :baz)
    454. 

  454. </pre>
    455. 

    456. 

  456. <h1>HTML 5 language on code</h1>
    457. 

  457. <p>
    458. 

  458. The text is specified to be lisp by the class attribute.
    459. 

  459. Semicolon is normally a valid punctuation character but
    460. 

  460. in lisp it is a comment so should be colored as a comment
    461. 

  461. if the className is being properly parsed.</p>
    462. 

  462. <code class="prettyprint language-lisp" id="html5conv1">; foo</code>
    463. 

    464. 

  464. <h1>HTML 5 language on nested code element</h1>
    465. 

  465. <p>The language is attached to a CODE element inside a PRE.</p>
    466. 

  466. <pre class="prettyprint" id="html5conv2"
    467. 

  467. ><code class="language-lisp">; foo</code></pre>
    468. 

    469. 

  469. <h1>HTML 5 language on nested code element not foiled by space</h1>
    470. 

  470. <p>The language is attached to a CODE element inside a PRE and there
    471. 

  471. is space between the PRE element's tags and CODE element's tags.</p>
    472. 

  472. <pre class="prettyprint" id="html5conv3">
    473. 

  473. <code class="language-lisp">
    474. 

  474. ; foo
    475. 

  475. </code>
    476. 

  476. </pre>
    477. 

    478. 

  478. <h1>HTML 5 nested code element language ignored if not only content</h1>
    479. 

  479. <p>The below is not treated as lisp despite there being a lisp
    480. 

  480. language specifier on the contained CODE element, the CODE element
    481. 

  481. does not wrap all non-space content.</p>
    482. 

  482. <pre class="prettyprint" id="html5conv4">
    483. 

  483. before CODE
    484. 

  484. <code class="language-lisp">; foo</code>
    485. 

  485. </pre>
    486. 

    487. 

  487. </body>
    488. 

    489. 

  489. <script type="text/javascript">
    490. 

  490. /**
    491. 

  491.  * maps ids of rewritten code to the expected output.
    492. 

  492.  * For brevity, <span class="foo"> has been changed to `FOO and close span tags
    493. 

  493.  * have been changed to `END.
    494. 

  494.  */
    495. 

  495. var goldens = {
    496. 

  496.   xquery: (
    497. 

  497.         '`COM(: \n' +
    498. 

  498.         '\tTook some of Mike Brevoort\'s xquery code samples because they are nice and show common xquery syntax \n' +
    499. 

  499.         ':)`END`PLN\n' +
    500. 

  500.         ' \n' +
    501. 

  501.         '  `END`COM(:~\n' +
    502. 

  502.         '   : Given a sequence of version URIs, publish all of these versions of each document\n' +
    503. 

  503.         '   : If there is a version of the same document already published, unpublish it 1st\n' +
    504. 

  504.         '   :\n' +
    505. 

  505.         '   : When "publish" is referred to, we mean that it is put into the PUBLISHED collection\n' +
    506. 

  506.         '   : unpublish removes content from this collection\n' +
    507. 

  507.         '   : @param $version_uris - sequence of uris of versions of managed documents to publish\n' +
    508. 

  508.         '   :)`END`PLN\n' +
    509. 

  509.         '  `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' +
    510. 

  510.         '      `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' +
    511. 

  511.         '      `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' +
    512. 

  512.         '      `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' +
    513. 

  513.         '      `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' +
    514. 

  514.         '      `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' +
    515. 

  515.         '      `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' +
    516. 

  516.         '      `END`KWDreturn`END`PLN\n' +
    517. 

  517.         '          `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' +
    518. 

  518.         '  };\n' +
    519. 

  519.         ' \n' +
    520. 

  520.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publishLatest(`END<span class="var pln">$uri`END`PLN) {\n' +
    521. 

  521.         '      `END`COM(: TODO check if it\'s in the draft collection probably :)`END`PLN\n' +
    522. 

  522.         ' \n' +
    523. 

  523.         '      `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' +
    524. 

  524.         '      `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' +
    525. 

  525.         '      `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' +
    526. 

  526.         '      `END`KWDreturn`END`PLN comoms-dls:publish(`END<span class="var pln">$latest_version_uri`END`PLN)    \n' +
    527. 

  527.         ' \n' +
    528. 

  528.         '  };\n' +
    529. 

  529.         ' \n' +
    530. 

  530.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:latestVersionUri(`END<span class="var pln">$uri`END`PLN) {\n' +
    531. 

  531.         '      `END`KWDlet`END`PLN `END<span class="var pln">$latest_version_num`END`PLN :=\n' +
    532. 

  532.         '          (\n' +
    533. 

  533.         '          `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' +
    534. 

  534.         '          `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' +
    535. 

  535.         '          `END`KWDreturn`END`PLN `END<span class="var pln">$version`END`PLN//dls:version-id/`END`KWDtext`END`PLN()\n' +
    536. 

  536.         '          )[1]\n' +
    537. 

  537.         ' \n' +
    538. 

  538.         ' \n' +
    539. 

  539.         '      `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' +
    540. 

  540.         '  };\n' +
    541. 

  541.         ' \n' +
    542. 

  542.         '  `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' +
    543. 

  543.         '      `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' +
    544. 

  544.         '      `END`KWDreturn`END`PLN\n' +
    545. 

  545.         '          `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' +
    546. 

  546.         '          `END`KWDreturn`END`PLN\n' +
    547. 

  547.         '              `END`KWDif`END`PLN(`END<span class="var pln">$published_doc`END`PLN) `END`KWDthen`END`PLN\n' +
    548. 

  548.         '                  `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' +
    549. 

  549.         '                  `END`KWDreturn`END`PLN comoms-dls:unpublishVersion(`END<span class="var pln">$published_version_uri`END`PLN)        \n' +
    550. 

  550.         '              `END`KWDelse`END`PLN\n' +
    551. 

  551.         '                  ()\n' +
    552. 

  552.         '  };\n' +
    553. 

  553.         ' \n' +
    554. 

  554.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:latestPublishedDocAuthor(`END<span class="var pln">$uri`END`PLN) {\n' +
    555. 

  555.         '      `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' +
    556. 

  556.         '      `END`KWDreturn`END`PLN\n' +
    557. 

  557.         '          `END`KWDif`END`PLN(`END<span class="var pln">$author_id`END`PLN) `END`KWDthen`END`PLN\n' +
    558. 

  558.         '              comoms-user:getUsername(`END<span class="var pln">$author_id`END`PLN)\n' +
    559. 

  559.         '          `END`KWDelse`END`PLN\n' +
    560. 

  560.         '              ()\n' +
    561. 

  561.         ' \n' +
    562. 

  562.         '  };\n' +
    563. 

  563.         ' \n' +
    564. 

  564.         '  `END`COM(:~\n' +
    565. 

  565.         '   : Given a sequence of version URIs, unpublish all of these versions of each document\n' +
    566. 

  566.         '   :)`END`PLN\n' +
    567. 

  567.         '  `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' +
    568. 

  568.         '      `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' +
    569. 

  569.         '      `END`KWDreturn`END`PLN\n' +
    570. 

  570.         '          `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' +
    571. 

  571.         '          `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' +
    572. 

  572.         '  };\n' +
    573. 

  573.         ' \n' +
    574. 

  574.         '  `END`COM(:~\n' +
    575. 

  575.         '   : Given the base URI of a managed piece of content, return the document of the node\n' +
    576. 

  576.         '   : of the version that is published\n' +
    577. 

  577.         '   :)`END`PLN\n' +
    578. 

  578.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN) {\n' +
    579. 

  579.         '      `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' +
    580. 

  580.         '  };\n' +
    581. 

  581.         ' \n' +
    582. 

  582.         ' \n' +
    583. 

  583.         '  `END`COM(:~\n' +
    584. 

  584.         '   : Test if any version of the managed document is published\n' +
    585. 

  585.         '   :)`END`PLN\n' +
    586. 

  586.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:isPublished(`END<span class="var pln">$uri`END`PLN) {\n' +
    587. 

  587.         '      `END`KWDif`END`PLN( comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN)) `END`KWDthen`END`PLN\n' +
    588. 

  588.         '          `END<span class="fun pln">fn:true`END`PLN()\n' +
    589. 

  589.         '      `END`KWDelse`END`PLN\n' +
    590. 

  590.         '          `END<span class="fun pln">fn:false`END`PLN()\n' +
    591. 

  591.         '  };\n' +
    592. 

  592.         ' \n' +
    593. 

  593.         ' \n' +
    594. 

  594.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:publishedState(`END<span class="var pln">$uri`END`PLN) {\n' +
    595. 

  595.         '      `END`KWDlet`END`PLN `END<span class="var pln">$doc`END`PLN := comoms-dls:publishedDoc(`END<span class="var pln">$uri`END`PLN)\n' +
    596. 

  596.         '      `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' +
    597. 

  597.         '      `END`KWDlet`END`PLN `END<span class="var pln">$latest`END`PLN := comoms-dls:latestVersionUri(`END<span class="var pln">$uri`END`PLN)\n' +
    598. 

  598.         '      `END`KWDreturn`END`PLN\n' +
    599. 

  599.         '          `END`KWDif`END`PLN(`END<span class="var pln">$doc`END`PLN) `END`KWDthen`END`PLN\n' +
    600. 

  600.         '              `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' +
    601. 

  601.         '                  `END`STR"stale"`END`PLN\n' +
    602. 

  602.         '              `END`KWDelse`END`PLN\n' +
    603. 

  603.         '                  `END`STR"published"`END`PLN\n' +
    604. 

  604.         '          `END`KWDelse`END`PLN\n' +
    605. 

  605.         '              `END`STR"unpublished"`END`PLN\n' +
    606. 

  606.         '  };\n' +
    607. 

  607.         ' \n' +
    608. 

  608.         ' \n' +
    609. 

  609.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:getManagedDocUri(`END<span class="var pln">$uri`END`PLN) {\n' +
    610. 

  610.         '      `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' +
    611. 

  611.         '      `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' +
    612. 

  612.         '      `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' +
    613. 

  613.         '      `END`KWDreturn`END`PLN `END<span class="var pln">$managed_uri`END`PLN\n' +
    614. 

  614.         '  };\n' +
    615. 

  615.         ' \n' +
    616. 

  616.         '  `END`COM(:~\n' +
    617. 

  617.         '   : Given a manage content url (e.g. /content/123456.xml) return the appropriate\n' +
    618. 

  618.         '   : version of the document based on what stage collection is being viewed and\n' +
    619. 

  619.         '   : what\'s published\n' +
    620. 

  620.         '   :\n' +
    621. 

  621.         '   : @param $uri a manage content url (e.g. /content/123456.xml) - NOT A VERSIONED URI\n' +
    622. 

  622.         '   :)`END`PLN\n' +
    623. 

  623.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:doc(`END<span class="var pln">$uri`END`PLN) {\n' +
    624. 

  624.         '      `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' +
    625. 

  625.         '      `END`KWDreturn`END`PLN\n' +
    626. 

  626.         '          `END`KWDif`END`PLN(`END<span class="var pln">$doc`END`PLN) `END`KWDthen`END`PLN\n' +
    627. 

  627.         '              `END<span class="var pln">$doc`END`PLN\n' +
    628. 

  628.         '          `END`KWDelse`END`PLN\n' +
    629. 

  629.         '              `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' +
    630. 

  630.         '              `END`KWDreturn`END`PLN\n' +
    631. 

  631.         '                  `END`KWDif`END`PLN(`END<span class="var pln">$managedDocInCollection`END`PLN) `END`KWDthen`END`PLN\n' +
    632. 

  632.         '                      `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN)\n' +
    633. 

  633.         '                  `END`KWDelse`END`PLN\n' +
    634. 

  634.         '                      ()\n' +
    635. 

  635.         '  };\n' +
    636. 

  636.         ' \n' +
    637. 

  637.         '  `END`COM(:~\n' +
    638. 

  638.         '   : Get the collection to be used when querying for content\n' +
    639. 

  639.         '   : THIS or comoms-dls:collection-name() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT\n' +
    640. 

  640.         '   :)`END`PLN\n' +
    641. 

  641.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:collection()  {\n' +
    642. 

  642.         '      `END<span class="fun pln">fn:collection`END`PLN( comoms-dls:collection-name() )\n' +
    643. 

  643.         '  };\n' +
    644. 

  644.         ' \n' +
    645. 

  645.         '  `END`COM(:~\n' +
    646. 

  646.         '   : Get the collection nameto be used when querying for content\n' +
    647. 

  647.         '   : THIS or comoms-dls:collection() SHOULD BE USED WHEN BUILDING ANY QUERY FOR MANAGED CONTENT\n' +
    648. 

  648.         '   :)`END`PLN\n' +
    649. 

  649.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:collection-name() `END`KWDas`END`PLN `END`TYPxs:string`END`PLN {\n' +
    650. 

  650.         '      `END`KWDlet`END`PLN `END<span class="var pln">$default_collection`END`PLN := `END`STR"PUBLISHED"`END`PLN\n' +
    651. 

  651.         '      `END`KWDreturn`END`PLN\n' +
    652. 

  652.         '          `END`KWDif`END`PLN(comoms-user:isAdmin()) `END`KWDthen`END`PLN\n' +
    653. 

  653.         '              `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' +
    654. 

  654.         '              `END`KWDreturn`END`PLN\n' +
    655. 

  655.         '                  `END`KWDif`END`PLN(`END<span class="var pln">$pub_stage_collection_cookie`END`PLN) `END`KWDthen`END`PLN\n' +
    656. 

  656.         '                      `END<span class="var pln">$pub_stage_collection_cookie`END`PLN\n' +
    657. 

  657.         '                  `END`KWDelse`END`PLN\n' +
    658. 

  658.         '                      `END<span class="var pln">$default_collection`END`PLN\n' +
    659. 

  659.         '          `END`KWDelse`END`PLN\n' +
    660. 

  660.         '              `END<span class="var pln">$default_collection`END`PLN\n' +
    661. 

  661.         '  };\n' +
    662. 

  662.         ' \n' +
    663. 

  663.         '  `END`COM(:~\n' +
    664. 

  664.         '   : Check if the published collection is being viewed\n' +
    665. 

  665.         '   :)`END`PLN\n' +
    666. 

  666.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:isViewingPublished() {\n' +
    667. 

  667.         '      `END`KWDif`END`PLN(comoms-dls:collection-name() = `END`STR"PUBLISHED"`END`PLN) `END`KWDthen`END`PLN\n' +
    668. 

  668.         '          `END<span class="fun pln">fn:true`END`PLN()\n' +
    669. 

  669.         '      `END`KWDelse`END`PLN\n' +
    670. 

  670.         '          `END<span class="fun pln">fn:false`END`PLN()\n' +
    671. 

  671.         '  };\n' +
    672. 

  672.         ' \n' +
    673. 

  673.         '  `END`COM(:~\n' +
    674. 

  674.         '   : Get the best URL for the content URI.\n' +
    675. 

  675.         '   : This is either the default URI based on detail type or should also take\n' +
    676. 

  676.         '   : into account friendly urls and navigation structures to figure out the\n' +
    677. 

  677.         '   : best choice\n' +
    678. 

  678.         '   :)`END`PLN\n' +
    679. 

  679.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:contentUrl(`END<span class="var pln">$uri`END`PLN) {\n' +
    680. 

  680.         ' \n' +
    681. 

  681.         '      `END`COM(: TODO: add friendly URL and nav structure logic 1st :)`END`PLN\n' +
    682. 

  682.         ' \n' +
    683. 

  683.         '      `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' +
    684. 

  684.         '      `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' +
    685. 

  685.         '      `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' +
    686. 

  686.         '      `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' +
    687. 

  687.         '      `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' +
    688. 

  688.         '      `END`KWDreturn`END`PLN\n' +
    689. 

  689.         '          `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' +
    690. 

  690.         '  };\n' +
    691. 

  691.         ' \n' +
    692. 

  692.         '  `END`COM(:\n' +
    693. 

  693.         '   :\n' +
    694. 

  694.         '   :  gets list of doc versions and uri.\n' +
    695. 

  695.         '   :\n' +
    696. 

  696.         '   :)`END`PLN\n' +
    697. 

  697.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:versionHistory(`END<span class="var pln">$uri`END`PLN) {\n' +
    698. 

  698.         '      `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' +
    699. 

  699.         '      `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' +
    700. 

  700.         '      `END`KWDreturn`END`PLN\n' +
    701. 

  701.         '      `END`TAG&lt;versions&gt;`END`PLN\n' +
    702. 

  702.         '          {\n' +
    703. 

  703.         '          `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' +
    704. 

  704.         '            `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' +
    705. 

  705.         '            `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' +
    706. 

  706.         '            `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' +
    707. 

  707.         '            `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' +
    708. 

  708.         ' \n' +
    709. 

  709.         ' \n' +
    710. 

  710.         '            `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' +
    711. 

  711.         '            `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' +
    712. 

  712.         '            `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' +
    713. 

  713.         '            `END`KWDreturn`END`PLN\n' +
    714. 

  714.         '              `END`TAG&lt;version&gt;`END`PLN\n' +
    715. 

  715.         '                  `END`TAG&lt;version-number&gt;`END`PLN{`END<span class="var pln">$version_num`END`PLN}`END`TAG&lt;/version-number&gt;`END`PLN\n' +
    716. 

  716.         '                  `END`TAG&lt;created&gt;`END`PLN{`END<span class="var pln">$created`END`PLN}`END`TAG&lt;/created&gt;`END`PLN                \n' +
    717. 

  717.         '                  `END`TAG&lt;author&gt;`END`PLN{`END<span class="var pln">$author`END`PLN}`END`TAG&lt;/author&gt;`END`PLN\n' +
    718. 

  718.         '                  `END`TAG&lt;published&gt;`END`PLN{`END<span class="var pln">$published`END`PLN}`END`TAG&lt;/published&gt;`END`PLN\n' +
    719. 

  719.         '                  `END`TAG&lt;version-uri&gt;`END`PLN{`END<span class="var pln">$version_uri`END`PLN}`END`TAG&lt;/version-uri&gt;`END`PLN\n' +
    720. 

  720.         '              `END`TAG&lt;/version&gt;`END`PLN  \n' +
    721. 

  721.         '          }        \n' +
    722. 

  722.         '      `END`TAG&lt;/versions&gt;`END`PLN\n' +
    723. 

  723.         '  };\n' +
    724. 

  724.         ' \n' +
    725. 

  725.         ' \n' +
    726. 

  726.         ' \n' +
    727. 

  727.         ' \n' +
    728. 

  728.         ' \n' +
    729. 

  729.         ' \n' +
    730. 

  730.         '  `END`COM(: ########################################################################### :)`END`PLN\n' +
    731. 

  731.         '  `END`COM(: PRIVATE FUNCTIONS :)`END`PLN\n' +
    732. 

  732.         '  `END`COM(: ########################################################################### :)`END`PLN\n' +
    733. 

  733.         ' \n' +
    734. 

  734.         '  `END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN comoms-dls:_import() {\n' +
    735. 

  735.         '      `END`STR"xquery version \'1.0-ml\';\n' +
    736. 

  736.         '       import module namespace dls = \'http://marklogic.com/xdmp/dls\' at \'/MarkLogic/dls.xqy\'; "`END`PLN\n' +
    737. 

  737.         '  };  \n' +
    738. 

  738.         ' \n' +
    739. 

  739.         '`END`COM(: ----\n' +
    740. 

  740.         '---- :)`END`PLN\n' +
    741. 

  741.         '`END`KWDxquery`END`PLN `END`KWDversion`END`PLN `END`STR\'1.0-ml\'`END`PLN;\n' +
    742. 

  742.         '`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' +
    743. 

  743.         ' \n' +
    744. 

  744.         '`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' +
    745. 

  745.         '{\n' +
    746. 

  746.         '  `END<span class="fun pln">xdmp:document-insert`END`PLN(\n' +
    747. 

  747.         '    `END<span class="var pln">$uri`END`PLN,\n' +
    748. 

  748.         '    `END<span class="fun pln">fn:doc`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' +
    749. 

  749.         '    `END<span class="fun pln">xdmp:document-get-permissions`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' +
    750. 

  750.         '    `END<span class="fun pln">xdmp:document-get-collections`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' +
    751. 

  751.         '    `END<span class="fun pln">xdmp:document-get-quality`END`PLN(`END<span class="var pln">$uri`END`PLN),\n' +
    752. 

  752.         '    `END<span class="var pln">$forest-ids`END`PLN\n' +
    753. 

  753.         '  )\n' +
    754. 

  754.         '};\n' +
    755. 

  755.         ' \n' +
    756. 

  756.         '`END`KWDlet`END`PLN `END<span class="var pln">$xml`END`PLN :=\n' +
    757. 

  757.         '  `END`TAG&lt;xml`END`PLN att=`END`STR"blah"`END`PLN att2=`END`STR"blah"`END`TAG&gt;`END`PLN\n' +
    758. 

  758.         '    sdasd`END`TAG&lt;b&gt;`END`PLNasdasd`END`TAG&lt;/b&gt;`END`PLN\n' +
    759. 

  759.         '  `END`TAG&lt;/xml&gt;`END`PLN\n' +
    760. 

  760.         '`END`COM(: -------- :)`END`PLN\n' +
    761. 

  761.         '`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' +
    762. 

  762.         '`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' +
    763. 

  763.         '`END`KWDwhere`END`PLN `END<span class="fun pln">fn:count`END`PLN(`END<span class="var pln">$e`END`PLN) &gt;= 10\n' +
    764. 

  764.         '`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' +
    765. 

  765.         '`END`KWDreturn`END`PLN\n' +
    766. 

  766.         '   `END`TAG&lt;big-dept&gt;`END`PLN\n' +
    767. 

  767.         '      {\n' +
    768. 

  768.         '      `END<span class="var pln">$d`END`PLN,\n' +
    769. 

  769.         '      `END`TAG&lt;headcount&gt;`END`PLN{`END<span class="fun pln">fn:count`END`PLN(`END<span class="var pln">$e`END`PLN)}`END`TAG&lt;/headcount&gt;`END`PLN,\n' +
    770. 

  770.         '      `END`TAG&lt;avgsal&gt;`END`PLN{`END<span class="fun pln">fn:avg`END`PLN(`END<span class="var pln">$e`END`PLN/salary)}`END`TAG&lt;/avgsal&gt;`END`PLN\n' +
    771. 

  771.         '      }\n' +
    772. 

  772.         '   `END`TAG&lt;/big-dept&gt;`END`PLN\n' +
    773. 

  773.         '`END`COM(: -------- :)`END`PLN\n' +
    774. 

  774.         '`END`KWDdeclare`END`PLN `END`KWDfunction`END`PLN local:depth(`END<span class="var pln">$e`END`PLN `END`KWDas`END`PLN `END`KWDnode`END`PLN()) `END`KWDas`END`PLN `END`TYPxs:integer`END`PLN\n' +
    775. 

  775.         '{\n' +
    776. 

  776.         '   `END`COM(: A node with no children has depth 1 :)`END`PLN\n' +
    777. 

  777.         '   `END`COM(: Otherwise, add 1 to max depth of children :)`END`PLN\n' +
    778. 

  778.         '   `END`KWDif`END`PLN (`END<span class="fun pln">fn:empty`END`PLN(`END<span class="var pln">$e`END`PLN/*)) `END`KWDthen`END`PLN 1\n' +
    779. 

  779.         '   `END`KWDelse`END`PLN `END<span class="fun pln">fn:max`END`PLN(`END`KWDfor`END`PLN `END<span class="var pln">$c`END`PLN `END`KWDin`END`PLN `END<span class="var pln">$e`END`PLN/* `END`KWDreturn`END`PLN local:depth(`END<span class="var pln">$c`END`PLN)) + 1\n' +
    780. 

  780.         '};\n' +
    781. 

  781.         ' \n' +
    782. 

  782.         'local:depth(`END<span class="fun pln">fn:doc`END`PLN(`END`STR"partlist.xml"`END`PLN))\n' +
    783. 

  783.         ' \n' +
    784. 

  784.         '`END`COM(: -------- :)`END`PLN\n' +
    785. 

  785.         '`END`TAG&lt;html&gt;&lt;head`END`PLN/`END`TAG&gt;&lt;body&gt;`END`PLN\n' +
    786. 

  786.         '{\n' +
    787. 

  787.         '  `END`KWDfor`END`PLN `END<span class="var pln">$act`END`PLN `END`KWDin`END`PLN `END<span class="fun pln">doc`END`PLN(`END`STR"hamlet.xml"`END`PLN)//ACT\n' +
    788. 

  788.         '  `END`KWDlet`END`PLN `END<span class="var pln">$speakers`END`PLN := `END<span class="fun pln">distinct-values`END`PLN(`END<span class="var pln">$act`END`PLN//SPEAKER)\n' +
    789. 

  789.         '  `END`KWDreturn`END`PLN\n' +
    790. 

  790.         '    `END`TAG&lt;div&gt;`END`PLN{ `END<span class="fun pln">string`END`PLN(`END<span class="var pln">$act`END`PLN/TITLE) }`END`TAG&lt;/h1&gt;`END`PLN\n' +
    791. 

  791.         '      `END`TAG&lt;ul&gt;`END`PLN\n' +
    792. 

  792.         '      {\n' +
    793. 

  793.         '        `END`KWDfor`END`PLN `END<span class="var pln">$speaker`END`PLN `END`KWDin`END`PLN `END<span class="var pln">$speakers`END`PLN\n' +
    794. 

  794.         '        `END`KWDreturn`END`PLN `END`TAG&lt;li&gt;`END`PLN{ `END<span class="var pln">$speaker`END`PLN }`END`TAG&lt;/li&gt;`END`PLN\n' +
    795. 

  795.         '      }\n' +
    796. 

  796.         '      `END`TAG&lt;/ul&gt;`END`PLN\n' +
    797. 

  797.         '    `END`TAG&lt;/div&gt;`END`PLN\n' +
    798. 

  798.         '}\n' +
    799. 

  799.         '`END`TAG&lt;/body&gt;&lt;/html&gt;`END`PLN\n' +
    800. 

  800.         '`END`COM(: -------- :)`END`PLN\n' +
    801. 

  801.         '{\n' +
    802. 

  802.         '\t`END`KWDfor`END`PLN `END<span class="var pln">$book`END`PLN `END`KWDin`END`PLN `END<span class="fun pln">doc`END`PLN(`END`STR"books.xml"`END`PLN)//book\n' +
    803. 

  803.         '        `END`KWDreturn`END`PLN\n' +
    804. 

  804.         '\t`END`KWDif`END`PLN (`END<span class="fun pln">contains`END`PLN(`END<span class="var pln">$book`END`PLN/author/`END`KWDtext`END`PLN(),`END`STR"Herbert"`END`PLN) `END`KWDor`END`PLN `END<span class="fun pln">contains`END`PLN(`END<span class="var pln">$book`END`PLN/author/`END`KWDtext`END`PLN(),`END`STR"Asimov"`END`PLN))\n' +
    805. 

  805.         '\t\t`END`KWDthen`END`PLN `END<span class="var pln">$book`END`PLN\n' +
    806. 

  806.         '\t`END`KWDelse`END`PLN `END<span class="var pln">$book`END`PLN/`END`KWDtext`END`PLN()\n' +
    807. 

  807.         '\t\n' +
    808. 

  808.         '\t`END`KWDlet`END`PLN `END<span class="var pln">$let`END`PLN := `END`TAG&lt;x&gt;`END`STR"test"`END`TAG&lt;/x&gt;`END`PLN\n' +
    809. 

  809.         '\t`END`KWDreturn`END`PLN `END`KWDelement`END`PLN `END`KWDelement`END`PLN {\n' +
    810. 

  810.         '\t`END`KWDattribute`END`PLN `END`KWDattribute`END`PLN { 1 },\n' +
    811. 

  811.         '\t`END`KWDelement`END`PLN test { `END`STR\'a\'`END`PLN },\n' +
    812. 

  812.         '\t`END`KWDattribute`END`PLN foo { `END`STR"bar"`END`PLN },\n' +
    813. 

  813.         '\t`END<span class="fun pln">fn:doc`END`PLN()[ foo/`END`LIT@bar`END`PLN `END`KWDeq`END`PLN `END<span class="var pln">$let`END`PLN ],\n' +
    814. 

  814.         '\t//x }\n' +
    815. 

  815.         '}\n' +
    816. 

  816.         '`END`COM(: -------- :)`END`PLN\n' +
    817. 

  817.         '`END`TAG&lt;bib&gt;`END`PLN\n' +
    818. 

  818.         ' {\n' +
    819. 

  819.         '  `END`KWDfor`END`PLN `END<span class="var pln">$b`END`PLN `END`KWDin`END`PLN `END<span class="fun pln">doc`END`PLN(`END`STR"http://bstore1.example.com/bib.xml"`END`PLN)/bib/book\n' +
    820. 

  820.         '  `END`KWDwhere`END`PLN `END<span class="var pln">$b`END`PLN/publisher = `END`STR"Addison-Wesley"`END`PLN `END`KWDand`END`PLN `END<span class="var pln">$b`END`PLN/`END`LIT@year`END`PLN &gt; 1991\n' +
    821. 

  821.         '  `END`KWDreturn`END`PLN\n' +
    822. 

  822.         '    `END`TAG&lt;book`END`PLN year=`END`STR"`END`PLN{ `END<span class="var pln">$b`END`PLN/`END`LIT@year`END`PLN }`END`STR"`END`TAG&gt;`END`PLN\n' +
    823. 

  823.         '     { `END<span class="var pln">$b`END`PLN/title }\n' +
    824. 

  824.         '    `END`TAG&lt;/book&gt;`END`PLN\n' +
    825. 

  825.         ' }\n' +
    826. 

  826.         '`END`TAG&lt;/bib&gt;`END`PLN\n' +
    827. 

  827.         '`END`COM(: -------- :)`END'),
    828. 

  828.   nemerle: (
    829. 

  829.         '`KWDclass`END`PLN Set `END`PUN[`END`PLN\'a`END`PUN]`END`PLN\n' +
    830. 

  830.         '`END`PUN{`END`PLN\n' +
    831. 

  831.         '  `END`KWDmutable`END`PLN storage `END`PUN:`END`PLN `END`TYPlist`END`PLN `END`PUN[`END`PLN\'a`END`PUN]`END`PLN `END`PUN=`END`PLN `END`PUN[];`END`PLN\n' +
    832. 

  832.         '  `END`KWDpublic`END`PLN Add `END`PUN(`END`PLNe `END`PUN:`END`PLN \'a`END`PUN)`END`PLN `END`PUN:`END`PLN `END`TYPvoid`END`PLN\n' +
    833. 

  833.         '  `END`PUN{`END`PLN\n' +
    834. 

  834.         '    `END`KWDwhen`END`PLN `END`PUN(!`END`PLN Contains `END`PUN(`END`PLNe`END`PUN))`END`PLN\n' +
    835. 

  835.         '      storage `END`PUN::=`END`PLN e`END`PUN;`END`PLN\n' +
    836. 

  836.         '  `END`PUN}`END`PLN\n' +
    837. 

  837.         '  `END`KWDpublic`END`PLN Contains `END`PUN(`END`PLNe `END`PUN:`END`PLN \'a`END`PUN)`END`PLN `END`PUN:`END`PLN `END`TYPbool`END`PLN\n' +
    838. 

  838.         '  `END`PUN{`END`PLN\n' +
    839. 

  839.         '    storage`END`PUN.`END`PLNContains `END`PUN(`END`PLNe`END`PUN)`END`PLN\n' +
    840. 

  840.         '  `END`PUN}`END`PLN\n' +
    841. 

  841.         '`END`PUN}`END`PLN\n' +
    842. 

  842.         ' \n' +
    843. 

  843.         '`END`KWDdef`END`PLN s1 `END`PUN=`END`PLN Set `END`PUN();`END`PLN\n' +
    844. 

  844.         's1`END`PUN.`END`PLNAdd `END`PUN(`END`LIT3`END`PUN);`END`PLN\n' +
    845. 

  845.         's1`END`PUN.`END`PLNAdd `END`PUN(`END`LIT42`END`PUN);`END`PLN\n' +
    846. 

  846.         '`END`KWDassert`END`PLN `END`PUN(`END`PLNs1`END`PUN.`END`PLNContains `END`PUN(`END`LIT3`END`PUN));`END`PLN\n' +
    847. 

  847.         '`END`COM// s1.Add ("foo"); // error here!`END`PLN\n' +
    848. 

  848.         '`END`KWDdef`END`PLN s2 `END`PUN=`END`PLN Set `END`PUN();`END`PLN\n' +
    849. 

  849.         's2`END`PUN.`END`PLNAdd `END`PUN(`END`STR"foo"`END`PUN);`END`PLN\n' +
    850. 

  850.         '`END`KWDassert`END`PLN `END`PUN(`END`PLNs2`END`PUN.`END`PLNContains `END`PUN(`END`STR"foo"`END`PUN));`END'),
    851. 

  851.   latex: (
    852. 

  852.         '`COM% resume.tex`END`PLN\n' +
    853. 

  853.         '`END`COM% vim:set ft=tex spell:`END`PLN\n' +
    854. 

  854.         '`END`KWD\\documentclass`END`PUN[`END`LIT10pt`END`PLN,letterpaper`END`PUN]{`END`PLNarticle`END`PUN}`END`PLN\n' +
    855. 

  855.         '`END`KWD\\usepackage`END`PUN[`END`PLNletterpaper,margin`END`PUN=`END`LIT0.8in`END`PUN]{`END`PLNgeometry`END`PUN}`END`PLN\n' +
    856. 

  856.         '`END`KWD\\usepackage`END`PUN{`END`PLNmdwlist`END`PUN}`END`PLN\n' +
    857. 

  857.         '`END`KWD\\usepackage`END`PUN[`END`PLNT1`END`PUN]{`END`PLNfontenc`END`PUN}`END`PLN\n' +
    858. 

  858.         '`END`KWD\\usepackage`END`PUN{`END`PLNtextcomp`END`PUN}`END`PLN\n' +
    859. 

  859.         '`END`KWD\\pagestyle`END`PUN{`END`PLNempty`END`PUN}`END`PLN\n' +
    860. 

  860.         '`END`KWD\\setlength`END`PUN{`END`KWD\\tabcolsep`END`PUN}{`END`LIT0em`END`PUN}`END'
    861. 

  861.         ),
    862. 

  862.   issue144: (
    863. 

  863.         '`COM#! /bin/bash`END`PLN\n' +
    864. 

  864.         '`END`COM# toascii.sh`END`PLN\n' +
    865. 

  865.         '`END`KWDfor`END`PLN i `END`KWDin`END`PLN $`END`PUN(`END`PLNecho $`END`PUN*' +
    866. 

  866.           '`END`PLN `END`PUN|`END`PLN fold `END`PUN-`END`PLNw `END`LIT1`END`PUN);`END' +
    867. 

  867.           '`KWDdo`END`PLN\n' +
    868. 

  868.         '  printf `END`STR"%x "`END`PLN \\\'$i`END`PUN;`END`PLN\n' +
    869. 

  869.         '`END`KWDdone`END`PUN;`END`PLN\n' +
    870. 

  870.         'echo`END'
    871. 

  871.         ),
    872. 

  872.   clojure: '`COM; Clojure test comment`END`PLN\n' +
    873. 

  873.         '`END`OPN(`END`KWDns`END`PLN test\n' +
    874. 

  874.         ' `END`OPN(`END`TYP:gen-class`END`CLO))`END`PLN\n' +
    875. 

  875.         '\n' +
    876. 

  876.         '`END`OPN(`END`KWDdef`END`PLN foo `END`STR"bar"`END`CLO)`END`PLN\n' +
    877. 

  877.         '`END`OPN(`END`KWDdefn`END`PLN bar `END`OPN[`END`PLNarg1 arg2 &amp; args`END`CLO]`END`PLN\n' +
    878. 

  878.         '  `END`STR"sample function"`END`PLN\n' +
    879. 

  879.         '  `END`OPN(`END`KWDfor`END`PLN `END`OPN[`END`PLNarg args`END`CLO]`END`PLN\n' +
    880. 

  880.         '    `END`OPN(`END`KWDprn`END`PLN arg`END`CLO)))`END`PLN\n' +
    881. 

  881.         '\n' +
    882. 

  882.         '`END`OPN(`END`PLNbar `END`STR"foo"`END`PLN `END`STR"bar"`END`PLN `END`STR"blah"`END`PLN `END`TYP:baz`END`CLO)`END',
    883. 

  883.   html5conv1: '`COM; foo`END',
    884. 

  884.   html5conv2: '<code class="language-lisp">`COM; foo`END</code>',
    885. 

  885.   html5conv3: ('<code class="language-lisp">`PLN\n' +
    886. 

  886.       '`END`COM; foo`END`PLN\n' +
    887. 

  887.       '`END</code>\n'),
    888. 

  888.   html5conv4: ('`PLNbefore CODE\n' +
    889. 

  889.       '`END<code class="language-lisp">`PUN;`END`PLN foo`END</code>\n')
    890. 

  890. };
    891. 

  891. </script>
    892. 

  892. 

  893. </html>
    894. 

  894.