Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | * lib/dtglue/dtglue.tcl (::dtglue::cvtfiles): Updated to accept * lib/app-gen-doc/gen_doc.tcl (::app-gen-doc::run): an image map for use by the new 'image' markup command of doctools. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
29040d9a7a5de7309bd9a5dd1bc72e2c |
User & Date: | andreas_kupries 2010-06-08 21:18:09.000 |
Context
2010-06-11
| ||
19:27 | * lib/meta/meta.tcl (::meta::2xref): Added the page title to the list of things we can reference to in term's etc. dtplite had this for quite some time, the big brother should have it as well. check-in: 340e145a55 user: andreas_kupries tags: trunk | |
2010-06-08
| ||
21:18 | * lib/dtglue/dtglue.tcl (::dtglue::cvtfiles): Updated to accept * lib/app-gen-doc/gen_doc.tcl (::app-gen-doc::run): an image map for use by the new 'image' markup command of doctools. check-in: 29040d9a7a user: andreas_kupries tags: trunk | |
2010-01-12
| ||
20:46 | Do not show the browser fields on the preferences dialog on Windows as we do not use this field on that platform. check-in: 41caf41dfe user: patthoyts tags: trunk | |
Changes
Changes to apps/dtp/ChangeLog.
1 2 3 4 5 6 7 | 2004-05-17 Andreas Kupries <[email protected]> * main.tcl: Implemented [SF Tcllib RFE 744109]. I.e. now diverting the user directly to the help intro message when calling dtp without arguments. * lib/app-help/help.tcl (::app-help::run): Added formats 'text' | > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | 2010-06-08 Andreas Kupries <[email protected]> * lib/dtglue/dtglue.tcl (::dtglue::cvtfiles): Updated to accept * lib/app-gen-doc/gen_doc.tcl (::app-gen-doc::run): an image map for use by the new 'image' markup command of doctools. 2004-05-17 Andreas Kupries <[email protected]> * main.tcl: Implemented [SF Tcllib RFE 744109]. I.e. now diverting the user directly to the help intro message when calling dtp without arguments. * lib/app-help/help.tcl (::app-help::run): Added formats 'text' |
︙ | ︙ |
Changes to apps/dtp/lib/app-gen-doc/gen_doc.tcl.
︙ | ︙ | |||
22 23 24 25 26 27 28 29 30 31 32 33 34 35 | the chosed output [arg format]. [nl] The conversion can be influenced by the options listed below. [list_begin definitions] [lst_item "[option -varstring] [arg varname] [arg string]"] This option is used to set format/engine specific parameters to some value. The parameter is specified by [arg varname], the new value by [arg string]. [nl] | > > > > > > | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | the chosed output [arg format]. [nl] The conversion can be influenced by the options listed below. [list_begin definitions] [lst_item "[option -imgmap] [arg file]"] This option is used to set the mapping of image input files contained in the [arg file]. [lst_item "[option -varstring] [arg varname] [arg string]"] This option is used to set format/engine specific parameters to some value. The parameter is specified by [arg varname], the new value by [arg string]. [nl] |
︙ | ︙ | |||
76 77 78 79 80 81 82 | return {} } # ------------------------------------------------------ # Implementation of cmdline functionality. proc ::app-gen-doc::run {argv} { | | > > > > > > > > | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | return {} } # ------------------------------------------------------ # Implementation of cmdline functionality. proc ::app-gen-doc::run {argv} { set errstring "wrong#args: gen-doc ?-imgmap imapfile? ?-varstring var string? ?-varfile var file? ?-subst var mark link? format iomap ?meta?" if {[llength $argv] < 2} {tools::usage $errstring} set imapfile "" set mapfile "" array set para {} set subst {} while {[string match -* [lindex $argv 0]]} { if {[string equal [lindex $argv 0] -imgmap]} { if {[llength $argv] < 4} {tools::usage $errstring} set imapfile [lindex $argv 1] set argv [lrange $argv 2 end] continue } if {[string equal [lindex $argv 0] -varstring]} { if {[llength $argv] < 5} {tools::usage $errstring} set varname [lindex $argv 1] set varvalue [lindex $argv 2] set argv [lrange $argv 3 end] |
︙ | ︙ | |||
125 126 127 128 129 130 131 132 133 134 135 136 137 138 | } if {[llength $argv] < 2} {tools::usage $errstring} if {[llength $argv] > 3} {tools::usage $errstring} set format [lindex $argv 0] optcheck::infile [set mapfile [lindex $argv 1]] "Mapping file" set iomap {} if {[llength $argv] == 3} { # Check if the engine supports the xref parameter. # If yes, use meta data for xref # If no, error out | > > > > > > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | } if {[llength $argv] < 2} {tools::usage $errstring} if {[llength $argv] > 3} {tools::usage $errstring} set format [lindex $argv 0] optcheck::infile [set mapfile [lindex $argv 1]] "Mapping file" set imap {} if {$imapfile != {}} { optcheck::infile $imapfile "Image Mapping file" set imap [tools::readmap $imapfile] } set iomap {} if {[llength $argv] == 3} { # Check if the engine supports the xref parameter. # If yes, use meta data for xref # If no, error out |
︙ | ︙ | |||
166 167 168 169 170 171 172 | lappend _($var,$k) $mark [set ref [::tools::link $__($k) $link]] } } set subst [array get _] unset __ _ } | | | 186 187 188 189 190 191 192 193 194 195 196 197 198 | lappend _($var,$k) $mark [set ref [::tools::link $__($k) $link]] } } set subst [array get _] unset __ _ } dtglue::cvtfiles $format $iomap $imap [array get para] $subst return } # ------------------------------------------------------ package provide app-gen-doc 0.1 |
Changes to apps/dtp/lib/dtglue/dtglue.tcl.
︙ | ︙ | |||
61 62 63 64 65 66 67 | dt destroy return $result } # ------------------------------------------------------ | | > | > > > > > > > > > > > > | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | dt destroy return $result } # ------------------------------------------------------ proc ::dtglue::cvtfiles {format iomap imgmap para subst} { Setup dt $format $para foreach {sym actual} $iomap { dt map $sym $actual } foreach {fin fout} $imgmap { set plist [file split $fin] while {[llength $plist]} { set key [join $plist /] set plist [lrange $plist 1 end] dt img $key $fin $fout } } #array set ns $navspec array set pa $para array set su $subst foreach {in out} $iomap { if {![file exists $in]} {continue} |
︙ | ︙ |