Tcl Source Code

Check-in [d61b5fb209]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make HTML generator more resilient against problems when generating docs for older versions of Tcl/Tk.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | off-trunk
Files: files | file ages | folders
SHA1: d61b5fb2095d92fdda97d7349ed2859159d91158
User & Date: dkf 2012-11-08 08:22:13
Context
2012-11-08
10:14
Added tooltip generation to contents and keywords pages. Closed-Leaf check-in: 833d91a67d user: dkf tags: off-trunk
08:22
Make HTML generator more resilient against problems when generating docs for older versions of Tcl/T... check-in: d61b5fb209 user: dkf tags: off-trunk
2012-11-07
14:41
Added package descriptor file to allow for easier configuration of integration of contributed packag... check-in: 38cdd285ca user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/tcltk-man2html-utils.tcl.

939
940
941
942
943
944
945

946

947
948
949
950
951
952
953
	    switch -exact -- [string index $code end]:$manual(section) {
		H:NAME {
		    set names {}
		    while {1} {
			set line [next-text]
			if {[is-a-directive $line]} {
			    backup-text 1

			    output-name [join $names { }]

			    return
			}
			lappend names [string trim $line]
		    }
		}
		H:SYNOPSIS {
		    lappend manual(section-toc) <DL>







>
|
>







939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
	    switch -exact -- [string index $code end]:$manual(section) {
		H:NAME {
		    set names {}
		    while {1} {
			set line [next-text]
			if {[is-a-directive $line]} {
			    backup-text 1
			    if {[llength $names]} {
				output-name [join $names { }]
			    }
			    return
			}
			lappend names [string trim $line]
		    }
		}
		H:SYNOPSIS {
		    lappend manual(section-toc) <DL>