Tcl Source Code

Check-in [fd8a11d1c6]
Login
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:fixed backslashing of }
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | core-8-3-b1
Files: files | file ages | folders
SHA1: fd8a11d1c62c3b30ac3b35ce666d100084e6f19a
User & Date: hobbs 1999-12-22 23:48:56
Context
2000-01-08
02:31
* generic/tclClock.c: Changed switch in Tcl_ClockObjCmd to use enumerated values instead of constant... check-in: a779ec2b6d user: ericm tags: trunk
1999-12-22
23:48
fixed backslashing of } check-in: fd8a11d1c6 user: hobbs tags: trunk, core-8-3-b1
23:00
updated to 8.3 check-in: c700acf811 user: hobbs tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/man2help2.tcl.

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
# form suitable for use by the Windows help compiler.
#
# Copyright (c) 1996 by Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# 
# RCS: @(#) $Id: man2help2.tcl,v 1.4 1999/12/21 23:59:29 hobbs Exp $
# 

# Global variables used by these scripts:
#
# state -	state variable that controls action of text proc.
#				
# topics -	array indexed by (package,section,topic) with value
................................................................................
proc text {string} {
    global file state chars

    textSetup
    set string [string map [list \
	    "\\"	"\\\\" \
	    "\{"	"\\\{" \
	    "\}"	"\}" \
	    "\t"	{\tab } \
	    ''		\" \
	    ``		\" \
	    ] $string]

    # Check if this is the beginning of an international character string.
    # If so, look up the sequence in the chars table and substitute the






|







 







|







5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
# form suitable for use by the Windows help compiler.
#
# Copyright (c) 1996 by Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# 
# RCS: @(#) $Id: man2help2.tcl,v 1.5 1999/12/22 23:48:56 hobbs Exp $
# 

# Global variables used by these scripts:
#
# state -	state variable that controls action of text proc.
#				
# topics -	array indexed by (package,section,topic) with value
................................................................................
proc text {string} {
    global file state chars

    textSetup
    set string [string map [list \
	    "\\"	"\\\\" \
	    "\{"	"\\\{" \
	    "\}"	"\\\}" \
	    "\t"	{\tab } \
	    ''		\" \
	    ``		\" \
	    ] $string]

    # Check if this is the beginning of an international character string.
    # If so, look up the sequence in the chars table and substitute the