Mark Wroth 2 29 April 01 This revision makes a major shift in how the action buttons are constructed, from individually programmed and enumerated buttons to buttons constructed from an array defined in the setup of the program. This change allows a configuration file to define an arbitrary number of scripts to be executed. Each script is identified by a checkbox, and all of the checkboxes selected will be executed sequentially. 1 28 April 2001 Initial implementation.

This Tcl/Tk script provides a simple front end for Jade. The purpose is to provide a somewhat configurable graphical front end for repetitive invocation of the program, for situations where the full setup of something like Pomade doesn't seem warranted. Users who are considering adopting this script should also consider Pomade, which can be found at http://www.saremba.de/pomade/. This script is designed to be much easier to configure for a new set of scripts than Pomade. The tradeoff is that this application is much less flexible than Pomade. While this application shares no code with Pomade, the author is indebted to Andreas Saremba, Pomade's author for the inspiration for this program and an introduction to Tcl/Tk in general.

This application is created using the DBLP literate programming system. The primary file is JadeTCL.sgm. The actual Tcl/Tk script is Jade.tcl, which is written by the literate programming system from the basic file. All that is necessary to run the application is a functioning Tcl/Tk. However, to be useful, you will also probably want to create a file JadeRC.TCL. This file will be sourced after the default initialization, and is intended to contain definitions of additional (or substitute) DSSSL script definitions. This is how the system is customized to a particular environment. See for more discussion on how this set of arrays are defined.

The top level display of the GUI is a simple layout with the menu at the top, a display of the target file name and location below the menu, a column of checkboxes for the various scripts, and finally a row of buttons to start the various actions. The bulk of the script is devoted to defining the various buttons that are packed in this display. pack .menubar -side top -fill x pack .pathname .browse -side top -fill x foreach script [array names scripts] { pack .$script -side top -fill x } pack .go .showerr .exit -side left -expand 1 -fill x

Notice that the actual packing of the GUI can't take place until the various button structures have been defined.

The basic concept of the initialization is to define a minimum set of variables in the main script, and then to source another file which can define (or redefine) the variables that will actually be used in setting up the application. To add a DSSSL script to the application, edit the configuration file to add the new script. Each script needs three strings: an id (which is never seen in the GUI, but is used internally in the script; a DSSSL script name, including (if needed) the path to it; and a type, which is the Jade output type. The DSSSL script name and the output type are stored in associative arrays, indexed by the id. So to add a new script, you will choose a new script-id, and set two variables: scripts(script-id), which is set to the name of the DSSSL script (including, if necessary, the path to the script), and type(script-id), which is set to the Jade output type (the -t option). To change a default script, adopt the same process, except that the script-id is that of the script you are replacing. The other configuration variables can also be reset in the configuration file, although this should usually not be necessary. The main options would appear to be the name (and path to) the Jade processor (in jade_name), and the catalog file name (in catalog_name). set config_filename "JadeRC.TCL" set jade_name "jade" set catalog_name "C:/catalog" set debug 0 set scripts(htm) "not set" set type(htm) "sgml" set scripts(rtf) "c:/usr/dsssl/docbook/print/docbook.dsl" set type(rtf) "rtf" set scripts(tangle) "c:/usr/dtd/dblp/SGMLTangle.dsl" set type(tangle) "sgml" if [file exists $config_filename] { source $config_filename } set target [tk_getOpenFile \ -title "Set Target File Name" \ -filetypes { {{SGML files} {.sgm}} {{XML files} {.xml}} {{All files} {".*"}} }] set target_path [file dirname $target] set target_name [file tail $target] eval cd \"$target_path\"

button .browse -textvariable target_name -command { set target [tk_getOpenFile \ -title "Select New Target File Name" \ -filetypes { {{SGML files} {.sgm}} {{XML files} {.xml}} {{All files} {".*"}} }] set target_path [file dirname $target] set target_name [file tail $target] eval cd \"$target_path\" } label .pathname -textvariable target_path

The most complicated set of action buttons are the check buttons that decide which scripts will be executed. In addition to actually defining the buttons, this part of the script also defines the command actions. This could, in principle, be separated into its own loop. foreach script [array names scripts] { checkbutton .$script \ -textvariable scripts($script) \ -variable do($script) \ -onvalue 1 \ -offvalue 0 \ -anchor w } The actual definition of the command is a simple assembly from the various pieces already defined. set outfile($script) "" append outfile($script) [file rootname $target_name] "." $script set cmd($script) "" append cmd($script) "\"$jade_name\" " append cmd($script) " " -c " " \"$catalog_name\" " " append cmd($script) " " -d " \"" $scripts($script) "\"" append cmd($script) " " -t " " $type($script) append cmd($script) " " \"$target_name\" append cmd($script) " " 2&greaterthan;&greaterthan; jadetcl.err append cmd($script) " " &greaterthan; $outfile($script) The Go button is the key button of the GUI, at least in the sense that it is the one that actually executes the actions that are the whole purpose of the program. The basic approach is to loop over all of the array indicies, and, if the relevant checkbox is checked, executing the command defined while we were doing the setup of the program. button .go -text "Go" -command { if [file exists jadetcl.err] {file delete jadetcl.err} foreach script [array names scripts] { if $do($script) { if $debug {tk_messageBox -message $cmd($script)} catch {eval exec $cmd($script)} catch { if [expr [file size jadetcl.err] &greaterthan; 0] { showFile jadetcl.err } else { file delete jadetcl.err } } } else {} } } The remaining action buttons are straightforward, and define commands to view the error log and exit from the application. The showFile procedure is defined in . button .showerr -text "Show Err" -command { showFile jadetcl.err } button .exit -text "EXIT" -command {exit}

More as a programming exercise than anything else, menus were added to the ancestor of this program. However, they provide a convenient way to give the user access to functions that are not needed very often, so we retain and extend their use in this application. In addition to infrequently used configurations, we also include some obvious functions, such as changing the target file, even if they are also accessible from GUI buttons. frame .menubar -relief groove -borderwidth 4 The first menu we set up is the File menu. This allows the user to change the target file, read a new configuration file, or exit the program. menubutton .menubar.file -text "File" \ -direction below -menu .menubar.file.menu menu .menubar.file.menu\ -tearoff 0 .menubar.file.menu add command -label "Set target" -command { set target [tk_getOpenFile -title "File" -filetypes { {{SGML files} {.sgm}} {{XML files} {.xml}} {{All files} {".*"}} }] set target_path [file dirname $target] set target_name [file tail $target] eval cd \"$target_path\" } .menubar.file.menu add command -label "Read config" \ -command { source [tk_getOpenFile -filetypes { {{TCL Files} {.tcl}} {{All files} {".*"}} }] foreach script [array names scripts] { }} .menubar.file.menu add command -label "Exit" -command { exit} The Config menu allows the user to reconfigure the program to use, for example, a different set of DSSSL files, or a different Jade executable. menubutton .menubar.config -text "Config" \ -direction below -menu .menubar.config.menu menu .menubar.config.menu \ -tearoff 0 .menubar.config.menu add command -label "Jade" -command { set jade [tk_getOpenFile -filetypes { {{Executables} {.exe}} {{All files} {".*"}} }] } .menubar.config.menu add command -label "Catalog File" -command { set catalog_name [tk_getOpenFile -title "catalog" -filetypes { {{All files} {".*"}} }] } The Help menu provides some very sketchy help functions, and the About information on the program. menubutton .menubar.help -text "Help" \ -direction below -menu .menubar.help.menu menu .menubar.help.menu \ -tearoff 0 .menubar.help.menu add command -label "Help" \ -command {showHelp} .menubar.help.menu add command -label "About" -command { tk_messageBox -type ok -message \ "This is Jade.tcl, a TCL/Tk application providing a graphical front end for Jade.\n\n Copyright (c) Mark Wroth <mark@astrid.upland.ca.us> 2001\n\n Free distribution under the terms of the Gnu Public License is authorized." } Finally, we pack the menus into the menubar, which will itself be packed into the main window later. pack .menubar.file .menubar.config -side left -fill x pack .menubar.help -side right -fill x

Several auxiliary procedures are needed at various places in the overall script.

proc showHelp {} { set helptext "\ OVERVIEW This is a Tcl/Tk front end for the Jade \ processor. It takes a single target file and (as \ part of its initialization) an array of DSSSL \ scripts and output types. When commanded, it \ runs Jade on each script in turn. TARGET FILE The name of the target file is displayed in a text button near \ the top of the application window, with the path to that file \ displayed above it. The jade process will execute in this \ directory, which means that all relative path names defined \ in the target file will be interpreted relative to this directory. \tTo change the target file, click on the text button containing \ the target file name. A file requester will appear; navigate to and \ select the new target file using the requester. By default, the \ requester will show only files ending in \".sgm\", since this is the \ usual extension given to SGML target files. \tThe target file requester can also be summoned via the \"File\" \ menu. \n GO\n To execute Jade with the currently selected target file and options, click \ on the button labeled \"Go\". CONFIGURATION\n The application assumes that the Jade executable is found \ somewhere in the operating system path. If this is not the case, the path \ to the nuweb executable can be set using the \"Config\" menu \"Jade\" \ option. EXITING FROM THE APPLICATION\n There are three different ways to exit from the Nuweb Tcl application: \t - Click on the button marked \"Exit\" \t - Select the \"Exit\" item on the \"File\" menu \t - Click on the \"Close Window\" button provided by the operating \ system's window manager. " set w .text catch {destroy $w} toplevel $w wm title $w "Jade TCL/Tk Help" wm iconname $w "text" frame $w.buttons pack $w.buttons -side bottom -fill x -pady 2m button $w.buttons.dismiss -text Dismiss -command "destroy $w" pack $w.buttons.dismiss -side bottom -expand 1 text $w.text -relief sunken -bd 2 -yscrollcommand "$w.scroll set" \ -setgrid 1 -height 30 \ -tabs {1c 2c 3c} \ -wrap word scrollbar $w.scroll -command "$w.text yview" pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both $w.text insert end $helptext $w.text mark set insert 0.0 }

proc showFile {thefile} { set w .text catch {destroy $w} toplevel $w wm title $w "$thefile" wm iconname $w "text" frame $w.buttons pack $w.buttons -side bottom -fill x -pady 2m button $w.buttons.dismiss -text Dismiss -command "destroy $w" pack $w.buttons.dismiss -side bottom -expand 1 text $w.text -relief sunken -bd 2 -yscrollcommand "$w.scroll set" \ -setgrid 1 -height 30 scrollbar $w.scroll -command "$w.text yview" pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both textLoadFile $w.text $thefile $w.text mark set insert 0.0 }

proc textLoadFile {w file} { if [file exists $file] { set f [open $file] $w delete 1.0 end while {![eof $f]} { $w insert end [read $f 10000] } close $f } }