]> matita.cs.unibo.it Git - helm.git/blob - helm/on-line/javascript/control.js
Control panel added to CIC window
[helm.git] / helm / on-line / javascript / control.js
1 function updateMode(i, s)
2 {
3   var mode = top.mode;
4   var mode_list = mode.split(",");
5   var res = "";
6   var j;
7
8   for (j = 0; j < mode_list.length; j++) {
9     if (j == i) res += s;
10     else res += mode_list[j];
11     if (j < mode_list.length - 1) res += ",";
12   }
13   
14   top.mode = res;
15 }
16
17 function updateOutput(output,format)
18 {
19   var theoryuri = top.theoryuri;
20   var cicuri = top.cicuri;
21   var mode = top.mode;
22   var topurl = top.topurl;
23   var processorURL = top.processorURL;
24   var getterURL = top.getterURL;
25   var mode_list = mode.split(",");
26   var new_mode = output.options[output.selectedIndex].value;
27   var dest = "?theoryuri=" + theoryuri + "&cicuri=" + cicuri + "&topurl=" + topurl + "&processorURL=" + processorURL + "&getterURL=" + getterURL + "&mode=";
28   
29   if (new_mode != mode_list[0]) {
30     updateMode(0, new_mode);
31     if (new_mode == "raw") updateMode(2, format.options[format.selectedIndex].value);
32     else updateMode(1, format.options[format.selectedIndex].value);
33     location.search = dest + top.mode;
34   }
35 }
36
37 function updateFormat(format)
38 {
39   var mode = top.mode;
40   var mode_list = mode.split(",");
41
42   if (mode_list[0] == "raw") {
43     updateMode(1, format.options[format.selectedIndex].value);
44   } else {
45     updateMode(2, format.options[format.selectedIndex].value);
46   }
47
48   refreshReload();
49 }
50
51 function updateNatural(checkbox)
52 {
53   if (checkbox.checked) updateMode(3, "yes");
54   else updateMode(3, "no");
55   refreshReload();
56 }
57
58 function updateAnnotations(checkbox)
59 {
60   if (checkbox.checked) updateMode(4, "yes");
61   else updateMode(4, "no");
62   refreshReload();
63 }
64
65 function updateCompressed(checkbox)
66 {
67   if (checkbox.checked) updateMode(5, "gz");
68   else updateMode(5, "normal");
69   refreshReload();
70 }
71
72 function updateDTDPatched(checkbox)
73 {
74   if (checkbox.checked) updateMode(6, "yes");
75   else updateMode(6, "no");
76   refreshReload();
77 }
78
79 function refreshReload()
80 {
81    var search = 
82       "?mode=" + top.mode +
83       "&cicuri=" + top.cicuri +
84       "&theoryuri=" + top.theoryuri +
85       "&processorURL=" + top.processorURL +
86       "&getterURL=" + top.getterURL;
87
88    top.frames[0].document.links[0].search = search;
89    top.frames[0].document.links[1].search = search;
90
91    return true;
92 }
93
94 function refreshcicHeader(headerURL)
95 {
96    top.cicheader.location.search = "?keys=GP&xmluri=" + headerURL + "&param.uri=" + top.cicuri;
97    return true;
98 }
99
100 function refreshtheoryHeader(headerURL)
101 {
102    top.theoryheader.location.search = "?keys=GP&xmluri=" + headerURL + "&param.uri=" + top.theoryuri;
103    return true;
104 }
105
106 function makeURL(type,uri,cicflags,typesflags)
107 {
108   var mode = top.mode;
109   var processorURL = top.processorURL;
110   var getterURL = top.getterURL;
111   var mode_list = mode.split(",");
112   
113   var keys = "";
114   var url = "";
115
116   var interfaceURL = chopSlash(chopSlash(top.topurl)) + "/cic/index.html";
117
118   var output = mode_list[0];
119   var format;
120   if (output == "raw") format = mode_list[1];
121   else format = mode_list[2];
122   
123   if (output == "raw") {
124     var ext = "";
125     if (format == "types") ext = ".types"
126     else if (format == "ann") ext = ".ann";
127     url = getterURL + "getxml?uri=" + uri + ext + "&format=" + mode_list[5] +
128      "&patch_dtd=" + mode_list[6];
129   } else {
130     if (format == "html" && type == "cic") {
131       keys = escape("C1,HC2,L")+"&param.processorURL=" + escape(processorURL) +
132        "&param.getterURL=" + escape(getterURL) +
133        "&prop.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
134        "&prop.encoding=iso-8859-1" +
135        "&prop.media-type=text/html" +
136        "&param.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
137        "&param.encoding=iso-8859-1" +
138        "&param.media-type=text/html" +
139        "&param.keys=" + escape("C1,HC2,L") +
140        "&param.interfaceURL=" + escape(interfaceURL);
141     } else if (format == "html" && type == "theory") {
142       keys = escape("T1,T2,L,E")+"&param.processorURL=" + escape(processorURL) +
143        "&param.getterURL=" + escape(getterURL) +
144        "&param.thkeys=" + escape("TC1,HC2,L") +
145        "&param.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
146        "&param.encoding=iso-8859-1" +
147        "&param.media-type=text/html" +
148        "&param.keys=" + escape("C1,HC2,L") +
149        "&param.interfaceURL=" + escape(interfaceURL);
150     } else if (format == "mml_cont" && type == "cic") {
151       keys = "C1";
152     } else if (format == "mml_cont" && type == "theory") {
153       keys = escape("T1,E")+"&param.keys=C1&param.thkeys=TC1";
154     } else if (format == "mml_pres" && type == "cic") {
155       keys = escape("C1,C2,L")+"&param.processorURL=" + escape(processorURL) +
156        "&param.getterURL=" + escape(getterURL) +
157        "&prop.doctype-public="+
158        "&prop.encoding=" +
159        "&prop.media-type=text/xml" +
160        "&param.doctype-public=" +
161        "&param.encoding=" +
162        "&param.media-type=text/xml" +
163        "&param.keys=" + escape("C1,C2,L") +
164        "&param.interfaceURL=" + escape(interfaceURL);
165     } else if (format == "mml_pres" && type == "theory") {
166       keys = escape("T1,T2,L,E")+"&param.keys=C1,C2,L&param.thkeys=TC1,C2,L" +
167        "&param.processorURL=" + escape(processorURL) +
168        "&param.getterURL=" + escape(getterURL) +
169        "&param.doctype-public=" +
170        "&param.encoding=" +
171        "&param.media-type=text/xml" +
172        "&param.interfaceURL=" + escape(interfaceURL);
173     }
174
175     var naturalLanguage = typesflags;
176     if (typesflags != "NO" || type == "theory") {
177        naturalLanguage = mode_list[3];
178     }
179     var annotations = cicflags;
180     if (cicflags != "NO" || type == "theory") {
181        annotations = mode_list[4];
182     }
183     url = processorURL + "apply?xmluri=" + escape(getterURL + "getxml?uri=" + uri) + "&keys=" + keys + "&param.CICURI=" + uri + "&param.naturalLanguage=" + naturalLanguage + "&param.annotations=" + annotations;
184   }
185
186   return interfaceURL + "?url=" + escape(url);
187 }
188