Tcl Source Code

Check-in [c41ad33cb4]
Login

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

Overview
Comment:bugfix: clock scan accepted but ignored prefixes of options
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | avl-fix-clock-scan-option-prefixes
Files: files | file ages | folders
SHA3-256: c41ad33cb448d2e8b359f14a1b2ed639aea338b9205ec3b45e03fce3f883a92e
User & Date: avl42 2018-04-08 13:38:09.633
Original User & Date: fa 2018-04-08 13:38:09.633
Context
2018-04-08
13:52
test an abbreviated option for clock scan Leaf check-in: 1f26e5f3f1 user: avl42 tags: avl-fix-clock-scan-option-prefixes
13:38
bugfix: clock scan accepted but ignored prefixes of options check-in: c41ad33cb4 user: avl42 tags: avl-fix-clock-scan-option-prefixes
2018-04-05
17:59
merge 8.7 check-in: 8c34e3aa19 user: dgp tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to library/clock.tcl.
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212

1213
1214
1215

1216
1217
1218

1219
1220
1221

1222
1223
1224

1225
1226
1227
1228
1229
1230
1231
    set gmt 0
    set locale c
    set timezone [GetSystemTimeZone]

    # Pick up command line options.

    foreach { flag value } [lreplace $args 0 0] {
	set saw($flag) {}
	switch -exact -- $flag {
	    -b - -ba - -bas - -base {

		set base $value
	    }
	    -f - -fo - -for - -form - -forma - -format {

		set format $value
	    }
	    -g - -gm - -gmt {

		set gmt $value
	    }
	    -l - -lo - -loc - -loca - -local - -locale {

		set locale [string tolower $value]
	    }
	    -t - -ti - -tim - -time - -timez - -timezo - -timezon - -timezone {

		set timezone $value
	    }
	    default {
		return -code error \
		    -errorcode [list CLOCK badOption $flag] \
		    "bad option \"$flag\",\
                     must be -base, -format, -gmt, -locale or -timezone"







<


>



>



>



>



>







1203
1204
1205
1206
1207
1208
1209

1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
    set gmt 0
    set locale c
    set timezone [GetSystemTimeZone]

    # Pick up command line options.

    foreach { flag value } [lreplace $args 0 0] {

	switch -exact -- $flag {
	    -b - -ba - -bas - -base {
		set saw(-base) {}
		set base $value
	    }
	    -f - -fo - -for - -form - -forma - -format {
		set saw(-format) {}
		set format $value
	    }
	    -g - -gm - -gmt {
		set saw(-gmt) {}
		set gmt $value
	    }
	    -l - -lo - -loc - -loca - -local - -locale {
		set saw(-locale) {}
		set locale [string tolower $value]
	    }
	    -t - -ti - -tim - -time - -timez - -timezo - -timezon - -timezone {
		set saw(-timezone) {}
		set timezone $value
	    }
	    default {
		return -code error \
		    -errorcode [list CLOCK badOption $flag] \
		    "bad option \"$flag\",\
                     must be -base, -format, -gmt, -locale or -timezone"