Commit 40435a31 authored by MARCHE Claude's avatar MARCHE Claude

why3webserver

parent 7e27cce9
......@@ -5,14 +5,13 @@
<title>Why3</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="why3.css" />
<link rel="stylesheet" type="text/css" href="why3_custom.css"/>
<!-- link rel="stylesheet" type="text/css" href="why3_custom.css"/ -->
</head>
<body id="body" style="background-color:#e0e0a0">
<p>
<button id="b1" onClick="sendRequest('list-provers');">List provers</button>
<button id="b2" onClick="sendRequest('session');">Button 2</button>
<button id="b3" onclick="startNotificationHandler()">Start notification handler</button>
<button id="b4" onclick="stopNotificationHandler()">Stop notification handler</button>
<button id="b2" onClick="sendRequest('reload');">Reload</button>
</p>
<div id="why3-main-panel" class="why3-wide-view">
<div id="why3-editor-container" class="why3-container">
......
......@@ -28,8 +28,9 @@ open Format
let interp_request args =
match args with
| "list-provers" -> (Command_req (root_node,"list-provers"))
| _ -> invalid_arg "Why3web.interp_request"
| "reload" -> Reload_req
| "list-provers" -> Command_req (root_node,"list-provers")
| _ -> invalid_arg ("Why3web.interp_request '" ^ args ^ "'")
open Json
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment