-function updateMode(i, s)
-{
- var mode = top.mode;
- var mode_list = mode.split(",");
- var res = "";
- var j;
-
- for (j = 0; j < mode_list.length; j++) {
- if (j == i) res += s;
- else res += mode_list[j];
- if (j < mode_list.length - 1) res += ",";
- }
-
- top.mode = res;
-}
-
-function updateOutput(output,format,processorURL,interfaceURL)
-{
- var theoryuri = top.theoryuri;
- var cicuri = top.cicuri;
- var mode = top.mode;
- var mode_list = mode.split(",");
- var new_mode = output.options[output.selectedIndex].value;
- var dest = "?theoryuri=" + theoryuri + "&cicuri=" + cicuri + "&mode=";
-
- if (new_mode != mode_list[0]) {
- updateMode(0, new_mode);
- if (new_mode == "raw") updateMode(2, format.options[format.selectedIndex].value);
- else updateMode(1, format.options[format.selectedIndex].value);
-
- var href =
- processorURL + 'apply' +
- '?keys=RT' +
- '¶m.topurl=' + topurl +
- '&xmluri=' +
- escape(interfaceURL + '/html/library/control.html' + dest + top.mode);
-
- location.href = href;
- }
-}
-
-function updateFormat(format,profile,processorURL,interfaceURL)
-{
- var mode = top.mode;
- var mode_list = mode.split(",");
-
- if (mode_list[0] == "raw") {
- updateMode(1, format.options[format.selectedIndex].value);
- } else {
- updateMode(2, format.options[format.selectedIndex].value);
- }
-
- refreshReload(profile,processorURL,interfaceURL);
-}
-
-function updateNatural(checkbox,profile,processorURL,interfaceURL)
-{
- if (checkbox.checked) updateMode(3, "yes");
- else updateMode(3, "no");
- refreshReload(profile,processorURL,interfaceURL);
-}
-
-function updateAnnotations(checkbox,profile,processorURL,interfaceURL)
-{
- if (checkbox.checked) updateMode(4, "yes");
- else updateMode(4, "no");
- refreshReload(profile,processorURL,interfaceURL);
-}
-
-function updateCompressed(checkbox,profile,processorURL,interfaceURL)
-{
- if (checkbox.checked) updateMode(5, "gz");
- else updateMode(5, "normal");
- refreshReload(profile,processorURL,interfaceURL);
-}
-
-function updateDTDPatched(checkbox,profile,processorURL,interfaceURL)
-{
- if (checkbox.checked) updateMode(6, "yes");
- else updateMode(6, "no");
- refreshReload(profile,processorURL,interfaceURL);
-}
-
-function refreshReload(profile, processorURL, interfaceURL)
-{
- var search =
- "?mode=" + top.mode +
- "&cicuri=" + top.cicuri +
- "&theoryuri=" + top.theoryuri;
-
- var href = processorURL +
- 'apply' +
- '?keys=RT' +
- '&profile=' + profile +
- '¶m.profile=' + profile +
- '&xmluri=' +
- escape(interfaceURL + '/html/library/index.html' + search);
-
- top.frames[0].document.links[0].href = href;
- top.frames[0].document.links[1].href =
- interfaceURL + '/html/index.html' + search;
-
- return true;
-}
-
-function refreshcicHeader(headerURL)
-{
- top.cicheader.location.search = "?keys=GP&xmluri=" + headerURL + "¶m.uri=" + top.cicuri;
- return true;
-}
-
-function refreshtheoryHeader(headerURL)
-{
- top.theoryheader.location.search = "?keys=GP&xmluri=" + headerURL + "¶m.uri=" + top.theoryuri;
- return true;
-}
-
-function getCICMathMLKeys()
-{
- return escape("d_c,C1,G,C2,L");
-}
-
-function getTheoryKeys()
-{
- return escape("T1,T2,L,E");
-}
-
-function getEmbedKeys()
-{
- return escape("d_c,TC1,HC2,L");
-}
-
-function getCICHTMLKeys()
-{
- return escape("d_c,C1,HC2,L");
-}
-
-function getCICProofTreeXHTMLMathMLKeys()
-{
- return escape("HAT,G,HAO,L");
-}
-
-function makeURL(type,uri,cicflags,typesflags,profile,processorURL,interfaceURL,getterURL)
-{
- var mode = top.mode;
- var mode_list = mode.split(",");
-
- var keys = "";
- var url = "";
-
- var interfaceURLidx = interfaceURL + "/html/cic/index.html";
- var thinterfaceURLidx = interfaceURL + "/html/theory/index.html";
-
- var output = mode_list[0];
- var format;
- if (output == "raw") format = mode_list[1];
- else format = mode_list[2];
-
- if (output == "raw") {
- var ext = "";
- var rdfprefix = "";
- if (format == "types") ext = ".types"
- else if (format == "ann") ext = ".ann"
- else if (format == "fwd") rdfprefix = "helm:rdf:www.cs.unibo.it/helm/rdf/forward//"
- else if (format == "bwd") rdfprefix = "helm:rdf:www.cs.unibo.it/helm/rdf/backward//";
- url = getterURL + "getxml?uri=" + rdfprefix + uri + ext + "&format=" +
- mode_list[5] + "&patch_dtd=" + mode_list[6];
- } else {
- var uri_len = uri.length;
- if (format == "html" && type == "cic" && uri.substring(uri.length - 10, uri.length) == "proof_tree") {
- keys = getCICProofTreeXHTMLMathMLKeys() +
- "&profile=" + profile +
- "&default.profile=" + profile +
- "&prop.doctype-public="+escape("-//W3C//DTD XHTML 1.1 plus MathML 2.0//EN")+
- "&prop.doctype-system="+escape("http://www.w3.org/TR/MathML2/dtd/xhtml-math11-f.dtd")+
- "&prop.encoding=iso-8859-1" +
- "&prop.media-type=text/xml" +
- "&prop.method=xml" +
- "¶m.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
- "¶m.encoding=iso-8859-1" +
- "¶m.media-type=text/html" +
- "¶m.keys=" + getCICHTMLKeys() +
- "¶m.framewidth=150";
- } else if (format == "html" && type == "cic") {
- keys = getCICHTMLKeys() +
- "&profile=" + profile +
- "¶m.profile=" + profile +
- "&prop.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
- "&prop.encoding=iso-8859-1" +
- "&prop.media-type=text/html" +
- "&prop.method=html" +
- "¶m.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
- "¶m.encoding=iso-8859-1" +
- "¶m.media-type=text/html" +
- "¶m.keys=" + getCICHTMLKeys();
- } else if (format == "html" && type == "theory") {
- keys = getTheoryKeys()+
- "&profile=" + profile +
- "¶m.profile=" + profile +
- "¶m.keys=" + getCICHTMLKeys() +
- "¶m.thkeys=" + getTheoryKeys() +
- "¶m.embedkeys=" + getEmbedKeys() +
- "¶m.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
- "¶m.encoding=iso-8859-1" +
- "¶m.thencoding=iso-8859-1" +
- "¶m.media-type=text/html" +
- "¶m.thmedia-type=text/html";
- } else if (format == "mml_cont" && type == "cic") {
- keys = escape("d_c,C1")+
- "&profile=" + profile +
- "¶m.profile=" + profile +
- "&prop.doctype-public="+
- "&prop.media-type=text/xml" +
- "¶m.doctype-public=" +
- "¶m.encoding=" +
- "¶m.media-type=text/xml";
- } else if (format == "mml_cont" && type == "theory") {
- keys = escape("T1,L,E")+
- "&profile=" + profile +
- "¶m.profile=" + profile +
- "¶m.keys=" + escape("d_c,C1") +
- "¶m.thkeys=T1,L,E" +
- "¶m.embedkeys=" + escape("d_c,TC1") +
- "¶m.doctype-public=" +
- "¶m.encoding=" +
- "¶m.thencoding=iso-8859-1" +
- "¶m.media-type=text/xml" +
- "¶m.thmedia-type=text/html";
- } else if (format == "mml_pres" && type == "cic") {
- keys = getCICMathMLKeys()+
- "&profile=" + profile +
- "¶m.profile=" + profile +
- "&prop.doctype-public="+
- "&prop.media-type=text/xml" +
- "¶m.doctype-public=" +
- "¶m.encoding=" +
- "¶m.media-type=text/xml" +
- "¶m.keys=" + getCICMathMLKeys();
- } else if (format == "mml_pres" && type == "theory") {
- keys = getTheoryKeys()+
- "&profile=" + profile +
- "¶m.profile=" + profile +
- "¶m.keys=" + getCICMathMLKeys() +
- "¶m.thkeys=" + getTheoryKeys() +
- "¶m.embedkeys=" + escape("d_c,TC1,G,C2,L") +
- "¶m.doctype-public=" +
- "¶m.encoding=" +
- "¶m.thencoding=iso-8859-1" +
- "¶m.media-type=text/xml" +
- "¶m.thmedia-type=text/html";
- }
- }
-
- if (output == "raw")
- return url;
- else if (type == "cic")
- return processorURL + "apply?keys=RT&xmluri=" + escape(interfaceURLidx) + "¶m.ignore=" + keys + "¶m.CICURI=" + uri;
- else if (type == "theory")
- return processorURL + "apply?keys=RT&xmluri=" + escape(thinterfaceURLidx) + "¶m.ignore=" + keys + "¶m.CICURI=" + uri;
-}
-