20 if (readCookie("session") == null) {
21 window.location = "/login.html"
23 locked = document.getElementById("locked");
24 unlocked = document.getElementById("unlocked");
25 workarea = document.getElementById("workarea");
26 scriptcell = document.getElementById("scriptcell");
27 goalcell = document.getElementById("goalcell");
28 goals = document.getElementById("goals");
29 goalview = document.getElementById("goalview");
30 filename = document.getElementById("filename");
31 logarea = document.getElementById("logarea");
32 advanceButton = document.getElementById("advance");
33 retractButton = document.getElementById("retract");
34 cursorButton = document.getElementById("cursor");
35 bottomButton = document.getElementById("bottom");
36 dialogBox = document.getElementById("dialogBox");
37 dialogTitle = document.getElementById("dialogTitle");
39 // hide sequent view at start
46 // internet explorer (v.9) doesn't work with innerHTML
47 logarea.innerText = txt + "\n" + logarea.innerText;
53 debug("hd of '" + l + "' = '" + ar[0] + "'");
61 debug("tl of '" + l + "' = '" + tl + "'");
65 function listcons(x,l)
67 debug("cons '" + x + "' on '" + l + "'");
81 function fold_left (f,acc,l)
84 { debug("'" + l + "' is fold end");
87 { debug("'" + l + "' is fold cons");
88 return(fold_left (f,f(acc,(listhd(l))),listtl(l))); }
91 function listiter (f,l)
94 { debug("'" + l + "' is nil");
99 debug("'" + l + "' is not nil");
101 listiter(f,listtl(l));
105 function listmap (f,l)
107 debug("listmap on " + l);
109 { debug("returning listnil");
113 { debug("cons f(hd) map(f,tl)");
114 return(f(listhd(l)) + "#" + listmap(f,listtl(l)));
118 var statements = listnil();
121 var metalist = listnil();
123 function pairmap (f,p)
125 debug("pairmap of '" + p + "'");
127 return (f(ar[0],ar[1]));
130 function tripletmap (f,p)
132 debug("tripletmap of '" + p + "'");
134 return (f(ar[0],ar[1],ar[2]));
140 return (pairmap (function (a,b) { return (a); }, p));
146 return (tripletmap (function (a,b,c) { return (a); }, p));
152 return (tripletmap (function (a,b,c) { return (b); }, p));
158 return (tripletmap (function (a,b,c) { return (c); }, p));
161 function populate_goalarray(menv)
163 debug("metasenv.length = " + menv.length);
164 if (menv.length == 0) {
170 goalarray = new Array();
171 metalist = listnil();
172 var tmp_goallist = "";
173 for (i = 0; i < menv.length; i++) {
174 metano = menv[i].getAttribute("number");
175 metaname = menv[i].childNodes[0].childNodes[0].data;
176 goal = menv[i].childNodes[1].childNodes[0].data;
177 debug ("found meta n. " + metano);
178 debug ("found goal\nBEGIN" + goal + "\nEND");
179 goalarray[metano] = goal;
180 tmp_goallist = " <A href=\"javascript:switch_goal(" + metano + ")\">" + metaname + "</A>" + tmp_goallist;
181 metalist = listcons(metano,metalist);
182 debug ("goalarray[\"" + metano + "\"] = " + goalarray[metano]);
184 goals.innerHTML = tmp_goallist;
185 debug("new metalist is '" + metalist + "'");
186 if (is_nil(metalist)) {
190 switch_goal(listhd(metalist));
195 function switch_goal(meta)
197 if (typeof meta == "undefined") {
198 goalview.innerHTML = "";
201 debug("switch_goal " + meta + "\n" + goalarray[meta]);
202 goalview.innerHTML = "<B>Goal ?" + meta + ":</B>\n\n" + goalarray[meta];
206 String.prototype.sescape = function() {
212 result = result.replace(patt1,"%25");
213 result = result.replace(patt2,"%3D");
214 result = result.replace(patt3,"%26");
215 result = result.replace(patt4,"%2B");
219 String.prototype.unescapeHTML = function()
221 var patt1 = /<br(\/|)>/gi;
222 var patt2 = /</gi;
223 var patt3 = />/gi;
225 result = result.replace(patt1,"\n");
226 result = result.replace(patt2,"<");
227 result = result.replace(patt3,">");
228 return (unescape(result));
233 advanceButton.disabled = true;
234 retractButton.disabled = true;
235 cursorButton.disabled = true;
236 bottomButton.disabled = true;
241 advanceButton.disabled = false;
242 retractButton.disabled = false;
243 cursorButton.disabled = false;
244 bottomButton.disabled = false;
247 function is_defined(x)
249 return (typeof x != "undefined");
252 /* servicename: name of the service being called
253 * reqbody: text of the request
254 * processResponse: processes the server response
255 * (takes the response text in input, undefined in case of error)
257 function callServer(servicename,processResponse,reqbody)
261 if (window.XMLHttpRequest)
263 req = new XMLHttpRequest();
265 else if (window.ActiveXObject)
268 req = new ActiveXObject("Msxml2.XMLHTTP");
272 req = new ActiveXObject("Microsoft.XMLHTTP");
276 req.onreadystatechange = function()
284 stxt = req.statusText;
287 debug(req.responseText);
288 if (window.DOMParser) {
289 parser=new DOMParser();
290 xmlDoc=parser.parseFromString(req.responseText,"text/xml");
292 else // Internet Explorer
294 xmlDoc=new ActiveXObject("Microsoft.XMLDOM");
295 xmlDoc.async="false";
296 xmlDoc.loadXML(req.responseText);
298 processResponse(xmlDoc);
304 req.open("POST", servicename); // + escape(unlocked.innerHTML), true);
305 req.setRequestHeader("Content-type","application/x-www-form-urlencoded");
314 function advanceForm1()
316 processor = function(xml) {
317 if (is_defined(xml)) {
318 // debug("advance: received response\nBEGIN\n" + req.responseText + "\nEND");
319 len = parseInt(xml.getElementsByTagName("parsed")[0].getAttribute("length"));
320 len0 = unlocked.innerHTML.length;
321 unescaped = unlocked.innerHTML.unescapeHTML();
322 parsedtxt = unescaped.substr(0,len);
323 unparsedtxt = unescaped.substr(len);
324 locked.innerHTML = locked.innerHTML + parsedtxt;
325 unlocked.innerHTML = unparsedtxt;
326 len1 = unlocked.innerHTML.length;
328 metasenv = xml.getElementsByTagName("meta");
329 populate_goalarray(metasenv);
330 statements = listcons(len2,statements);
331 unlocked.scrollIntoView(true);
333 debug("advance failed");
338 callServer("advance",processor,"body=" + (unlocked.innerHTML.unescapeHTML()).sescape());
342 function gotoBottom()
344 processor = function(xml) {
345 if (is_defined(xml)) {
346 // debug("goto bottom: received response\nBEGIN\n" + req.responseText + "\nEND");
347 len = parseInt(xml.getElementsByTagName("parsed")[0].getAttribute("length"));
348 len0 = unlocked.innerHTML.length;
349 unescaped = unlocked.innerHTML.unescapeHTML();
350 parsedtxt = unescaped.substr(0,len);
351 unparsedtxt = unescaped.substr(len);
352 locked.innerHTML = locked.innerHTML + parsedtxt;
353 unlocked.innerHTML = unparsedtxt;
354 len1 = unlocked.innerHTML.length;
356 metasenv = xml.getElementsByTagName("meta");
357 populate_goalarray(metasenv);
358 statements = listcons(len2,statements);
359 unlocked.scrollIntoView(true);
361 debug("goto bottom failed");
366 callServer("bottom",processor,"body=" + (unlocked.innerHTML.unescapeHTML()).sescape());
371 function gotoPos(offset)
373 if (!is_defined(offset)) {
374 offset = getCursorPos();
376 processor = function(xml) {
377 if (is_defined(xml)) {
378 // debug("goto pos: received response\nBEGIN\n" + req.responseText + "\nEND");
379 len = parseInt(xml.getElementsByTagName("parsed")[0].getAttribute("length"));
380 len0 = unlocked.innerHTML.length;
381 unescaped = unlocked.innerHTML.unescapeHTML();
382 parsedtxt = unescaped.substr(0,len);
383 unparsedtxt = unescaped.substr(len);
384 locked.innerHTML = locked.innerHTML + parsedtxt;
385 unlocked.innerHTML = unparsedtxt;
386 len1 = unlocked.innerHTML.length;
388 metasenv = xml.getElementsByTagName("meta");
389 // populate_goalarray(metasenv);
390 statements = listcons(len2,statements);
391 unlocked.scrollIntoView(true);
392 // la populate non andrebbe fatta a ogni passo
394 populate_goalarray(metasenv);
397 gotoPos(offset - len);
400 unlocked.scrollIntoView(true);
401 populate_goalarray(metasenv);
406 callServer("advance",processor,"body=" + (unlocked.innerHTML.unescapeHTML()).sescape());
411 processor = function(xml) {
412 if (typeof xml != "undefined") {
413 // debug("advance: received response\nBEGIN\n" + req.responseText + "\nEND");
414 statementlen = parseInt(listhd(statements));
415 statements = listtl(statements);
416 lockedlen = locked.innerHTML.length - statementlen;
417 statement = locked.innerHTML.substr(lockedlen, statementlen);
418 locked.innerHTML = locked.innerHTML.substr(0,lockedlen);
419 unlocked.innerHTML = statement + unlocked.innerHTML;
420 metasenv = xml.getElementsByTagName("meta");
421 populate_goalarray(metasenv);
422 unlocked.scrollIntoView(true);
424 debug("retract failed");
430 callServer("retract",processor);
436 processor = function(xml)
438 if (is_defined(xml)) {
439 locked.innerHTML = "";
440 unlocked.innerHTML = xml.documentElement.textContent;
442 debug("file open failed");
445 callServer("open",processor,"file=" + escape(filename.value));
450 function hideSequent() {
451 goalcell.parentNode.removeChild(goalcell);
452 scriptcell.setAttribute("colspan","2");
455 function showSequent() {
456 scriptcell.setAttribute("colspan","1");
457 workarea.appendChild(goalcell);
460 function showDialog(title) {
462 dialogBox.display = "block";
463 dialogTitle.innerHTML = title;
466 function removeElement(id) {
467 var element = document.getElementById(id);
468 element.parentNode.removeChild(element);
471 function getCursorPos() {
473 if (window.getSelection) {
474 var selObj = window.getSelection();
475 var selRange = selObj.getRangeAt(0);
476 //cursorPos = findNode(selObj.anchorNode.parentNode.childNodes, selObj.anchorNode) + selObj.anchorOffset;
477 cursorPos = findNode(unlocked.childNodes, selObj.anchorNode,0) + selObj.anchorOffset;
478 /* FIXME the following works wrong in Opera when the document is longer than 32767 chars */
481 else if (document.selection) {
482 var range = document.selection.createRange();
483 var bookmark = range.getBookmark();
484 /* FIXME the following works wrong when the document is longer than 65535 chars */
485 cursorPos = bookmark.charCodeAt(2) - 11; /* Undocumented function [3] */
490 function findNode(list, node, acc) {
491 for (var i = 0; i < list.length; i++) {
492 if (list[i] == node) {
493 // debug("success " + i);
496 if (list[i].hasChildNodes()) {
498 // debug("recursion on node " + i);
499 return (findNode(list[i].childNodes,node,acc))
501 catch (e) { /* debug("recursion failed"); */ }
503 sandbox = document.getElementById("sandbox");
504 dup = list[i].cloneNode(true);
505 sandbox.appendChild(dup);
506 // debug("fail " + i + ": " + sandbox.innerHTML);
507 acc += sandbox.innerHTML.length;
508 sandbox.removeChild(dup);
514 debug("cursor test: " + unlocked.innerHTML.substr(0,getCursorPos()));
517 function readCookie(name) {
518 var nameEQ = name + "=";
519 var ca = document.cookie.split(';');
520 for(var i=0;i < ca.length;i++) {
522 while (c.charAt(0)==' ') c = c.substring(1,c.length);
523 if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
528 function delete_cookie ( cookie_name )
530 var cookie_date = new Date(); // current date & time
531 cookie_date.setTime ( cookie_date.getTime() - 1 );
532 document.cookie = cookie_name += "=; expires=" + cookie_date.toGMTString();
535 function delete_session()
537 delete_cookie("session");