File: index.html

package info (click to toggle)
js-of-ocaml 5.9.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,020 kB
  • sloc: ml: 91,250; javascript: 57,289; ansic: 315; makefile: 271; lisp: 23; sh: 6; perl: 4
file content (32 lines) | stat: -rw-r--r-- 1,030 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
          "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>Namespaces</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <script type="text/javascript" src="a.js"></script>
    <script type="text/javascript" src="b.js"></script>
    <script type="text/javascript">
      function shouldRaise(f) {
	try {
	  f();
	  throw new Error ("should have raised");
	} catch (e) { console.log("OK"); return }
      }
      function shouldNotRaise(f) {
	try {
	  f();
	  console.log("OK");
	  return
	} catch (e) { throw new Error ("should have raised"); }
      }
      var a = implemA(globalThis);
      var b = implemB(globalThis);
      shouldNotRaise (() => a.tryWith(a.raise));
      shouldNotRaise (() => b.tryWith(b.raise));
      shouldRaise(() => a.tryWith(b.raise));
      shouldRaise(() => b.tryWith(a.raise));
    </script>
  </head>
</html>