From 6d3c1cd9728981919f2ff1bc1f48b2bbbcbc5224 Mon Sep 17 00:00:00 2001 From: oharboe Date: Mon, 22 Dec 2008 15:02:09 +0000 Subject: httpd wip git-svn-id: svn://svn.berlios.de/openocd/trunk@1268 b42882b7-edfa-0310-969c-e2dbd0fdcd60 --- src/server/httpd/editconfigs.tcl | 462 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 462 insertions(+) create mode 100644 src/server/httpd/editconfigs.tcl (limited to 'src/server/httpd/editconfigs.tcl') diff --git a/src/server/httpd/editconfigs.tcl b/src/server/httpd/editconfigs.tcl new file mode 100644 index 00000000..13e39106 --- /dev/null +++ b/src/server/httpd/editconfigs.tcl @@ -0,0 +1,462 @@ +# converted to .tcl by html2tcl.tcl +set buffer "" +append buffer { + + + + + + + + + + + +Zylin ZY1000 JTAG debugger + + + +} + + set console "" + set upload_filename /ram/upload + +append buffer { + +
+
+ + + +
+
+
+} +append buffer [capture version] +append buffer { +
+
+
+ + + + + + + + + + +
+
+   +
+		 + + + + + + + + + + + + + + + + + + + + + +
+
+ +
+ +
+ +
+ +
+
+
+
+		 + + + + + + + + + + + + + +} + + + set toggle_details [formfetch toggle_details] + if {[string length $toggle_details]==0} { + set toggle_details 0 + } + set show_details [load_var show_details] + if {[string length $show_details]==0} { + set show_details 0 + } + if {$toggle_details==1} { + set show_details [expr 1-$show_details] + save_var show_details $show_details + } + + if {[string length $console]!=0} { + +append buffer { + + + +} + + } + +append buffer { + + + +
+ + + + + + + +
+ + +
+Flash +
+		 +
+Memory +
+		 + +
+
+
+   +
+
+

Edit Target Configurations

+
+
+ } + + set form_edittext [formfetch form_edittext] + set form_action [formfetch form_action] + set form_filename [formfetch form_filename] + set form_selected [formfetch form_selected] + + if {[string compare $form_action "Load"]==0} { + set form_filename $form_selected + } + + if {[string compare $form_action "Delete"]==0} { + capture_catch "rm /config/settings/$form_selected" + } + + if {[string compare $form_action "Save"]==0} { + save_var $form_filename [from_textarea $form_edittext] + append buffer "Wrote file $form_filename
" + } + + set form_edittext "" + + # load original or script saved on disk. + if {[string compare $form_action "Show default"]==0} { + set form_edittext [load_file "/rom/$form_selected"] + set form_filename $form_selected + } else { + set form_edittext [load_config $form_filename] + } + + set form_edittext_subst [to_textarea $form_edittext] + + + proc prepend { val list } { + set res "" + foreach value $list { + set t $val + append t $value + lappend res $t + } + return $res + } + + set files [prepend target/ [ls /rom/target]] + set files [lunion $files [prepend event/ [ls /config/settings/event]]] + set files [lunion $files [prepend target/ [ls /config/settings/target]]] + set files [lsort $files] + + +append buffer { + + + + + + + + +
   
+ + + } + + append buffer {\n" + append buffer {
} "\n" + append buffer {
File 
} "\n" + +append buffer { +
+
+ + +} + + if {$show_details==1} { + append buffer < + append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"} + append buffer > + } else { + append buffer < + append buffer {td style="background-image:url('menu_cuts/h_tab_free.png');width:110px;height:29px;background-repeat: no-repeat;background-position:top left;"} + append buffer > + } + +append buffer { + +} + + if {$show_details==1} { + append buffer "Hide details" + append buffer
+ } else { + append buffer {
} + append buffer "Show details" + append buffer {
} + } + +append buffer { + +} + + if {$show_details==1} { + append buffer $console + } + +append buffer {} + + if {$show_details!=1} { + append buffer {} + } + +append buffer { + +
   
+
+
+   +
+
+		 + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ Documentation +
+		 +   + +
+
+Quick Start Manual +
+OpenOCD Manual +
+Contact Zylin AS +
+
+ +
+ + +
+
+
+ +

Here you can edit predefined target configurations, restore predefined configurations to + default state and create new target configurations.

+

Typically when creating a new target configuration, you would take an existing + configuration that resembles the most your needs and modify it for your + purposes and save it under a different name.

+

Load - Loads a configuration file into the editor.

+

Show default - Loads the firmware included version of the + configuration file (if any), into the editor.
+ Note that the editor content is not saved.

+

Delete - Deletes a custom created configuration file.
+ Note that firmware included configuration files can not be deleted.

+

Save - Save the edited file under the a new or the same name.

+ +
+   +
+
+ + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +} + +start_chunked "html" +write_chunked $buffer +end_chunked + -- cgit v1.2.3