21 if (readCookie("session") == null) {
22 window.location = "/login.html"
24 locked = document.getElementById("locked");
25 unlocked = document.getElementById("unlocked");
26 workarea = document.getElementById("workarea");
27 scriptcell = document.getElementById("scriptcell");
28 goalcell = document.getElementById("goalcell");
29 goals = document.getElementById("goals");
30 goalview = document.getElementById("goalview");
31 filename = document.getElementById("filename");
32 logarea = document.getElementById("logarea");
33 advanceButton = document.getElementById("advance");
34 retractButton = document.getElementById("retract");
35 cursorButton = document.getElementById("cursor");
36 bottomButton = document.getElementById("bottom");
37 dialogBox = document.getElementById("dialogBox");
38 dialogTitle = document.getElementById("dialogTitle");
39 dialogContent = document.getElementById("dialogContent");
41 // hide sequent view at start
44 // initialize keyboard events in the unlocked script
45 init_keyboard(unlocked);
49 function init_keyboard(target)
51 if (target.addEventListener)
53 // target.addEventListener("keydown",keydown,false);
54 target.addEventListener("keypress",keypress,false);
55 // target.addEventListener("keyup",keyup,false);
56 // target.addEventListener("textInput",textinput,false);
58 else if (target.attachEvent)
60 // target.attachEvent("onkeydown", keydown);
61 target.attachEvent("onkeypress", keypress);
62 // target.attachEvent("onkeyup", keyup);
63 // target.attachEvent("ontextInput", textinput);
67 // target.onkeydown= keydown;
68 target.onkeypress= keypress;
69 // target.onkeyup= keyup;
70 // target.ontextinput= textinput; // probably doesn't work
77 if (n == null) return 'undefined';
79 if (n >= 32 && n < 127) s+= ' (' + String.fromCharCode(n) + ')';
80 while (s.length < 9) s+= ' ';
84 function pressmesg(w,e)
86 debug(w + ' keyCode=' + keyval(e.keyCode) +
87 ' which=' + keyval(e.which) +
88 ' charCode=' + keyval(e.charCode) +
89 '\n shiftKey='+e.shiftKey
90 + ' ctrlKey='+e.ctrlKey
92 + ' metaKey='+e.metaKey);
95 function suppressdefault(e,flag)
99 if (e.preventDefault) e.preventDefault();
100 if (e.stopPropagation) e.stopPropagation();
108 pressmesg('keypress',e);
109 return suppressdefault(e,/*document.testform.keypress.checked*/ false);
114 // internet explorer (v.9) doesn't work with innerHTML
115 // but google chrome's innerText is, in a sense, "write only"
116 // what should we do?
117 logarea.innerText = txt + "\n" + logarea.innerText;
123 debug("hd of '" + l + "' = '" + ar[0] + "'");
131 debug("tl of '" + l + "' = '" + tl + "'");
135 function listcons(x,l)
137 debug("cons '" + x + "' on '" + l + "'");
138 return (x + "#" + l);
151 function fold_left (f,acc,l)
154 { debug("'" + l + "' is fold end");
157 { debug("'" + l + "' is fold cons");
158 return(fold_left (f,f(acc,(listhd(l))),listtl(l))); }
161 function listiter (f,l)
164 { debug("'" + l + "' is nil");
169 debug("'" + l + "' is not nil");
171 listiter(f,listtl(l));
175 function listmap (f,l)
177 debug("listmap on " + l);
179 { debug("returning listnil");
183 { debug("cons f(hd) map(f,tl)");
184 return(f(listhd(l)) + "#" + listmap(f,listtl(l)));
188 var statements = listnil();
191 var metalist = listnil();
193 function pairmap (f,p)
195 debug("pairmap of '" + p + "'");
197 return (f(ar[0],ar[1]));
200 function tripletmap (f,p)
202 debug("tripletmap of '" + p + "'");
204 return (f(ar[0],ar[1],ar[2]));
210 return (pairmap (function (a,b) { return (a); }, p));
216 return (tripletmap (function (a,b,c) { return (a); }, p));
222 return (tripletmap (function (a,b,c) { return (b); }, p));
228 return (tripletmap (function (a,b,c) { return (c); }, p));
231 function populate_goalarray(menv)
233 debug("metasenv.length = " + menv.length);
234 if (menv.length == 0) {
240 goalarray = new Array();
241 metalist = listnil();
242 var tmp_goallist = "";
243 for (i = 0; i < menv.length; i++) {
244 metano = menv[i].getAttribute("number");
245 metaname = menv[i].childNodes[0].childNodes[0].data;
246 goal = menv[i].childNodes[1].childNodes[0].data;
247 debug ("found meta n. " + metano);
248 debug ("found goal\nBEGIN" + goal + "\nEND");
249 goalarray[metano] = goal;
250 tmp_goallist = " <A href=\"javascript:switch_goal(" + metano + ")\">" + metaname + "</A>" + tmp_goallist;
251 metalist = listcons(metano,metalist);
252 debug ("goalarray[\"" + metano + "\"] = " + goalarray[metano]);
254 goals.innerHTML = tmp_goallist;
255 debug("new metalist is '" + metalist + "'");
256 if (is_nil(metalist)) {
260 switch_goal(listhd(metalist));
265 function switch_goal(meta)
267 if (typeof meta == "undefined") {
268 goalview.innerHTML = "";
271 debug("switch_goal " + meta + "\n" + goalarray[meta]);
272 goalview.innerHTML = "<B>Goal ?" + meta + ":</B>\n\n" + goalarray[meta];
276 String.prototype.sescape = function() {
282 result = result.replace(patt1,"%25");
283 result = result.replace(patt2,"%3D");
284 result = result.replace(patt3,"%26");
285 result = result.replace(patt4,"%2B");
289 String.prototype.unescapeHTML = function()
291 var patt1 = /<br(\/|)>/gi;
292 var patt2 = /</gi;
293 var patt3 = />/gi;
295 result = result.replace(patt1,"\n");
296 result = result.replace(patt2,"<");
297 result = result.replace(patt3,">");
298 return (unescape(result));
303 advanceButton.disabled = true;
304 retractButton.disabled = true;
305 cursorButton.disabled = true;
306 bottomButton.disabled = true;
311 advanceButton.disabled = false;
312 retractButton.disabled = false;
313 cursorButton.disabled = false;
314 bottomButton.disabled = false;
317 function is_defined(x)
319 return (typeof x != "undefined");
322 /* servicename: name of the service being called
323 * reqbody: text of the request
324 * processResponse: processes the server response
325 * (takes the response text in input, undefined in case of error)
327 function callServer(servicename,processResponse,reqbody)
331 if (window.XMLHttpRequest)
333 req = new XMLHttpRequest();
335 else if (window.ActiveXObject)
338 req = new ActiveXObject("Msxml2.XMLHTTP");
342 req = new ActiveXObject("Microsoft.XMLHTTP");
346 req.onreadystatechange = function()
354 stxt = req.statusText;
357 debug(req.responseText);
358 if (window.DOMParser) {
359 parser=new DOMParser();
360 xmlDoc=parser.parseFromString(req.responseText,"text/xml");
362 else // Internet Explorer
364 xmlDoc=new ActiveXObject("Microsoft.XMLDOM");
365 xmlDoc.async="false";
366 xmlDoc.loadXML(req.responseText);
368 processResponse(xmlDoc);
374 req.open("POST", servicename); // + escape(unlocked.innerHTML), true);
375 req.setRequestHeader("Content-type","application/x-www-form-urlencoded");
384 function advanceForm1()
386 processor = function(xml) {
387 if (is_defined(xml)) {
388 // debug("advance: received response\nBEGIN\n" + req.responseText + "\nEND");
389 len = parseInt(xml.getElementsByTagName("parsed")[0].getAttribute("length"));
390 len0 = unlocked.innerHTML.length;
391 unescaped = unlocked.innerHTML.unescapeHTML();
392 parsedtxt = unescaped.substr(0,len);
393 unparsedtxt = unescaped.substr(len);
394 locked.innerHTML = locked.innerHTML + parsedtxt;
395 unlocked.innerHTML = unparsedtxt;
396 len1 = unlocked.innerHTML.length;
398 metasenv = xml.getElementsByTagName("meta");
399 populate_goalarray(metasenv);
400 statements = listcons(len2,statements);
401 unlocked.scrollIntoView(true);
403 debug("advance failed");
408 callServer("advance",processor,"body=" + (unlocked.innerHTML.unescapeHTML()).sescape());
412 function gotoBottom()
414 processor = function(xml) {
415 if (is_defined(xml)) {
416 // debug("goto bottom: received response\nBEGIN\n" + req.responseText + "\nEND");
417 len = parseInt(xml.getElementsByTagName("parsed")[0].getAttribute("length"));
418 len0 = unlocked.innerHTML.length;
419 unescaped = unlocked.innerHTML.unescapeHTML();
420 parsedtxt = unescaped.substr(0,len);
421 unparsedtxt = unescaped.substr(len);
422 locked.innerHTML = locked.innerHTML + parsedtxt;
423 unlocked.innerHTML = unparsedtxt;
424 len1 = unlocked.innerHTML.length;
426 metasenv = xml.getElementsByTagName("meta");
427 populate_goalarray(metasenv);
428 statements = listcons(len2,statements);
429 unlocked.scrollIntoView(true);
431 debug("goto bottom failed");
436 callServer("bottom",processor,"body=" + (unlocked.innerHTML.unescapeHTML()).sescape());
441 function gotoPos(offset)
443 if (!is_defined(offset)) {
444 offset = getCursorPos();
446 processor = function(xml) {
447 if (is_defined(xml)) {
448 // debug("goto pos: received response\nBEGIN\n" + req.responseText + "\nEND");
449 len = parseInt(xml.getElementsByTagName("parsed")[0].getAttribute("length"));
450 len0 = unlocked.innerHTML.length;
451 unescaped = unlocked.innerHTML.unescapeHTML();
452 parsedtxt = unescaped.substr(0,len);
453 unparsedtxt = unescaped.substr(len);
454 locked.innerHTML = locked.innerHTML + parsedtxt;
455 unlocked.innerHTML = unparsedtxt;
456 len1 = unlocked.innerHTML.length;
458 metasenv = xml.getElementsByTagName("meta");
459 // populate_goalarray(metasenv);
460 statements = listcons(len2,statements);
461 unlocked.scrollIntoView(true);
462 // la populate non andrebbe fatta a ogni passo
464 populate_goalarray(metasenv);
467 gotoPos(offset - len);
470 unlocked.scrollIntoView(true);
471 populate_goalarray(metasenv);
476 callServer("advance",processor,"body=" + (unlocked.innerHTML.unescapeHTML()).sescape());
481 processor = function(xml) {
482 if (typeof xml != "undefined") {
483 // debug("advance: received response\nBEGIN\n" + req.responseText + "\nEND");
484 statementlen = parseInt(listhd(statements));
485 statements = listtl(statements);
486 lockedlen = locked.innerHTML.length - statementlen;
487 statement = locked.innerHTML.substr(lockedlen, statementlen);
488 locked.innerHTML = locked.innerHTML.substr(0,lockedlen);
489 unlocked.innerHTML = statement + unlocked.innerHTML;
490 metasenv = xml.getElementsByTagName("meta");
491 populate_goalarray(metasenv);
492 unlocked.scrollIntoView(true);
494 debug("retract failed");
500 callServer("retract",processor);
506 processor = function(xml)
508 if (is_defined(xml)) {
509 locked.innerHTML = "";
510 unlocked.innerHTML = xml.documentElement.textContent;
512 debug("file open failed");
515 callServer("open",processor,"file=" + escape(filename.value));
518 function retrieveFile(thefile)
520 processor = function(xml)
522 if (is_defined(xml)) {
523 locked.innerHTML = "";
524 unlocked.innerHTML = xml.documentElement.textContent;
526 debug("file open failed");
529 dialogBox.style.display = "none";
530 callServer("open",processor,"file=" + escape(thefile));
533 function showLibrary()
537 if (window.XMLHttpRequest)
539 req = new XMLHttpRequest();
541 else if (window.ActiveXObject)
544 req = new ActiveXObject("Msxml2.XMLHTTP");
548 req = new ActiveXObject("Microsoft.XMLHTTP");
552 req.onreadystatechange = function()
560 stxt = req.statusText;
563 debug(req.responseText);
564 showDialog("<H2>Library</H2>",req.responseText);
568 req.open("POST", "viewlib"); // + escape(unlocked.innerHTML), true);
569 req.setRequestHeader("Content-type","application/x-www-form-urlencoded");
576 function hideSequent() {
577 goalcell.parentNode.removeChild(goalcell);
578 scriptcell.setAttribute("colspan","2");
581 function showSequent() {
582 scriptcell.setAttribute("colspan","1");
583 workarea.appendChild(goalcell);
586 function showDialog(title,content) {
587 dialogTitle.innerHTML = title;
588 dialogContent.innerHTML = content;
589 dialogBox.style.display = "block";
592 function removeElement(id) {
593 var element = document.getElementById(id);
594 element.parentNode.removeChild(element);
597 function getCursorPos() {
599 if (window.getSelection) {
600 var selObj = window.getSelection();
601 var selRange = selObj.getRangeAt(0);
602 //cursorPos = findNode(selObj.anchorNode.parentNode.childNodes, selObj.anchorNode) + selObj.anchorOffset;
603 cursorPos = findNode(unlocked.childNodes, selObj.anchorNode,0) + selObj.anchorOffset;
604 /* FIXME the following works wrong in Opera when the document is longer than 32767 chars */
607 else if (document.selection) {
608 var range = document.selection.createRange();
609 var bookmark = range.getBookmark();
610 /* FIXME the following works wrong when the document is longer than 65535 chars */
611 cursorPos = bookmark.charCodeAt(2) - 11; /* Undocumented function [3] */
616 function findNode(list, node, acc) {
617 for (var i = 0; i < list.length; i++) {
618 if (list[i] == node) {
619 // debug("success " + i);
622 if (list[i].hasChildNodes()) {
624 // debug("recursion on node " + i);
625 return (findNode(list[i].childNodes,node,acc))
627 catch (e) { /* debug("recursion failed"); */ }
629 sandbox = document.getElementById("sandbox");
630 dup = list[i].cloneNode(true);
631 sandbox.appendChild(dup);
632 // debug("fail " + i + ": " + sandbox.innerHTML);
633 acc += sandbox.innerHTML.length;
634 sandbox.removeChild(dup);
640 debug("cursor test: " + unlocked.innerHTML.substr(0,getCursorPos()));
643 function readCookie(name) {
644 var nameEQ = name + "=";
645 var ca = document.cookie.split(';');
646 for(var i=0;i < ca.length;i++) {
648 while (c.charAt(0)==' ') c = c.substring(1,c.length);
649 if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
654 function delete_cookie ( cookie_name )
656 var cookie_date = new Date(); // current date & time
657 cookie_date.setTime ( cookie_date.getTime() - 1 );
658 document.cookie = cookie_name += "=; expires=" + cookie_date.toGMTString();
661 function delete_session()
663 delete_cookie("session");