Tcl Source Code

Hex Artifact Content
Login

Artifact 6ba96b41ef3779d51a60a7a6e3883c923e89b9331d0fb6e466fd975bf7e682e6:

Attachment "ClockClientData.patch" to ticket [4724f35ada] added by anonymous 2026-04-13 00:50:45. (unpublished)
0000: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 44  --- generic/tclD
0010: 61 74 65 2e 68 2e 6f 72 69 67 09 32 30 32 35 2d  ate.h.orig.2025-
0020: 31 31 2d 31 32 20 30 33 3a 32 32 3a 35 36 0a 2b  11-12 03:22:56.+
0030: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 44 61  ++ generic/tclDa
0040: 74 65 2e 68 09 32 30 32 36 2d 30 34 2d 31 33 20  te.h.2026-04-13 
0050: 31 30 3a 34 35 3a 33 39 0a 40 40 20 2d 33 31 39  10:45:39.@@ -319
0060: 2c 37 20 2b 33 31 39 2c 37 20 40 40 20 74 79 70  ,7 +319,7 @@ typ
0070: 65 64 65 66 20 73 74 72 75 63 74 20 43 6c 6f 63  edef struct Cloc
0080: 6b 4c 61 73 74 54 5a 4f 66 66 73 20 7b 0a 20 20  kLastTZOffs {.  
0090: 2a 20 53 74 72 75 63 74 75 72 65 20 63 6f 6e 74  * Structure cont
00a0: 61 69 6e 69 6e 67 20 74 68 65 20 63 6c 69 65 6e  aining the clien
00b0: 74 20 64 61 74 61 20 66 6f 72 20 5b 63 6c 6f 63  t data for [cloc
00c0: 6b 5d 0a 20 20 2a 2f 0a 20 0a 2d 74 79 70 65 64  k].  */. .-typed
00d0: 65 66 20 73 74 72 75 63 74 20 43 6c 6f 63 6b 43  ef struct ClockC
00e0: 6c 69 65 6e 74 44 61 74 61 20 7b 0a 2b 73 74 72  lientData {.+str
00f0: 75 63 74 20 43 6c 6f 63 6b 43 6c 69 65 6e 74 44  uct ClockClientD
0100: 61 74 61 20 7b 0a 20 20 20 20 20 73 69 7a 65 5f  ata {.     size_
0110: 74 20 72 65 66 43 6f 75 6e 74 3b 09 09 2f 2a 20  t refCount;../* 
0120: 4e 75 6d 62 65 72 20 6f 66 20 6c 69 76 65 20 72  Number of live r
0130: 65 66 65 72 65 6e 63 65 73 2e 20 2a 2f 0a 20 20  eferences. */.  
0140: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 74     Tcl_Obj **lit
0150: 65 72 61 6c 73 3b 09 09 2f 2a 20 50 6f 6f 6c 20  erals;../* Pool 
0160: 6f 66 20 6f 62 6a 65 63 74 20 6c 69 74 65 72 61  of object litera
0170: 6c 73 20 28 63 6f 6d 6d 6f 6e 2c 20 6c 6f 63 61  ls (common, loca
0180: 6c 65 20 69 6e 64 65 70 65 6e 64 65 6e 74 29 2e  le independent).
0190: 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a   */.     Tcl_Obj
01a0: 20 2a 2a 6d 63 4c 69 74 65 72 61 6c 73 3b 09 2f   **mcLiterals;./
01b0: 2a 20 4d 73 67 63 61 74 20 6f 62 6a 65 63 74 20  * Msgcat object 
01c0: 6c 69 74 65 72 61 6c 73 20 77 69 74 68 20 6d 63  literals with mc
01d0: 2d 6b 65 79 73 20 66 6f 72 20 73 65 61 72 63 68  -keys for search
01e0: 20 77 69 74 68 20 6c 6f 63 61 6c 65 2e 20 2a 2f   with locale. */
01f0: 0a 40 40 20 2d 33 37 31 2c 37 20 2b 33 37 31 2c  .@@ -371,7 +371,
0200: 37 20 40 40 20 74 79 70 65 64 65 66 20 73 74 72  7 @@ typedef str
0210: 75 63 74 20 43 6c 6f 63 6b 43 6c 69 65 6e 74 44  uct ClockClientD
0220: 61 74 61 20 7b 0a 20 0a 20 20 20 20 20 69 6e 74  ata {. .     int
0230: 20 64 65 66 46 6c 61 67 73 3b 09 09 20 20 20 20   defFlags;..    
0240: 2f 2a 20 44 65 66 61 75 6c 74 20 66 6c 61 67 73  /* Default flags
0250: 20 28 66 72 6f 6d 20 63 6f 6e 66 69 67 75 72 65   (from configure
0260: 29 2c 20 41 54 4d 0a 20 09 09 09 09 20 20 20 20  ), ATM. ....    
0270: 20 2a 20 6f 6e 6c 79 20 43 4c 46 5f 56 41 4c 49   * only CLF_VALI
0280: 44 41 54 45 20 73 75 70 70 6f 72 74 65 64 20 2a  DATE supported *
0290: 2f 0a 2d 7d 20 43 6c 6f 63 6b 43 6c 69 65 6e 74  /.-} ClockClient
02a0: 44 61 74 61 3b 0a 2b 7d 3b 0a 20 0a 20 23 64 65  Data;.+};. . #de
02b0: 66 69 6e 65 20 43 6c 6f 63 6b 44 65 66 61 75 6c  fine ClockDefaul
02c0: 74 59 65 61 72 43 65 6e 74 75 72 79 20 32 30 30  tYearCentury 200
02d0: 30 0a 20 23 64 65 66 69 6e 65 20 43 6c 6f 63 6b  0. #define Clock
02e0: 44 65 66 61 75 6c 74 43 65 6e 74 75 72 79 53 77  DefaultCenturySw
02f0: 69 74 63 68 20 33 38 0a                          itch 38.