TclApps Library Source Code
Check-in [29040d9a7a]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 29040d9a7a5de7309bd9a5dd1bc72e2c112f7d30
User & Date: andreas_kupries 2010-06-08 21:18:09
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
..
76
77
78
79
80
81
82
83
84
85
86

87
88
89
90
91







92
93
94
95
96
97
98
...
125
126
127
128
129
130
131






132
133
134
135
136
137
138
...
166
167
168
169
170
171
172
173
174
175
176
177
178
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]
................................................................................
    return {}
}

# ------------------------------------------------------
# Implementation of cmdline functionality.

proc ::app-gen-doc::run {argv} {
    set errstring "wrong#args: gen-doc ?-varstring var string? ?-varfile var file? ?-subst var mark link? format iomap ?meta?"

    if {[llength $argv] < 2} {tools::usage $errstring}


    set mapfile ""
    array set para {}
    set subst {}

    while {[string match -* [lindex $argv 0]]} {







	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]

................................................................................
    }

    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
................................................................................
		lappend _($var,$k) $mark [set ref [::tools::link $__($k) $link]]
	    }
	}
	set subst [array get _]
	unset __ _
    }

    dtglue::cvtfiles $format $iomap [array get para] $subst
    return
}

# ------------------------------------------------------
package provide app-gen-doc 0.1






>
>
>
>
>
>







 







|



>





>
>
>
>
>
>
>







 







>
>
>
>
>
>







 







|





22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
..
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
...
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
...
186
187
188
189
190
191
192
193
194
195
196
197
198
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]
................................................................................
    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]

................................................................................
    }

    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
................................................................................
		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
68
69

70












71
72
73
74
75
76
77
    dt destroy
    return $result
}

# ------------------------------------------------------

proc ::dtglue::cvtfiles {format iomap para subst} {
    Setup dt $format $para

    foreach {sym actual} $iomap {dt map $sym $actual}













    #array set ns $navspec
    array set pa $para
    array set su $subst

    foreach {in out} $iomap {
	if {![file exists $in]} {continue}






|

>
|
>
>
>
>
>
>
>
>
>
>
>
>







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}