Tcl Source Code

Check-in [31daf6f1a3]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

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

Overview
Comment:MODULE_SCOPE symbol names are suppoted to start with 'tcl' (data) or 'Tcl' (code)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 31daf6f1a318cfc6d2c6bac82ad2b0d1e4e685ec
User & Date: jan.nijtmans 2012-12-04 13:39:07
Context
2012-12-05
13:31
Fix gcc warning in cygwin build: implicitely declared function TclUnixOpenTemporaryFile. Move the f... check-in: ebd606c56f user: jan.nijtmans tags: trunk
2012-12-04
20:53
merge trunk check-in: 0a9254547c user: dgp tags: bug-3588687
20:40
merge trunk check-in: 3b2d7fa654 user: dgp tags: core-8-6-0-rc
13:40
merge trunk check-in: ab905bcfdc user: jan.nijtmans tags: novem
13:39
MODULE_SCOPE symbol names are suppoted to start with 'tcl' (data) or 'Tcl' (code) check-in: 31daf6f1a3 user: jan.nijtmans tags: trunk
2012-12-03
19:50
Disable the legacy configuration setting from $::argv only when a setting call to [configure] is mad... check-in: 1cba517bf0 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclParse.c.

︙︙
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

 *			open bracket.
 * TYPE_QUOTE -		Character is a double quote.
 * TYPE_CLOSE_PAREN -	Character is a right parenthesis.
 * TYPE_CLOSE_BRACK -	Character is a right square bracket.
 * TYPE_BRACE -		Character is a curly brace (either left or right).
 */

const char charTypeTable[] = {
    /*
     * Negative character values, from -128 to -1:
     */

    TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,
    TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,
    TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,








|








38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

 *			open bracket.
 * TYPE_QUOTE -		Character is a double quote.
 * TYPE_CLOSE_PAREN -	Character is a right parenthesis.
 * TYPE_CLOSE_BRACK -	Character is a right square bracket.
 * TYPE_BRACE -		Character is a curly brace (either left or right).
 */

const char tclCharTypeTable[] = {
    /*
     * Negative character values, from -128 to -1:
     */

    TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,
    TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,
    TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,      TYPE_NORMAL,
︙︙

Changes to generic/tclParse.h.

︙︙
8
9
10
11
12
13
14
15
16
17

#define TYPE_COMMAND_END	0x2
#define TYPE_SUBS		0x4
#define TYPE_QUOTE		0x8
#define TYPE_CLOSE_PAREN	0x10
#define TYPE_CLOSE_BRACK	0x20
#define TYPE_BRACE		0x40

#define CHAR_TYPE(c) (charTypeTable+128)[(int)(c)]

MODULE_SCOPE const char charTypeTable[];








|

|

8
9
10
11
12
13
14
15
16
17

#define TYPE_COMMAND_END	0x2
#define TYPE_SUBS		0x4
#define TYPE_QUOTE		0x8
#define TYPE_CLOSE_PAREN	0x10
#define TYPE_CLOSE_BRACK	0x20
#define TYPE_BRACE		0x40

#define CHAR_TYPE(c) (tclCharTypeTable+128)[(int)(c)]

MODULE_SCOPE const char tclCharTypeTable[];

This page was generated in about 0.022s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19