0000: 23 20 6d 73 67 63 61 74 2e 74 63 6c 20 2d 2d 0a # msgcat.tcl --.
0010: 23 0a 23 09 54 68 69 73 20 66 69 6c 65 20 64 65 #.#.This file de
0020: 66 69 6e 65 73 20 76 61 72 69 6f 75 73 20 70 72 fines various pr
0030: 6f 63 65 64 75 72 65 73 20 77 68 69 63 68 20 69 ocedures which i
0040: 6d 70 6c 65 6d 65 6e 74 20 61 0a 23 09 6d 65 73 mplement a.#.mes
0050: 73 61 67 65 20 63 61 74 61 6c 6f 67 20 66 61 63 sage catalog fac
0060: 69 6c 69 74 79 20 66 6f 72 20 54 63 6c 20 70 72 ility for Tcl pr
0070: 6f 67 72 61 6d 73 2e 20 20 49 74 20 73 68 6f 75 ograms. It shou
0080: 6c 64 20 62 65 0a 23 09 6c 6f 61 64 65 64 20 77 ld be.#.loaded w
0090: 69 74 68 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 ith the command
00a0: 22 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 "package require
00b0: 20 6d 73 67 63 61 74 22 2e 0a 23 0a 23 20 43 6f msgcat"..#.# Co
00c0: 70 79 72 69 67 68 74 20 28 63 29 20 32 30 31 30 pyright (c) 2010
00d0: 2d 32 30 31 35 20 62 79 20 48 61 72 61 6c 64 20 -2015 by Harald
00e0: 4f 65 68 6c 6d 61 6e 6e 2e 0a 23 20 43 6f 70 79 Oehlmann..# Copy
00f0: 72 69 67 68 74 20 28 63 29 20 31 39 39 38 2d 32 right (c) 1998-2
0100: 30 30 30 20 62 79 20 41 6a 75 62 61 20 53 6f 6c 000 by Ajuba Sol
0110: 75 74 69 6f 6e 73 2e 0a 23 20 43 6f 70 79 72 69 utions..# Copyri
0120: 67 68 74 20 28 63 29 20 31 39 39 38 20 62 79 20 ght (c) 1998 by
0130: 4d 61 72 6b 20 48 61 72 72 69 73 6f 6e 2e 0a 23 Mark Harrison..#
0140: 0a 23 20 53 65 65 20 74 68 65 20 66 69 6c 65 20 .# See the file
0150: 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 "license.terms"
0160: 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 for information
0170: 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 65 64 on usage and red
0180: 69 73 74 72 69 62 75 74 69 6f 6e 0a 23 20 6f 66 istribution.# of
0190: 20 74 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 this file, and
01a0: 66 6f 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 for a DISCLAIMER
01b0: 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 OF ALL WARRANTI
01c0: 45 53 2e 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 ES...package req
01d0: 75 69 72 65 20 54 63 6c 20 38 2e 36 2d 0a 23 20 uire Tcl 8.6-.#
01e0: 57 68 65 6e 20 74 68 65 20 76 65 72 73 69 6f 6e When the version
01f0: 20 6e 75 6d 62 65 72 20 63 68 61 6e 67 65 73 2c number changes,
0200: 20 62 65 20 73 75 72 65 20 74 6f 20 75 70 64 61 be sure to upda
0210: 74 65 20 74 68 65 20 70 6b 67 49 6e 64 65 78 2e te the pkgIndex.
0220: 74 63 6c 20 66 69 6c 65 2c 0a 23 20 61 6e 64 20 tcl file,.# and
0230: 74 68 65 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e the installation
0240: 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 74 68 directory in th
0250: 65 20 4d 61 6b 65 66 69 6c 65 73 2e 0a 70 61 63 e Makefiles..pac
0260: 6b 61 67 65 20 70 72 6f 76 69 64 65 20 6d 73 67 kage provide msg
0270: 63 61 74 20 31 2e 37 2e 30 0a 0a 6e 61 6d 65 73 cat 1.7.0..names
0280: 70 61 63 65 20 65 76 61 6c 20 6d 73 67 63 61 74 pace eval msgcat
0290: 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 {. namespace
02a0: 20 65 78 70 6f 72 74 20 6d 63 20 6d 63 6e 20 6d export mc mcn m
02b0: 63 65 78 69 73 74 73 20 6d 63 6c 6f 61 64 20 6d cexists mcload m
02c0: 63 6c 6f 63 61 6c 65 20 6d 63 6d 61 78 5c 0a 09 clocale mcmax\..
02d0: 20 20 20 20 6d 63 6d 73 65 74 20 6d 63 70 72 65 mcmset mcpre
02e0: 66 65 72 65 6e 63 65 73 20 6d 63 73 65 74 5c 0a ferences mcset\.
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 6d 63 75 6e mcun
0300: 6b 6e 6f 77 6e 20 6d 63 66 6c 73 65 74 20 6d 63 known mcflset mc
0310: 66 6c 6d 73 65 74 20 6d 63 6c 6f 61 64 65 64 6c flmset mcloadedl
0320: 6f 63 61 6c 65 73 20 6d 63 66 6f 72 67 65 74 70 ocales mcforgetp
0330: 61 63 6b 61 67 65 5c 0a 09 20 20 20 20 6d 63 70 ackage\.. mcp
0340: 61 63 6b 61 67 65 6e 61 6d 65 73 70 61 63 65 67 ackagenamespaceg
0350: 65 74 20 6d 63 70 61 63 6b 61 67 65 63 6f 6e 66 et mcpackageconf
0360: 69 67 20 6d 63 70 61 63 6b 61 67 65 6c 6f 63 61 ig mcpackageloca
0370: 6c 65 0a 0a 20 20 20 20 23 20 52 65 63 6f 72 64 le.. # Record
0380: 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6c 6f s the list of lo
0390: 63 61 6c 65 73 20 74 6f 20 73 65 61 72 63 68 0a cales to search.
03a0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c 6f 63 variable Loc
03b0: 6c 69 73 74 20 7b 7d 0a 0a 20 20 20 20 23 20 4c list {}.. # L
03c0: 69 73 74 20 6f 66 20 63 75 72 72 65 6e 74 6c 79 ist of currently
03d0: 20 6c 6f 61 64 65 64 20 6c 6f 63 61 6c 65 73 0a loaded locales.
03e0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c 6f 61 variable Loa
03f0: 64 65 64 4c 6f 63 61 6c 65 73 20 7b 7d 0a 0a 20 dedLocales {}..
0400: 20 20 20 23 20 52 65 63 6f 72 64 73 20 74 68 65 # Records the
0410: 20 6c 6f 63 61 6c 65 20 6f 66 20 74 68 65 20 63 locale of the c
0420: 75 72 72 65 6e 74 6c 79 20 73 6f 75 72 63 65 64 urrently sourced
0430: 20 6d 65 73 73 61 67 65 20 63 61 74 61 6c 6f 67 message catalog
0440: 75 65 20 66 69 6c 65 0a 20 20 20 20 76 61 72 69 ue file. vari
0450: 61 62 6c 65 20 46 69 6c 65 4c 6f 63 61 6c 65 0a able FileLocale.
0460: 0a 20 20 20 20 23 20 43 6f 6e 66 69 67 75 72 61 . # Configura
0470: 74 69 6f 6e 20 76 61 6c 75 65 73 20 70 65 72 20 tion values per
0480: 50 61 63 6b 61 67 65 20 28 65 2e 67 2e 20 63 6c Package (e.g. cl
0490: 69 65 6e 74 20 6e 61 6d 65 73 70 61 63 65 29 2e ient namespace).
04a0: 0a 20 20 20 20 23 20 54 68 65 20 64 69 63 74 20 . # The dict
04b0: 6b 65 79 20 69 73 20 6f 66 20 74 68 65 20 66 6f key is of the fo
04c0: 72 6d 20 22 3c 6f 70 74 69 6f 6e 3e 20 3c 6e 61 rm "<option> <na
04d0: 6d 65 73 70 61 63 65 3e 22 20 61 6e 64 20 74 68 mespace>" and th
04e0: 65 20 76 61 6c 75 65 20 69 73 20 74 68 65 0a 20 e value is the.
04f0: 20 20 20 23 20 63 6f 6e 66 69 67 75 72 61 74 69 # configurati
0500: 6f 6e 20 6f 70 74 69 6f 6e 2e 20 41 20 6e 6f 6e on option. A non
0510: 65 78 69 73 74 69 6e 67 20 6b 65 79 20 69 73 20 existing key is
0520: 61 6e 20 75 6e 73 65 74 20 6f 70 74 69 6f 6e 2e an unset option.
0530: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 50 61 . variable Pa
0540: 63 6b 61 67 65 43 6f 6e 66 69 67 20 5b 64 69 63 ckageConfig [dic
0550: 74 20 63 72 65 61 74 65 20 6d 63 66 6f 6c 64 65 t create mcfolde
0560: 72 20 7b 7d 20 6c 6f 61 64 63 6d 64 20 7b 7d 20 r {} loadcmd {}
0570: 63 68 61 6e 67 65 63 6d 64 20 7b 7d 5c 0a 09 20 changecmd {}\..
0580: 20 20 20 75 6e 6b 6e 6f 77 6e 63 6d 64 20 7b 7d unknowncmd {}
0590: 20 6c 6f 61 64 65 64 6c 6f 63 61 6c 65 73 20 7b loadedlocales {
05a0: 7d 20 6c 6f 63 6c 69 73 74 20 7b 7d 5d 0a 0a 20 } loclist {}]..
05b0: 20 20 20 23 20 52 65 63 6f 72 64 73 20 74 68 65 # Records the
05c0: 20 6d 61 70 70 69 6e 67 20 62 65 74 77 65 65 6e mapping between
05d0: 20 73 6f 75 72 63 65 20 73 74 72 69 6e 67 73 20 source strings
05e0: 61 6e 64 20 74 72 61 6e 73 6c 61 74 65 64 20 73 and translated s
05f0: 74 72 69 6e 67 73 2e 20 20 54 68 65 0a 20 20 20 trings. The.
0600: 20 23 20 64 69 63 74 20 6b 65 79 20 69 73 20 6f # dict key is o
0610: 66 20 74 68 65 20 66 6f 72 6d 20 22 3c 6e 61 6d f the form "<nam
0620: 65 73 70 61 63 65 3e 20 3c 6c 6f 63 61 6c 65 3e espace> <locale>
0630: 20 3c 73 72 63 3e 22 2c 20 77 68 65 72 65 20 6c <src>", where l
0640: 6f 63 61 6c 65 20 61 6e 64 0a 20 20 20 20 23 20 ocale and. #
0650: 6e 61 6d 65 73 70 61 63 65 20 73 68 6f 75 6c 64 namespace should
0660: 20 62 65 20 74 68 65 6d 73 65 6c 76 65 73 20 64 be themselves d
0670: 69 63 74 20 76 61 6c 75 65 73 20 61 6e 64 20 74 ict values and t
0680: 68 65 20 76 61 6c 75 65 20 69 73 0a 20 20 20 20 he value is.
0690: 23 20 74 68 65 20 74 72 61 6e 73 6c 61 74 65 64 # the translated
06a0: 20 73 74 72 69 6e 67 2e 0a 20 20 20 20 76 61 72 string.. var
06b0: 69 61 62 6c 65 20 4d 73 67 73 20 5b 64 69 63 74 iable Msgs [dict
06c0: 20 63 72 65 61 74 65 5d 0a 0a 20 20 20 20 23 20 create].. #
06d0: 4d 61 70 20 6f 66 20 6c 61 6e 67 75 61 67 65 20 Map of language
06e0: 63 6f 64 65 73 20 75 73 65 64 20 69 6e 20 57 69 codes used in Wi
06f0: 6e 64 6f 77 73 20 72 65 67 69 73 74 72 79 20 74 ndows registry t
0700: 6f 20 74 68 6f 73 65 20 6f 66 20 49 53 4f 2d 36 o those of ISO-6
0710: 33 39 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 39. if {[info
0720: 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 sharedlibextens
0730: 69 6f 6e 5d 20 65 71 20 22 2e 64 6c 6c 22 7d 20 ion] eq ".dll"}
0740: 7b 0a 09 76 61 72 69 61 62 6c 65 20 57 69 6e 52 {..variable WinR
0750: 65 67 54 6f 49 53 4f 36 33 39 20 5b 64 69 63 74 egToISO639 [dict
0760: 20 63 72 65 61 74 65 20 20 7b 2a 7d 7b 0a 09 20 create {*}{..
0770: 20 20 20 30 31 20 61 72 20 30 34 30 31 20 61 72 01 ar 0401 ar
0780: 5f 53 41 20 30 38 30 31 20 61 72 5f 49 51 20 30 _SA 0801 ar_IQ 0
0790: 63 30 31 20 61 72 5f 45 47 20 31 30 30 31 20 61 c01 ar_EG 1001 a
07a0: 72 5f 4c 59 20 31 34 30 31 20 61 72 5f 44 5a 0a r_LY 1401 ar_DZ.
07b0: 09 09 20 20 31 38 30 31 20 61 72 5f 4d 41 20 31 .. 1801 ar_MA 1
07c0: 63 30 31 20 61 72 5f 54 4e 20 32 30 30 31 20 61 c01 ar_TN 2001 a
07d0: 72 5f 4f 4d 20 32 34 30 31 20 61 72 5f 59 45 20 r_OM 2401 ar_YE
07e0: 32 38 30 31 20 61 72 5f 53 59 0a 09 09 20 20 32 2801 ar_SY... 2
07f0: 63 30 31 20 61 72 5f 4a 4f 20 33 30 30 31 20 61 c01 ar_JO 3001 a
0800: 72 5f 4c 42 20 33 34 30 31 20 61 72 5f 4b 57 20 r_LB 3401 ar_KW
0810: 33 38 30 31 20 61 72 5f 41 45 20 33 63 30 31 20 3801 ar_AE 3c01
0820: 61 72 5f 42 48 0a 09 09 20 20 34 30 30 31 20 61 ar_BH... 4001 a
0830: 72 5f 51 41 0a 09 20 20 20 20 30 32 20 62 67 20 r_QA.. 02 bg
0840: 30 34 30 32 20 62 67 5f 42 47 0a 09 20 20 20 20 0402 bg_BG..
0850: 30 33 20 63 61 20 30 34 30 33 20 63 61 5f 45 53 03 ca 0403 ca_ES
0860: 0a 09 20 20 20 20 30 34 20 7a 68 20 30 34 30 34 .. 04 zh 0404
0870: 20 7a 68 5f 54 57 20 30 38 30 34 20 7a 68 5f 43 zh_TW 0804 zh_C
0880: 4e 20 30 63 30 34 20 7a 68 5f 48 4b 20 31 30 30 N 0c04 zh_HK 100
0890: 34 20 7a 68 5f 53 47 20 31 34 30 34 20 7a 68 5f 4 zh_SG 1404 zh_
08a0: 4d 4f 0a 09 20 20 20 20 30 35 20 63 73 20 30 34 MO.. 05 cs 04
08b0: 30 35 20 63 73 5f 43 5a 0a 09 20 20 20 20 30 36 05 cs_CZ.. 06
08c0: 20 64 61 20 30 34 30 36 20 64 61 5f 44 4b 0a 09 da 0406 da_DK..
08d0: 20 20 20 20 30 37 20 64 65 20 30 34 30 37 20 64 07 de 0407 d
08e0: 65 5f 44 45 20 30 38 30 37 20 64 65 5f 43 48 20 e_DE 0807 de_CH
08f0: 30 63 30 37 20 64 65 5f 41 54 20 31 30 30 37 20 0c07 de_AT 1007
0900: 64 65 5f 4c 55 20 31 34 30 37 20 64 65 5f 4c 49 de_LU 1407 de_LI
0910: 0a 09 20 20 20 20 30 38 20 65 6c 20 30 34 30 38 .. 08 el 0408
0920: 20 65 6c 5f 47 52 0a 09 20 20 20 20 30 39 20 65 el_GR.. 09 e
0930: 6e 20 30 34 30 39 20 65 6e 5f 55 53 20 30 38 30 n 0409 en_US 080
0940: 39 20 65 6e 5f 47 42 20 30 63 30 39 20 65 6e 5f 9 en_GB 0c09 en_
0950: 41 55 20 31 30 30 39 20 65 6e 5f 43 41 20 31 34 AU 1009 en_CA 14
0960: 30 39 20 65 6e 5f 4e 5a 0a 09 09 20 20 31 38 30 09 en_NZ... 180
0970: 39 20 65 6e 5f 49 45 20 31 63 30 39 20 65 6e 5f 9 en_IE 1c09 en_
0980: 5a 41 20 32 30 30 39 20 65 6e 5f 4a 4d 20 32 34 ZA 2009 en_JM 24
0990: 30 39 20 65 6e 5f 47 44 20 32 38 30 39 20 65 6e 09 en_GD 2809 en
09a0: 5f 42 5a 0a 09 09 20 20 32 63 30 39 20 65 6e 5f _BZ... 2c09 en_
09b0: 54 54 20 33 30 30 39 20 65 6e 5f 5a 57 20 33 34 TT 3009 en_ZW 34
09c0: 30 39 20 65 6e 5f 50 48 0a 09 20 20 20 20 30 61 09 en_PH.. 0a
09d0: 20 65 73 20 30 34 30 61 20 65 73 5f 45 53 20 30 es 040a es_ES 0
09e0: 38 30 61 20 65 73 5f 4d 58 20 30 63 30 61 20 65 80a es_MX 0c0a e
09f0: 73 5f 45 53 40 6d 6f 64 65 72 6e 20 31 30 30 61 s_ES@modern 100a
0a00: 20 65 73 5f 47 54 20 31 34 30 61 20 65 73 5f 43 es_GT 140a es_C
0a10: 52 0a 09 09 20 20 31 38 30 61 20 65 73 5f 50 41 R... 180a es_PA
0a20: 20 31 63 30 61 20 65 73 5f 44 4f 20 32 30 30 61 1c0a es_DO 200a
0a30: 20 65 73 5f 56 45 20 32 34 30 61 20 65 73 5f 43 es_VE 240a es_C
0a40: 4f 20 32 38 30 61 20 65 73 5f 50 45 0a 09 09 20 O 280a es_PE...
0a50: 20 32 63 30 61 20 65 73 5f 41 52 20 33 30 30 61 2c0a es_AR 300a
0a60: 20 65 73 5f 45 43 20 33 34 30 61 20 65 73 5f 43 es_EC 340a es_C
0a70: 4c 20 33 38 30 61 20 65 73 5f 55 59 20 33 63 30 L 380a es_UY 3c0
0a80: 61 20 65 73 5f 50 59 0a 09 09 20 20 34 30 30 61 a es_PY... 400a
0a90: 20 65 73 5f 42 4f 20 34 34 30 61 20 65 73 5f 53 es_BO 440a es_S
0aa0: 56 20 34 38 30 61 20 65 73 5f 48 4e 20 34 63 30 V 480a es_HN 4c0
0ab0: 61 20 65 73 5f 4e 49 20 35 30 30 61 20 65 73 5f a es_NI 500a es_
0ac0: 50 52 0a 09 20 20 20 20 30 62 20 66 69 20 30 34 PR.. 0b fi 04
0ad0: 30 62 20 66 69 5f 46 49 0a 09 20 20 20 20 30 63 0b fi_FI.. 0c
0ae0: 20 66 72 20 30 34 30 63 20 66 72 5f 46 52 20 30 fr 040c fr_FR 0
0af0: 38 30 63 20 66 72 5f 42 45 20 30 63 30 63 20 66 80c fr_BE 0c0c f
0b00: 72 5f 43 41 20 31 30 30 63 20 66 72 5f 43 48 20 r_CA 100c fr_CH
0b10: 31 34 30 63 20 66 72 5f 4c 55 0a 09 09 20 20 31 140c fr_LU... 1
0b20: 38 30 63 20 66 72 5f 4d 43 0a 09 20 20 20 20 30 80c fr_MC.. 0
0b30: 64 20 68 65 20 30 34 30 64 20 68 65 5f 49 4c 0a d he 040d he_IL.
0b40: 09 20 20 20 20 30 65 20 68 75 20 30 34 30 65 20 . 0e hu 040e
0b50: 68 75 5f 48 55 0a 09 20 20 20 20 30 66 20 69 73 hu_HU.. 0f is
0b60: 20 30 34 30 66 20 69 73 5f 49 53 0a 09 20 20 20 040f is_IS..
0b70: 20 31 30 20 69 74 20 30 34 31 30 20 69 74 5f 49 10 it 0410 it_I
0b80: 54 20 30 38 31 30 20 69 74 5f 43 48 0a 09 20 20 T 0810 it_CH..
0b90: 20 20 31 31 20 6a 61 20 30 34 31 31 20 6a 61 5f 11 ja 0411 ja_
0ba0: 4a 50 0a 09 20 20 20 20 31 32 20 6b 6f 20 30 34 JP.. 12 ko 04
0bb0: 31 32 20 6b 6f 5f 4b 52 0a 09 20 20 20 20 31 33 12 ko_KR.. 13
0bc0: 20 6e 6c 20 30 34 31 33 20 6e 6c 5f 4e 4c 20 30 nl 0413 nl_NL 0
0bd0: 38 31 33 20 6e 6c 5f 42 45 0a 09 20 20 20 20 31 813 nl_BE.. 1
0be0: 34 20 6e 6f 20 30 34 31 34 20 6e 6f 5f 4e 4f 20 4 no 0414 no_NO
0bf0: 30 38 31 34 20 6e 6e 5f 4e 4f 0a 09 20 20 20 20 0814 nn_NO..
0c00: 31 35 20 70 6c 20 30 34 31 35 20 70 6c 5f 50 4c 15 pl 0415 pl_PL
0c10: 0a 09 20 20 20 20 31 36 20 70 74 20 30 34 31 36 .. 16 pt 0416
0c20: 20 70 74 5f 42 52 20 30 38 31 36 20 70 74 5f 50 pt_BR 0816 pt_P
0c30: 54 0a 09 20 20 20 20 31 37 20 72 6d 20 30 34 31 T.. 17 rm 041
0c40: 37 20 72 6d 5f 43 48 0a 09 20 20 20 20 31 38 20 7 rm_CH.. 18
0c50: 72 6f 20 30 34 31 38 20 72 6f 5f 52 4f 20 30 38 ro 0418 ro_RO 08
0c60: 31 38 20 72 6f 5f 4d 4f 0a 09 20 20 20 20 31 39 18 ro_MO.. 19
0c70: 20 72 75 20 30 38 31 39 20 72 75 5f 4d 4f 0a 09 ru 0819 ru_MO..
0c80: 20 20 20 20 31 61 20 68 72 20 30 34 31 61 20 68 1a hr 041a h
0c90: 72 5f 48 52 20 30 38 31 61 20 73 72 5f 59 55 20 r_HR 081a sr_YU
0ca0: 30 63 31 61 20 73 72 5f 59 55 40 63 79 72 69 6c 0c1a sr_YU@cyril
0cb0: 6c 69 63 0a 09 20 20 20 20 31 62 20 73 6b 20 30 lic.. 1b sk 0
0cc0: 34 31 62 20 73 6b 5f 53 4b 0a 09 20 20 20 20 31 41b sk_SK.. 1
0cd0: 63 20 73 71 20 30 34 31 63 20 73 71 5f 41 4c 0a c sq 041c sq_AL.
0ce0: 09 20 20 20 20 31 64 20 73 76 20 30 34 31 64 20 . 1d sv 041d
0cf0: 73 76 5f 53 45 20 30 38 31 64 20 73 76 5f 46 49 sv_SE 081d sv_FI
0d00: 0a 09 20 20 20 20 31 65 20 74 68 20 30 34 31 65 .. 1e th 041e
0d10: 20 74 68 5f 54 48 0a 09 20 20 20 20 31 66 20 74 th_TH.. 1f t
0d20: 72 20 30 34 31 66 20 74 72 5f 54 52 0a 09 20 20 r 041f tr_TR..
0d30: 20 20 32 30 20 75 72 20 30 34 32 30 20 75 72 5f 20 ur 0420 ur_
0d40: 50 4b 20 30 38 32 30 20 75 72 5f 49 4e 0a 09 20 PK 0820 ur_IN..
0d50: 20 20 20 32 31 20 69 64 20 30 34 32 31 20 69 64 21 id 0421 id
0d60: 5f 49 44 0a 09 20 20 20 20 32 32 20 75 6b 20 30 _ID.. 22 uk 0
0d70: 34 32 32 20 75 6b 5f 55 41 0a 09 20 20 20 20 32 422 uk_UA.. 2
0d80: 33 20 62 65 20 30 34 32 33 20 62 65 5f 42 59 0a 3 be 0423 be_BY.
0d90: 09 20 20 20 20 32 34 20 73 6c 20 30 34 32 34 20 . 24 sl 0424
0da0: 73 6c 5f 53 49 0a 09 20 20 20 20 32 35 20 65 74 sl_SI.. 25 et
0db0: 20 30 34 32 35 20 65 74 5f 45 45 0a 09 20 20 20 0425 et_EE..
0dc0: 20 32 36 20 6c 76 20 30 34 32 36 20 6c 76 5f 4c 26 lv 0426 lv_L
0dd0: 56 0a 09 20 20 20 20 32 37 20 6c 74 20 30 34 32 V.. 27 lt 042
0de0: 37 20 6c 74 5f 4c 54 0a 09 20 20 20 20 32 38 20 7 lt_LT.. 28
0df0: 74 67 20 30 34 32 38 20 74 67 5f 54 4a 0a 09 20 tg 0428 tg_TJ..
0e00: 20 20 20 32 39 20 66 61 20 30 34 32 39 20 66 61 29 fa 0429 fa
0e10: 5f 49 52 0a 09 20 20 20 20 32 61 20 76 69 20 30 _IR.. 2a vi 0
0e20: 34 32 61 20 76 69 5f 56 4e 0a 09 20 20 20 20 32 42a vi_VN.. 2
0e30: 62 20 68 79 20 30 34 32 62 20 68 79 5f 41 4d 0a b hy 042b hy_AM.
0e40: 09 20 20 20 20 32 63 20 61 7a 20 30 34 32 63 20 . 2c az 042c
0e50: 61 7a 5f 41 5a 40 6c 61 74 69 6e 20 30 38 32 63 az_AZ@latin 082c
0e60: 20 61 7a 5f 41 5a 40 63 79 72 69 6c 6c 69 63 0a az_AZ@cyrillic.
0e70: 09 20 20 20 20 32 64 20 65 75 0a 09 20 20 20 20 . 2d eu..
0e80: 32 65 20 77 65 6e 20 30 34 32 65 20 77 65 6e 5f 2e wen 042e wen_
0e90: 44 45 0a 09 20 20 20 20 32 66 20 6d 6b 20 30 34 DE.. 2f mk 04
0ea0: 32 66 20 6d 6b 5f 4d 4b 0a 09 20 20 20 20 33 30 2f mk_MK.. 30
0eb0: 20 62 6e 74 20 30 34 33 30 20 62 6e 74 5f 54 5a bnt 0430 bnt_TZ
0ec0: 0a 09 20 20 20 20 33 31 20 74 73 20 30 34 33 31 .. 31 ts 0431
0ed0: 20 74 73 5f 5a 41 0a 09 20 20 20 20 33 32 20 74 ts_ZA.. 32 t
0ee0: 6e 0a 09 20 20 20 20 33 33 20 76 65 6e 20 30 34 n.. 33 ven 04
0ef0: 33 33 20 76 65 6e 5f 5a 41 0a 09 20 20 20 20 33 33 ven_ZA.. 3
0f00: 34 20 78 68 20 30 34 33 34 20 78 68 5f 5a 41 0a 4 xh 0434 xh_ZA.
0f10: 09 20 20 20 20 33 35 20 7a 75 20 30 34 33 35 20 . 35 zu 0435
0f20: 7a 75 5f 5a 41 0a 09 20 20 20 20 33 36 20 61 66 zu_ZA.. 36 af
0f30: 20 30 34 33 36 20 61 66 5f 5a 41 0a 09 20 20 20 0436 af_ZA..
0f40: 20 33 37 20 6b 61 20 30 34 33 37 20 6b 61 5f 47 37 ka 0437 ka_G
0f50: 45 0a 09 20 20 20 20 33 38 20 66 6f 20 30 34 33 E.. 38 fo 043
0f60: 38 20 66 6f 5f 46 4f 0a 09 20 20 20 20 33 39 20 8 fo_FO.. 39
0f70: 68 69 20 30 34 33 39 20 68 69 5f 49 4e 0a 09 20 hi 0439 hi_IN..
0f80: 20 20 20 33 61 20 6d 74 20 30 34 33 61 20 6d 74 3a mt 043a mt
0f90: 5f 4d 54 0a 09 20 20 20 20 33 62 20 73 65 20 30 _MT.. 3b se 0
0fa0: 34 33 62 20 73 65 5f 4e 4f 0a 09 20 20 20 20 30 43b se_NO.. 0
0fb0: 34 33 63 20 67 64 5f 55 4b 20 30 38 33 63 20 67 43c gd_UK 083c g
0fc0: 61 5f 49 45 0a 09 20 20 20 20 33 64 20 79 69 20 a_IE.. 3d yi
0fd0: 30 34 33 64 20 79 69 5f 49 4c 0a 09 20 20 20 20 043d yi_IL..
0fe0: 33 65 20 6d 73 20 30 34 33 65 20 6d 73 5f 4d 59 3e ms 043e ms_MY
0ff0: 20 30 38 33 65 20 6d 73 5f 42 4e 0a 09 20 20 20 083e ms_BN..
1000: 20 33 66 20 6b 6b 20 30 34 33 66 20 6b 6b 5f 4b 3f kk 043f kk_K
1010: 5a 0a 09 20 20 20 20 34 30 20 6b 79 20 30 34 34 Z.. 40 ky 044
1020: 30 20 6b 79 5f 4b 47 0a 09 20 20 20 20 34 31 20 0 ky_KG.. 41
1030: 73 77 20 30 34 34 31 20 73 77 5f 4b 45 0a 09 20 sw 0441 sw_KE..
1040: 20 20 20 34 32 20 74 6b 20 30 34 34 32 20 74 6b 42 tk 0442 tk
1050: 5f 54 4d 0a 09 20 20 20 20 34 33 20 75 7a 20 30 _TM.. 43 uz 0
1060: 34 34 33 20 75 7a 5f 55 5a 40 6c 61 74 69 6e 20 443 uz_UZ@latin
1070: 30 38 34 33 20 75 7a 5f 55 5a 40 63 79 72 69 6c 0843 uz_UZ@cyril
1080: 6c 69 63 0a 09 20 20 20 20 34 34 20 74 74 20 30 lic.. 44 tt 0
1090: 34 34 34 20 74 74 5f 52 55 0a 09 20 20 20 20 34 444 tt_RU.. 4
10a0: 35 20 62 6e 20 30 34 34 35 20 62 6e 5f 49 4e 0a 5 bn 0445 bn_IN.
10b0: 09 20 20 20 20 34 36 20 70 61 20 30 34 34 36 20 . 46 pa 0446
10c0: 70 61 5f 49 4e 0a 09 20 20 20 20 34 37 20 67 75 pa_IN.. 47 gu
10d0: 20 30 34 34 37 20 67 75 5f 49 4e 0a 09 20 20 20 0447 gu_IN..
10e0: 20 34 38 20 6f 72 20 30 34 34 38 20 6f 72 5f 49 48 or 0448 or_I
10f0: 4e 0a 09 20 20 20 20 34 39 20 74 61 0a 09 20 20 N.. 49 ta..
1100: 20 20 34 61 20 74 65 20 30 34 34 61 20 74 65 5f 4a te 044a te_
1110: 49 4e 0a 09 20 20 20 20 34 62 20 6b 6e 20 30 34 IN.. 4b kn 04
1120: 34 62 20 6b 6e 5f 49 4e 0a 09 20 20 20 20 34 63 4b kn_IN.. 4c
1130: 20 6d 6c 20 30 34 34 63 20 6d 6c 5f 49 4e 0a 09 ml 044c ml_IN..
1140: 20 20 20 20 34 64 20 61 73 20 30 34 34 64 20 61 4d as 044d a
1150: 73 5f 49 4e 0a 09 20 20 20 20 34 65 20 6d 72 20 s_IN.. 4e mr
1160: 30 34 34 65 20 6d 72 5f 49 4e 0a 09 20 20 20 20 044e mr_IN..
1170: 34 66 20 73 61 20 30 34 34 66 20 73 61 5f 49 4e 4f sa 044f sa_IN
1180: 0a 09 20 20 20 20 35 30 20 6d 6e 0a 09 20 20 20 .. 50 mn..
1190: 20 35 31 20 62 6f 20 30 34 35 31 20 62 6f 5f 43 51 bo 0451 bo_C
11a0: 4e 0a 09 20 20 20 20 35 32 20 63 79 20 30 34 35 N.. 52 cy 045
11b0: 32 20 63 79 5f 47 42 0a 09 20 20 20 20 35 33 20 2 cy_GB.. 53
11c0: 6b 6d 20 30 34 35 33 20 6b 6d 5f 4b 48 0a 09 20 km 0453 km_KH..
11d0: 20 20 20 35 34 20 6c 6f 20 30 34 35 34 20 6c 6f 54 lo 0454 lo
11e0: 5f 4c 41 0a 09 20 20 20 20 35 35 20 6d 79 20 30 _LA.. 55 my 0
11f0: 34 35 35 20 6d 79 5f 4d 4d 0a 09 20 20 20 20 35 455 my_MM.. 5
1200: 36 20 67 6c 20 30 34 35 36 20 67 6c 5f 45 53 0a 6 gl 0456 gl_ES.
1210: 09 20 20 20 20 35 37 20 6b 6f 6b 20 30 34 35 37 . 57 kok 0457
1220: 20 6b 6f 6b 5f 49 4e 0a 09 20 20 20 20 35 38 20 kok_IN.. 58
1230: 6d 6e 69 20 30 34 35 38 20 6d 6e 69 5f 49 4e 0a mni 0458 mni_IN.
1240: 09 20 20 20 20 35 39 20 73 64 0a 09 20 20 20 20 . 59 sd..
1250: 35 61 20 73 79 72 20 30 34 35 61 20 73 79 72 5f 5a syr 045a syr_
1260: 54 52 0a 09 20 20 20 20 35 62 20 73 69 20 30 34 TR.. 5b si 04
1270: 35 62 20 73 69 5f 4c 4b 0a 09 20 20 20 20 35 63 5b si_LK.. 5c
1280: 20 63 68 72 20 30 34 35 63 20 63 68 72 5f 55 53 chr 045c chr_US
1290: 0a 09 20 20 20 20 35 64 20 69 75 20 30 34 35 64 .. 5d iu 045d
12a0: 20 69 75 5f 43 41 0a 09 20 20 20 20 35 65 20 61 iu_CA.. 5e a
12b0: 6d 20 30 34 35 65 20 61 6d 5f 45 54 0a 09 20 20 m 045e am_ET..
12c0: 20 20 35 66 20 62 65 72 20 30 34 35 66 20 62 65 5f ber 045f be
12d0: 72 5f 4d 41 0a 09 20 20 20 20 36 30 20 6b 73 20 r_MA.. 60 ks
12e0: 30 34 36 30 20 6b 73 5f 50 4b 20 30 38 36 30 20 0460 ks_PK 0860
12f0: 6b 73 5f 49 4e 0a 09 20 20 20 20 36 31 20 6e 65 ks_IN.. 61 ne
1300: 20 30 34 36 31 20 6e 65 5f 4e 50 20 30 38 36 31 0461 ne_NP 0861
1310: 20 6e 65 5f 49 4e 0a 09 20 20 20 20 36 32 20 66 ne_IN.. 62 f
1320: 79 20 30 34 36 32 20 66 79 5f 4e 4c 0a 09 20 20 y 0462 fy_NL..
1330: 20 20 36 33 20 70 73 0a 09 20 20 20 20 36 34 20 63 ps.. 64
1340: 74 6c 20 30 34 36 34 20 74 6c 5f 50 48 0a 09 20 tl 0464 tl_PH..
1350: 20 20 20 36 35 20 64 69 76 20 30 34 36 35 20 64 65 div 0465 d
1360: 69 76 5f 4d 56 0a 09 20 20 20 20 36 36 20 62 69 iv_MV.. 66 bi
1370: 6e 20 30 34 36 36 20 62 69 6e 5f 4e 47 0a 09 20 n 0466 bin_NG..
1380: 20 20 20 36 37 20 66 75 6c 20 30 34 36 37 20 66 67 ful 0467 f
1390: 75 6c 5f 4e 47 0a 09 20 20 20 20 36 38 20 68 61 ul_NG.. 68 ha
13a0: 20 30 34 36 38 20 68 61 5f 4e 47 0a 09 20 20 20 0468 ha_NG..
13b0: 20 36 39 20 6e 69 63 20 30 34 36 39 20 6e 69 63 69 nic 0469 nic
13c0: 5f 4e 47 0a 09 20 20 20 20 36 61 20 79 6f 20 30 _NG.. 6a yo 0
13d0: 34 36 61 20 79 6f 5f 4e 47 0a 09 20 20 20 20 37 46a yo_NG.. 7
13e0: 30 20 69 62 6f 20 30 34 37 30 20 69 62 6f 5f 4e 0 ibo 0470 ibo_N
13f0: 47 0a 09 20 20 20 20 37 31 20 6b 61 75 20 30 34 G.. 71 kau 04
1400: 37 31 20 6b 61 75 5f 4e 47 0a 09 20 20 20 20 37 71 kau_NG.. 7
1410: 32 20 6f 6d 20 30 34 37 32 20 6f 6d 5f 45 54 0a 2 om 0472 om_ET.
1420: 09 20 20 20 20 37 33 20 74 69 20 30 34 37 33 20 . 73 ti 0473
1430: 74 69 5f 45 54 0a 09 20 20 20 20 37 34 20 67 6e ti_ET.. 74 gn
1440: 20 30 34 37 34 20 67 6e 5f 50 59 0a 09 20 20 20 0474 gn_PY..
1450: 20 37 35 20 63 70 65 20 30 34 37 35 20 63 70 65 75 cpe 0475 cpe
1460: 5f 55 53 0a 09 20 20 20 20 37 36 20 6c 61 20 30 _US.. 76 la 0
1470: 34 37 36 20 6c 61 5f 56 41 0a 09 20 20 20 20 37 476 la_VA.. 7
1480: 37 20 73 6f 20 30 34 37 37 20 73 6f 5f 53 4f 0a 7 so 0477 so_SO.
1490: 09 20 20 20 20 37 38 20 73 69 74 20 30 34 37 38 . 78 sit 0478
14a0: 20 73 69 74 5f 43 4e 0a 09 20 20 20 20 37 39 20 sit_CN.. 79
14b0: 70 61 70 20 30 34 37 39 20 70 61 70 5f 41 4e 0a pap 0479 pap_AN.
14c0: 09 7d 5d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 6d .}]. }.}..# m
14d0: 73 67 63 61 74 3a 3a 6d 63 20 2d 2d 0a 23 0a 23 sgcat::mc --.#.#
14e0: 09 46 69 6e 64 20 74 68 65 20 74 72 61 6e 73 6c .Find the transl
14f0: 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 67 69 ation for the gi
1500: 76 65 6e 20 73 74 72 69 6e 67 20 62 61 73 65 64 ven string based
1510: 20 6f 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a on the current.
1520: 23 09 6c 6f 63 61 6c 65 20 73 65 74 74 69 6e 67 #.locale setting
1530: 2e 20 43 68 65 63 6b 20 74 68 65 20 6c 6f 63 61 . Check the loca
1540: 6c 20 6e 61 6d 65 73 70 61 63 65 20 66 69 72 73 l namespace firs
1550: 74 2c 20 74 68 65 6e 20 6c 6f 6f 6b 20 69 6e 20 t, then look in
1560: 65 61 63 68 0a 23 09 70 61 72 65 6e 74 20 6e 61 each.#.parent na
1570: 6d 65 73 70 61 63 65 20 75 6e 74 69 6c 20 74 68 mespace until th
1580: 65 20 73 6f 75 72 63 65 20 69 73 20 66 6f 75 6e e source is foun
1590: 64 2e 20 20 49 66 20 61 64 64 69 74 69 6f 6e 61 d. If additiona
15a0: 6c 20 61 72 67 73 20 61 72 65 0a 23 09 73 70 65 l args are.#.spe
15b0: 63 69 66 69 65 64 2c 20 75 73 65 20 74 68 65 20 cified, use the
15c0: 66 6f 72 6d 61 74 20 63 6f 6d 6d 61 6e 64 20 74 format command t
15d0: 6f 20 77 6f 72 6b 20 74 68 65 6d 20 69 6e 74 6f o work them into
15e0: 20 74 68 65 20 74 72 61 73 6c 61 74 65 64 0a 23 the traslated.#
15f0: 09 73 74 72 69 6e 67 2e 0a 23 09 49 66 20 6e 6f .string..#.If no
1600: 20 63 61 74 61 6c 6f 67 20 69 74 65 6d 20 69 73 catalog item is
1610: 20 66 6f 75 6e 64 2c 20 6d 63 75 6e 6b 6e 6f 77 found, mcunknow
1620: 6e 20 69 73 20 63 61 6c 6c 65 64 20 69 6e 20 74 n is called in t
1630: 68 65 20 63 61 6c 6c 65 72 20 66 72 61 6d 65 0a he caller frame.
1640: 23 09 61 6e 64 20 69 74 73 20 72 65 73 75 6c 74 #.and its result
1650: 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 23 0a is returned..#.
1660: 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 73 # Arguments:.#.s
1670: 72 63 09 54 68 65 20 73 74 72 69 6e 67 20 74 6f rc.The string to
1680: 20 74 72 61 6e 73 6c 61 74 65 2e 0a 23 09 61 72 translate..#.ar
1690: 67 73 09 41 72 67 73 20 74 6f 20 70 61 73 73 20 gs.Args to pass
16a0: 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 63 6f to the format co
16b0: 6d 6d 61 6e 64 0a 23 0a 23 20 52 65 73 75 6c 74 mmand.#.# Result
16c0: 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 74 68 65 s:.#.Returns the
16d0: 20 74 72 61 6e 73 6c 61 74 65 64 20 73 74 72 69 translated stri
16e0: 6e 67 2e 20 20 50 72 6f 70 61 67 61 74 65 73 20 ng. Propagates
16f0: 65 72 72 6f 72 73 20 74 68 72 6f 77 6e 20 62 79 errors thrown by
1700: 20 74 68 65 0a 23 09 66 6f 72 6d 61 74 20 63 6f the.#.format co
1710: 6d 6d 61 6e 64 2e 0a 0a 70 72 6f 63 20 6d 73 67 mmand...proc msg
1720: 63 61 74 3a 3a 6d 63 20 7b 61 72 67 73 7d 20 7b cat::mc {args} {
1730: 0a 20 20 20 20 74 61 69 6c 63 61 6c 6c 20 6d 63 . tailcall mc
1740: 6e 20 5b 50 61 63 6b 61 67 65 4e 61 6d 65 73 70 n [PackageNamesp
1750: 61 63 65 47 65 74 5d 20 7b 2a 7d 24 61 72 67 73 aceGet] {*}$args
1760: 0a 7d 0a 0a 23 20 6d 73 67 63 61 74 3a 3a 6d 63 .}..# msgcat::mc
1770: 6e 20 2d 2d 0a 23 0a 23 09 46 69 6e 64 20 74 68 n --.#.#.Find th
1780: 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 66 6f e translation fo
1790: 72 20 74 68 65 20 67 69 76 65 6e 20 73 74 72 69 r the given stri
17a0: 6e 67 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 ng based on the
17b0: 63 75 72 72 65 6e 74 0a 23 09 6c 6f 63 61 6c 65 current.#.locale
17c0: 20 73 65 74 74 69 6e 67 2e 20 43 68 65 63 6b 20 setting. Check
17d0: 74 68 65 20 70 61 73 73 65 64 20 6e 61 6d 65 73 the passed names
17e0: 70 61 63 65 20 66 69 72 73 74 2c 20 74 68 65 6e pace first, then
17f0: 20 6c 6f 6f 6b 20 69 6e 20 65 61 63 68 0a 23 09 look in each.#.
1800: 70 61 72 65 6e 74 20 6e 61 6d 65 73 70 61 63 65 parent namespace
1810: 20 75 6e 74 69 6c 20 74 68 65 20 73 6f 75 72 63 until the sourc
1820: 65 20 69 73 20 66 6f 75 6e 64 2e 20 20 49 66 20 e is found. If
1830: 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 73 20 additional args
1840: 61 72 65 0a 23 09 73 70 65 63 69 66 69 65 64 2c are.#.specified,
1850: 20 75 73 65 20 74 68 65 20 66 6f 72 6d 61 74 20 use the format
1860: 63 6f 6d 6d 61 6e 64 20 74 6f 20 77 6f 72 6b 20 command to work
1870: 74 68 65 6d 20 69 6e 74 6f 20 74 68 65 20 74 72 them into the tr
1880: 61 73 6c 61 74 65 64 0a 23 09 73 74 72 69 6e 67 aslated.#.string
1890: 2e 0a 23 09 49 66 20 6e 6f 20 63 61 74 61 6c 6f ..#.If no catalo
18a0: 67 20 69 74 65 6d 20 69 73 20 66 6f 75 6e 64 2c g item is found,
18b0: 20 6d 63 75 6e 6b 6e 6f 77 6e 20 69 73 20 63 61 mcunknown is ca
18c0: 6c 6c 65 64 20 69 6e 20 74 68 65 20 63 61 6c 6c lled in the call
18d0: 65 72 20 66 72 61 6d 65 0a 23 09 61 6e 64 20 69 er frame.#.and i
18e0: 74 73 20 72 65 73 75 6c 74 20 69 73 20 72 65 74 ts result is ret
18f0: 75 72 6e 65 64 2e 0a 23 0a 23 20 41 72 67 75 6d urned..#.# Argum
1900: 65 6e 74 73 3a 0a 23 09 6e 73 09 50 61 63 6b 61 ents:.#.ns.Packa
1910: 67 65 20 6e 61 6d 65 73 70 61 63 65 20 6f 66 20 ge namespace of
1920: 74 68 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 0a the translation.
1930: 23 09 73 72 63 09 54 68 65 20 73 74 72 69 6e 67 #.src.The string
1940: 20 74 6f 20 74 72 61 6e 73 6c 61 74 65 2e 0a 23 to translate..#
1950: 09 61 72 67 73 09 41 72 67 73 20 74 6f 20 70 61 .args.Args to pa
1960: 73 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 ss to the format
1970: 20 63 6f 6d 6d 61 6e 64 0a 23 0a 23 20 52 65 73 command.#.# Res
1980: 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 ults:.#.Returns
1990: 74 68 65 20 74 72 61 6e 73 6c 61 74 65 64 20 73 the translated s
19a0: 74 72 69 6e 67 2e 20 20 50 72 6f 70 61 67 61 74 tring. Propagat
19b0: 65 73 20 65 72 72 6f 72 73 20 74 68 72 6f 77 6e es errors thrown
19c0: 20 62 79 20 74 68 65 0a 23 09 66 6f 72 6d 61 74 by the.#.format
19d0: 20 63 6f 6d 6d 61 6e 64 2e 0a 0a 70 72 6f 63 20 command...proc
19e0: 6d 73 67 63 61 74 3a 3a 6d 63 6e 20 7b 6e 73 20 msgcat::mcn {ns
19f0: 73 72 63 20 61 72 67 73 7d 20 7b 0a 0a 20 20 20 src args} {..
1a00: 20 23 20 43 68 65 63 6b 20 66 6f 72 20 74 68 65 # Check for the
1a10: 20 73 72 63 20 69 6e 20 65 61 63 68 20 6e 61 6d src in each nam
1a20: 65 73 70 61 63 65 20 73 74 61 72 74 69 6e 67 20 espace starting
1a30: 66 72 6f 6d 20 74 68 65 20 6c 6f 63 61 6c 20 61 from the local a
1a40: 6e 64 0a 20 20 20 20 23 20 65 6e 64 69 6e 67 20 nd. # ending
1a50: 69 6e 20 74 68 65 20 67 6c 6f 62 61 6c 2e 0a 0a in the global...
1a60: 20 20 20 20 76 61 72 69 61 62 6c 65 20 4d 73 67 variable Msg
1a70: 73 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c s. variable L
1a80: 6f 63 6c 69 73 74 0a 0a 20 20 20 20 73 65 74 20 oclist.. set
1a90: 6c 6f 63 6c 69 73 74 20 5b 50 61 63 6b 61 67 65 loclist [Package
1aa0: 50 72 65 66 65 72 65 6e 63 65 73 20 24 6e 73 5d Preferences $ns]
1ab0: 0a 0a 20 20 20 20 73 65 74 20 6e 73 63 75 72 20 .. set nscur
1ac0: 24 6e 73 0a 20 20 20 20 77 68 69 6c 65 20 7b 24 $ns. while {$
1ad0: 6e 73 63 75 72 20 21 3d 20 22 22 7d 20 7b 0a 09 nscur != ""} {..
1ae0: 66 6f 72 65 61 63 68 20 6c 6f 63 20 24 6c 6f 63 foreach loc $loc
1af0: 6c 69 73 74 20 7b 0a 09 20 20 20 20 69 66 20 7b list {.. if {
1b00: 5b 64 69 63 74 20 65 78 69 73 74 73 20 24 4d 73 [dict exists $Ms
1b10: 67 73 20 24 6e 73 63 75 72 20 24 6c 6f 63 20 24 gs $nscur $loc $
1b20: 73 72 63 5d 7d 20 7b 0a 09 09 72 65 74 75 72 6e src]} {...return
1b30: 20 5b 44 65 66 61 75 6c 74 55 6e 6b 6e 6f 77 6e [DefaultUnknown
1b40: 20 22 22 20 5b 64 69 63 74 20 67 65 74 20 24 4d "" [dict get $M
1b50: 73 67 73 20 24 6e 73 63 75 72 20 24 6c 6f 63 20 sgs $nscur $loc
1b60: 24 73 72 63 5d 5c 0a 09 09 09 7b 2a 7d 24 61 72 $src]\....{*}$ar
1b70: 67 73 5d 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 73 gs].. }..}..s
1b80: 65 74 20 6e 73 63 75 72 20 5b 6e 61 6d 65 73 70 et nscur [namesp
1b90: 61 63 65 20 70 61 72 65 6e 74 20 24 6e 73 63 75 ace parent $nscu
1ba0: 72 5d 0a 20 20 20 20 7d 0a 20 20 20 20 23 20 63 r]. }. # c
1bb0: 61 6c 6c 20 70 61 63 6b 61 67 65 20 6c 6f 63 61 all package loca
1bc0: 6c 20 6f 72 20 64 65 66 61 75 6c 74 20 75 6e 6b l or default unk
1bd0: 6e 6f 77 6e 20 63 6f 6d 6d 61 6e 64 0a 20 20 20 nown command.
1be0: 20 73 65 74 20 61 72 67 73 20 5b 6c 69 6e 73 65 set args [linse
1bf0: 72 74 20 24 61 72 67 73 20 30 20 5b 6c 69 6e 64 rt $args 0 [lind
1c00: 65 78 20 24 6c 6f 63 6c 69 73 74 20 30 5d 20 24 ex $loclist 0] $
1c10: 73 72 63 5d 0a 20 20 20 20 73 77 69 74 63 68 20 src]. switch
1c20: 2d 65 78 61 63 74 20 2d 2d 20 5b 49 6e 76 6f 6b -exact -- [Invok
1c30: 65 20 75 6e 6b 6e 6f 77 6e 63 6d 64 20 24 61 72 e unknowncmd $ar
1c40: 67 73 20 24 6e 73 20 72 65 73 75 6c 74 20 31 5d gs $ns result 1]
1c50: 20 7b 0a 09 30 20 7b 20 74 61 69 6c 63 61 6c 6c {..0 { tailcall
1c60: 20 6d 63 75 6e 6b 6e 6f 77 6e 20 7b 2a 7d 24 61 mcunknown {*}$a
1c70: 72 67 73 20 7d 0a 09 31 20 7b 20 72 65 74 75 72 rgs }..1 { retur
1c80: 6e 20 5b 44 65 66 61 75 6c 74 55 6e 6b 6e 6f 77 n [DefaultUnknow
1c90: 6e 20 7b 2a 7d 24 61 72 67 73 5d 20 7d 0a 09 64 n {*}$args] }..d
1ca0: 65 66 61 75 6c 74 20 7b 20 72 65 74 75 72 6e 20 efault { return
1cb0: 24 72 65 73 75 6c 74 20 7d 0a 20 20 20 20 7d 0a $result }. }.
1cc0: 7d 0a 0a 23 20 6d 73 67 63 61 74 3a 3a 6d 63 65 }..# msgcat::mce
1cd0: 78 69 73 74 73 20 2d 2d 0a 23 0a 23 09 43 68 65 xists --.#.#.Che
1ce0: 63 6b 20 69 66 20 61 20 63 61 74 61 6c 6f 67 20 ck if a catalog
1cf0: 69 74 65 6d 20 69 73 20 73 65 74 20 6f 72 20 69 item is set or i
1d00: 66 20 6d 63 20 77 6f 75 6c 64 20 69 6e 76 6f 6b f mc would invok
1d10: 65 20 6d 63 75 6e 6b 6e 6f 77 6e 2e 0a 23 0a 23 e mcunknown..#.#
1d20: 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 2d 65 Arguments:.#.-e
1d30: 78 61 63 74 6e 61 6d 65 73 70 61 63 65 09 09 4f xactnamespace..O
1d40: 6e 6c 79 20 63 68 65 63 6b 20 74 68 65 20 65 78 nly check the ex
1d50: 61 63 74 20 6e 61 6d 65 73 70 61 63 65 20 61 6e act namespace an
1d60: 64 20 6e 6f 0a 23 09 09 09 09 70 61 72 65 6e 74 d no.#....parent
1d70: 20 6e 61 6d 65 73 70 61 63 65 73 0a 23 09 2d 65 namespaces.#.-e
1d80: 78 61 63 74 6c 6f 63 61 6c 65 09 09 4f 6e 6c 79 xactlocale..Only
1d90: 20 63 68 65 63 6b 20 74 68 65 20 65 78 61 63 74 check the exact
1da0: 20 6c 6f 63 61 6c 65 20 61 6e 64 20 6e 6f 74 20 locale and not
1db0: 61 6c 6c 20 6d 65 6d 62 65 72 73 0a 23 09 09 09 all members.#...
1dc0: 09 6f 66 20 74 68 65 20 70 72 65 66 65 72 65 6e .of the preferen
1dd0: 63 65 73 20 6c 69 73 74 0a 23 09 73 72 63 09 09 ces list.#.src..
1de0: 09 4d 65 73 73 61 67 65 20 63 61 74 61 6c 6f 67 .Message catalog
1df0: 20 6b 65 79 0a 23 0a 23 20 52 65 73 75 6c 74 73 key.#.# Results
1e00: 3a 0a 23 09 74 72 75 65 20 69 66 20 61 6e 20 61 :.#.true if an a
1e10: 64 65 71 75 61 74 65 20 63 61 74 61 6c 6f 67 20 dequate catalog
1e20: 6b 65 79 20 77 61 73 20 66 6f 75 6e 64 0a 0a 70 key was found..p
1e30: 72 6f 63 20 6d 73 67 63 61 74 3a 3a 6d 63 65 78 roc msgcat::mcex
1e40: 69 73 74 73 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 ists {args} {..
1e50: 20 20 20 76 61 72 69 61 62 6c 65 20 4d 73 67 73 variable Msgs
1e60: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c 6f . variable Lo
1e70: 63 6c 69 73 74 0a 20 20 20 20 76 61 72 69 61 62 clist. variab
1e80: 6c 65 20 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 le PackageConfig
1e90: 0a 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 6c 6c .. while {[ll
1ea0: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 21 3d 20 ength $args] !=
1eb0: 31 7d 20 7b 0a 09 73 65 74 20 61 72 67 73 20 5b 1} {..set args [
1ec0: 6c 61 73 73 69 67 6e 20 24 61 72 67 73 20 6f 70 lassign $args op
1ed0: 74 69 6f 6e 5d 0a 09 73 77 69 74 63 68 20 2d 67 tion]..switch -g
1ee0: 6c 6f 62 20 2d 2d 20 24 6f 70 74 69 6f 6e 20 7b lob -- $option {
1ef0: 0a 09 20 20 20 20 2d 65 78 61 63 74 6e 61 6d 65 .. -exactname
1f00: 73 70 61 63 65 20 2d 20 2d 65 78 61 63 74 6c 6f space - -exactlo
1f10: 63 61 6c 65 20 7b 20 73 65 74 20 24 6f 70 74 69 cale { set $opti
1f20: 6f 6e 20 31 20 7d 0a 09 20 20 20 20 2d 6e 61 6d on 1 }.. -nam
1f30: 65 73 70 61 63 65 20 7b 0a 09 09 69 66 20 7b 5b espace {...if {[
1f40: 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3c llength $args] <
1f50: 20 32 7d 20 7b 0a 09 09 20 20 20 20 72 65 74 75 2} {... retu
1f60: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 5c 0a rn -code error\.
1f70: 09 09 09 20 20 20 20 22 41 72 67 75 6d 65 6e 74 ... "Argument
1f80: 20 6d 69 73 73 69 6e 67 20 66 6f 72 20 73 77 69 missing for swi
1f90: 74 63 68 20 5c 22 2d 6e 61 6d 65 73 70 61 63 65 tch \"-namespace
1fa0: 5c 22 22 0a 09 09 7d 0a 09 09 73 65 74 20 61 72 \""...}...set ar
1fb0: 67 73 20 5b 6c 61 73 73 69 67 6e 20 24 61 72 67 gs [lassign $arg
1fc0: 73 20 6e 73 5d 0a 09 20 20 20 20 7d 0a 09 20 20 s ns].. }..
1fd0: 20 20 2d 2a 20 7b 20 72 65 74 75 72 6e 20 2d 63 -* { return -c
1fe0: 6f 64 65 20 65 72 72 6f 72 20 22 75 6e 6b 6e 6f ode error "unkno
1ff0: 77 6e 20 6f 70 74 69 6f 6e 20 5c 22 24 6f 70 74 wn option \"$opt
2000: 69 6f 6e 5c 22 22 20 7d 0a 09 20 20 20 20 64 65 ion\"" }.. de
2010: 66 61 75 6c 74 20 7b 0a 09 09 72 65 74 75 72 6e fault {...return
2020: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 77 72 -code error "wr
2030: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
2040: 6c 64 20 62 65 5c 0a 09 09 09 5c 22 5b 6c 69 6e ld be\....\"[lin
2050: 64 65 78 20 5b 69 6e 66 6f 20 6c 65 76 65 6c 20 dex [info level
2060: 30 5d 20 30 5d 20 3f 2d 65 78 61 63 74 6e 61 6d 0] 0] ?-exactnam
2070: 65 73 70 61 63 65 3f 5c 0a 09 09 09 3f 2d 65 78 espace?\....?-ex
2080: 61 63 74 6c 6f 63 61 6c 65 3f 20 3f 2d 6e 61 6d actlocale? ?-nam
2090: 65 73 70 61 63 65 20 6e 73 3f 20 73 72 63 5c 22 espace ns? src\"
20a0: 22 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 ".. }..}.
20b0: 7d 0a 20 20 20 20 73 65 74 20 73 72 63 20 5b 6c }. set src [l
20c0: 69 6e 64 65 78 20 24 61 72 67 73 20 30 5d 0a 20 index $args 0].
20d0: 20 20 20 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e . if {![in
20e0: 66 6f 20 65 78 69 73 74 73 20 6e 73 5d 7d 20 7b fo exists ns]} {
20f0: 20 73 65 74 20 6e 73 20 5b 50 61 63 6b 61 67 65 set ns [Package
2100: 4e 61 6d 65 73 70 61 63 65 47 65 74 5d 20 7d 0a NamespaceGet] }.
2110: 0a 20 20 20 20 73 65 74 20 6c 6f 63 6c 69 73 74 . set loclist
2120: 20 5b 50 61 63 6b 61 67 65 50 72 65 66 65 72 65 [PackagePrefere
2130: 6e 63 65 73 20 24 6e 73 5d 0a 20 20 20 20 69 66 nces $ns]. if
2140: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 2d {[info exists -
2150: 65 78 61 63 74 6c 6f 63 61 6c 65 5d 7d 20 7b 20 exactlocale]} {
2160: 73 65 74 20 6c 6f 63 6c 69 73 74 20 5b 6c 72 61 set loclist [lra
2170: 6e 67 65 20 24 6c 6f 63 6c 69 73 74 20 30 20 30 nge $loclist 0 0
2180: 5d 20 7d 0a 0a 20 20 20 20 77 68 69 6c 65 20 7b ] }.. while {
2190: 24 6e 73 20 6e 65 20 22 22 7d 20 7b 0a 09 66 6f $ns ne ""} {..fo
21a0: 72 65 61 63 68 20 6c 6f 63 20 24 6c 6f 63 6c 69 reach loc $locli
21b0: 73 74 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 64 st {.. if {[d
21c0: 69 63 74 20 65 78 69 73 74 73 20 24 4d 73 67 73 ict exists $Msgs
21d0: 20 24 6e 73 20 24 6c 6f 63 20 24 73 72 63 5d 7d $ns $loc $src]}
21e0: 20 7b 0a 09 09 72 65 74 75 72 6e 20 31 0a 09 20 {...return 1..
21f0: 20 20 20 7d 0a 09 7d 0a 09 69 66 20 7b 5b 69 6e }..}..if {[in
2200: 66 6f 20 65 78 69 73 74 73 20 2d 65 78 61 63 74 fo exists -exact
2210: 6e 61 6d 65 73 70 61 63 65 5d 7d 20 7b 72 65 74 namespace]} {ret
2220: 75 72 6e 20 30 7d 0a 09 73 65 74 20 6e 73 20 5b urn 0}..set ns [
2230: 6e 61 6d 65 73 70 61 63 65 20 70 61 72 65 6e 74 namespace parent
2240: 20 24 6e 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 $ns]. }.
2250: 72 65 74 75 72 6e 20 30 0a 7d 0a 0a 23 20 6d 73 return 0.}..# ms
2260: 67 63 61 74 3a 3a 6d 63 6c 6f 63 61 6c 65 20 2d gcat::mclocale -
2270: 2d 0a 23 0a 23 09 51 75 65 72 79 20 6f 72 20 73 -.#.#.Query or s
2280: 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c et the current l
2290: 6f 63 61 6c 65 2e 0a 23 0a 23 20 41 72 67 75 6d ocale..#.# Argum
22a0: 65 6e 74 73 3a 0a 23 09 6e 65 77 4c 6f 63 61 6c ents:.#.newLocal
22b0: 65 09 28 4f 70 74 69 6f 6e 61 6c 29 20 54 68 65 e.(Optional) The
22c0: 20 6e 65 77 20 6c 6f 63 61 6c 65 20 73 74 72 69 new locale stri
22d0: 6e 67 2e 20 4c 6f 63 61 6c 65 20 73 74 72 69 6e ng. Locale strin
22e0: 67 73 0a 23 09 09 09 73 68 6f 75 6c 64 20 62 65 gs.#...should be
22f0: 20 63 6f 6d 70 6f 73 65 64 20 6f 66 20 6f 6e 65 composed of one
2300: 20 6f 72 20 6d 6f 72 65 20 73 75 62 6c 6f 63 61 or more subloca
2310: 6c 65 20 70 61 72 74 73 0a 23 09 09 09 73 65 70 le parts.#...sep
2320: 61 72 61 74 65 64 20 62 79 20 75 6e 64 65 72 73 arated by unders
2330: 63 6f 72 65 73 20 28 65 2e 67 2e 20 65 6e 5f 55 cores (e.g. en_U
2340: 53 29 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a S)..#.# Results:
2350: 0a 23 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e .#.Returns the n
2360: 6f 72 6d 61 6c 69 7a 65 64 20 73 65 74 20 6c 6f ormalized set lo
2370: 63 61 6c 65 2e 0a 0a 70 72 6f 63 20 6d 73 67 63 cale...proc msgc
2380: 61 74 3a 3a 6d 63 6c 6f 63 61 6c 65 20 7b 61 72 at::mclocale {ar
2390: 67 73 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 gs} {. variab
23a0: 6c 65 20 4c 6f 63 6c 69 73 74 0a 20 20 20 20 76 le Loclist. v
23b0: 61 72 69 61 62 6c 65 20 4c 6f 61 64 65 64 4c 6f ariable LoadedLo
23c0: 63 61 6c 65 73 0a 20 20 20 20 73 65 74 20 6c 65 cales. set le
23d0: 6e 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 n [llength $args
23e0: 5d 0a 0a 20 20 20 20 69 66 20 7b 24 6c 65 6e 20 ].. if {$len
23f0: 3e 20 31 7d 20 7b 0a 09 72 65 74 75 72 6e 20 2d > 1} {..return -
2400: 63 6f 64 65 20 65 72 72 6f 72 20 22 77 72 6f 6e code error "wron
2410: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
2420: 20 62 65 5c 0a 09 09 5c 22 5b 6c 69 6e 64 65 78 be\...\"[lindex
2430: 20 5b 69 6e 66 6f 20 6c 65 76 65 6c 20 30 5d 20 [info level 0]
2440: 30 5d 20 3f 6e 65 77 4c 6f 63 61 6c 65 3f 5c 22 0] ?newLocale?\"
2450: 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ". }.. if
2460: 7b 24 6c 65 6e 20 3d 3d 20 31 7d 20 7b 0a 09 73 {$len == 1} {..s
2470: 65 74 20 6e 65 77 4c 6f 63 61 6c 65 20 5b 73 74 et newLocale [st
2480: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 6c 69 ring tolower [li
2490: 6e 64 65 78 20 24 61 72 67 73 20 30 5d 5d 0a 09 ndex $args 0]]..
24a0: 69 66 20 7b 24 6e 65 77 4c 6f 63 61 6c 65 20 6e if {$newLocale n
24b0: 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 6e 65 e [file tail $ne
24c0: 77 4c 6f 63 61 6c 65 5d 7d 20 7b 0a 09 20 20 20 wLocale]} {..
24d0: 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 return -code er
24e0: 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 6e 65 77 ror "invalid new
24f0: 4c 6f 63 61 6c 65 20 76 61 6c 75 65 20 5c 22 24 Locale value \"$
2500: 6e 65 77 4c 6f 63 61 6c 65 5c 22 3a 5c 0a 09 09 newLocale\":\...
2510: 20 20 20 20 63 6f 75 6c 64 20 62 65 20 70 61 74 could be pat
2520: 68 20 74 6f 20 75 6e 73 61 66 65 20 63 6f 64 65 h to unsafe code
2530: 2e 22 0a 09 7d 0a 09 69 66 20 7b 5b 6c 69 6e 64 ."..}..if {[lind
2540: 65 78 20 24 4c 6f 63 6c 69 73 74 20 30 5d 20 6e ex $Loclist 0] n
2550: 65 20 24 6e 65 77 4c 6f 63 61 6c 65 7d 20 7b 0a e $newLocale} {.
2560: 09 20 20 20 20 73 65 74 20 4c 6f 63 6c 69 73 74 . set Loclist
2570: 20 5b 47 65 74 50 72 65 66 65 72 65 6e 63 65 73 [GetPreferences
2580: 20 24 6e 65 77 4c 6f 63 61 6c 65 5d 0a 0a 09 20 $newLocale]...
2590: 20 20 20 23 20 6c 6f 63 61 6c 65 20 6e 6f 74 20 # locale not
25a0: 6c 6f 61 64 65 64 20 6a 65 74 0a 09 20 20 20 20 loaded jet..
25b0: 4c 6f 61 64 41 6c 6c 20 24 4c 6f 63 6c 69 73 74 LoadAll $Loclist
25c0: 0a 09 20 20 20 20 23 20 49 6e 76 6f 6b 65 20 63 .. # Invoke c
25d0: 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 49 6e 76 allback.. Inv
25e0: 6f 6b 65 20 63 68 61 6e 67 65 63 6d 64 20 24 4c oke changecmd $L
25f0: 6f 63 6c 69 73 74 0a 09 7d 0a 20 20 20 20 7d 0a oclist..}. }.
2600: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 6e 64 return [lind
2610: 65 78 20 24 4c 6f 63 6c 69 73 74 20 30 5d 0a 7d ex $Loclist 0].}
2620: 0a 0a 23 20 6d 73 67 63 61 74 3a 3a 47 65 74 50 ..# msgcat::GetP
2630: 72 65 66 65 72 65 6e 63 65 73 20 2d 2d 0a 23 0a references --.#.
2640: 23 09 47 65 74 20 6c 69 73 74 20 6f 66 20 6c 6f #.Get list of lo
2650: 63 61 6c 65 73 20 66 72 6f 6d 20 61 20 6c 6f 63 cales from a loc
2660: 61 6c 65 2e 0a 23 09 54 68 65 20 66 69 72 73 74 ale..#.The first
2670: 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 6c 77 61 element is alwa
2680: 79 73 20 74 68 65 20 6c 6f 77 65 72 63 61 73 65 ys the lowercase
2690: 20 6c 6f 63 61 6c 65 2e 0a 23 09 4f 74 68 65 72 locale..#.Other
26a0: 20 65 6c 65 6d 65 6e 74 73 20 68 61 76 65 20 6f elements have o
26b0: 6e 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 73 65 70 ne component sep
26c0: 61 72 61 74 65 64 20 62 79 20 22 5f 22 20 6c 65 arated by "_" le
26d0: 73 73 2e 0a 23 09 4d 75 6c 74 69 70 6c 65 20 22 ss..#.Multiple "
26e0: 5f 22 20 61 72 65 20 73 65 65 6e 20 61 73 20 6f _" are seen as o
26f0: 6e 65 20 73 65 70 61 72 61 74 6f 72 3a 20 64 65 ne separator: de
2700: 5f 5f 63 68 5f 73 70 65 63 20 64 65 5f 5f 63 68 __ch_spec de__ch
2710: 20 64 65 20 7b 7d 0a 23 0a 23 20 41 72 67 75 6d de {}.#.# Argum
2720: 65 6e 74 73 3a 0a 23 09 4c 6f 63 61 6c 65 2e 0a ents:.#.Locale..
2730: 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 4c #.# Results:.#.L
2740: 6f 63 61 6c 65 20 6c 69 73 74 0a 0a 70 72 6f 63 ocale list..proc
2750: 20 6d 73 67 63 61 74 3a 3a 47 65 74 50 72 65 66 msgcat::GetPref
2760: 65 72 65 6e 63 65 73 20 7b 6c 6f 63 61 6c 65 7d erences {locale}
2770: 20 7b 0a 20 20 20 20 73 65 74 20 6c 6f 63 61 6c {. set local
2780: 65 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 e [string tolowe
2790: 72 20 24 6c 6f 63 61 6c 65 5d 0a 20 20 20 20 73 r $locale]. s
27a0: 65 74 20 6c 6f 63 6c 69 73 74 20 5b 6c 69 73 74 et loclist [list
27b0: 20 24 6c 6f 63 61 6c 65 5d 0a 20 20 20 20 77 68 $locale]. wh
27c0: 69 6c 65 20 7b 2d 31 20 21 3d 5b 73 65 74 20 70 ile {-1 !=[set p
27d0: 6f 73 20 5b 73 74 72 69 6e 67 20 6c 61 73 74 20 os [string last
27e0: 22 5f 22 20 24 6c 6f 63 61 6c 65 5d 5d 7d 20 7b "_" $locale]]} {
27f0: 0a 09 73 65 74 20 6c 6f 63 61 6c 65 20 5b 73 74 ..set locale [st
2800: 72 69 6e 67 20 72 61 6e 67 65 20 24 6c 6f 63 61 ring range $loca
2810: 6c 65 20 30 20 24 70 6f 73 2d 31 5d 0a 09 69 66 le 0 $pos-1]..if
2820: 20 7b 20 22 5f 22 20 6e 65 20 5b 73 74 72 69 6e { "_" ne [strin
2830: 67 20 69 6e 64 65 78 20 24 6c 6f 63 61 6c 65 20 g index $locale
2840: 65 6e 64 5d 20 7d 20 7b 0a 09 20 20 20 20 6c 61 end] } {.. la
2850: 70 70 65 6e 64 20 6c 6f 63 6c 69 73 74 20 24 6c ppend loclist $l
2860: 6f 63 61 6c 65 0a 09 7d 0a 20 20 20 20 7d 0a 20 ocale..}. }.
2870: 20 20 20 69 66 20 7b 22 22 20 6e 65 20 5b 6c 69 if {"" ne [li
2880: 6e 64 65 78 20 24 6c 6f 63 6c 69 73 74 20 65 6e ndex $loclist en
2890: 64 5d 7d 20 7b 0a 09 6c 61 70 70 65 6e 64 20 6c d]} {..lappend l
28a0: 6f 63 6c 69 73 74 20 7b 7d 0a 20 20 20 20 7d 0a oclist {}. }.
28b0: 20 20 20 20 72 65 74 75 72 6e 20 24 6c 6f 63 6c return $locl
28c0: 69 73 74 0a 7d 0a 0a 23 20 6d 73 67 63 61 74 3a ist.}..# msgcat:
28d0: 3a 6d 63 70 72 65 66 65 72 65 6e 63 65 73 20 2d :mcpreferences -
28e0: 2d 0a 23 0a 23 09 46 65 74 63 68 20 74 68 65 20 -.#.#.Fetch the
28f0: 6c 69 73 74 20 6f 66 20 6c 6f 63 61 6c 65 73 20 list of locales
2900: 75 73 65 64 20 74 6f 20 6c 6f 6f 6b 20 75 70 20 used to look up
2910: 73 74 72 69 6e 67 73 2c 20 6f 72 64 65 72 65 64 strings, ordered
2920: 20 66 72 6f 6d 0a 23 09 6d 6f 73 74 20 70 72 65 from.#.most pre
2930: 66 65 72 72 65 64 20 74 6f 20 6c 65 61 73 74 20 ferred to least
2940: 70 72 65 66 65 72 72 65 64 2e 0a 23 0a 23 20 41 preferred..#.# A
2950: 72 67 75 6d 65 6e 74 73 3a 0a 23 09 4e 6f 6e 65 rguments:.#.None
2960: 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 ..#.# Results:.#
2970: 09 52 65 74 75 72 6e 73 20 61 6e 20 6f 72 64 65 .Returns an orde
2980: 72 65 64 20 6c 69 73 74 20 6f 66 20 74 68 65 20 red list of the
2990: 6c 6f 63 61 6c 65 73 20 70 72 65 66 65 72 72 65 locales preferre
29a0: 64 20 62 79 20 74 68 65 20 75 73 65 72 2e 0a 0a d by the user...
29b0: 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a 6d 63 70 proc msgcat::mcp
29c0: 72 65 66 65 72 65 6e 63 65 73 20 7b 7d 20 7b 0a references {} {.
29d0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c 6f 63 variable Loc
29e0: 6c 69 73 74 0a 20 20 20 20 72 65 74 75 72 6e 20 list. return
29f0: 24 4c 6f 63 6c 69 73 74 0a 7d 0a 0a 23 20 6d 73 $Loclist.}..# ms
2a00: 67 63 61 74 3a 3a 6d 63 6c 6f 61 64 65 64 6c 6f gcat::mcloadedlo
2a10: 63 61 6c 65 73 20 2d 2d 0a 23 0a 23 09 47 65 74 cales --.#.#.Get
2a20: 20 6f 72 20 63 68 61 6e 67 65 20 74 68 65 20 6c or change the l
2a30: 69 73 74 20 6f 66 20 63 75 72 72 65 6e 74 6c 79 ist of currently
2a40: 20 6c 6f 61 64 65 64 20 64 65 66 61 75 6c 74 20 loaded default
2a50: 6c 6f 63 61 6c 65 73 0a 23 0a 23 09 54 68 65 20 locales.#.#.The
2a60: 66 6f 6c 6c 6f 77 69 6e 67 20 73 75 62 63 6f 6d following subcom
2a70: 6d 61 6e 64 73 20 61 72 65 20 61 76 61 69 6c 61 mands are availa
2a80: 62 6c 65 3a 0a 23 09 6c 6f 61 64 65 64 0a 23 09 ble:.#.loaded.#.
2a90: 20 20 20 20 47 65 74 20 74 68 65 20 63 75 72 72 Get the curr
2aa0: 65 6e 74 20 6c 69 73 74 20 6f 66 20 6c 6f 61 64 ent list of load
2ab0: 65 64 20 6c 6f 63 61 6c 65 73 0a 23 09 63 6c 65 ed locales.#.cle
2ac0: 61 72 0a 23 09 20 20 20 20 52 65 6d 6f 76 65 20 ar.#. Remove
2ad0: 61 6c 6c 20 6c 6f 61 64 65 64 20 6c 6f 63 61 6c all loaded local
2ae0: 65 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 20 69 es not present i
2af0: 6e 20 6d 63 70 72 65 66 65 72 65 6e 63 65 73 2e n mcpreferences.
2b00: 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a .#.# Arguments:.
2b10: 23 09 73 75 62 63 6f 6d 6d 61 6e 64 09 09 4f 6e #.subcommand..On
2b20: 65 20 6f 66 20 6c 6f 61 64 65 64 20 6f 72 20 63 e of loaded or c
2b30: 6c 65 61 72 0a 23 0a 23 20 52 65 73 75 6c 74 73 lear.#.# Results
2b40: 3a 0a 23 09 45 6d 70 74 79 20 73 74 72 69 6e 67 :.#.Empty string
2b50: 2c 20 69 66 20 6e 6f 74 20 73 74 61 74 65 64 20 , if not stated
2b60: 64 69 66 66 65 72 65 6e 74 6c 79 20 66 6f 72 20 differently for
2b70: 74 68 65 20 73 75 62 63 6f 6d 6d 61 6e 64 0a 0a the subcommand..
2b80: 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a 6d 63 6c proc msgcat::mcl
2b90: 6f 61 64 65 64 6c 6f 63 61 6c 65 73 20 7b 73 75 oadedlocales {su
2ba0: 62 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 bcommand} {.
2bb0: 76 61 72 69 61 62 6c 65 20 4c 6f 63 6c 69 73 74 variable Loclist
2bc0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c 6f . variable Lo
2bd0: 61 64 65 64 4c 6f 63 61 6c 65 73 0a 20 20 20 20 adedLocales.
2be0: 76 61 72 69 61 62 6c 65 20 4d 73 67 73 0a 20 20 variable Msgs.
2bf0: 20 20 76 61 72 69 61 62 6c 65 20 50 61 63 6b 61 variable Packa
2c00: 67 65 43 6f 6e 66 69 67 0a 20 20 20 20 73 77 69 geConfig. swi
2c10: 74 63 68 20 2d 65 78 61 63 74 20 2d 2d 20 24 73 tch -exact -- $s
2c20: 75 62 63 6f 6d 6d 61 6e 64 20 7b 0a 09 63 6c 65 ubcommand {..cle
2c30: 61 72 20 7b 0a 09 20 20 20 20 23 20 52 65 6d 6f ar {.. # Remo
2c40: 76 65 20 61 6c 6c 20 6c 6f 63 61 6c 65 73 20 6e ve all locales n
2c50: 6f 74 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 ot contained in
2c60: 4c 6f 63 6c 69 73 74 0a 09 20 20 20 20 23 20 73 Loclist.. # s
2c70: 6b 69 70 20 61 6e 79 20 70 61 63 6b 61 67 65 73 kip any packages
2c80: 20 77 69 74 68 20 70 61 63 6b 61 67 65 20 6c 6f with package lo
2c90: 63 61 6c 65 0a 09 20 20 20 20 73 65 74 20 4c 6f cale.. set Lo
2ca0: 61 64 65 64 4c 6f 63 61 6c 65 73 20 24 4c 6f 63 adedLocales $Loc
2cb0: 6c 69 73 74 0a 09 20 20 20 20 66 6f 72 65 61 63 list.. foreac
2cc0: 68 20 6e 73 20 5b 64 69 63 74 20 6b 65 79 73 20 h ns [dict keys
2cd0: 24 4d 73 67 73 5d 20 7b 0a 09 09 69 66 20 7b 21 $Msgs] {...if {!
2ce0: 5b 64 69 63 74 20 65 78 69 73 74 73 20 24 50 61 [dict exists $Pa
2cf0: 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c ckageConfig locl
2d00: 69 73 74 20 24 6e 73 5d 7d 20 7b 0a 09 09 20 20 ist $ns]} {...
2d10: 20 20 66 6f 72 65 61 63 68 20 6c 6f 63 61 6c 65 foreach locale
2d20: 20 5b 64 69 63 74 20 6b 65 79 73 20 5b 64 69 63 [dict keys [dic
2d30: 74 20 67 65 74 20 24 4d 73 67 73 20 24 6e 73 5d t get $Msgs $ns]
2d40: 5d 20 7b 0a 09 09 09 69 66 20 7b 24 6c 6f 63 61 ] {....if {$loca
2d50: 6c 65 20 6e 69 20 24 4c 6f 63 6c 69 73 74 7d 20 le ni $Loclist}
2d60: 7b 0a 09 09 09 20 20 20 20 64 69 63 74 20 75 6e {.... dict un
2d70: 73 65 74 20 4d 73 67 73 20 24 6e 73 20 24 6c 6f set Msgs $ns $lo
2d80: 63 61 6c 65 0a 09 09 09 7d 0a 09 09 20 20 20 20 cale....}...
2d90: 7d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a }...}.. }..}.
2da0: 09 6c 6f 61 64 65 64 20 7b 20 72 65 74 75 72 6e .loaded { return
2db0: 20 24 4c 6f 61 64 65 64 4c 6f 63 61 6c 65 73 20 $LoadedLocales
2dc0: 7d 0a 09 64 65 66 61 75 6c 74 20 7b 0a 09 20 20 }..default {..
2dd0: 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 return -code e
2de0: 72 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73 75 rror "unknown su
2df0: 62 63 6f 6d 6d 61 6e 64 20 5c 22 24 73 75 62 63 bcommand \"$subc
2e00: 6f 6d 6d 61 6e 64 5c 22 3a 20 6d 75 73 74 20 62 ommand\": must b
2e10: 65 5c 0a 09 09 20 20 20 20 63 6c 65 61 72 2c 20 e\... clear,
2e20: 6f 72 20 6c 6f 61 64 65 64 22 0a 09 7d 0a 20 20 or loaded"..}.
2e30: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d }. return.}
2e40: 0a 0a 23 20 6d 73 67 63 61 74 3a 3a 6d 63 70 61 ..# msgcat::mcpa
2e50: 63 6b 61 67 65 6c 6f 63 61 6c 65 20 2d 2d 0a 23 ckagelocale --.#
2e60: 0a 23 09 47 65 74 20 6f 72 20 63 68 61 6e 67 65 .#.Get or change
2e70: 20 74 68 65 20 70 61 63 6b 61 67 65 20 6c 6f 63 the package loc
2e80: 61 6c 65 20 6f 66 20 74 68 65 20 63 61 6c 6c 69 ale of the calli
2e90: 6e 67 20 70 61 63 6b 61 67 65 2e 0a 23 0a 23 09 ng package..#.#.
2ea0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 75 The following su
2eb0: 62 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 61 76 bcommands are av
2ec0: 61 69 6c 61 62 6c 65 3a 0a 23 09 73 65 74 0a 23 ailable:.#.set.#
2ed0: 09 20 20 20 20 53 65 74 20 61 20 70 61 63 6b 61 . Set a packa
2ee0: 67 65 20 6c 6f 63 61 6c 65 2e 0a 23 09 20 20 20 ge locale..#.
2ef0: 20 54 68 69 73 20 6d 61 79 20 6c 6f 61 64 20 6d This may load m
2f00: 65 73 73 61 67 65 20 63 61 74 61 6c 6f 67 20 66 essage catalog f
2f10: 69 6c 65 73 20 61 6e 64 20 6d 61 79 20 63 6c 65 iles and may cle
2f20: 61 72 20 6d 65 73 73 61 67 65 20 63 61 74 61 6c ar message catal
2f30: 6f 67 0a 23 09 20 20 20 20 69 74 65 6d 73 2c 20 og.#. items,
2f40: 69 66 20 74 68 65 20 66 6f 72 6d 65 72 20 6c 6f if the former lo
2f50: 63 61 6c 65 20 77 61 73 20 74 68 65 20 64 65 66 cale was the def
2f60: 61 75 6c 74 20 6c 6f 63 61 6c 65 2e 0a 23 09 20 ault locale..#.
2f70: 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e Returns the n
2f80: 6f 72 6d 61 6c 69 7a 65 64 20 73 65 74 20 6c 6f ormalized set lo
2f90: 63 61 6c 65 2e 0a 23 09 20 20 20 20 54 68 65 20 cale..#. The
2fa0: 64 65 66 61 75 6c 74 20 6c 6f 63 61 6c 65 20 69 default locale i
2fb0: 73 20 74 61 6b 65 6e 2c 20 69 66 20 6c 6f 63 61 s taken, if loca
2fc0: 6c 65 20 69 73 20 6e 6f 74 20 67 69 76 65 6e 2e le is not given.
2fd0: 0a 23 09 67 65 74 0a 23 09 20 20 20 20 47 65 74 .#.get.#. Get
2fe0: 20 74 68 65 20 6c 6f 63 61 6c 65 20 76 61 6c 69 the locale vali
2ff0: 64 20 66 6f 72 20 74 68 69 73 20 70 61 63 6b 61 d for this packa
3000: 67 65 2e 0a 23 09 69 73 73 65 74 0a 23 09 20 20 ge..#.isset.#.
3010: 20 20 52 65 74 75 72 6e 73 20 74 72 75 65 2c 20 Returns true,
3020: 69 66 20 61 20 70 61 63 6b 61 67 65 20 6c 6f 63 if a package loc
3030: 61 6c 65 20 69 73 20 73 65 74 0a 23 09 75 6e 73 ale is set.#.uns
3040: 65 74 0a 23 09 20 20 20 20 55 6e 73 65 74 20 74 et.#. Unset t
3050: 68 65 20 70 61 63 6b 61 67 65 20 6c 6f 63 61 6c he package local
3060: 65 20 61 6e 64 20 61 63 74 69 76 61 74 65 20 74 e and activate t
3070: 68 65 20 64 65 66 61 75 6c 74 20 6c 6f 63 61 6c he default local
3080: 65 2e 0a 23 09 20 20 20 20 54 68 69 73 20 6c 6f e..#. This lo
3090: 61 64 73 20 6d 65 73 73 61 67 65 20 63 61 74 61 ads message cata
30a0: 6c 6f 67 20 66 69 6c 65 20 77 68 69 63 68 20 77 log file which w
30b0: 68 65 72 65 20 6d 69 73 73 69 6e 67 20 69 6e 20 here missing in
30c0: 74 68 65 20 70 61 63 6b 61 67 65 0a 23 09 20 20 the package.#.
30d0: 20 20 6c 6f 63 61 6c 65 2e 0a 23 09 70 72 65 66 locale..#.pref
30e0: 65 72 65 6e 63 65 73 0a 23 09 20 20 20 20 52 65 erences.#. Re
30f0: 74 75 72 6e 20 6c 6f 63 61 6c 65 20 70 72 65 66 turn locale pref
3100: 65 72 65 6e 63 65 20 6c 69 73 74 20 76 61 6c 69 erence list vali
3110: 64 20 66 6f 72 20 74 68 65 20 70 61 63 6b 61 67 d for the packag
3120: 65 2e 0a 23 09 6c 6f 61 64 65 64 0a 23 09 20 20 e..#.loaded.#.
3130: 20 20 52 65 74 75 72 6e 20 6c 6f 61 64 65 64 20 Return loaded
3140: 6c 6f 63 61 6c 65 20 6c 69 73 74 20 76 61 6c 69 locale list vali
3150: 64 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e d for the curren
3160: 74 20 70 61 63 6b 61 67 65 2e 0a 23 09 63 6c 65 t package..#.cle
3170: 61 72 0a 23 09 20 20 20 20 49 66 20 74 68 65 20 ar.#. If the
3180: 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 current package
3190: 68 61 73 20 61 20 70 61 63 6b 61 67 65 20 6c 6f has a package lo
31a0: 63 61 6c 65 2c 20 72 65 6d 6f 76 65 20 61 6c 6c cale, remove all
31b0: 20 70 61 63 6b 61 67 65 0a 23 09 20 20 20 20 6c package.#. l
31c0: 6f 63 61 6c 65 73 20 6e 6f 74 20 63 6f 6e 74 61 ocales not conta
31d0: 69 6e 65 73 20 69 6e 20 70 61 63 6b 61 67 65 20 ines in package
31e0: 6d 63 70 72 65 66 65 72 65 6e 63 65 73 2e 0a 23 mcpreferences..#
31f0: 09 20 20 20 20 49 74 20 69 73 20 61 6e 20 65 72 . It is an er
3200: 72 6f 72 20 74 6f 20 63 61 6c 6c 20 74 68 69 73 ror to call this
3210: 20 77 69 74 68 6f 75 74 20 61 20 70 61 63 6b 61 without a packa
3220: 67 65 20 6c 6f 63 61 6c 65 20 73 65 74 2e 0a 23 ge locale set..#
3230: 0a 23 09 54 68 65 20 73 75 62 63 6f 6d 6d 61 6e .#.The subcomman
3240: 64 73 20 67 65 74 2c 20 70 72 65 66 65 72 65 6e ds get, preferen
3250: 63 65 73 20 61 6e 64 20 6c 6f 61 64 65 64 20 72 ces and loaded r
3260: 65 74 75 72 6e 20 74 68 65 20 63 6f 72 72 65 73 eturn the corres
3270: 70 6f 6e 64 69 6e 67 0a 23 09 64 65 66 61 75 6c ponding.#.defaul
3280: 74 20 64 61 74 61 2c 20 69 66 20 6e 6f 20 70 61 t data, if no pa
3290: 63 6b 61 67 65 20 6c 6f 63 61 6c 65 20 69 73 20 ckage locale is
32a0: 73 65 74 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e set..#.# Argumen
32b0: 74 73 3a 0a 23 09 73 75 62 63 6f 6d 6d 61 6e 64 ts:.#.subcommand
32c0: 09 09 73 65 65 20 6c 69 73 74 20 61 62 6f 76 65 ..see list above
32d0: 0a 23 09 6c 6f 63 61 6c 65 09 09 09 70 61 63 6b .#.locale...pack
32e0: 61 67 65 20 6c 6f 63 61 6c 65 20 28 6f 6e 6c 79 age locale (only
32f0: 20 73 65 74 20 73 75 62 63 6f 6d 6d 61 6e 64 29 set subcommand)
3300: 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 .#.# Results:.#.
3310: 45 6d 70 74 79 20 73 74 72 69 6e 67 2c 20 69 66 Empty string, if
3320: 20 6e 6f 74 20 73 74 61 74 65 64 20 64 69 66 66 not stated diff
3330: 65 72 65 6e 74 6c 79 20 66 6f 72 20 74 68 65 20 erently for the
3340: 73 75 62 63 6f 6d 6d 61 6e 64 0a 0a 70 72 6f 63 subcommand..proc
3350: 20 6d 73 67 63 61 74 3a 3a 6d 63 70 61 63 6b 61 msgcat::mcpacka
3360: 67 65 6c 6f 63 61 6c 65 20 7b 73 75 62 63 6f 6d gelocale {subcom
3370: 6d 61 6e 64 20 7b 6c 6f 63 61 6c 65 20 22 22 7d mand {locale ""}
3380: 7d 20 7b 0a 20 20 20 20 23 20 74 6f 64 6f 3a 20 } {. # todo:
3390: 69 6d 70 6c 65 6d 65 6e 74 20 75 73 69 6e 67 20 implement using
33a0: 61 6e 20 65 6e 73 65 6d 62 6c 65 0a 20 20 20 20 an ensemble.
33b0: 76 61 72 69 61 62 6c 65 20 4c 6f 63 6c 69 73 74 variable Loclist
33c0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 4c 6f . variable Lo
33d0: 61 64 65 64 4c 6f 63 61 6c 65 73 0a 20 20 20 20 adedLocales.
33e0: 76 61 72 69 61 62 6c 65 20 4d 73 67 73 0a 20 20 variable Msgs.
33f0: 20 20 76 61 72 69 61 62 6c 65 20 50 61 63 6b 61 variable Packa
3400: 67 65 43 6f 6e 66 69 67 0a 20 20 20 20 23 20 43 geConfig. # C
3410: 68 65 63 6b 20 6f 70 74 69 6f 6e 0a 20 20 20 20 heck option.
3420: 23 20 63 68 65 63 6b 20 69 66 20 72 65 71 75 69 # check if requi
3430: 72 65 64 20 69 74 65 6d 20 69 73 20 65 78 61 63 red item is exac
3440: 74 6c 79 20 70 72 6f 76 69 64 65 64 0a 20 20 20 tly provided.
3450: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 69 if {[llength [i
3460: 6e 66 6f 20 6c 65 76 65 6c 20 30 5d 5d 20 3d 3d nfo level 0]] ==
3470: 20 32 7d 20 7b 0a 09 23 20 6c 6f 63 61 6c 65 20 2} {..# locale
3480: 6e 6f 74 20 67 69 76 65 6e 0a 09 75 6e 73 65 74 not given..unset
3490: 20 6c 6f 63 61 6c 65 0a 20 20 20 20 7d 20 65 6c locale. } el
34a0: 73 65 20 7b 0a 09 23 20 6c 6f 63 61 6c 65 20 67 se {..# locale g
34b0: 69 76 65 6e 0a 09 69 66 20 7b 24 73 75 62 63 6f iven..if {$subco
34c0: 6d 6d 61 6e 64 20 69 6e 0a 09 09 7b 22 67 65 74 mmand in...{"get
34d0: 22 20 22 69 73 73 65 74 22 20 22 75 6e 73 65 74 " "isset" "unset
34e0: 22 20 22 70 72 65 66 65 72 65 6e 63 65 73 22 20 " "preferences"
34f0: 22 6c 6f 61 64 65 64 22 20 22 63 6c 65 61 72 22 "loaded" "clear"
3500: 7d 20 7d 20 7b 0a 09 20 20 20 20 72 65 74 75 72 } } {.. retur
3510: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 77 n -code error "w
3520: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
3530: 75 6c 64 20 62 65 5c 0a 09 09 20 20 20 20 5c 22 uld be\... \"
3540: 5b 6c 72 61 6e 67 65 20 5b 69 6e 66 6f 20 6c 65 [lrange [info le
3550: 76 65 6c 20 30 5d 20 30 20 31 5d 5c 22 22 0a 09 vel 0] 0 1]\""..
3560: 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 6c 6f }. set lo
3570: 63 61 6c 65 20 5b 73 74 72 69 6e 67 20 74 6f 6c cale [string tol
3580: 6f 77 65 72 20 24 6c 6f 63 61 6c 65 5d 0a 20 20 ower $locale].
3590: 20 20 7d 0a 20 20 20 20 73 65 74 20 6e 73 20 5b }. set ns [
35a0: 50 61 63 6b 61 67 65 4e 61 6d 65 73 70 61 63 65 PackageNamespace
35b0: 47 65 74 5d 0a 0a 20 20 20 20 73 77 69 74 63 68 Get].. switch
35c0: 20 2d 65 78 61 63 74 20 2d 2d 20 24 73 75 62 63 -exact -- $subc
35d0: 6f 6d 6d 61 6e 64 20 7b 0a 09 67 65 74 20 7b 20 ommand {..get {
35e0: 72 65 74 75 72 6e 20 5b 6c 69 6e 64 65 78 20 5b return [lindex [
35f0: 50 61 63 6b 61 67 65 50 72 65 66 65 72 65 6e 63 PackagePreferenc
3600: 65 73 20 24 6e 73 5d 20 30 5d 20 7d 0a 09 70 72 es $ns] 0] }..pr
3610: 65 66 65 72 65 6e 63 65 73 20 7b 20 72 65 74 75 eferences { retu
3620: 72 6e 20 5b 50 61 63 6b 61 67 65 50 72 65 66 65 rn [PackagePrefe
3630: 72 65 6e 63 65 73 20 24 6e 73 5d 20 7d 0a 09 6c rences $ns] }..l
3640: 6f 61 64 65 64 20 7b 20 72 65 74 75 72 6e 20 5b oaded { return [
3650: 50 61 63 6b 61 67 65 4c 6f 63 61 6c 65 73 20 24 PackageLocales $
3660: 6e 73 5d 20 7d 0a 09 70 72 65 73 65 6e 74 20 7b ns] }..present {
3670: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 return [expr {$
3680: 6c 6f 63 61 6c 65 20 69 6e 20 5b 50 61 63 6b 61 locale in [Packa
3690: 67 65 4c 6f 63 61 6c 65 73 20 24 6e 73 5d 7d 20 geLocales $ns]}
36a0: 5d 7d 0a 09 69 73 73 65 74 20 7b 20 72 65 74 75 ]}..isset { retu
36b0: 72 6e 20 5b 64 69 63 74 20 65 78 69 73 74 73 20 rn [dict exists
36c0: 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c $PackageConfig l
36d0: 6f 63 6c 69 73 74 20 24 6e 73 5d 20 7d 0a 09 73 oclist $ns] }..s
36e0: 65 74 20 7b 20 23 20 73 65 74 20 61 20 70 61 63 et { # set a pac
36f0: 6b 61 67 65 20 6c 6f 63 61 6c 65 20 6f 72 20 61 kage locale or a
3700: 64 64 20 61 20 70 61 63 6b 61 67 65 20 6c 6f 63 dd a package loc
3710: 61 6c 65 0a 0a 09 20 20 20 20 23 20 43 6f 70 79 ale... # Copy
3720: 20 74 68 65 20 64 65 66 61 75 6c 74 20 6c 6f 63 the default loc
3730: 61 6c 65 20 69 66 20 6e 6f 20 70 61 63 6b 61 67 ale if no packag
3740: 65 20 6c 6f 63 61 6c 65 20 73 65 74 20 73 6f 20 e locale set so
3750: 66 61 72 0a 09 20 20 20 20 69 66 20 7b 21 5b 64 far.. if {![d
3760: 69 63 74 20 65 78 69 73 74 73 20 24 50 61 63 6b ict exists $Pack
3770: 61 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c 69 73 ageConfig loclis
3780: 74 20 24 6e 73 5d 7d 20 7b 0a 09 09 64 69 63 74 t $ns]} {...dict
3790: 20 73 65 74 20 50 61 63 6b 61 67 65 43 6f 6e 66 set PackageConf
37a0: 69 67 20 6c 6f 63 6c 69 73 74 20 24 6e 73 20 24 ig loclist $ns $
37b0: 4c 6f 63 6c 69 73 74 0a 09 09 64 69 63 74 20 73 Loclist...dict s
37c0: 65 74 20 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 et PackageConfig
37d0: 20 6c 6f 61 64 65 64 6c 6f 63 61 6c 65 73 20 24 loadedlocales $
37e0: 6e 73 20 24 4c 6f 61 64 65 64 4c 6f 63 61 6c 65 ns $LoadedLocale
37f0: 73 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 s.. }... #
3800: 20 43 68 65 63 6b 20 69 66 20 63 68 61 6e 67 65 Check if change
3810: 64 0a 09 20 20 20 20 73 65 74 20 6c 6f 63 6c 69 d.. set locli
3820: 73 74 20 5b 64 69 63 74 20 67 65 74 20 24 50 61 st [dict get $Pa
3830: 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c ckageConfig locl
3840: 69 73 74 20 24 6e 73 5d 0a 09 20 20 20 20 69 66 ist $ns].. if
3850: 20 7b 21 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 {! [info exists
3860: 20 6c 6f 63 61 6c 65 5d 20 7c 7c 20 24 6c 6f 63 locale] || $loc
3870: 61 6c 65 20 65 71 20 5b 6c 69 6e 64 65 78 20 24 ale eq [lindex $
3880: 6c 6f 63 6c 69 73 74 20 30 5d 20 7d 20 7b 0a 09 loclist 0] } {..
3890: 09 72 65 74 75 72 6e 20 5b 6c 69 6e 64 65 78 20 .return [lindex
38a0: 24 6c 6f 63 6c 69 73 74 20 30 5d 0a 09 20 20 20 $loclist 0]..
38b0: 20 7d 0a 0a 09 20 20 20 20 23 20 43 68 61 6e 67 }... # Chang
38c0: 65 20 6c 6f 63 6c 69 73 74 0a 09 20 20 20 20 73 e loclist.. s
38d0: 65 74 20 6c 6f 63 6c 69 73 74 20 5b 47 65 74 50 et loclist [GetP
38e0: 72 65 66 65 72 65 6e 63 65 73 20 24 6c 6f 63 61 references $loca
38f0: 6c 65 5d 0a 09 20 20 20 20 73 65 74 20 6c 6f 63 le].. set loc
3900: 61 6c 65 20 5b 6c 69 6e 64 65 78 20 24 6c 6f 63 ale [lindex $loc
3910: 6c 69 73 74 20 30 5d 0a 09 20 20 20 20 64 69 63 list 0].. dic
3920: 74 20 73 65 74 20 50 61 63 6b 61 67 65 43 6f 6e t set PackageCon
3930: 66 69 67 20 6c 6f 63 6c 69 73 74 20 24 6e 73 20 fig loclist $ns
3940: 24 6c 6f 63 6c 69 73 74 0a 0a 09 20 20 20 20 23 $loclist... #
3950: 20 6c 6f 61 64 20 65 76 65 6e 74 75 61 6c 20 6d load eventual m
3960: 69 73 73 69 6e 67 20 6c 6f 63 61 6c 65 73 0a 09 issing locales..
3970: 20 20 20 20 73 65 74 20 6c 6f 61 64 65 64 4c 6f set loadedLo
3980: 63 61 6c 65 73 20 5b 64 69 63 74 20 67 65 74 20 cales [dict get
3990: 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c $PackageConfig l
39a0: 6f 61 64 65 64 6c 6f 63 61 6c 65 73 20 24 6e 73 oadedlocales $ns
39b0: 5d 0a 09 20 20 20 20 69 66 20 7b 24 6c 6f 63 61 ].. if {$loca
39c0: 6c 65 20 69 6e 20 24 6c 6f 61 64 65 64 4c 6f 63 le in $loadedLoc
39d0: 61 6c 65 73 7d 20 7b 20 72 65 74 75 72 6e 20 24 ales} { return $
39e0: 6c 6f 63 61 6c 65 20 7d 0a 09 20 20 20 20 73 65 locale }.. se
39f0: 74 20 6c 6f 61 64 4c 6f 63 61 6c 65 73 20 5b 4c t loadLocales [L
3a00: 69 73 74 43 6f 6d 70 6c 65 6d 65 6e 74 20 24 6c istComplement $l
3a10: 6f 61 64 65 64 4c 6f 63 61 6c 65 73 20 24 6c 6f oadedLocales $lo
3a20: 63 6c 69 73 74 5d 0a 09 20 20 20 20 64 69 63 74 clist].. dict
3a30: 20 73 65 74 20 50 61 63 6b 61 67 65 43 6f 6e 66 set PackageConf
3a40: 69 67 20 6c 6f 61 64 65 64 6c 6f 63 61 6c 65 73 ig loadedlocales
3a50: 20 24 6e 73 5c 0a 09 09 20 20 20 20 5b 63 6f 6e $ns\... [con
3a60: 63 61 74 20 24 6c 6f 61 64 65 64 4c 6f 63 61 6c cat $loadedLocal
3a70: 65 73 20 24 6c 6f 61 64 4c 6f 63 61 6c 65 73 5d es $loadLocales]
3a80: 0a 09 20 20 20 20 4c 6f 61 64 20 24 6e 73 20 24 .. Load $ns $
3a90: 6c 6f 61 64 4c 6f 63 61 6c 65 73 0a 09 20 20 20 loadLocales..
3aa0: 20 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 65 0a return $locale.
3ab0: 09 7d 0a 09 63 6c 65 61 72 20 7b 20 23 20 52 65 .}..clear { # Re
3ac0: 6d 6f 76 65 20 61 6c 6c 20 6c 6f 63 61 6c 65 73 move all locales
3ad0: 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 65 64 20 69 not contained i
3ae0: 6e 20 4c 6f 63 6c 69 73 74 0a 09 20 20 20 20 69 n Loclist.. i
3af0: 66 20 7b 21 5b 64 69 63 74 20 65 78 69 73 74 73 f {![dict exists
3b00: 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 $PackageConfig
3b10: 6c 6f 63 6c 69 73 74 20 24 6e 73 5d 7d 20 7b 0a loclist $ns]} {.
3b20: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
3b30: 72 72 6f 72 20 22 63 6c 65 61 72 20 6f 6e 6c 79 rror "clear only
3b40: 20 77 68 65 6e 20 70 61 63 6b 61 67 65 20 6c 6f when package lo
3b50: 63 61 6c 65 20 73 65 74 22 0a 09 20 20 20 20 7d cale set".. }
3b60: 0a 09 20 20 20 20 73 65 74 20 6c 6f 63 6c 69 73 .. set loclis
3b70: 74 20 5b 64 69 63 74 20 67 65 74 20 24 50 61 63 t [dict get $Pac
3b80: 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c 69 kageConfig locli
3b90: 73 74 20 24 6e 73 5d 0a 09 20 20 20 20 64 69 63 st $ns].. dic
3ba0: 74 20 73 65 74 20 50 61 63 6b 61 67 65 43 6f 6e t set PackageCon
3bb0: 66 69 67 20 6c 6f 61 64 65 64 6c 6f 63 61 6c 65 fig loadedlocale
3bc0: 73 20 24 6e 73 20 24 6c 6f 63 6c 69 73 74 0a 09 s $ns $loclist..
3bd0: 20 20 20 20 69 66 20 7b 5b 64 69 63 74 20 65 78 if {[dict ex
3be0: 69 73 74 73 20 24 4d 73 67 73 20 24 6e 73 5d 7d ists $Msgs $ns]}
3bf0: 20 7b 0a 09 09 66 6f 72 65 61 63 68 20 6c 6f 63 {...foreach loc
3c00: 61 6c 65 20 5b 64 69 63 74 20 6b 65 79 73 20 5b ale [dict keys [
3c10: 64 69 63 74 20 67 65 74 20 24 4d 73 67 73 20 24 dict get $Msgs $
3c20: 6e 73 5d 5d 20 7b 0a 09 09 20 20 20 20 69 66 20 ns]] {... if
3c30: 7b 24 6c 6f 63 61 6c 65 20 6e 69 20 24 6c 6f 63 {$locale ni $loc
3c40: 6c 69 73 74 7d 20 7b 0a 09 09 09 64 69 63 74 20 list} {....dict
3c50: 75 6e 73 65 74 20 4d 73 67 73 20 24 6e 73 20 24 unset Msgs $ns $
3c60: 6c 6f 63 61 6c 65 0a 09 09 20 20 20 20 7d 0a 09 locale... }..
3c70: 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 75 6e .}.. }..}..un
3c80: 73 65 74 20 7b 09 23 20 75 6e 73 65 74 20 70 61 set {.# unset pa
3c90: 63 6b 61 67 65 20 6c 6f 63 61 6c 65 20 61 6e 64 ckage locale and
3ca0: 20 72 65 73 74 6f 72 65 20 64 65 66 61 75 6c 74 restore default
3cb0: 20 6c 6f 63 61 6c 65 73 0a 0a 09 20 20 20 20 69 locales... i
3cc0: 66 20 7b 20 21 5b 64 69 63 74 20 65 78 69 73 74 f { ![dict exist
3cd0: 73 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 s $PackageConfig
3ce0: 20 6c 6f 63 6c 69 73 74 20 24 6e 73 5d 20 7d 20 loclist $ns] }
3cf0: 7b 20 72 65 74 75 72 6e 20 7d 0a 0a 09 20 20 20 { return }...
3d00: 20 23 20 75 6e 73 65 74 20 70 61 63 6b 61 67 65 # unset package
3d10: 20 6c 6f 63 61 6c 65 0a 09 20 20 20 20 73 65 74 locale.. set
3d20: 20 6c 6f 61 64 4c 6f 63 61 6c 65 73 20 5b 4c 69 loadLocales [Li
3d30: 73 74 43 6f 6d 70 6c 65 6d 65 6e 74 5c 0a 09 09 stComplement\...
3d40: 20 20 20 20 5b 64 69 63 74 20 67 65 74 20 24 50 [dict get $P
3d50: 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f 61 ackageConfig loa
3d60: 64 65 64 6c 6f 63 61 6c 65 73 20 24 6e 73 5d 20 dedlocales $ns]
3d70: 24 4c 6f 61 64 65 64 4c 6f 63 61 6c 65 73 5d 0a $LoadedLocales].
3d80: 09 20 20 20 20 64 69 63 74 20 75 6e 73 65 74 20 . dict unset
3d90: 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f PackageConfig lo
3da0: 61 64 65 64 6c 6f 63 61 6c 65 73 20 24 6e 73 0a adedlocales $ns.
3db0: 09 20 20 20 20 64 69 63 74 20 75 6e 73 65 74 20 . dict unset
3dc0: 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f PackageConfig lo
3dd0: 63 6c 69 73 74 20 24 6e 73 0a 0a 09 20 20 20 20 clist $ns...
3de0: 23 20 75 6e 73 65 74 20 6b 65 79 73 20 6e 6f 74 # unset keys not
3df0: 20 69 6e 20 67 6c 6f 62 61 6c 20 6c 6f 61 64 65 in global loade
3e00: 64 20 6c 6f 63 61 6c 65 73 0a 09 20 20 20 20 69 d locales.. i
3e10: 66 20 7b 5b 64 69 63 74 20 65 78 69 73 74 73 20 f {[dict exists
3e20: 24 4d 73 67 73 20 24 6e 73 5d 7d 20 7b 0a 09 09 $Msgs $ns]} {...
3e30: 66 6f 72 65 61 63 68 20 6c 6f 63 61 6c 65 20 5b foreach locale [
3e40: 64 69 63 74 20 6b 65 79 73 20 5b 64 69 63 74 20 dict keys [dict
3e50: 67 65 74 20 24 4d 73 67 73 20 24 6e 73 5d 5d 20 get $Msgs $ns]]
3e60: 7b 0a 09 09 20 20 20 20 69 66 20 7b 24 6c 6f 63 {... if {$loc
3e70: 61 6c 65 20 6e 69 20 24 4c 6f 61 64 65 64 4c 6f ale ni $LoadedLo
3e80: 63 61 6c 65 73 7d 20 7b 0a 09 09 09 64 69 63 74 cales} {....dict
3e90: 20 75 6e 73 65 74 20 4d 73 67 73 20 24 6e 73 20 unset Msgs $ns
3ea0: 24 6c 6f 63 61 6c 65 0a 09 09 20 20 20 20 7d 0a $locale... }.
3eb0: 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 ..}.. }...
3ec0: 20 23 20 41 64 64 20 6d 69 73 73 69 6e 67 20 6c # Add missing l
3ed0: 6f 63 61 6c 65 73 0a 09 20 20 20 20 4c 6f 61 64 ocales.. Load
3ee0: 20 24 6e 73 20 24 6c 6f 61 64 4c 6f 63 61 6c 65 $ns $loadLocale
3ef0: 73 0a 09 7d 0a 09 64 65 66 61 75 6c 74 20 7b 0a s..}..default {.
3f00: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 . return -cod
3f10: 65 20 65 72 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e e error "unknown
3f20: 20 73 75 62 63 6f 6d 6d 61 6e 64 20 5c 22 24 73 subcommand \"$s
3f30: 75 62 63 6f 6d 6d 61 6e 64 5c 22 3a 20 6d 75 73 ubcommand\": mus
3f40: 74 20 62 65 5c 0a 09 09 20 20 20 20 63 6c 65 61 t be\... clea
3f50: 72 2c 20 67 65 74 2c 20 69 73 73 65 74 2c 20 6c r, get, isset, l
3f60: 6f 61 64 65 64 2c 20 70 72 65 73 65 6e 74 2c 20 oaded, present,
3f70: 73 65 74 2c 20 6f 72 20 75 6e 73 65 74 22 0a 09 set, or unset"..
3f80: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 }. }. retu
3f90: 72 6e 0a 7d 0a 0a 23 20 6d 73 67 63 61 74 3a 3a rn.}..# msgcat::
3fa0: 6d 63 66 6f 72 67 65 74 70 61 63 6b 61 67 65 20 mcforgetpackage
3fb0: 2d 2d 0a 23 0a 23 09 52 65 6d 6f 76 65 20 61 6e --.#.#.Remove an
3fc0: 79 20 64 61 74 61 20 6f 66 20 74 68 65 20 63 61 y data of the ca
3fd0: 6c 6c 69 6e 67 20 70 61 63 6b 61 67 65 20 66 72 lling package fr
3fe0: 6f 6d 20 6d 73 67 63 61 74 0a 23 0a 0a 70 72 6f om msgcat.#..pro
3ff0: 63 20 6d 73 67 63 61 74 3a 3a 6d 63 66 6f 72 67 c msgcat::mcforg
4000: 65 74 70 61 63 6b 61 67 65 20 7b 7d 20 7b 0a 20 etpackage {} {.
4010: 20 20 20 23 20 74 6f 64 6f 3a 20 74 68 69 73 20 # todo: this
4020: 6d 61 79 20 62 65 20 69 6d 70 6c 65 6d 65 6e 74 may be implement
4030: 65 64 20 75 73 69 6e 67 20 61 6e 20 65 6e 73 65 ed using an ense
4040: 6d 62 6c 65 0a 20 20 20 20 76 61 72 69 61 62 6c mble. variabl
4050: 65 20 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 0a e PackageConfig.
4060: 20 20 20 20 76 61 72 69 61 62 6c 65 20 4d 73 67 variable Msg
4070: 73 0a 20 20 20 20 73 65 74 20 6e 73 20 5b 50 61 s. set ns [Pa
4080: 63 6b 61 67 65 4e 61 6d 65 73 70 61 63 65 47 65 ckageNamespaceGe
4090: 74 5d 0a 20 20 20 20 23 20 52 65 6d 6f 76 65 20 t]. # Remove
40a0: 4d 43 20 69 74 65 6d 73 0a 20 20 20 20 64 69 63 MC items. dic
40b0: 74 20 75 6e 73 65 74 20 4d 73 67 73 20 24 6e 73 t unset Msgs $ns
40c0: 0a 20 20 20 20 23 20 52 65 6d 6f 76 65 20 63 6f . # Remove co
40d0: 6e 66 69 67 20 69 74 65 6d 73 0a 20 20 20 20 66 nfig items. f
40e0: 6f 72 65 61 63 68 20 6b 65 79 20 5b 64 69 63 74 oreach key [dict
40f0: 20 6b 65 79 73 20 24 50 61 63 6b 61 67 65 43 6f keys $PackageCo
4100: 6e 66 69 67 5d 20 7b 0a 09 64 69 63 74 20 75 6e nfig] {..dict un
4110: 73 65 74 20 50 61 63 6b 61 67 65 43 6f 6e 66 69 set PackageConfi
4120: 67 20 24 6b 65 79 20 24 6e 73 0a 20 20 20 20 7d g $key $ns. }
4130: 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 . return.}..#
4140: 20 6d 73 67 63 61 74 3a 3a 6d 63 67 65 74 6d 79 msgcat::mcgetmy
4150: 6e 61 6d 65 73 70 61 63 65 20 2d 2d 0a 23 0a 23 namespace --.#.#
4160: 09 52 65 74 75 72 6e 20 74 68 65 20 70 61 63 6b .Return the pack
4170: 61 67 65 20 6e 61 6d 65 73 70 61 63 65 20 6f 66 age namespace of
4180: 20 74 68 65 20 63 61 6c 6c 65 72 0a 23 09 54 68 the caller.#.Th
4190: 69 73 20 63 6f 6e 73 69 64 65 72 65 73 20 74 6f is consideres to
41a0: 20 62 65 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 be called from
41b0: 61 20 63 6c 61 73 73 20 6f 72 20 6f 62 6a 65 63 a class or objec
41c0: 74 2e 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a t...proc msgcat:
41d0: 3a 6d 63 70 61 63 6b 61 67 65 6e 61 6d 65 73 70 :mcpackagenamesp
41e0: 61 63 65 67 65 74 20 7b 7d 20 7b 0a 20 20 20 20 aceget {} {.
41f0: 72 65 74 75 72 6e 20 5b 50 61 63 6b 61 67 65 4e return [PackageN
4200: 61 6d 65 73 70 61 63 65 47 65 74 5d 0a 7d 0a 0a amespaceGet].}..
4210: 23 20 6d 73 67 63 61 74 3a 3a 6d 63 70 61 63 6b # msgcat::mcpack
4220: 61 67 65 63 6f 6e 66 69 67 20 2d 2d 0a 23 0a 23 ageconfig --.#.#
4230: 09 47 65 74 20 6f 72 20 6d 6f 64 69 66 79 20 74 .Get or modify t
4240: 68 65 20 70 65 72 20 63 61 6c 6c 65 72 20 6e 61 he per caller na
4250: 6d 65 73 70 61 63 65 20 28 65 2e 67 2e 20 70 61 mespace (e.g. pa
4260: 63 6b 61 67 65 73 29 20 63 6f 6e 66 69 67 20 6f ckages) config o
4270: 70 74 69 6f 6e 73 2e 0a 23 0a 23 09 41 76 61 69 ptions..#.#.Avai
4280: 6c 61 62 6c 65 20 73 75 62 63 6f 6d 6d 61 6e 64 lable subcommand
4290: 73 20 61 72 65 3a 0a 23 0a 23 09 20 20 20 20 67 s are:.#.#. g
42a0: 65 74 09 09 67 65 74 20 74 68 65 20 63 75 72 72 et..get the curr
42b0: 65 6e 74 20 76 61 6c 75 65 20 6f 72 20 61 6e 20 ent value or an
42c0: 65 72 72 6f 72 20 69 66 20 6e 6f 74 20 73 65 74 error if not set
42d0: 2e 0a 23 09 20 20 20 20 69 73 73 65 74 09 72 65 ..#. isset.re
42e0: 74 75 72 6e 20 74 72 75 65 2c 20 69 66 20 74 68 turn true, if th
42f0: 65 20 6f 70 74 69 6f 6e 20 69 73 20 73 65 74 0a e option is set.
4300: 23 09 20 20 20 20 73 65 74 09 09 73 65 74 20 74 #. set..set t
4310: 68 65 20 76 61 6c 75 65 20 28 73 65 65 20 61 6c he value (see al
4320: 73 6f 20 64 69 73 74 69 6e 63 74 20 6f 70 74 69 so distinct opti
4330: 6f 6e 29 2e 0a 23 09 09 09 52 65 74 75 72 6e 73 on)..#...Returns
4340: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6c the number of l
4350: 6f 61 64 65 64 20 6d 65 73 73 61 67 65 20 66 69 oaded message fi
4360: 6c 65 73 2e 0a 23 09 20 20 20 20 75 6e 73 65 74 les..#. unset
4370: 09 43 6c 65 61 72 20 6f 70 74 69 6f 6e 2e 20 72 .Clear option. r
4380: 65 74 75 72 6e 20 22 22 2e 0a 23 0a 23 09 41 76 eturn ""..#.#.Av
4390: 61 69 6c 61 62 6c 65 20 6f 70 74 69 6f 6e 73 20 ailable options
43a0: 61 72 65 3a 0a 23 0a 23 09 6d 63 66 6f 6c 64 65 are:.#.#.mcfolde
43b0: 72 0a 23 09 20 20 20 20 54 68 65 20 6d 65 73 73 r.#. The mess
43c0: 61 67 65 20 63 61 74 61 6c 6f 67 20 66 6f 6c 64 age catalog fold
43d0: 65 72 20 6f 66 20 74 68 65 20 70 61 63 6b 61 67 er of the packag
43e0: 65 2e 0a 23 09 20 20 20 20 54 68 69 73 20 69 73 e..#. This is
43f0: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 automatically s
4400: 65 74 20 62 79 20 6d 63 6c 6f 61 64 2e 0a 23 09 et by mcload..#.
4410: 20 20 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 If the value
4420: 20 69 73 20 63 68 61 6e 67 65 64 20 75 73 69 6e is changed usin
4430: 67 20 74 68 65 20 73 65 74 20 73 75 62 63 6f 6d g the set subcom
4440: 6d 61 6e 64 2c 20 61 6e 20 65 76 6e 74 75 61 6c mand, an evntual
4450: 0a 23 09 20 20 20 20 6c 6f 61 64 63 6d 64 20 69 .#. loadcmd i
4460: 73 20 69 6e 76 6f 6b 65 64 20 61 6e 64 20 61 6c s invoked and al
4470: 6c 20 6d 65 73 73 61 67 65 20 66 69 6c 65 73 20 l message files
4480: 6f 66 20 74 68 65 20 70 61 63 6b 61 67 65 20 6c of the package l
4490: 6f 63 61 6c 65 20 61 72 65 0a 23 09 20 20 20 20 ocale are.#.
44a0: 6c 6f 61 64 65 64 2e 0a 23 0a 23 09 6c 6f 61 64 loaded..#.#.load
44b0: 63 6d 64 0a 23 09 20 20 20 20 54 68 65 20 63 6f cmd.#. The co
44c0: 6d 6d 61 6e 64 20 67 65 74 73 20 65 78 65 63 75 mmand gets execu
44d0: 74 65 64 20 62 65 66 6f 72 65 20 61 20 6d 65 73 ted before a mes
44e0: 73 61 67 65 20 66 69 6c 65 20 77 6f 75 6c 64 20 sage file would
44f0: 62 65 0a 23 09 20 20 20 20 73 6f 75 72 63 65 64 be.#. sourced
4500: 20 66 6f 72 20 74 68 69 73 20 6d 6f 64 75 6c 65 for this module
4510: 2e 0a 23 09 20 20 20 20 54 68 65 20 63 6f 6d 6d ..#. The comm
4520: 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 77 and is invoked w
4530: 69 74 68 20 74 68 65 20 65 78 70 61 6e 64 65 64 ith the expanded
4540: 20 6c 6f 63 61 6c 65 20 6c 69 73 74 20 74 6f 20 locale list to
4550: 6c 6f 61 64 2e 0a 23 09 20 20 20 20 54 68 65 20 load..#. The
4560: 63 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20 69 command is not i
4570: 6e 76 6f 6b 65 64 20 69 66 20 74 68 65 20 72 65 nvoked if the re
4580: 67 69 73 74 65 72 69 6e 67 20 70 61 63 6b 61 67 gistering packag
4590: 65 20 6e 61 6d 65 73 70 61 63 65 0a 23 09 20 20 e namespace.#.
45a0: 20 20 69 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 is not present
45b0: 2e 0a 23 09 20 20 20 20 54 68 69 73 20 63 61 6c ..#. This cal
45c0: 6c 62 61 63 6b 20 6d 69 67 68 74 20 61 6c 73 6f lback might also
45d0: 20 62 65 20 75 73 65 64 20 61 73 20 61 6e 20 61 be used as an a
45e0: 6c 74 65 72 6e 61 74 69 76 65 20 74 6f 20 6d 65 lternative to me
45f0: 73 73 61 67 65 0a 23 09 20 20 20 20 66 69 6c 65 ssage.#. file
4600: 73 2e 0a 23 09 20 20 20 20 49 66 20 74 68 65 20 s..#. If the
4610: 76 61 6c 75 65 20 69 73 20 63 68 61 6e 67 65 64 value is changed
4620: 20 75 73 69 6e 67 20 74 68 65 20 73 65 74 20 73 using the set s
4630: 75 62 63 6f 6d 6d 61 6e 64 2c 20 74 68 65 20 63 ubcommand, the c
4640: 61 6c 6c 62 61 63 6b 20 69 73 0a 23 09 20 20 20 allback is.#.
4650: 20 64 69 72 65 63 74 6c 79 20 69 6e 76 6f 6b 65 directly invoke
4660: 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 d with the curre
4670: 6e 74 20 66 69 6c 65 20 6c 6f 63 61 6c 65 20 6c nt file locale l
4680: 69 73 74 2e 20 4e 6f 20 66 69 6c 65 20 6c 6f 61 ist. No file loa
4690: 64 20 69 73 0a 23 09 20 20 20 20 65 78 65 63 75 d is.#. execu
46a0: 74 65 64 2e 0a 23 0a 23 09 63 68 61 6e 67 65 63 ted..#.#.changec
46b0: 6d 64 0a 23 09 20 20 20 20 54 68 65 20 63 6f 6d md.#. The com
46c0: 6d 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65 64 2c mand is invoked,
46d0: 20 61 66 74 65 72 20 61 6e 20 65 78 65 63 75 74 after an execut
46e0: 65 64 20 6c 6f 63 61 6c 65 20 63 68 61 6e 67 65 ed locale change
46f0: 2e 0a 23 09 20 20 20 20 41 70 70 65 6e 64 65 64 ..#. Appended
4700: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 65 78 70 argument is exp
4710: 61 6e 64 65 64 20 6d 63 70 72 65 66 65 72 65 6e anded mcpreferen
4720: 63 65 73 2e 0a 23 0a 23 09 75 6e 6b 6e 6f 77 6e ces..#.#.unknown
4730: 63 6d 64 0a 23 09 20 20 20 20 55 73 65 20 61 20 cmd.#. Use a
4740: 70 61 63 6b 61 67 65 20 6c 6f 63 61 6c 65 20 6d package locale m
4750: 63 75 6e 6b 6e 6f 77 6e 20 70 72 6f 63 65 64 75 cunknown procedu
4760: 72 65 20 69 6e 73 74 65 61 64 20 74 68 65 20 67 re instead the g
4770: 6c 6f 62 61 6c 20 6f 6e 65 2e 0a 23 09 20 20 20 lobal one..#.
4780: 20 54 68 65 20 61 70 70 65 6e 64 65 64 20 61 72 The appended ar
4790: 67 75 6d 65 6e 74 73 20 61 72 65 20 69 64 65 6e guments are iden
47a0: 74 69 63 61 6c 20 74 6f 20 6d 63 75 6e 6b 6e 6f tical to mcunkno
47b0: 77 6e 2e 0a 23 09 20 20 20 20 41 20 64 65 66 61 wn..#. A defa
47c0: 75 6c 74 20 75 6e 6b 6e 6f 77 6e 20 68 61 6e 64 ult unknown hand
47d0: 6c 65 72 20 69 73 20 75 73 65 64 20 69 66 20 73 ler is used if s
47e0: 65 74 20 74 6f 20 74 68 65 20 65 6d 70 74 79 20 et to the empty
47f0: 73 74 72 69 6e 67 2e 0a 23 09 20 20 20 20 54 68 string..#. Th
4800: 69 73 20 63 6f 6e 73 69 73 74 73 20 69 6e 20 72 is consists in r
4810: 65 74 75 72 6e 69 6e 67 20 74 68 65 20 6b 65 79 eturning the key
4820: 20 69 66 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 if no arguments
4830: 20 61 72 65 20 67 69 76 65 6e 2e 0a 23 09 20 20 are given..#.
4840: 20 20 57 69 74 68 20 67 69 76 65 6e 20 61 72 67 With given arg
4850: 75 6d 65 6e 74 73 2c 20 66 6f 72 6d 61 74 20 69 uments, format i
4860: 73 20 75 73 65 64 20 74 6f 20 70 72 6f 63 65 73 s used to proces
4870: 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e s the arguments.
4880: 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a .#.# Arguments:.
4890: 23 09 73 75 62 63 6f 6d 6d 61 6e 64 09 09 4f 70 #.subcommand..Op
48a0: 65 72 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 70 eration on the p
48b0: 61 63 6b 61 67 65 0a 23 09 6f 70 74 69 6f 6e 09 ackage.#.option.
48c0: 09 09 54 68 65 20 70 61 63 6b 61 67 65 20 6f 70 ..The package op
48d0: 74 69 6f 6e 20 74 6f 20 67 65 74 20 6f 72 20 73 tion to get or s
48e0: 65 74 2e 0a 23 09 3f 76 61 6c 75 65 3f 09 09 09 et..#.?value?...
48f0: 45 76 65 6e 74 75 61 6c 20 76 61 6c 75 65 20 66 Eventual value f
4900: 6f 72 20 74 68 65 20 73 75 62 63 6f 6d 6d 61 6e or the subcomman
4910: 64 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 d.#.# Results:.#
4920: 09 44 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 .Depends on the
4930: 73 75 62 63 6f 6d 6d 61 6e 64 20 61 6e 64 20 6f subcommand and o
4940: 70 74 69 6f 6e 20 61 6e 64 20 69 73 20 64 65 73 ption and is des
4950: 63 72 69 62 65 64 20 74 68 65 72 65 0a 0a 70 72 cribed there..pr
4960: 6f 63 20 6d 73 67 63 61 74 3a 3a 6d 63 70 61 63 oc msgcat::mcpac
4970: 6b 61 67 65 63 6f 6e 66 69 67 20 7b 73 75 62 63 kageconfig {subc
4980: 6f 6d 6d 61 6e 64 20 6f 70 74 69 6f 6e 20 7b 76 ommand option {v
4990: 61 6c 75 65 20 22 22 7d 7d 20 7b 0a 20 20 20 20 alue ""}} {.
49a0: 76 61 72 69 61 62 6c 65 20 50 61 63 6b 61 67 65 variable Package
49b0: 43 6f 6e 66 69 67 0a 20 20 20 20 23 20 67 65 74 Config. # get
49c0: 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 73 namespace. s
49d0: 65 74 20 6e 73 20 5b 50 61 63 6b 61 67 65 4e 61 et ns [PackageNa
49e0: 6d 65 73 70 61 63 65 47 65 74 5d 0a 0a 20 20 20 mespaceGet]..
49f0: 20 69 66 20 7b 24 6f 70 74 69 6f 6e 20 6e 69 20 if {$option ni
4a00: 7b 22 6d 63 66 6f 6c 64 65 72 22 20 22 6c 6f 61 {"mcfolder" "loa
4a10: 64 63 6d 64 22 20 22 63 68 61 6e 67 65 63 6d 64 dcmd" "changecmd
4a20: 22 20 22 75 6e 6b 6e 6f 77 6e 63 6d 64 22 7d 7d " "unknowncmd"}}
4a30: 20 7b 0a 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 {..return -code
4a40: 20 65 72 72 6f 72 20 22 62 61 64 20 6f 70 74 69 error "bad opti
4a50: 6f 6e 20 5c 22 24 6f 70 74 69 6f 6e 5c 22 3a 20 on \"$option\":
4a60: 6d 75 73 74 20 62 65 20 6d 63 66 6f 6c 64 65 72 must be mcfolder
4a70: 2c 20 6c 6f 61 64 63 6d 64 2c 5c 0a 09 09 63 68 , loadcmd,\...ch
4a80: 61 6e 67 65 63 6d 64 2c 20 6f 72 20 75 6e 6b 6e angecmd, or unkn
4a90: 6f 77 6e 63 6d 64 22 0a 20 20 20 20 7d 0a 0a 20 owncmd". }..
4aa0: 20 20 20 23 20 63 68 65 63 6b 20 69 66 20 76 61 # check if va
4ab0: 6c 75 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 lue argument is
4ac0: 65 78 61 63 74 6c 79 20 70 72 6f 76 69 64 65 64 exactly provided
4ad0: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 . if {[llengt
4ae0: 68 20 5b 69 6e 66 6f 20 6c 65 76 65 6c 20 30 5d h [info level 0]
4af0: 5d 20 3d 3d 20 34 20 7d 20 7b 0a 09 23 20 76 61 ] == 4 } {..# va
4b00: 6c 75 65 20 70 72 6f 76 69 64 65 64 0a 09 69 66 lue provided..if
4b10: 20 7b 24 73 75 62 63 6f 6d 6d 61 6e 64 20 69 6e {$subcommand in
4b20: 20 7b 22 67 65 74 22 20 22 69 73 73 65 74 22 20 {"get" "isset"
4b30: 22 75 6e 73 65 74 22 7d 7d 20 7b 0a 09 20 20 20 "unset"}} {..
4b40: 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 return -code er
4b50: 72 6f 72 20 22 77 72 6f 6e 67 20 23 20 61 72 67 ror "wrong # arg
4b60: 73 3a 20 73 68 6f 75 6c 64 20 62 65 5c 0a 09 09 s: should be\...
4b70: 20 20 20 20 5c 22 5b 6c 72 61 6e 67 65 20 5b 69 \"[lrange [i
4b80: 6e 66 6f 20 6c 65 76 65 6c 20 30 5d 20 30 20 32 nfo level 0] 0 2
4b90: 5d 20 76 61 6c 75 65 5c 22 22 0a 09 7d 0a 20 20 ] value\""..}.
4ba0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 73 75 62 } elseif {$sub
4bb0: 63 6f 6d 6d 61 6e 64 20 65 71 20 22 73 65 74 22 command eq "set"
4bc0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 } {. retu
4bd0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 5c 0a rn -code error\.
4be0: 09 09 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a .."wrong # args:
4bf0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 5b 6c 72 should be \"[lr
4c00: 61 6e 67 65 20 5b 69 6e 66 6f 20 6c 65 76 65 6c ange [info level
4c10: 20 30 5d 20 30 20 32 5d 5c 22 22 0a 20 20 20 20 0] 0 2]\"".
4c20: 7d 0a 0a 20 20 20 20 23 20 45 78 65 63 75 74 65 }.. # Execute
4c30: 20 73 75 62 63 6f 6d 6d 61 6e 64 73 0a 20 20 20 subcommands.
4c40: 20 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d switch -exact -
4c50: 2d 20 24 73 75 62 63 6f 6d 6d 61 6e 64 20 7b 0a - $subcommand {.
4c60: 09 67 65 74 20 7b 09 23 20 4f 70 65 72 61 74 69 .get {.# Operati
4c70: 6f 6e 20 67 65 74 20 72 65 74 75 72 6e 20 63 75 on get return cu
4c80: 72 72 65 6e 74 20 76 61 6c 75 65 0a 09 20 20 20 rrent value..
4c90: 20 69 66 20 7b 21 5b 64 69 63 74 20 65 78 69 73 if {![dict exis
4ca0: 74 73 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 ts $PackageConfi
4cb0: 67 20 24 6f 70 74 69 6f 6e 20 24 6e 73 5d 7d 20 g $option $ns]}
4cc0: 7b 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 {...return -code
4cd0: 20 65 72 72 6f 72 20 22 70 61 63 6b 61 67 65 20 error "package
4ce0: 6f 70 74 69 6f 6e 20 5c 22 24 6f 70 74 69 6f 6e option \"$option
4cf0: 5c 22 20 6e 6f 74 20 73 65 74 22 0a 09 20 20 20 \" not set"..
4d00: 20 7d 0a 09 20 20 20 20 72 65 74 75 72 6e 20 5b }.. return [
4d10: 64 69 63 74 20 67 65 74 20 24 50 61 63 6b 61 67 dict get $Packag
4d20: 65 43 6f 6e 66 69 67 20 24 6f 70 74 69 6f 6e 20 eConfig $option
4d30: 24 6e 73 5d 0a 09 7d 0a 09 69 73 73 65 74 20 7b $ns]..}..isset {
4d40: 09 72 65 74 75 72 6e 20 5b 64 69 63 74 20 65 78 .return [dict ex
4d50: 69 73 74 73 20 24 50 61 63 6b 61 67 65 43 6f 6e ists $PackageCon
4d60: 66 69 67 20 24 6f 70 74 69 6f 6e 20 24 6e 73 5d fig $option $ns]
4d70: 20 7d 0a 09 75 6e 73 65 74 20 7b 09 64 69 63 74 }..unset {.dict
4d80: 20 75 6e 73 65 74 20 50 61 63 6b 61 67 65 43 6f unset PackageCo
4d90: 6e 66 69 67 20 24 6f 70 74 69 6f 6e 20 24 6e 73 nfig $option $ns
4da0: 20 7d 0a 09 73 65 74 20 7b 09 23 20 53 65 74 20 }..set {.# Set
4db0: 6f 70 74 69 6f 6e 0a 0a 09 20 20 20 20 69 66 20 option... if
4dc0: 7b 24 6f 70 74 69 6f 6e 20 65 71 20 22 6d 63 66 {$option eq "mcf
4dd0: 6f 6c 64 65 72 22 7d 20 7b 0a 09 09 73 65 74 20 older"} {...set
4de0: 76 61 6c 75 65 20 5b 66 69 6c 65 20 6e 6f 72 6d value [file norm
4df0: 61 6c 69 7a 65 20 24 76 61 6c 75 65 5d 0a 09 20 alize $value]..
4e00: 20 20 20 7d 0a 09 20 20 20 20 23 20 43 68 65 63 }.. # Chec
4e10: 6b 20 69 66 20 63 68 61 6e 67 65 64 0a 09 20 20 k if changed..
4e20: 20 20 69 66 20 7b 20 5b 64 69 63 74 20 65 78 69 if { [dict exi
4e30: 73 74 73 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 sts $PackageConf
4e40: 69 67 20 24 6f 70 74 69 6f 6e 20 24 6e 73 5d 0a ig $option $ns].
4e50: 09 09 20 20 20 20 26 26 20 24 76 61 6c 75 65 20 .. && $value
4e60: 65 71 20 5b 64 69 63 74 20 67 65 74 20 24 50 61 eq [dict get $Pa
4e70: 63 6b 61 67 65 43 6f 6e 66 69 67 20 24 6f 70 74 ckageConfig $opt
4e80: 69 6f 6e 20 24 6e 73 5d 20 7d 20 7b 0a 09 09 72 ion $ns] } {...r
4e90: 65 74 75 72 6e 20 30 0a 09 20 20 20 20 7d 0a 0a eturn 0.. }..
4ea0: 09 20 20 20 20 23 20 73 65 74 20 6e 65 77 20 76 . # set new v
4eb0: 61 6c 75 65 0a 09 20 20 20 20 64 69 63 74 20 73 alue.. dict s
4ec0: 65 74 20 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 et PackageConfig
4ed0: 20 24 6f 70 74 69 6f 6e 20 24 6e 73 20 24 76 61 $option $ns $va
4ee0: 6c 75 65 0a 0a 09 20 20 20 20 23 20 52 65 6c 6f lue... # Relo
4ef0: 61 64 20 70 65 6e 64 69 6e 67 20 6d 65 73 73 61 ad pending messa
4f00: 67 65 20 63 61 74 61 6c 6f 67 73 0a 09 20 20 20 ge catalogs..
4f10: 20 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d switch -exact -
4f20: 2d 20 24 6f 70 74 69 6f 6e 20 7b 0a 09 09 6d 63 - $option {...mc
4f30: 66 6f 6c 64 65 72 20 7b 20 72 65 74 75 72 6e 20 folder { return
4f40: 5b 4c 6f 61 64 20 24 6e 73 20 5b 50 61 63 6b 61 [Load $ns [Packa
4f50: 67 65 4c 6f 63 61 6c 65 73 20 24 6e 73 5d 5d 20 geLocales $ns]]
4f60: 7d 0a 09 09 6c 6f 61 64 63 6d 64 20 7b 20 72 65 }...loadcmd { re
4f70: 74 75 72 6e 20 5b 4c 6f 61 64 20 24 6e 73 20 5b turn [Load $ns [
4f80: 50 61 63 6b 61 67 65 4c 6f 63 61 6c 65 73 20 24 PackageLocales $
4f90: 6e 73 5d 20 31 5d 20 7d 0a 09 20 20 20 20 7d 0a ns] 1] }.. }.
4fa0: 09 20 20 20 20 72 65 74 75 72 6e 20 30 0a 09 7d . return 0..}
4fb0: 0a 09 64 65 66 61 75 6c 74 20 7b 0a 09 20 20 20 ..default {..
4fc0: 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 return -code er
4fd0: 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73 75 62 ror "unknown sub
4fe0: 63 6f 6d 6d 61 6e 64 20 5c 22 24 73 75 62 63 6f command \"$subco
4ff0: 6d 6d 61 6e 64 5c 22 3a 5c 0a 09 09 20 20 20 20 mmand\":\...
5000: 6d 75 73 74 20 62 65 20 67 65 74 2c 20 69 73 73 must be get, iss
5010: 65 74 2c 20 73 65 74 2c 20 6f 72 20 75 6e 73 65 et, set, or unse
5020: 74 22 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 t"..}. }.
5030: 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 6d 73 67 63 return.}..# msgc
5040: 61 74 3a 3a 50 61 63 6b 61 67 65 50 72 65 66 65 at::PackagePrefe
5050: 72 65 6e 63 65 73 20 2d 2d 0a 23 0a 23 09 52 65 rences --.#.#.Re
5060: 74 75 72 6e 20 65 76 65 6e 74 75 61 6c 20 70 72 turn eventual pr
5070: 65 73 65 6e 74 20 70 61 63 6b 61 67 65 20 70 72 esent package pr
5080: 65 66 65 72 65 6e 63 65 73 20 6f 72 20 74 68 65 eferences or the
5090: 20 64 65 66 61 75 6c 74 20 6c 69 73 74 20 69 66 default list if
50a0: 20 6e 6f 74 0a 23 09 70 72 65 73 65 6e 74 2e 0a not.#.present..
50b0: 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 #.# Arguments:.#
50c0: 09 6e 73 09 09 50 61 63 6b 61 67 65 20 6e 61 6d .ns..Package nam
50d0: 65 73 70 61 63 65 0a 23 0a 23 20 52 65 73 75 6c espace.#.# Resul
50e0: 74 73 3a 0a 23 09 6c 6f 63 61 6c 65 20 6c 69 73 ts:.#.locale lis
50f0: 74 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a t..proc msgcat::
5100: 50 61 63 6b 61 67 65 50 72 65 66 65 72 65 6e 63 PackagePreferenc
5110: 65 73 20 7b 6e 73 7d 20 7b 0a 20 20 20 20 76 61 es {ns} {. va
5120: 72 69 61 62 6c 65 20 50 61 63 6b 61 67 65 43 6f riable PackageCo
5130: 6e 66 69 67 0a 20 20 20 20 69 66 20 7b 5b 64 69 nfig. if {[di
5140: 63 74 20 65 78 69 73 74 73 20 24 50 61 63 6b 61 ct exists $Packa
5150: 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c 69 73 74 geConfig loclist
5160: 20 24 6e 73 5d 7d 20 7b 0a 09 72 65 74 75 72 6e $ns]} {..return
5170: 20 5b 64 69 63 74 20 67 65 74 20 24 50 61 63 6b [dict get $Pack
5180: 61 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c 69 73 ageConfig loclis
5190: 74 20 24 6e 73 5d 0a 20 20 20 20 7d 0a 20 20 20 t $ns]. }.
51a0: 20 76 61 72 69 61 62 6c 65 20 4c 6f 63 6c 69 73 variable Loclis
51b0: 74 0a 20 20 20 20 72 65 74 75 72 6e 20 24 4c 6f t. return $Lo
51c0: 63 6c 69 73 74 0a 7d 0a 0a 23 20 6d 73 67 63 61 clist.}..# msgca
51d0: 74 3a 3a 50 61 63 6b 61 67 65 4c 6f 63 61 6c 65 t::PackageLocale
51e0: 73 20 2d 2d 0a 23 0a 23 09 52 65 74 75 72 6e 20 s --.#.#.Return
51f0: 65 76 65 6e 74 75 61 6c 20 70 72 65 73 65 6e 74 eventual present
5200: 20 70 61 63 6b 61 67 65 20 6c 6f 63 61 6c 65 73 package locales
5210: 20 6f 72 20 74 68 65 20 64 65 66 61 75 6c 74 20 or the default
5220: 6c 69 73 74 20 69 66 20 6e 6f 74 0a 23 09 70 72 list if not.#.pr
5230: 65 73 65 6e 74 2e 0a 23 0a 23 20 41 72 67 75 6d esent..#.# Argum
5240: 65 6e 74 73 3a 0a 23 09 6e 73 09 09 50 61 63 6b ents:.#.ns..Pack
5250: 61 67 65 20 6e 61 6d 65 73 70 61 63 65 0a 23 0a age namespace.#.
5260: 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 6c 6f 63 # Results:.#.loc
5270: 61 6c 65 20 6c 69 73 74 0a 0a 70 72 6f 63 20 6d ale list..proc m
5280: 73 67 63 61 74 3a 3a 50 61 63 6b 61 67 65 4c 6f sgcat::PackageLo
5290: 63 61 6c 65 73 20 7b 6e 73 7d 20 7b 0a 20 20 20 cales {ns} {.
52a0: 20 76 61 72 69 61 62 6c 65 20 50 61 63 6b 61 67 variable Packag
52b0: 65 43 6f 6e 66 69 67 0a 20 20 20 20 69 66 20 7b eConfig. if {
52c0: 5b 64 69 63 74 20 65 78 69 73 74 73 20 24 50 61 [dict exists $Pa
52d0: 63 6b 61 67 65 43 6f 6e 66 69 67 20 6c 6f 61 64 ckageConfig load
52e0: 65 64 6c 6f 63 61 6c 65 73 20 24 6e 73 5d 7d 20 edlocales $ns]}
52f0: 7b 0a 09 72 65 74 75 72 6e 20 5b 64 69 63 74 20 {..return [dict
5300: 67 65 74 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 get $PackageConf
5310: 69 67 20 6c 6f 61 64 65 64 6c 6f 63 61 6c 65 73 ig loadedlocales
5320: 20 24 6e 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 $ns]. }.
5330: 76 61 72 69 61 62 6c 65 20 4c 6f 61 64 65 64 4c variable LoadedL
5340: 6f 63 61 6c 65 73 0a 20 20 20 20 72 65 74 75 72 ocales. retur
5350: 6e 20 24 4c 6f 61 64 65 64 4c 6f 63 61 6c 65 73 n $LoadedLocales
5360: 0a 7d 0a 0a 23 20 6d 73 67 63 61 74 3a 3a 4c 69 .}..# msgcat::Li
5370: 73 74 43 6f 6d 70 6c 65 6d 65 6e 74 20 2d 2d 0a stComplement --.
5380: 23 0a 23 09 42 75 69 6c 64 20 74 68 65 20 63 6f #.#.Build the co
5390: 6d 70 6c 65 6d 65 6e 74 20 6f 66 20 74 77 6f 20 mplement of two
53a0: 6c 69 73 74 73 2e 0a 23 09 52 65 74 75 72 6e 20 lists..#.Return
53b0: 61 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 a list with all
53c0: 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74 elements in list
53d0: 32 20 62 75 74 20 6e 6f 74 20 69 6e 20 6c 69 73 2 but not in lis
53e0: 74 31 2e 0a 23 09 4f 70 74 69 6f 6e 61 6c 6c 79 t1..#.Optionally
53f0: 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e 74 65 return the inte
5400: 72 73 65 63 74 69 6f 6e 2e 0a 23 0a 23 20 41 72 rsection..#.# Ar
5410: 67 75 6d 65 6e 74 73 3a 0a 23 09 6c 69 73 74 31 guments:.#.list1
5420: 09 09 65 78 63 6c 75 64 65 64 20 6c 69 73 74 0a ..excluded list.
5430: 23 09 6c 69 73 74 32 09 09 69 6e 63 6c 75 64 65 #.list2..include
5440: 64 20 6c 69 73 74 0a 23 09 69 6e 6c 69 73 74 6e d list.#.inlistn
5450: 61 6d 65 09 49 66 20 6e 6f 74 20 22 22 2c 20 77 ame.If not "", w
5460: 72 69 74 65 20 69 6e 20 74 68 69 73 20 76 61 72 rite in this var
5470: 69 61 62 6c 65 20 74 68 65 20 69 6e 74 65 72 73 iable the inters
5480: 65 63 74 69 6f 6e 20 6c 69 73 74 0a 23 0a 23 20 ection list.#.#
5490: 52 65 73 75 6c 74 73 3a 0a 23 09 6c 69 73 74 20 Results:.#.list
54a0: 77 69 74 68 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 with all element
54b0: 73 20 69 6e 20 6c 69 73 74 32 20 62 75 74 20 6e s in list2 but n
54c0: 6f 74 20 69 6e 20 6c 69 73 74 31 0a 0a 70 72 6f ot in list1..pro
54d0: 63 20 6d 73 67 63 61 74 3a 3a 4c 69 73 74 43 6f c msgcat::ListCo
54e0: 6d 70 6c 65 6d 65 6e 74 20 7b 6c 69 73 74 31 20 mplement {list1
54f0: 6c 69 73 74 32 20 7b 69 6e 6c 69 73 74 6e 61 6d list2 {inlistnam
5500: 65 20 22 22 7d 7d 20 7b 0a 20 20 20 20 69 66 20 e ""}} {. if
5510: 7b 22 22 20 6e 65 20 24 69 6e 6c 69 73 74 6e 61 {"" ne $inlistna
5520: 6d 65 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 me} {..upvar 1 $
5530: 69 6e 6c 69 73 74 6e 61 6d 65 20 69 6e 6c 69 73 inlistname inlis
5540: 74 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 t. }. set
5550: 69 6e 6c 69 73 74 20 7b 7d 0a 20 20 20 20 73 65 inlist {}. se
5560: 74 20 6f 75 74 6c 69 73 74 20 7b 7d 0a 20 20 20 t outlist {}.
5570: 20 66 6f 72 65 61 63 68 20 69 74 65 6d 20 24 6c foreach item $l
5580: 69 73 74 32 20 7b 0a 09 69 66 20 7b 24 69 74 65 ist2 {..if {$ite
5590: 6d 20 69 6e 20 24 6c 69 73 74 31 7d 20 7b 0a 09 m in $list1} {..
55a0: 20 20 20 20 6c 61 70 70 65 6e 64 20 69 6e 6c 69 lappend inli
55b0: 73 74 20 24 69 74 65 6d 0a 09 7d 20 65 6c 73 65 st $item..} else
55c0: 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 {.. lappend
55d0: 6f 75 74 6c 69 73 74 20 24 69 74 65 6d 0a 09 7d outlist $item..}
55e0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
55f0: 6e 20 24 6f 75 74 6c 69 73 74 0a 7d 0a 0a 23 20 n $outlist.}..#
5600: 6d 73 67 63 61 74 3a 3a 6d 63 6c 6f 61 64 20 2d msgcat::mcload -
5610: 2d 0a 23 0a 23 09 41 74 74 65 6d 70 74 20 74 6f -.#.#.Attempt to
5620: 20 6c 6f 61 64 20 6d 65 73 73 61 67 65 20 63 61 load message ca
5630: 74 61 6c 6f 67 73 20 66 6f 72 20 65 61 63 68 20 talogs for each
5640: 6c 6f 63 61 6c 65 20 69 6e 20 74 68 65 0a 23 09 locale in the.#.
5650: 70 72 65 66 65 72 65 6e 63 65 20 6c 69 73 74 20 preference list
5660: 66 72 6f 6d 20 74 68 65 20 73 70 65 63 69 66 69 from the specifi
5670: 65 64 20 64 69 72 65 63 74 6f 72 79 2e 0a 23 0a ed directory..#.
5680: 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 6c # Arguments:.#.l
5690: 61 6e 67 64 69 72 09 09 54 68 65 20 64 69 72 65 angdir..The dire
56a0: 63 74 6f 72 79 20 74 6f 20 73 65 61 72 63 68 2e ctory to search.
56b0: 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 .#.# Results:.#.
56c0: 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 Returns the numb
56d0: 65 72 20 6f 66 20 6d 65 73 73 61 67 65 20 63 61 er of message ca
56e0: 74 61 6c 6f 67 73 20 74 68 61 74 20 77 65 72 65 talogs that were
56f0: 20 6c 6f 61 64 65 64 2e 0a 0a 70 72 6f 63 20 6d loaded...proc m
5700: 73 67 63 61 74 3a 3a 6d 63 6c 6f 61 64 20 7b 6c sgcat::mcload {l
5710: 61 6e 67 64 69 72 7d 20 7b 0a 20 20 20 20 74 61 angdir} {. ta
5720: 69 6c 63 61 6c 6c 20 6d 63 70 61 63 6b 61 67 65 ilcall mcpackage
5730: 63 6f 6e 66 69 67 20 73 65 74 20 6d 63 66 6f 6c config set mcfol
5740: 64 65 72 20 24 6c 61 6e 67 64 69 72 0a 7d 0a 0a der $langdir.}..
5750: 23 20 6d 73 67 63 61 74 3a 3a 4c 6f 61 64 41 6c # msgcat::LoadAl
5760: 6c 20 2d 2d 0a 23 0a 23 09 4c 6f 61 64 20 61 20 l --.#.#.Load a
5770: 6c 69 73 74 20 6f 66 20 6c 6f 63 61 6c 65 73 20 list of locales
5780: 66 6f 72 20 61 6c 6c 20 70 61 63 6b 61 67 65 73 for all packages
5790: 20 6e 6f 74 20 68 61 76 69 6e 67 20 61 20 70 61 not having a pa
57a0: 63 6b 61 67 65 20 6c 6f 63 61 6c 65 0a 23 09 6c ckage locale.#.l
57b0: 69 73 74 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e ist..#.# Argumen
57c0: 74 73 3a 0a 23 09 6c 61 6e 67 64 69 72 09 09 54 ts:.#.langdir..T
57d0: 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 he directory to
57e0: 73 65 61 72 63 68 2e 0a 23 0a 23 20 52 65 73 75 search..#.# Resu
57f0: 6c 74 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 74 lts:.#.Returns t
5800: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 65 73 he number of mes
5810: 73 61 67 65 20 63 61 74 61 6c 6f 67 73 20 74 68 sage catalogs th
5820: 61 74 20 77 65 72 65 20 6c 6f 61 64 65 64 2e 0a at were loaded..
5830: 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a 4c 6f .proc msgcat::Lo
5840: 61 64 41 6c 6c 20 7b 6c 6f 63 61 6c 65 73 7d 20 adAll {locales}
5850: 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 50 {. variable P
5860: 61 63 6b 61 67 65 43 6f 6e 66 69 67 0a 20 20 20 ackageConfig.
5870: 20 76 61 72 69 61 62 6c 65 20 4c 6f 61 64 65 64 variable Loaded
5880: 4c 6f 63 61 6c 65 73 0a 20 20 20 20 69 66 20 7b Locales. if {
5890: 30 20 3d 3d 20 5b 6c 6c 65 6e 67 74 68 20 24 6c 0 == [llength $l
58a0: 6f 63 61 6c 65 73 5d 7d 20 7b 20 72 65 74 75 72 ocales]} { retur
58b0: 6e 20 7b 7d 20 7d 0a 20 20 20 20 23 20 66 69 6c n {} }. # fil
58c0: 74 65 72 20 6a 65 74 20 75 6e 6c 6f 61 64 65 64 ter jet unloaded
58d0: 20 6c 6f 63 61 6c 65 73 0a 20 20 20 20 73 65 74 locales. set
58e0: 20 6c 6f 63 61 6c 65 73 20 5b 4c 69 73 74 43 6f locales [ListCo
58f0: 6d 70 6c 65 6d 65 6e 74 20 24 4c 6f 61 64 65 64 mplement $Loaded
5900: 4c 6f 63 61 6c 65 73 20 24 6c 6f 63 61 6c 65 73 Locales $locales
5910: 5d 0a 20 20 20 20 69 66 20 7b 30 20 3d 3d 20 5b ]. if {0 == [
5920: 6c 6c 65 6e 67 74 68 20 24 6c 6f 63 61 6c 65 73 llength $locales
5930: 5d 7d 20 7b 20 72 65 74 75 72 6e 20 7b 7d 20 7d ]} { return {} }
5940: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 4c 6f 61 . lappend Loa
5950: 64 65 64 4c 6f 63 61 6c 65 73 20 7b 2a 7d 24 6c dedLocales {*}$l
5960: 6f 63 61 6c 65 73 0a 0a 20 20 20 20 73 65 74 20 ocales.. set
5970: 70 61 63 6b 61 67 65 73 20 5b 6c 73 6f 72 74 20 packages [lsort
5980: 2d 75 6e 69 71 75 65 20 5b 63 6f 6e 63 61 74 5c -unique [concat\
5990: 0a 09 20 20 20 20 5b 64 69 63 74 20 6b 65 79 73 .. [dict keys
59a0: 20 5b 64 69 63 74 20 67 65 74 20 24 50 61 63 6b [dict get $Pack
59b0: 61 67 65 43 6f 6e 66 69 67 20 6c 6f 61 64 63 6d ageConfig loadcm
59c0: 64 5d 5d 5c 0a 09 20 20 20 20 5b 64 69 63 74 20 d]]\.. [dict
59d0: 6b 65 79 73 20 5b 64 69 63 74 20 67 65 74 20 24 keys [dict get $
59e0: 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 6d 63 PackageConfig mc
59f0: 66 6f 6c 64 65 72 5d 5d 5d 5d 0a 20 20 20 20 66 folder]]]]. f
5a00: 6f 72 65 61 63 68 20 6e 73 20 24 70 61 63 6b 61 oreach ns $packa
5a10: 67 65 73 20 7b 0a 09 69 66 20 7b 21 20 5b 64 69 ges {..if {! [di
5a20: 63 74 20 65 78 69 73 74 73 20 24 50 61 63 6b 61 ct exists $Packa
5a30: 67 65 43 6f 6e 66 69 67 20 6c 6f 63 6c 69 73 74 geConfig loclist
5a40: 20 24 6e 73 5d 20 7d 20 7b 0a 09 20 20 20 20 4c $ns] } {.. L
5a50: 6f 61 64 20 24 6e 73 20 24 6c 6f 63 61 6c 65 73 oad $ns $locales
5a60: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 ..}. }. re
5a70: 74 75 72 6e 20 24 6c 6f 63 61 6c 65 73 0a 7d 0a turn $locales.}.
5a80: 0a 23 20 6d 73 67 63 61 74 3a 3a 4c 6f 61 64 20 .# msgcat::Load
5a90: 2d 2d 0a 23 0a 23 09 49 6e 76 6f 6b 65 20 6d 65 --.#.#.Invoke me
5aa0: 73 73 61 67 65 20 6c 6f 61 64 20 63 61 6c 6c 62 ssage load callb
5ab0: 61 63 6b 20 61 6e 64 20 6c 6f 61 64 20 6d 65 73 ack and load mes
5ac0: 73 61 67 65 20 63 61 74 61 6c 6f 67 20 66 69 6c sage catalog fil
5ad0: 65 73 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 es..#.# Argument
5ae0: 73 3a 0a 23 09 6e 73 09 09 4e 61 6d 65 73 70 61 s:.#.ns..Namespa
5af0: 63 65 20 28 65 71 75 61 6c 20 70 61 63 6b 61 67 ce (equal packag
5b00: 65 29 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 6d e) to load the m
5b10: 65 73 73 61 67 65 20 63 61 74 61 6c 6f 67 2e 0a essage catalog..
5b20: 23 09 6c 6f 63 61 6c 65 73 09 09 4c 69 73 74 20 #.locales..List
5b30: 6f 66 20 6c 6f 63 61 6c 65 73 20 74 6f 20 6c 6f of locales to lo
5b40: 61 64 2e 0a 23 09 63 61 6c 6c 62 61 63 6b 6f 6e ad..#.callbackon
5b50: 6c 79 09 74 72 75 65 20 69 66 20 6f 6e 6c 79 20 ly.true if only
5b60: 63 61 6c 6c 62 61 63 6b 20 73 68 6f 75 6c 64 20 callback should
5b70: 62 65 20 69 6e 76 6f 6b 65 64 0a 23 0a 23 20 52 be invoked.#.# R
5b80: 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 6e esults:.#.Return
5b90: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
5ba0: 6d 65 73 73 61 67 65 20 63 61 74 61 6c 6f 67 73 message catalogs
5bb0: 20 74 68 61 74 20 77 65 72 65 20 6c 6f 61 64 65 that were loade
5bc0: 64 2e 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a d...proc msgcat:
5bd0: 3a 4c 6f 61 64 20 7b 6e 73 20 6c 6f 63 61 6c 65 :Load {ns locale
5be0: 73 20 7b 63 61 6c 6c 62 61 63 6b 6f 6e 6c 79 20 s {callbackonly
5bf0: 30 7d 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 0}} {. variab
5c00: 6c 65 20 46 69 6c 65 4c 6f 63 61 6c 65 0a 20 20 le FileLocale.
5c10: 20 20 76 61 72 69 61 62 6c 65 20 50 61 63 6b 61 variable Packa
5c20: 67 65 43 6f 6e 66 69 67 0a 20 20 20 20 76 61 72 geConfig. var
5c30: 69 61 62 6c 65 20 4c 6f 61 64 65 64 4c 6f 63 61 iable LoadedLoca
5c40: 6c 73 0a 0a 20 20 20 20 69 66 20 7b 30 20 3d 3d ls.. if {0 ==
5c50: 20 5b 6c 6c 65 6e 67 74 68 20 24 6c 6f 63 61 6c [llength $local
5c60: 65 73 5d 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 es]} { return 0
5c70: 7d 0a 0a 20 20 20 20 23 20 49 6e 76 6f 6b 65 20 }.. # Invoke
5c80: 63 61 6c 6c 62 61 63 6b 0a 20 20 20 20 49 6e 76 callback. Inv
5c90: 6f 6b 65 20 6c 6f 61 64 63 6d 64 20 24 6c 6f 63 oke loadcmd $loc
5ca0: 61 6c 65 73 20 24 6e 73 0a 0a 20 20 20 20 69 66 ales $ns.. if
5cb0: 20 7b 24 63 61 6c 6c 62 61 63 6b 6f 6e 6c 79 20 {$callbackonly
5cc0: 7c 7c 20 21 5b 64 69 63 74 20 65 78 69 73 74 73 || ![dict exists
5cd0: 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 $PackageConfig
5ce0: 6d 63 66 6f 6c 64 65 72 20 24 6e 73 5d 7d 20 7b mcfolder $ns]} {
5cf0: 0a 09 72 65 74 75 72 6e 20 30 0a 20 20 20 20 7d ..return 0. }
5d00: 0a 0a 20 20 20 20 23 20 49 6e 76 6f 6b 65 20 66 .. # Invoke f
5d10: 69 6c 65 20 6c 6f 61 64 0a 20 20 20 20 73 65 74 ile load. set
5d20: 20 6c 61 6e 67 64 69 72 20 5b 64 69 63 74 20 67 langdir [dict g
5d30: 65 74 20 24 50 61 63 6b 61 67 65 43 6f 6e 66 69 et $PackageConfi
5d40: 67 20 6d 63 66 6f 6c 64 65 72 20 24 6e 73 5d 0a g mcfolder $ns].
5d50: 0a 20 20 20 20 23 20 53 61 76 65 20 74 68 65 20 . # Save the
5d60: 66 69 6c 65 20 6c 6f 63 61 6c 65 20 69 66 20 77 file locale if w
5d70: 65 20 61 72 65 20 72 65 63 75 72 73 69 76 65 6c e are recursivel
5d80: 79 20 63 61 6c 6c 65 64 0a 20 20 20 20 69 66 20 y called. if
5d90: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 46 69 {[info exists Fi
5da0: 6c 65 4c 6f 63 61 6c 65 5d 7d 20 7b 0a 09 73 65 leLocale]} {..se
5db0: 74 20 6e 65 73 74 65 64 46 69 6c 65 4c 6f 63 61 t nestedFileLoca
5dc0: 6c 65 20 24 46 69 6c 65 4c 6f 63 61 6c 65 0a 20 le $FileLocale.
5dd0: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 78 20 30 }. set x 0
5de0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 70 20 24 . foreach p $
5df0: 6c 6f 63 61 6c 65 73 20 7b 0a 09 69 66 20 7b 24 locales {..if {$
5e00: 70 20 65 71 20 7b 7d 7d 20 7b 0a 09 20 20 20 20 p eq {}} {..
5e10: 73 65 74 20 70 20 52 4f 4f 54 0a 09 7d 0a 09 73 set p ROOT..}..s
5e20: 65 74 20 6c 61 6e 67 66 69 6c 65 20 5b 66 69 6c et langfile [fil
5e30: 65 20 6a 6f 69 6e 20 24 6c 61 6e 67 64 69 72 20 e join $langdir
5e40: 24 70 2e 6d 73 67 5d 0a 09 69 66 20 7b 5b 66 69 $p.msg]..if {[fi
5e50: 6c 65 20 65 78 69 73 74 73 20 24 6c 61 6e 67 66 le exists $langf
5e60: 69 6c 65 5d 7d 20 7b 0a 09 20 20 20 20 69 6e 63 ile]} {.. inc
5e70: 72 20 78 0a 09 20 20 20 20 73 65 74 20 46 69 6c r x.. set Fil
5e80: 65 4c 6f 63 61 6c 65 20 5b 73 74 72 69 6e 67 20 eLocale [string
5e90: 74 6f 6c 6f 77 65 72 5c 0a 09 09 20 20 20 20 5b tolower\... [
5ea0: 66 69 6c 65 20 74 61 69 6c 20 5b 66 69 6c 65 20 file tail [file
5eb0: 72 6f 6f 74 6e 61 6d 65 20 24 6c 61 6e 67 66 69 rootname $langfi
5ec0: 6c 65 5d 5d 5d 0a 09 20 20 20 20 69 66 20 7b 22 le]]].. if {"
5ed0: 72 6f 6f 74 22 20 65 71 20 24 46 69 6c 65 4c 6f root" eq $FileLo
5ee0: 63 61 6c 65 7d 20 7b 0a 09 09 73 65 74 20 46 69 cale} {...set Fi
5ef0: 6c 65 4c 6f 63 61 6c 65 20 22 22 0a 09 20 20 20 leLocale ""..
5f00: 20 7d 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 }.. namespac
5f10: 65 20 69 6e 73 63 6f 70 65 20 24 6e 73 20 5b 6c e inscope $ns [l
5f20: 69 73 74 20 3a 3a 73 6f 75 72 63 65 20 2d 65 6e ist ::source -en
5f30: 63 6f 64 69 6e 67 20 75 74 66 2d 38 20 24 6c 61 coding utf-8 $la
5f40: 6e 67 66 69 6c 65 5d 0a 09 20 20 20 20 75 6e 73 ngfile].. uns
5f50: 65 74 20 46 69 6c 65 4c 6f 63 61 6c 65 0a 09 7d et FileLocale..}
5f60: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b . }. if {[
5f70: 69 6e 66 6f 20 65 78 69 73 74 73 20 6e 65 73 74 info exists nest
5f80: 65 64 46 69 6c 65 4c 6f 63 61 6c 65 5d 7d 20 7b edFileLocale]} {
5f90: 0a 09 73 65 74 20 46 69 6c 65 4c 6f 63 61 6c 65 ..set FileLocale
5fa0: 20 24 6e 65 73 74 65 64 46 69 6c 65 4c 6f 63 61 $nestedFileLoca
5fb0: 6c 65 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 le. }. ret
5fc0: 75 72 6e 20 24 78 0a 7d 0a 0a 23 20 6d 73 67 63 urn $x.}..# msgc
5fd0: 61 74 3a 3a 49 6e 76 6f 6b 65 20 2d 2d 0a 23 0a at::Invoke --.#.
5fe0: 23 09 49 6e 76 6f 6b 65 20 61 20 73 65 74 20 6f #.Invoke a set o
5ff0: 66 20 72 65 67 69 73 74 65 72 65 64 20 63 61 6c f registered cal
6000: 6c 62 61 63 6b 73 2e 0a 23 09 54 68 65 20 63 61 lbacks..#.The ca
6010: 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 6c 79 20 69 llback is only i
6020: 6e 76 6f 6b 65 64 2c 20 69 66 20 69 74 73 20 72 nvoked, if its r
6030: 65 67 69 73 74 65 72 65 64 20 6e 61 6d 65 73 70 egistered namesp
6040: 61 63 65 20 65 78 69 73 74 73 2e 0a 23 0a 23 20 ace exists..#.#
6050: 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 69 6e 64 Arguments:.#.ind
6060: 65 78 09 09 49 6e 64 65 78 20 69 6e 74 6f 20 50 ex..Index into P
6070: 61 63 6b 61 67 65 43 6f 6e 66 69 67 20 74 6f 20 ackageConfig to
6080: 67 65 74 20 63 61 6c 6c 62 61 63 6b 20 63 6f 6d get callback com
6090: 6d 61 6e 64 0a 23 09 61 72 67 6c 69 73 74 09 09 mand.#.arglist..
60a0: 70 61 72 61 6d 65 74 65 72 73 20 74 6f 20 74 68 parameters to th
60b0: 65 20 63 61 6c 6c 62 61 63 6b 20 69 6e 76 6f 63 e callback invoc
60c0: 61 74 69 6f 6e 0a 23 09 6e 73 09 09 28 4f 70 74 ation.#.ns..(Opt
60d0: 69 6f 6e 61 6c 29 20 70 61 63 6b 61 67 65 20 74 ional) package t
60e0: 6f 20 63 61 6c 6c 2e 0a 23 09 09 09 49 66 20 6e o call..#...If n
60f0: 6f 74 20 67 69 76 65 6e 20 6f 72 20 65 6d 70 74 ot given or empt
6100: 79 2c 20 63 68 65 63 6b 20 61 6c 6c 20 72 65 67 y, check all reg
6110: 69 73 74 65 72 65 64 20 70 61 63 6b 61 67 65 73 istered packages
6120: 2e 0a 23 09 72 65 73 75 6c 74 6e 61 6d 65 09 56 ..#.resultname.V
6130: 61 72 69 61 62 6c 65 20 74 6f 20 73 61 76 65 20 ariable to save
6140: 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 72 65 73 the callback res
6150: 75 6c 74 20 6f 66 20 74 68 65 20 6c 61 73 74 20 ult of the last
6160: 63 61 6c 6c 65 64 0a 23 09 09 09 63 61 6c 6c 62 called.#...callb
6170: 61 63 6b 20 74 6f 2e 20 4d 61 79 20 62 65 20 73 ack to. May be s
6180: 65 74 20 74 6f 20 22 22 20 74 6f 20 64 69 73 63 et to "" to disc
6190: 61 72 64 20 74 68 65 20 72 65 73 75 6c 74 2e 0a ard the result..
61a0: 23 09 66 61 69 6c 65 72 72 6f 72 20 28 30 29 09 #.failerror (0).
61b0: 46 61 69 6c 20 6f 6e 20 65 72 72 6f 72 20 69 66 Fail on error if
61c0: 20 74 72 75 65 2e 20 4f 74 68 65 72 77 69 73 65 true. Otherwise
61d0: 20 63 61 6c 6c 20 62 67 65 72 72 6f 72 2e 0a 23 call bgerror..#
61e0: 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 50 6f .# Results:.#.Po
61f0: 73 73 69 62 6c 65 20 76 61 6c 75 65 73 3a 0a 23 ssible values:.#
6200: 09 2d 20 30 3a 20 6e 6f 20 76 61 6c 69 64 20 63 .- 0: no valid c
6210: 6f 6d 6d 61 6e 64 20 72 65 67 69 73 74 65 72 65 ommand registere
6220: 64 0a 23 09 2d 20 31 3a 20 72 65 67 69 73 74 65 d.#.- 1: registe
6230: 72 65 64 20 63 6f 6d 6d 61 6e 64 20 77 61 73 20 red command was
6240: 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 the empty string
6250: 0a 23 09 2d 20 32 3a 20 72 65 67 69 73 74 65 72 .#.- 2: register
6260: 65 64 20 63 6f 6d 6d 61 6e 64 20 63 61 6c 6c 65 ed command calle
6270: 64 2c 20 72 65 73 75 6c 74 6e 61 6d 65 20 69 73 d, resultname is
6280: 20 73 65 74 0a 23 09 2d 20 33 3a 20 72 65 67 69 set.#.- 3: regi
6290: 73 74 65 72 65 64 20 63 6f 6d 6d 61 6e 64 20 66 stered command f
62a0: 61 69 6c 65 64 0a 23 09 49 66 20 6d 75 6c 74 69 ailed.#.If multi
62b0: 70 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 ple commands are
62c0: 20 63 61 6c 6c 65 64 2c 20 74 68 65 20 6d 61 78 called, the max
62d0: 69 6d 75 6d 20 6f 66 20 61 6c 6c 20 72 65 73 75 imum of all resu
62e0: 6c 74 73 20 69 73 20 72 65 74 75 72 6e 65 64 2e lts is returned.
62f0: 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a 49 ..proc msgcat::I
6300: 6e 76 6f 6b 65 20 7b 69 6e 64 65 78 20 61 72 67 nvoke {index arg
6310: 6c 69 73 74 20 7b 6e 73 20 22 22 7d 20 7b 72 65 list {ns ""} {re
6320: 73 75 6c 74 6e 61 6d 65 20 22 22 7d 20 7b 66 61 sultname ""} {fa
6330: 69 6c 65 72 72 6f 72 20 30 7d 7d 20 7b 0a 20 20 ilerror 0}} {.
6340: 20 20 76 61 72 69 61 62 6c 65 20 50 61 63 6b 61 variable Packa
6350: 67 65 43 6f 6e 66 69 67 0a 20 20 20 20 76 61 72 geConfig. var
6360: 69 61 62 6c 65 20 43 6f 6e 66 69 67 0a 20 20 20 iable Config.
6370: 20 69 66 20 7b 22 22 20 6e 65 20 24 72 65 73 75 if {"" ne $resu
6380: 6c 74 6e 61 6d 65 7d 20 7b 0a 09 75 70 76 61 72 ltname} {..upvar
6390: 20 31 20 24 72 65 73 75 6c 74 6e 61 6d 65 20 72 1 $resultname r
63a0: 65 73 75 6c 74 0a 20 20 20 20 7d 0a 20 20 20 20 esult. }.
63b0: 69 66 20 7b 22 22 20 65 71 20 24 6e 73 7d 20 7b if {"" eq $ns} {
63c0: 0a 09 73 65 74 20 70 61 63 6b 61 67 65 4c 69 73 ..set packageLis
63d0: 74 20 5b 64 69 63 74 20 6b 65 79 73 20 5b 64 69 t [dict keys [di
63e0: 63 74 20 67 65 74 20 24 50 61 63 6b 61 67 65 43 ct get $PackageC
63f0: 6f 6e 66 69 67 20 24 69 6e 64 65 78 5d 5d 0a 20 onfig $index]].
6400: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 65 74 } else {..set
6410: 20 70 61 63 6b 61 67 65 4c 69 73 74 20 5b 6c 69 packageList [li
6420: 73 74 20 24 6e 73 5d 0a 20 20 20 20 7d 0a 20 20 st $ns]. }.
6430: 20 20 73 65 74 20 72 65 74 20 30 0a 20 20 20 20 set ret 0.
6440: 66 6f 72 65 61 63 68 20 6e 73 20 24 70 61 63 6b foreach ns $pack
6450: 61 67 65 4c 69 73 74 20 7b 0a 09 69 66 20 7b 5b ageList {..if {[
6460: 64 69 63 74 20 65 78 69 73 74 73 20 24 50 61 63 dict exists $Pac
6470: 6b 61 67 65 43 6f 6e 66 69 67 20 24 69 6e 64 65 kageConfig $inde
6480: 78 20 24 6e 73 5d 20 26 26 20 5b 6e 61 6d 65 73 x $ns] && [names
6490: 70 61 63 65 20 65 78 69 73 74 73 20 24 6e 73 5d pace exists $ns]
64a0: 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 63 6d 64 } {.. set cmd
64b0: 20 5b 64 69 63 74 20 67 65 74 20 24 50 61 63 6b [dict get $Pack
64c0: 61 67 65 43 6f 6e 66 69 67 20 24 69 6e 64 65 78 ageConfig $index
64d0: 20 24 6e 73 5d 0a 09 20 20 20 20 69 66 20 7b 22 $ns].. if {"
64e0: 22 20 65 71 20 24 63 6d 64 7d 20 7b 0a 09 09 69 " eq $cmd} {...i
64f0: 66 20 7b 24 72 65 74 20 3d 3d 20 30 7d 20 7b 73 f {$ret == 0} {s
6500: 65 74 20 72 65 74 20 31 7d 0a 09 20 20 20 20 7d et ret 1}.. }
6510: 20 65 6c 73 65 20 7b 0a 09 09 69 66 20 7b 24 66 else {...if {$f
6520: 61 69 6c 65 72 72 6f 72 7d 20 7b 0a 09 09 20 20 ailerror} {...
6530: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6e 61 set result [na
6540: 6d 65 73 70 61 63 65 20 69 6e 73 63 6f 70 65 20 mespace inscope
6550: 24 6e 73 20 24 63 6d 64 20 7b 2a 7d 24 61 72 67 $ns $cmd {*}$arg
6560: 6c 69 73 74 5d 0a 09 09 20 20 20 20 73 65 74 20 list]... set
6570: 72 65 74 20 32 0a 09 09 7d 20 65 6c 73 65 69 66 ret 2...} elseif
6580: 20 7b 31 20 3d 3d 20 5b 63 61 74 63 68 20 7b 0a {1 == [catch {.
6590: 09 09 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 .. set result
65a0: 20 5b 6e 61 6d 65 73 70 61 63 65 20 69 6e 73 63 [namespace insc
65b0: 6f 70 65 20 24 6e 73 20 24 63 6d 64 20 7b 2a 7d ope $ns $cmd {*}
65c0: 24 61 72 67 6c 69 73 74 5d 0a 09 09 20 20 20 20 $arglist]...
65d0: 69 66 20 7b 24 72 65 74 20 3c 20 32 7d 20 7b 73 if {$ret < 2} {s
65e0: 65 74 20 72 65 74 20 32 7d 0a 09 09 7d 20 65 72 et ret 2}...} er
65f0: 72 20 64 65 72 72 5d 7d 20 7b 0a 09 09 20 20 20 r derr]} {...
6600: 20 61 66 74 65 72 20 69 64 6c 65 20 5b 63 6f 6e after idle [con
6610: 63 61 74 20 5b 3a 3a 69 6e 74 65 72 70 20 62 67 cat [::interp bg
6620: 65 72 72 6f 72 20 22 22 5d 5c 0a 09 09 09 20 20 error ""]\....
6630: 20 20 5b 6c 69 73 74 20 24 65 72 72 20 24 64 65 [list $err $de
6640: 72 72 5d 5d 0a 09 09 20 20 20 20 73 65 74 20 72 rr]]... set r
6650: 65 74 20 33 0a 09 09 7d 0a 09 20 20 20 20 7d 0a et 3...}.. }.
6660: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 .}. }. ret
6670: 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 6d 73 urn $ret.}..# ms
6680: 67 63 61 74 3a 3a 6d 63 73 65 74 20 2d 2d 0a 23 gcat::mcset --.#
6690: 0a 23 09 53 65 74 20 74 68 65 20 74 72 61 6e 73 .#.Set the trans
66a0: 6c 61 74 69 6f 6e 20 66 6f 72 20 61 20 67 69 76 lation for a giv
66b0: 65 6e 20 73 74 72 69 6e 67 20 69 6e 20 61 20 73 en string in a s
66c0: 70 65 63 69 66 69 65 64 20 6c 6f 63 61 6c 65 2e pecified locale.
66d0: 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a .#.# Arguments:.
66e0: 23 09 6c 6f 63 61 6c 65 09 09 54 68 65 20 6c 6f #.locale..The lo
66f0: 63 61 6c 65 20 74 6f 20 75 73 65 2e 0a 23 09 73 cale to use..#.s
6700: 72 63 09 09 54 68 65 20 73 6f 75 72 63 65 20 73 rc..The source s
6710: 74 72 69 6e 67 2e 0a 23 09 64 65 73 74 09 09 28 tring..#.dest..(
6720: 4f 70 74 69 6f 6e 61 6c 29 20 54 68 65 20 74 72 Optional) The tr
6730: 61 6e 73 6c 61 74 65 64 20 73 74 72 69 6e 67 2e anslated string.
6740: 20 20 49 66 20 6f 6d 69 74 74 65 64 2c 0a 23 09 If omitted,.#.
6750: 09 09 74 68 65 20 73 6f 75 72 63 65 20 73 74 72 ..the source str
6760: 69 6e 67 20 69 73 20 75 73 65 64 2e 0a 23 0a 23 ing is used..#.#
6770: 20 52 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 Results:.#.Retu
6780: 72 6e 73 20 74 68 65 20 6e 65 77 20 6c 6f 63 61 rns the new loca
6790: 6c 65 2e 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 le...proc msgcat
67a0: 3a 3a 6d 63 73 65 74 20 7b 6c 6f 63 61 6c 65 20 ::mcset {locale
67b0: 73 72 63 20 7b 64 65 73 74 20 22 22 7d 7d 20 7b src {dest ""}} {
67c0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 4d 73 . variable Ms
67d0: 67 73 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e gs. if {[llen
67e0: 67 74 68 20 5b 69 6e 66 6f 20 6c 65 76 65 6c 20 gth [info level
67f0: 30 5d 5d 20 3d 3d 20 33 7d 20 7b 20 3b 23 20 64 0]] == 3} { ;# d
6800: 65 73 74 20 6e 6f 74 20 73 70 65 63 69 66 69 65 est not specifie
6810: 64 0a 09 73 65 74 20 64 65 73 74 20 24 73 72 63 d..set dest $src
6820: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 . }.. set
6830: 6e 73 20 5b 50 61 63 6b 61 67 65 4e 61 6d 65 73 ns [PackageNames
6840: 70 61 63 65 47 65 74 5d 0a 0a 20 20 20 20 73 65 paceGet].. se
6850: 74 20 6c 6f 63 61 6c 65 20 5b 73 74 72 69 6e 67 t locale [string
6860: 20 74 6f 6c 6f 77 65 72 20 24 6c 6f 63 61 6c 65 tolower $locale
6870: 5d 0a 0a 20 20 20 20 64 69 63 74 20 73 65 74 20 ].. dict set
6880: 4d 73 67 73 20 24 6e 73 20 24 6c 6f 63 61 6c 65 Msgs $ns $locale
6890: 20 24 73 72 63 20 24 64 65 73 74 0a 20 20 20 20 $src $dest.
68a0: 72 65 74 75 72 6e 20 24 64 65 73 74 0a 7d 0a 0a return $dest.}..
68b0: 23 20 6d 73 67 63 61 74 3a 3a 6d 63 66 6c 73 65 # msgcat::mcflse
68c0: 74 20 2d 2d 0a 23 0a 23 09 53 65 74 20 74 68 65 t --.#.#.Set the
68d0: 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 66 6f 72 translation for
68e0: 20 61 20 67 69 76 65 6e 20 73 74 72 69 6e 67 20 a given string
68f0: 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 in the current f
6900: 69 6c 65 20 6c 6f 63 61 6c 65 2e 0a 23 0a 23 20 ile locale..#.#
6910: 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 73 72 63 Arguments:.#.src
6920: 09 09 54 68 65 20 73 6f 75 72 63 65 20 73 74 72 ..The source str
6930: 69 6e 67 2e 0a 23 09 64 65 73 74 09 09 28 4f 70 ing..#.dest..(Op
6940: 74 69 6f 6e 61 6c 29 20 54 68 65 20 74 72 61 6e tional) The tran
6950: 73 6c 61 74 65 64 20 73 74 72 69 6e 67 2e 20 20 slated string.
6960: 49 66 20 6f 6d 69 74 74 65 64 2c 0a 23 09 09 09 If omitted,.#...
6970: 74 68 65 20 73 6f 75 72 63 65 20 73 74 72 69 6e the source strin
6980: 67 20 69 73 20 75 73 65 64 2e 0a 23 0a 23 20 52 g is used..#.# R
6990: 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 6e esults:.#.Return
69a0: 73 20 74 68 65 20 6e 65 77 20 6c 6f 63 61 6c 65 s the new locale
69b0: 2e 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a ...proc msgcat::
69c0: 6d 63 66 6c 73 65 74 20 7b 73 72 63 20 7b 64 65 mcflset {src {de
69d0: 73 74 20 22 22 7d 7d 20 7b 0a 20 20 20 20 76 61 st ""}} {. va
69e0: 72 69 61 62 6c 65 20 46 69 6c 65 4c 6f 63 61 6c riable FileLocal
69f0: 65 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 4d e. variable M
6a00: 73 67 73 0a 0a 20 20 20 20 69 66 20 7b 21 5b 69 sgs.. if {![i
6a10: 6e 66 6f 20 65 78 69 73 74 73 20 46 69 6c 65 4c nfo exists FileL
6a20: 6f 63 61 6c 65 5d 7d 20 7b 0a 09 72 65 74 75 72 ocale]} {..retur
6a30: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 6d n -code error "m
6a40: 75 73 74 20 6f 6e 6c 79 20 62 65 20 75 73 65 64 ust only be used
6a50: 20 69 6e 73 69 64 65 20 61 20 6d 65 73 73 61 67 inside a messag
6a60: 65 20 63 61 74 61 6c 6f 67 20 6c 6f 61 64 65 64 e catalog loaded
6a70: 5c 0a 09 09 77 69 74 68 20 3a 3a 6d 73 67 63 61 \...with ::msgca
6a80: 74 3a 3a 6d 63 6c 6f 61 64 22 0a 20 20 20 20 7d t::mcload". }
6a90: 0a 20 20 20 20 74 61 69 6c 63 61 6c 6c 20 6d 63 . tailcall mc
6aa0: 73 65 74 20 24 46 69 6c 65 4c 6f 63 61 6c 65 20 set $FileLocale
6ab0: 24 73 72 63 20 24 64 65 73 74 0a 7d 0a 0a 23 20 $src $dest.}..#
6ac0: 6d 73 67 63 61 74 3a 3a 6d 63 6d 73 65 74 20 2d msgcat::mcmset -
6ad0: 2d 0a 23 0a 23 09 53 65 74 20 74 68 65 20 74 72 -.#.#.Set the tr
6ae0: 61 6e 73 6c 61 74 69 6f 6e 20 66 6f 72 20 6d 75 anslation for mu
6af0: 6c 74 69 70 6c 65 20 73 74 72 69 6e 67 73 20 69 ltiple strings i
6b00: 6e 20 61 20 73 70 65 63 69 66 69 65 64 20 6c 6f n a specified lo
6b10: 63 61 6c 65 2e 0a 23 0a 23 20 41 72 67 75 6d 65 cale..#.# Argume
6b20: 6e 74 73 3a 0a 23 09 6c 6f 63 61 6c 65 09 09 54 nts:.#.locale..T
6b30: 68 65 20 6c 6f 63 61 6c 65 20 74 6f 20 75 73 65 he locale to use
6b40: 2e 0a 23 09 70 61 69 72 73 09 09 4f 6e 65 20 6f ..#.pairs..One o
6b50: 72 20 6d 6f 72 65 20 73 72 63 2f 64 65 73 74 20 r more src/dest
6b60: 70 61 69 72 73 20 28 6d 75 73 74 20 62 65 20 65 pairs (must be e
6b70: 76 65 6e 20 6c 65 6e 67 74 68 29 0a 23 0a 23 20 ven length).#.#
6b80: 52 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 Results:.#.Retur
6b90: 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ns the number of
6ba0: 20 70 61 69 72 73 20 70 72 6f 63 65 73 73 65 64 pairs processed
6bb0: 0a 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a 6d ..proc msgcat::m
6bc0: 63 6d 73 65 74 20 7b 6c 6f 63 61 6c 65 20 70 61 cmset {locale pa
6bd0: 69 72 73 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 irs} {. varia
6be0: 62 6c 65 20 4d 73 67 73 0a 0a 20 20 20 20 73 65 ble Msgs.. se
6bf0: 74 20 6c 65 6e 67 74 68 20 5b 6c 6c 65 6e 67 74 t length [llengt
6c00: 68 20 24 70 61 69 72 73 5d 0a 20 20 20 20 69 66 h $pairs]. if
6c10: 20 7b 24 6c 65 6e 67 74 68 20 25 20 32 7d 20 7b {$length % 2} {
6c20: 0a 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
6c30: 72 72 6f 72 20 22 62 61 64 20 74 72 61 6e 73 6c rror "bad transl
6c40: 61 74 69 6f 6e 20 6c 69 73 74 3a 5c 0a 09 09 73 ation list:\...s
6c50: 68 6f 75 6c 64 20 62 65 20 5c 22 5b 6c 69 6e 64 hould be \"[lind
6c60: 65 78 20 5b 69 6e 66 6f 20 6c 65 76 65 6c 20 30 ex [info level 0
6c70: 5d 20 30 5d 20 6c 6f 63 61 6c 65 20 7b 73 72 63 ] 0] locale {src
6c80: 20 64 65 73 74 20 2e 2e 2e 7d 5c 22 22 0a 20 20 dest ...}\"".
6c90: 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 6c 6f 63 }.. set loc
6ca0: 61 6c 65 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f ale [string tolo
6cb0: 77 65 72 20 24 6c 6f 63 61 6c 65 5d 0a 20 20 20 wer $locale].
6cc0: 20 73 65 74 20 6e 73 20 5b 50 61 63 6b 61 67 65 set ns [Package
6cd0: 4e 61 6d 65 73 70 61 63 65 47 65 74 5d 0a 0a 20 NamespaceGet]..
6ce0: 20 20 20 66 6f 72 65 61 63 68 20 7b 73 72 63 20 foreach {src
6cf0: 64 65 73 74 7d 20 24 70 61 69 72 73 20 7b 0a 09 dest} $pairs {..
6d00: 64 69 63 74 20 73 65 74 20 4d 73 67 73 20 24 6e dict set Msgs $n
6d10: 73 20 24 6c 6f 63 61 6c 65 20 24 73 72 63 20 24 s $locale $src $
6d20: 64 65 73 74 0a 20 20 20 20 7d 0a 0a 20 20 20 20 dest. }..
6d30: 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 6c return [expr {$l
6d40: 65 6e 67 74 68 20 2f 20 32 7d 5d 0a 7d 0a 0a 23 ength / 2}].}..#
6d50: 20 6d 73 67 63 61 74 3a 3a 6d 63 66 6c 6d 73 65 msgcat::mcflmse
6d60: 74 20 2d 2d 0a 23 0a 23 09 53 65 74 20 74 68 65 t --.#.#.Set the
6d70: 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 66 6f 72 translation for
6d80: 20 6d 75 6c 74 69 70 6c 65 20 73 74 72 69 6e 67 multiple string
6d90: 73 20 69 6e 20 74 68 65 20 6d 63 20 66 69 6c 65 s in the mc file
6da0: 20 6c 6f 63 61 6c 65 2e 0a 23 0a 23 20 41 72 67 locale..#.# Arg
6db0: 75 6d 65 6e 74 73 3a 0a 23 09 70 61 69 72 73 09 uments:.#.pairs.
6dc0: 09 4f 6e 65 20 6f 72 20 6d 6f 72 65 20 73 72 63 .One or more src
6dd0: 2f 64 65 73 74 20 70 61 69 72 73 20 28 6d 75 73 /dest pairs (mus
6de0: 74 20 62 65 20 65 76 65 6e 20 6c 65 6e 67 74 68 t be even length
6df0: 29 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 ).#.# Results:.#
6e00: 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d .Returns the num
6e10: 62 65 72 20 6f 66 20 70 61 69 72 73 20 70 72 6f ber of pairs pro
6e20: 63 65 73 73 65 64 0a 0a 70 72 6f 63 20 6d 73 67 cessed..proc msg
6e30: 63 61 74 3a 3a 6d 63 66 6c 6d 73 65 74 20 7b 70 cat::mcflmset {p
6e40: 61 69 72 73 7d 20 7b 0a 20 20 20 20 76 61 72 69 airs} {. vari
6e50: 61 62 6c 65 20 46 69 6c 65 4c 6f 63 61 6c 65 0a able FileLocale.
6e60: 20 20 20 20 76 61 72 69 61 62 6c 65 20 4d 73 67 variable Msg
6e70: 73 0a 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 s.. if {![inf
6e80: 6f 20 65 78 69 73 74 73 20 46 69 6c 65 4c 6f 63 o exists FileLoc
6e90: 61 6c 65 5d 7d 20 7b 0a 09 72 65 74 75 72 6e 20 ale]} {..return
6ea0: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 6d 75 73 -code error "mus
6eb0: 74 20 6f 6e 6c 79 20 62 65 20 75 73 65 64 20 69 t only be used i
6ec0: 6e 73 69 64 65 20 61 20 6d 65 73 73 61 67 65 20 nside a message
6ed0: 63 61 74 61 6c 6f 67 20 6c 6f 61 64 65 64 5c 0a catalog loaded\.
6ee0: 09 09 77 69 74 68 20 3a 3a 6d 73 67 63 61 74 3a ..with ::msgcat:
6ef0: 3a 6d 63 6c 6f 61 64 22 0a 20 20 20 20 7d 0a 20 :mcload". }.
6f00: 20 20 20 74 61 69 6c 63 61 6c 20 6d 63 6d 73 65 tailcal mcmse
6f10: 74 20 24 46 69 6c 65 4c 6f 63 61 6c 65 20 24 70 t $FileLocale $p
6f20: 61 69 72 73 0a 7d 0a 0a 23 20 6d 73 67 63 61 74 airs.}..# msgcat
6f30: 3a 3a 6d 63 75 6e 6b 6e 6f 77 6e 20 2d 2d 0a 23 ::mcunknown --.#
6f40: 0a 23 09 54 68 69 73 20 72 6f 75 74 69 6e 65 20 .#.This routine
6f50: 69 73 20 63 61 6c 6c 65 64 20 62 79 20 6d 73 67 is called by msg
6f60: 63 61 74 3a 3a 6d 63 20 69 66 20 61 20 74 72 61 cat::mc if a tra
6f70: 6e 73 6c 61 74 69 6f 6e 20 63 61 6e 6e 6f 74 0a nslation cannot.
6f80: 23 09 62 65 20 66 6f 75 6e 64 20 66 6f 72 20 61 #.be found for a
6f90: 20 73 74 72 69 6e 67 20 61 6e 64 20 6e 6f 20 75 string and no u
6fa0: 6e 6b 6e 6f 77 6e 63 6d 64 20 69 73 20 73 65 74 nknowncmd is set
6fb0: 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 for the current
6fc0: 0a 23 09 70 61 63 6b 61 67 65 2e 20 54 68 69 73 .#.package. This
6fd0: 20 72 6f 75 74 69 6e 65 20 69 73 20 69 6e 74 65 routine is inte
6fe0: 6e 64 65 64 20 74 6f 20 62 65 20 72 65 70 6c 61 nded to be repla
6ff0: 63 65 64 0a 23 09 62 79 20 61 6e 20 61 70 70 6c ced.#.by an appl
7000: 69 63 61 74 69 6f 6e 20 73 70 65 63 69 66 69 63 ication specific
7010: 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 65 72 72 routine for err
7020: 6f 72 20 72 65 70 6f 72 74 69 6e 67 0a 23 09 70 or reporting.#.p
7030: 75 72 70 6f 73 65 73 2e 20 20 54 68 65 20 64 65 urposes. The de
7040: 66 61 75 6c 74 20 62 65 68 61 76 69 6f 72 20 69 fault behavior i
7050: 73 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 s to return the
7060: 73 6f 75 72 63 65 20 73 74 72 69 6e 67 2e 0a 23 source string..#
7070: 09 49 66 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 .If additional a
7080: 72 67 73 20 61 72 65 20 73 70 65 63 69 66 69 65 rgs are specifie
7090: 64 2c 20 74 68 65 20 66 6f 72 6d 61 74 20 63 6f d, the format co
70a0: 6d 6d 61 6e 64 20 77 69 6c 6c 20 62 65 20 75 73 mmand will be us
70b0: 65 64 0a 23 09 74 6f 20 77 6f 72 6b 20 74 68 65 ed.#.to work the
70c0: 6d 20 69 6e 74 6f 20 74 68 65 20 74 72 61 73 6c m into the trasl
70d0: 61 74 65 64 20 73 74 72 69 6e 67 2e 0a 23 0a 23 ated string..#.#
70e0: 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 6c 6f Arguments:.#.lo
70f0: 63 61 6c 65 09 09 54 68 65 20 63 75 72 72 65 6e cale..The curren
7100: 74 20 6c 6f 63 61 6c 65 2e 0a 23 09 73 72 63 09 t locale..#.src.
7110: 09 54 68 65 20 73 74 72 69 6e 67 20 74 6f 20 62 .The string to b
7120: 65 20 74 72 61 6e 73 6c 61 74 65 64 2e 0a 23 09 e translated..#.
7130: 61 72 67 73 09 09 41 72 67 73 20 74 6f 20 70 61 args..Args to pa
7140: 73 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 ss to the format
7150: 20 63 6f 6d 6d 61 6e 64 0a 23 0a 23 20 52 65 73 command.#.# Res
7160: 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 ults:.#.Returns
7170: 74 68 65 20 74 72 61 6e 73 6c 61 74 65 64 20 76 the translated v
7180: 61 6c 75 65 2e 0a 0a 70 72 6f 63 20 6d 73 67 63 alue...proc msgc
7190: 61 74 3a 3a 6d 63 75 6e 6b 6e 6f 77 6e 20 7b 61 at::mcunknown {a
71a0: 72 67 73 7d 20 7b 0a 20 20 20 20 74 61 69 6c 63 rgs} {. tailc
71b0: 61 6c 6c 20 44 65 66 61 75 6c 74 55 6e 6b 6e 6f all DefaultUnkno
71c0: 77 6e 20 7b 2a 7d 24 61 72 67 73 0a 7d 0a 0a 23 wn {*}$args.}..#
71d0: 20 6d 73 67 63 61 74 3a 3a 44 65 66 61 75 6c 74 msgcat::Default
71e0: 55 6e 6b 6e 6f 77 6e 20 2d 2d 0a 23 0a 23 09 54 Unknown --.#.#.T
71f0: 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 63 his routine is c
7200: 61 6c 6c 65 64 20 62 79 20 6d 73 67 63 61 74 3a alled by msgcat:
7210: 3a 6d 63 20 69 66 20 61 20 74 72 61 6e 73 6c 61 :mc if a transla
7220: 74 69 6f 6e 20 63 61 6e 6e 6f 74 0a 23 09 62 65 tion cannot.#.be
7230: 20 66 6f 75 6e 64 20 66 6f 72 20 61 20 73 74 72 found for a str
7240: 69 6e 67 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f ing in the follo
7250: 77 69 6e 67 20 63 69 72 63 75 6d 73 74 61 6e 63 wing circumstanc
7260: 65 73 3a 0a 23 09 2d 20 44 65 66 61 75 6c 74 20 es:.#.- Default
7270: 67 6c 6f 62 61 6c 20 68 61 6e 64 6c 65 72 2c 20 global handler,
7280: 69 66 20 6d 63 75 6e 6b 6e 6f 77 6e 20 69 73 20 if mcunknown is
7290: 6e 6f 74 20 72 65 64 65 66 69 6e 65 64 2e 0a 23 not redefined..#
72a0: 09 2d 20 50 65 72 20 70 61 63 6b 61 67 65 20 68 .- Per package h
72b0: 61 6e 64 6c 65 72 2c 20 69 66 20 74 68 65 20 70 andler, if the p
72c0: 61 63 6b 61 67 65 20 73 65 74 73 20 75 6e 6b 6e ackage sets unkn
72d0: 6f 77 6e 63 6d 64 20 74 6f 20 74 68 65 20 65 6d owncmd to the em
72e0: 70 74 79 0a 23 09 20 20 73 74 72 69 6e 67 2e 0a pty.#. string..
72f0: 23 09 49 74 20 72 65 74 75 72 6e 61 20 74 68 65 #.It returna the
7300: 20 73 6f 75 72 63 65 20 73 74 72 69 6e 67 20 69 source string i
7310: 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 6c f the argument l
7320: 69 73 74 20 69 73 20 65 6d 70 74 79 2e 0a 23 09 ist is empty..#.
7330: 49 66 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 If additional ar
7340: 67 73 20 61 72 65 20 73 70 65 63 69 66 69 65 64 gs are specified
7350: 2c 20 74 68 65 20 66 6f 72 6d 61 74 20 63 6f 6d , the format com
7360: 6d 61 6e 64 20 77 69 6c 6c 20 62 65 20 75 73 65 mand will be use
7370: 64 0a 23 09 74 6f 20 77 6f 72 6b 20 74 68 65 6d d.#.to work them
7380: 20 69 6e 74 6f 20 74 68 65 20 74 72 61 73 6c 61 into the trasla
7390: 74 65 64 20 73 74 72 69 6e 67 2e 0a 23 0a 23 20 ted string..#.#
73a0: 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 6c 6f 63 Arguments:.#.loc
73b0: 61 6c 65 09 09 28 75 6e 75 73 65 64 29 20 54 68 ale..(unused) Th
73c0: 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61 6c 65 e current locale
73d0: 2e 0a 23 09 73 72 63 09 09 54 68 65 20 73 74 72 ..#.src..The str
73e0: 69 6e 67 20 74 6f 20 62 65 20 74 72 61 6e 73 6c ing to be transl
73f0: 61 74 65 64 2e 0a 23 09 61 72 67 73 09 09 41 72 ated..#.args..Ar
7400: 67 73 20 74 6f 20 70 61 73 73 20 74 6f 20 74 68 gs to pass to th
7410: 65 20 66 6f 72 6d 61 74 20 63 6f 6d 6d 61 6e 64 e format command
7420: 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 .#.# Results:.#.
7430: 52 65 74 75 72 6e 73 20 74 68 65 20 74 72 61 6e Returns the tran
7440: 73 6c 61 74 65 64 20 76 61 6c 75 65 2e 0a 0a 70 slated value...p
7450: 72 6f 63 20 6d 73 67 63 61 74 3a 3a 44 65 66 61 roc msgcat::Defa
7460: 75 6c 74 55 6e 6b 6e 6f 77 6e 20 7b 6c 6f 63 61 ultUnknown {loca
7470: 6c 65 20 73 72 63 20 61 72 67 73 7d 20 7b 0a 20 le src args} {.
7480: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 if {[llength
7490: 24 61 72 67 73 5d 7d 20 7b 0a 09 72 65 74 75 72 $args]} {..retur
74a0: 6e 20 5b 66 6f 72 6d 61 74 20 24 73 72 63 20 7b n [format $src {
74b0: 2a 7d 24 61 72 67 73 5d 0a 20 20 20 20 7d 20 65 *}$args]. } e
74c0: 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 24 73 lse {..return $s
74d0: 72 63 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 6d 73 rc. }.}..# ms
74e0: 67 63 61 74 3a 3a 6d 63 6d 61 78 20 2d 2d 0a 23 gcat::mcmax --.#
74f0: 0a 23 09 43 61 6c 63 75 6c 61 74 65 73 20 74 68 .#.Calculates th
7500: 65 20 6d 61 78 69 6d 75 6d 20 6c 65 6e 67 74 68 e maximum length
7510: 20 6f 66 20 74 68 65 20 74 72 61 6e 73 6c 61 74 of the translat
7520: 65 64 20 73 74 72 69 6e 67 73 20 6f 66 20 74 68 ed strings of th
7530: 65 20 67 69 76 65 6e 0a 23 09 6c 69 73 74 2e 0a e given.#.list..
7540: 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 #.# Arguments:.#
7550: 09 61 72 67 73 09 73 74 72 69 6e 67 73 20 74 6f .args.strings to
7560: 20 74 72 61 6e 73 6c 61 74 65 2e 0a 23 0a 23 20 translate..#.#
7570: 52 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 Results:.#.Retur
7580: 6e 73 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 ns the length of
7590: 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 74 72 61 the longest tra
75a0: 6e 73 6c 61 74 65 64 20 73 74 72 69 6e 67 2e 0a nslated string..
75b0: 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a 6d 63 .proc msgcat::mc
75c0: 6d 61 78 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 max {args} {.
75d0: 20 73 65 74 20 6d 61 78 20 30 0a 20 20 20 20 73 set max 0. s
75e0: 65 74 20 6e 73 20 5b 50 61 63 6b 61 67 65 4e 61 et ns [PackageNa
75f0: 6d 65 73 70 61 63 65 47 65 74 5d 0a 20 20 20 20 mespaceGet].
7600: 66 6f 72 65 61 63 68 20 73 74 72 69 6e 67 20 24 foreach string $
7610: 61 72 67 73 20 7b 0a 09 73 65 74 20 74 72 61 6e args {..set tran
7620: 73 6c 61 74 65 64 20 5b 75 70 6c 65 76 65 6c 20 slated [uplevel
7630: 31 20 5b 6c 69 73 74 20 5b 6e 61 6d 65 73 70 61 1 [list [namespa
7640: 63 65 20 6f 72 69 67 69 6e 20 6d 63 6e 5d 20 24 ce origin mcn] $
7650: 6e 73 20 24 73 74 72 69 6e 67 5d 5d 0a 09 73 65 ns $string]]..se
7660: 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67 20 6c 65 t len [string le
7670: 6e 67 74 68 20 24 74 72 61 6e 73 6c 61 74 65 64 ngth $translated
7680: 5d 0a 09 69 66 20 7b 24 6c 65 6e 3e 24 6d 61 78 ]..if {$len>$max
7690: 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 6d 61 78 } {.. set max
76a0: 20 24 6c 65 6e 0a 09 7d 0a 20 20 20 20 7d 0a 20 $len..}. }.
76b0: 20 20 20 72 65 74 75 72 6e 20 24 6d 61 78 0a 7d return $max.}
76c0: 0a 0a 23 20 43 6f 6e 76 65 72 74 20 74 68 65 20 ..# Convert the
76d0: 6c 6f 63 61 6c 65 20 76 61 6c 75 65 73 20 73 74 locale values st
76e0: 6f 72 65 64 20 69 6e 20 65 6e 76 69 72 6f 6e 6d ored in environm
76f0: 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 74 6f ent variables to
7700: 20 61 20 66 6f 72 6d 0a 23 20 73 75 69 74 61 62 a form.# suitab
7710: 6c 65 20 66 6f 72 20 70 61 73 73 69 6e 67 20 74 le for passing t
7720: 6f 20 5b 6d 63 6c 6f 63 61 6c 65 5d 0a 70 72 6f o [mclocale].pro
7730: 63 20 6d 73 67 63 61 74 3a 3a 43 6f 6e 76 65 72 c msgcat::Conver
7740: 74 4c 6f 63 61 6c 65 20 7b 76 61 6c 75 65 7d 20 tLocale {value}
7750: 7b 0a 20 20 20 20 23 20 41 73 73 75 6d 65 20 24 {. # Assume $
7760: 76 61 6c 75 65 20 69 73 20 6f 66 20 66 6f 72 6d value is of form
7770: 3a 20 24 6c 61 6e 67 75 61 67 65 5b 5f 24 74 65 : $language[_$te
7780: 72 72 69 74 6f 72 79 5d 5b 2e 24 63 6f 64 65 73 rritory][.$codes
7790: 65 74 5d 5b 40 6d 6f 64 69 66 69 65 72 5d 0a 20 et][@modifier].
77a0: 20 20 20 23 20 43 6f 6e 76 65 72 74 20 74 6f 20 # Convert to
77b0: 66 6f 72 6d 3a 20 24 6c 61 6e 67 75 61 67 65 5b form: $language[
77c0: 5f 24 74 65 72 72 69 74 6f 72 79 5d 5b 5f 24 6d _$territory][_$m
77d0: 6f 64 69 66 69 65 72 5d 0a 20 20 20 20 23 0a 20 odifier]. #.
77e0: 20 20 20 23 20 43 6f 6d 6d 65 6e 74 20 6f 75 74 # Comment out
77f0: 20 65 78 70 61 6e 64 65 64 20 52 45 20 76 65 72 expanded RE ver
7800: 73 69 6f 6e 20 2d 2d 20 62 75 67 73 20 61 6c 6c sion -- bugs all
7810: 65 67 65 64 0a 20 20 20 20 23 20 72 65 67 65 78 eged. # regex
7820: 70 20 2d 65 78 70 61 6e 64 65 64 20 7b 0a 20 20 p -expanded {.
7830: 20 20 23 09 5e 09 09 23 20 4d 61 74 63 68 20 61 #.^..# Match a
7840: 6c 6c 20 74 68 65 20 77 61 79 20 74 6f 20 74 68 ll the way to th
7850: 65 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 e beginning.
7860: 23 09 28 5b 5e 5f 2e 40 5d 2a 29 09 23 20 4d 61 #.([^_.@]*).# Ma
7870: 74 63 68 20 22 6c 61 6e 75 67 61 67 65 22 3b 20 tch "lanugage";
7880: 65 6e 64 73 20 77 69 74 68 20 5f 2c 20 2e 2c 20 ends with _, .,
7890: 6f 72 20 40 0a 20 20 20 20 23 09 28 5f 28 5b 5e or @. #.(_([^
78a0: 2e 40 5d 2a 29 29 3f 09 23 20 4d 61 74 63 68 20 .@]*))?.# Match
78b0: 28 6f 70 74 69 6f 6e 61 6c 29 20 22 74 65 72 72 (optional) "terr
78c0: 69 74 6f 72 79 22 3b 20 73 74 61 72 74 73 20 77 itory"; starts w
78d0: 69 74 68 20 5f 0a 20 20 20 20 23 09 28 5b 2e 5d ith _. #.([.]
78e0: 28 5b 5e 40 5d 2a 29 29 3f 09 23 20 4d 61 74 63 ([^@]*))?.# Matc
78f0: 68 20 28 6f 70 74 69 6f 6e 61 6c 29 20 22 63 6f h (optional) "co
7900: 64 65 73 65 74 22 3b 20 73 74 61 72 74 73 20 77 deset"; starts w
7910: 69 74 68 20 2e 0a 20 20 20 20 23 09 28 40 28 2e ith .. #.(@(.
7920: 2a 29 29 3f 09 23 20 4d 61 74 63 68 20 28 6f 70 *))?.# Match (op
7930: 74 69 6f 6e 61 6c 29 20 22 6d 6f 64 69 66 69 65 tional) "modifie
7940: 72 22 3b 20 73 74 61 72 74 73 20 77 69 74 68 20 r"; starts with
7950: 40 0a 20 20 20 20 23 09 24 09 09 23 20 4d 61 74 @. #.$..# Mat
7960: 63 68 20 61 6c 6c 20 74 68 65 20 77 61 79 20 74 ch all the way t
7970: 6f 20 74 68 65 20 65 6e 64 0a 20 20 20 20 23 20 o the end. #
7980: 7d 20 24 76 61 6c 75 65 20 2d 3e 20 6c 61 6e 67 } $value -> lang
7990: 75 61 67 65 20 5f 20 74 65 72 72 69 74 6f 72 79 uage _ territory
79a0: 20 5f 20 63 6f 64 65 73 65 74 20 5f 20 6d 6f 64 _ codeset _ mod
79b0: 69 66 69 65 72 0a 20 20 20 20 69 66 20 7b 21 5b ifier. if {![
79c0: 72 65 67 65 78 70 20 7b 5e 28 5b 5e 5f 2e 40 5d regexp {^([^_.@]
79d0: 2b 29 28 5f 28 5b 5e 2e 40 5d 2a 29 29 3f 28 5b +)(_([^.@]*))?([
79e0: 2e 5d 28 5b 5e 40 5d 2a 29 29 3f 28 40 28 2e 2a .]([^@]*))?(@(.*
79f0: 29 29 3f 24 7d 20 24 76 61 6c 75 65 20 5c 0a 09 ))?$} $value \..
7a00: 20 20 20 20 2d 3e 20 6c 61 6e 67 75 61 67 65 20 -> language
7a10: 5f 20 74 65 72 72 69 74 6f 72 79 20 5f 20 63 6f _ territory _ co
7a20: 64 65 73 65 74 20 5f 20 6d 6f 64 69 66 69 65 72 deset _ modifier
7a30: 5d 7d 20 7b 0a 09 72 65 74 75 72 6e 20 2d 63 6f ]} {..return -co
7a40: 64 65 20 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 de error "invali
7a50: 64 20 6c 6f 63 61 6c 65 20 27 24 76 61 6c 75 65 d locale '$value
7a60: 27 3a 20 65 6d 70 74 79 20 6c 61 6e 67 75 61 67 ': empty languag
7a70: 65 20 70 61 72 74 22 0a 20 20 20 20 7d 0a 20 20 e part". }.
7a80: 20 20 73 65 74 20 72 65 74 20 24 6c 61 6e 67 75 set ret $langu
7a90: 61 67 65 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 age. if {[str
7aa0: 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 65 72 72 ing length $terr
7ab0: 69 74 6f 72 79 5d 7d 20 7b 0a 09 61 70 70 65 6e itory]} {..appen
7ac0: 64 20 72 65 74 20 5f 24 74 65 72 72 69 74 6f 72 d ret _$territor
7ad0: 79 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b y. }. if {
7ae0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
7af0: 6d 6f 64 69 66 69 65 72 5d 7d 20 7b 0a 09 61 70 modifier]} {..ap
7b00: 70 65 6e 64 20 72 65 74 20 5f 24 6d 6f 64 69 66 pend ret _$modif
7b10: 69 65 72 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 ier. }. re
7b20: 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 68 turn $ret.}..# h
7b30: 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 elper function t
7b40: 6f 20 66 69 6e 64 20 70 61 63 6b 61 67 65 20 6e o find package n
7b50: 61 6d 65 73 70 61 63 65 20 6f 66 20 73 74 61 63 amespace of stac
7b60: 6b 2d 66 72 61 6d 65 20 2d 32 0a 23 20 54 68 65 k-frame -2.# The
7b70: 72 65 20 61 72 65 20 34 20 70 6f 73 73 69 62 69 re are 4 possibi
7b80: 6c 69 74 69 65 73 3a 0a 23 20 2d 20 63 61 6c 6c lities:.# - call
7b90: 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 63 0a 23 ed from a proc.#
7ba0: 20 2d 20 63 61 6c 6c 65 64 20 77 69 74 68 69 6e - called within
7bb0: 20 61 20 63 6c 61 73 73 20 64 65 66 69 6e 69 74 a class definit
7bc0: 69 6f 6e 20 73 63 72 69 70 74 0a 23 20 2d 20 63 ion script.# - c
7bd0: 61 6c 6c 65 64 20 66 72 6f 6d 20 61 6e 20 63 6c alled from an cl
7be0: 61 73 73 20 64 65 66 69 6e 65 64 20 6f 6f 20 6f ass defined oo o
7bf0: 62 6a 65 63 74 0a 23 20 2d 20 63 61 6c 6c 65 64 bject.# - called
7c00: 20 66 72 6f 6d 20 61 20 63 6c 61 73 73 6c 65 73 from a classles
7c10: 73 20 6f 6f 20 6f 62 6a 65 63 74 0a 70 72 6f 63 s oo object.proc
7c20: 20 3a 3a 6d 73 67 63 61 74 3a 3a 50 61 63 6b 61 ::msgcat::Packa
7c30: 67 65 4e 61 6d 65 73 70 61 63 65 47 65 74 20 7b geNamespaceGet {
7c40: 7d 20 7b 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 } {. uplevel
7c50: 32 20 7b 0a 09 23 20 43 68 65 63 6b 20 66 6f 72 2 {..# Check for
7c60: 20 6e 6f 20 6f 62 6a 65 63 74 0a 09 73 77 69 74 no object..swit
7c70: 63 68 20 2d 65 78 61 63 74 20 2d 2d 20 5b 6e 61 ch -exact -- [na
7c80: 6d 65 73 70 61 63 65 20 77 68 69 63 68 20 73 65 mespace which se
7c90: 6c 66 5d 20 7b 0a 09 20 20 20 20 7b 3a 3a 6f 6f lf] {.. {::oo
7ca0: 3a 3a 64 65 66 69 6e 65 3a 3a 73 65 6c 66 7d 20 ::define::self}
7cb0: 7b 0a 09 09 23 20 57 65 20 61 72 65 20 77 69 74 {...# We are wit
7cc0: 68 69 6e 20 61 20 63 6c 61 73 73 20 64 65 66 69 hin a class defi
7cd0: 6e 69 74 69 6f 6e 0a 09 09 72 65 74 75 72 6e 20 nition...return
7ce0: 5b 6e 61 6d 65 73 70 61 63 65 20 71 75 61 6c 69 [namespace quali
7cf0: 66 69 65 72 73 20 5b 73 65 6c 66 5d 5d 0a 09 20 fiers [self]]..
7d00: 20 20 20 7d 0a 09 20 20 20 20 7b 3a 3a 6f 6f 3a }.. {::oo:
7d10: 3a 48 65 6c 70 65 72 73 3a 3a 73 65 6c 66 7d 20 :Helpers::self}
7d20: 7b 0a 09 09 23 20 57 65 20 61 72 65 20 77 69 74 {...# We are wit
7d30: 68 69 6e 20 61 6e 20 6f 62 6a 65 63 74 0a 09 09 hin an object...
7d40: 73 65 74 20 43 6c 61 73 73 20 5b 69 6e 66 6f 20 set Class [info
7d50: 6f 62 6a 65 63 74 20 63 6c 61 73 73 20 5b 73 65 object class [se
7d60: 6c 66 5d 5d 0a 09 09 23 20 43 68 65 63 6b 20 66 lf]]...# Check f
7d70: 6f 72 20 63 6c 61 73 73 6c 65 73 73 20 64 65 66 or classless def
7d80: 69 6e 65 64 20 6f 62 6a 65 63 74 0a 09 09 69 66 ined object...if
7d90: 20 7b 24 43 6c 61 73 73 20 65 71 20 7b 3a 3a 6f {$Class eq {::o
7da0: 6f 3a 3a 6f 62 6a 65 63 74 7d 7d 20 7b 0a 09 09 o::object}} {...
7db0: 20 20 20 20 72 65 74 75 72 6e 20 5b 6e 61 6d 65 return [name
7dc0: 73 70 61 63 65 20 71 75 61 6c 69 66 69 65 72 73 space qualifiers
7dd0: 20 5b 73 65 6c 66 5d 5d 0a 09 09 7d 0a 09 09 23 [self]]...}...#
7de0: 20 43 6c 61 73 73 20 64 65 66 69 6e 65 64 20 6f Class defined o
7df0: 62 6a 65 63 74 0a 09 09 72 65 74 75 72 6e 20 5b bject...return [
7e00: 6e 61 6d 65 73 70 61 63 65 20 71 75 61 6c 69 66 namespace qualif
7e10: 69 65 72 73 20 24 43 6c 61 73 73 5d 0a 09 20 20 iers $Class]..
7e20: 20 20 7d 0a 09 20 20 20 20 64 65 66 61 75 6c 74 }.. default
7e30: 20 7b 0a 09 09 23 20 4e 6f 74 20 69 6e 20 6f 62 {...# Not in ob
7e40: 6a 65 63 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 ject environment
7e50: 0a 09 09 72 65 74 75 72 6e 20 5b 6e 61 6d 65 73 ...return [names
7e60: 70 61 63 65 20 63 75 72 72 65 6e 74 5d 0a 09 20 pace current]..
7e70: 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 7d 0a }..}. }.}.
7e80: 20 20 0a 23 20 49 6e 69 74 69 61 6c 69 7a 65 20 .# Initialize
7e90: 74 68 65 20 64 65 66 61 75 6c 74 20 6c 6f 63 61 the default loca
7ea0: 6c 65 0a 70 72 6f 63 20 6d 73 67 63 61 74 3a 3a le.proc msgcat::
7eb0: 49 6e 69 74 20 7b 7d 20 7b 0a 20 20 20 20 67 6c Init {} {. gl
7ec0: 6f 62 61 6c 20 65 6e 76 0a 0a 20 20 20 20 23 0a obal env.. #.
7ed0: 20 20 20 20 23 20 73 65 74 20 64 65 66 61 75 6c # set defaul
7ee0: 74 20 6c 6f 63 61 6c 65 2c 20 74 72 79 20 74 6f t locale, try to
7ef0: 20 67 65 74 20 66 72 6f 6d 20 65 6e 76 69 72 6f get from enviro
7f00: 6e 6d 65 6e 74 0a 20 20 20 20 23 0a 20 20 20 20 nment. #.
7f10: 66 6f 72 65 61 63 68 20 76 61 72 4e 61 6d 65 20 foreach varName
7f20: 7b 4c 43 5f 41 4c 4c 20 4c 43 5f 4d 45 53 53 41 {LC_ALL LC_MESSA
7f30: 47 45 53 20 4c 41 4e 47 7d 20 7b 0a 09 69 66 20 GES LANG} {..if
7f40: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 6e {[info exists en
7f50: 76 28 24 76 61 72 4e 61 6d 65 29 5d 20 26 26 20 v($varName)] &&
7f60: 28 22 22 20 6e 65 20 24 65 6e 76 28 24 76 61 72 ("" ne $env($var
7f70: 4e 61 6d 65 29 29 7d 20 7b 0a 09 20 20 20 20 69 Name))} {.. i
7f80: 66 20 7b 21 5b 63 61 74 63 68 20 7b 0a 09 09 6d f {![catch {...m
7f90: 63 6c 6f 63 61 6c 65 20 5b 43 6f 6e 76 65 72 74 clocale [Convert
7fa0: 4c 6f 63 61 6c 65 20 24 65 6e 76 28 24 76 61 72 Locale $env($var
7fb0: 4e 61 6d 65 29 5d 0a 09 20 20 20 20 7d 5d 7d 20 Name)].. }]}
7fc0: 7b 0a 09 09 72 65 74 75 72 6e 0a 09 20 20 20 20 {...return..
7fd0: 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 23 }..}. }. #
7fe0: 0a 20 20 20 20 23 20 4f 6e 20 44 61 72 77 69 6e . # On Darwin
7ff0: 2c 20 66 61 6c 6c 62 61 63 6b 20 74 6f 20 63 75 , fallback to cu
8000: 72 72 65 6e 74 20 43 46 4c 6f 63 61 6c 65 20 69 rrent CFLocale i
8010: 64 65 6e 74 69 66 69 65 72 20 69 66 20 61 76 61 dentifier if ava
8020: 69 6c 61 62 6c 65 2e 0a 20 20 20 20 23 0a 20 20 ilable.. #.
8030: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
8040: 74 73 20 3a 3a 74 63 6c 3a 3a 6d 61 63 3a 3a 6c ts ::tcl::mac::l
8050: 6f 63 61 6c 65 5d 20 26 26 20 24 3a 3a 74 63 6c ocale] && $::tcl
8060: 3a 3a 6d 61 63 3a 3a 6c 6f 63 61 6c 65 20 6e 65 ::mac::locale ne
8070: 20 22 22 7d 20 7b 0a 09 69 66 20 7b 21 5b 63 61 ""} {..if {![ca
8080: 74 63 68 20 7b 0a 09 20 20 20 20 6d 63 6c 6f 63 tch {.. mcloc
8090: 61 6c 65 20 5b 43 6f 6e 76 65 72 74 4c 6f 63 61 ale [ConvertLoca
80a0: 6c 65 20 24 3a 3a 74 63 6c 3a 3a 6d 61 63 3a 3a le $::tcl::mac::
80b0: 6c 6f 63 61 6c 65 5d 0a 09 7d 5d 7d 20 7b 0a 09 locale]..}]} {..
80c0: 20 20 20 20 72 65 74 75 72 6e 0a 09 7d 0a 20 20 return..}.
80d0: 20 20 7d 0a 20 20 20 20 23 0a 20 20 20 20 23 20 }. #. #
80e0: 54 68 65 20 72 65 73 74 20 6f 66 20 74 68 69 73 The rest of this
80f0: 20 72 6f 75 74 69 6e 65 20 69 73 20 73 70 65 63 routine is spec
8100: 69 61 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 66 ial processing f
8110: 6f 72 20 57 69 6e 64 6f 77 73 20 6f 72 0a 20 20 or Windows or.
8120: 20 20 23 20 43 79 67 77 69 6e 2e 20 41 6c 6c 20 # Cygwin. All
8130: 6f 74 68 65 72 20 70 6c 61 74 66 6f 72 6d 73 2c other platforms,
8140: 20 67 65 74 20 6f 75 74 20 6e 6f 77 2e 0a 20 20 get out now..
8150: 20 20 23 0a 20 20 20 20 69 66 20 7b 28 5b 69 6e #. if {([in
8160: 66 6f 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 fo sharedlibexte
8170: 6e 73 69 6f 6e 5d 20 6e 65 20 22 2e 64 6c 6c 22 nsion] ne ".dll"
8180: 29 0a 09 20 20 20 20 7c 7c 20 5b 63 61 74 63 68 ).. || [catch
8190: 20 7b 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 {package requir
81a0: 65 20 72 65 67 69 73 74 72 79 7d 5d 7d 20 7b 0a e registry}]} {.
81b0: 09 6d 63 6c 6f 63 61 6c 65 20 43 0a 09 72 65 74 .mclocale C..ret
81c0: 75 72 6e 0a 20 20 20 20 7d 0a 20 20 20 20 23 0a urn. }. #.
81d0: 20 20 20 20 23 20 4f 6e 20 57 69 6e 64 6f 77 73 # On Windows
81e0: 20 6f 72 20 43 79 67 77 69 6e 2c 20 74 72 79 20 or Cygwin, try
81f0: 74 6f 20 73 65 74 20 6c 6f 63 61 6c 65 20 64 65 to set locale de
8200: 70 65 6e 64 69 6e 67 20 6f 6e 20 72 65 67 69 73 pending on regis
8210: 74 72 79 0a 20 20 20 20 23 20 73 65 74 74 69 6e try. # settin
8220: 67 73 2c 20 6f 72 20 66 61 6c 6c 20 62 61 63 6b gs, or fall back
8230: 20 6f 6e 20 6c 6f 63 61 6c 65 20 6f 66 20 22 43 on locale of "C
8240: 22 2e 0a 20 20 20 20 23 0a 0a 20 20 20 20 23 20 ".. #.. #
8250: 4f 6e 20 56 69 73 74 61 20 61 6e 64 20 6c 61 74 On Vista and lat
8260: 65 72 3a 0a 20 20 20 20 23 20 48 43 55 2f 43 6f er:. # HCU/Co
8270: 6e 74 72 6f 6c 20 50 61 6e 65 6c 2f 44 65 73 6b ntrol Panel/Desk
8280: 74 6f 70 20 3a 20 50 72 65 66 65 72 72 65 64 55 top : PreferredU
8290: 49 4c 61 6e 67 75 61 67 65 73 20 69 73 20 66 6f ILanguages is fo
82a0: 72 20 6c 61 6e 67 75 61 67 65 20 70 61 63 6b 73 r language packs
82b0: 2c 0a 20 20 20 20 23 20 48 43 55 2f 43 6f 6e 74 ,. # HCU/Cont
82c0: 72 6f 6c 20 50 61 6e 6e 65 6c 2f 49 6e 74 65 72 rol Pannel/Inter
82d0: 6e 61 74 69 6f 6e 61 6c 20 3a 20 6c 6f 63 61 6c national : local
82e0: 4e 61 6d 65 20 69 73 20 74 68 65 20 64 65 66 61 Name is the defa
82f0: 75 6c 74 20 6c 6f 63 61 6c 65 2e 0a 20 20 20 20 ult locale..
8300: 23 0a 20 20 20 20 23 20 54 68 65 79 20 63 6f 6e #. # They con
8310: 74 61 69 6e 20 74 68 65 20 6c 6f 63 61 6c 20 73 tain the local s
8320: 74 72 69 6e 67 20 61 73 20 52 46 43 35 36 34 36 tring as RFC5646
8330: 2c 20 63 6f 6d 70 6f 73 65 64 20 6f 66 3a 0a 20 , composed of:.
8340: 20 20 20 23 20 5b 61 2d 7a 5d 7b 32 2c 33 7d 20 # [a-z]{2,3}
8350: 3a 20 6c 61 6e 67 75 61 67 65 0a 20 20 20 20 23 : language. #
8360: 20 2d 5b 61 2d 7a 5d 7b 34 7d 20 20 3a 20 73 63 -[a-z]{4} : sc
8370: 72 69 70 74 20 28 6f 70 74 69 6f 6e 61 6c 2c 20 ript (optional,
8380: 74 72 61 6e 73 6c 61 74 65 64 20 62 79 20 74 61 translated by ta
8390: 62 6c 65 20 4c 61 74 6e 2d 3e 6c 61 74 69 6e 29 ble Latn->latin)
83a0: 0a 20 20 20 20 23 20 2d 5b 61 2d 7a 5d 7b 32 7d . # -[a-z]{2}
83b0: 7c 5b 30 2d 39 5d 7b 33 7d 20 3a 20 74 65 72 72 |[0-9]{3} : terr
83c0: 69 74 6f 72 79 20 28 6f 70 74 69 6f 6e 61 6c 2c itory (optional,
83d0: 20 6e 75 6d 65 72 69 63 61 6c 20 72 65 67 69 6f numerical regio
83e0: 6e 20 63 6f 64 65 73 20 6e 6f 74 20 75 73 65 64 n codes not used
83f0: 29 0a 20 20 20 20 23 20 28 2d 2e 2a 29 2a 20 3a ). # (-.*)* :
8400: 20 76 61 72 69 61 6e 74 2c 20 65 78 74 65 6e 73 variant, extens
8410: 69 6f 6e 2c 20 70 72 69 76 61 74 65 20 75 73 65 ion, private use
8420: 20 28 6f 70 74 69 6f 6e 61 6c 2c 20 6e 6f 74 20 (optional, not
8430: 75 73 65 64 29 0a 20 20 20 20 23 20 54 68 6f 73 used). # Thos
8440: 65 20 61 72 65 20 74 72 61 6e 73 6c 61 74 65 64 e are translated
8450: 20 74 6f 20 6c 6f 63 61 6c 20 73 74 72 69 6e 67 to local string
8460: 73 2e 0a 20 20 20 20 23 20 45 78 61 6d 70 6c 65 s.. # Example
8470: 73 3a 20 64 65 2d 43 48 20 2d 3e 20 64 65 5f 63 s: de-CH -> de_c
8480: 68 2c 20 73 72 2d 4c 61 74 6e 2d 43 53 20 2d 3e h, sr-Latn-CS ->
8490: 20 73 72 5f 63 73 40 6c 61 74 69 6e 2c 20 65 73 sr_cs@latin, es
84a0: 2d 34 31 39 20 2d 3e 20 65 73 0a 20 20 20 20 23 -419 -> es. #
84b0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 6b 65 79 . foreach key
84c0: 20 7b 7b 48 4b 45 59 5f 43 55 52 52 45 4e 54 5f {{HKEY_CURRENT_
84d0: 55 53 45 52 5c 43 6f 6e 74 72 6f 6c 20 50 61 6e USER\Control Pan
84e0: 65 6c 5c 44 65 73 6b 74 6f 70 7d 20 7b 48 4b 45 el\Desktop} {HKE
84f0: 59 5f 43 55 52 52 45 4e 54 5f 55 53 45 52 5c 43 Y_CURRENT_USER\C
8500: 6f 6e 74 72 6f 6c 20 50 61 6e 65 6c 5c 49 6e 74 ontrol Panel\Int
8510: 65 72 6e 61 74 69 6f 6e 61 6c 7d 7d 5c 0a 09 20 ernational}}\..
8520: 20 20 20 76 61 6c 75 65 20 7b 50 72 65 66 65 72 value {Prefer
8530: 72 65 64 55 49 4c 61 6e 67 75 61 67 65 73 20 6c redUILanguages l
8540: 6f 63 61 6c 65 4e 61 6d 65 7d 20 7b 0a 09 69 66 ocaleName} {..if
8550: 20 7b 21 5b 63 61 74 63 68 20 7b 72 65 67 69 73 {![catch {regis
8560: 74 72 79 20 67 65 74 20 24 6b 65 79 20 24 76 61 try get $key $va
8570: 6c 75 65 7d 20 6c 6f 63 61 6c 65 4e 61 6d 65 5d lue} localeName]
8580: 0a 09 09 26 26 20 5b 72 65 67 65 78 70 20 7b 5e ...&& [regexp {^
8590: 28 5b 61 2d 7a 5d 7b 32 2c 33 7d 29 28 3f 3a 2d ([a-z]{2,3})(?:-
85a0: 28 5b 61 2d 7a 5d 7b 34 7d 29 29 3f 28 3f 3a 2d ([a-z]{4}))?(?:-
85b0: 28 5b 61 2d 7a 5d 7b 32 7d 29 29 3f 28 3f 3a 2d ([a-z]{2}))?(?:-
85c0: 2e 2b 29 3f 24 7d 5c 0a 09 09 20 20 20 20 5b 73 .+)?$}\... [s
85d0: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 6c tring tolower $l
85e0: 6f 63 61 6c 65 4e 61 6d 65 5d 20 6d 61 74 63 68 ocaleName] match
85f0: 20 6c 6f 63 61 6c 65 20 73 63 72 69 70 74 20 74 locale script t
8600: 65 72 72 69 74 6f 72 79 5d 7d 20 7b 0a 09 20 20 erritory]} {..
8610: 20 20 69 66 20 7b 22 22 20 6e 65 20 24 74 65 72 if {"" ne $ter
8620: 72 69 74 6f 72 79 7d 20 7b 0a 09 09 61 70 70 65 ritory} {...appe
8630: 6e 64 20 6c 6f 63 61 6c 65 20 5f 20 24 74 65 72 nd locale _ $ter
8640: 72 69 74 6f 72 79 0a 09 20 20 20 20 7d 0a 09 20 ritory.. }..
8650: 20 20 20 73 65 74 20 6d 6f 64 69 66 69 65 72 44 set modifierD
8660: 69 63 74 20 5b 64 69 63 74 20 63 72 65 61 74 65 ict [dict create
8670: 20 6c 61 74 6e 20 6c 61 74 69 6e 20 63 79 72 6c latn latin cyrl
8680: 20 63 79 72 69 6c 6c 69 63 5d 0a 09 20 20 20 20 cyrillic]..
8690: 69 66 20 7b 5b 64 69 63 74 20 65 78 69 73 74 73 if {[dict exists
86a0: 20 24 6d 6f 64 69 66 69 65 72 44 69 63 74 20 24 $modifierDict $
86b0: 73 63 72 69 70 74 5d 7d 20 7b 0a 09 09 61 70 70 script]} {...app
86c0: 65 6e 64 20 6c 6f 63 61 6c 65 20 40 20 5b 64 69 end locale @ [di
86d0: 63 74 20 67 65 74 20 24 6d 6f 64 69 66 69 65 72 ct get $modifier
86e0: 44 69 63 74 20 24 73 63 72 69 70 74 5d 0a 09 20 Dict $script]..
86f0: 20 20 20 7d 0a 09 20 20 20 20 69 66 20 7b 21 5b }.. if {![
8700: 63 61 74 63 68 20 7b 6d 63 6c 6f 63 61 6c 65 20 catch {mclocale
8710: 5b 43 6f 6e 76 65 72 74 4c 6f 63 61 6c 65 20 24 [ConvertLocale $
8720: 6c 6f 63 61 6c 65 5d 7d 5d 7d 20 7b 0a 09 09 72 locale]}]} {...r
8730: 65 74 75 72 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a eturn.. }..}.
8740: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 74 68 65 }.. # the
8750: 6e 20 63 68 65 63 6b 20 76 61 6c 75 65 20 6c 6f n check value lo
8760: 63 61 6c 65 20 77 68 69 63 68 20 63 6f 6e 74 61 cale which conta
8770: 69 6e 73 20 61 20 6e 75 6d 65 72 69 63 61 6c 20 ins a numerical
8780: 6c 61 6e 67 75 61 67 65 20 49 44 0a 20 20 20 20 language ID.
8790: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 73 65 if {[catch {..se
87a0: 74 20 6c 6f 63 61 6c 65 20 5b 72 65 67 69 73 74 t locale [regist
87b0: 72 79 20 67 65 74 20 24 6b 65 79 20 22 6c 6f 63 ry get $key "loc
87c0: 61 6c 65 22 5d 0a 20 20 20 20 7d 5d 7d 20 7b 0a ale"]. }]} {.
87d0: 09 6d 63 6c 6f 63 61 6c 65 20 43 0a 09 72 65 74 .mclocale C..ret
87e0: 75 72 6e 0a 20 20 20 20 7d 0a 20 20 20 20 23 0a urn. }. #.
87f0: 20 20 20 20 23 20 4b 65 65 70 20 74 72 79 69 6e # Keep tryin
8800: 67 20 74 6f 20 6d 61 74 63 68 20 61 67 61 69 6e g to match again
8810: 73 74 20 73 6d 61 6c 6c 65 72 20 61 6e 64 20 73 st smaller and s
8820: 6d 61 6c 6c 65 72 20 73 75 66 66 69 78 65 73 0a maller suffixes.
8830: 20 20 20 20 23 20 6f 66 20 74 68 65 20 72 65 67 # of the reg
8840: 69 73 74 72 79 20 76 61 6c 75 65 2c 20 73 69 6e istry value, sin
8850: 63 65 20 74 68 65 20 6c 61 74 74 65 72 20 68 65 ce the latter he
8860: 78 61 64 69 67 69 74 73 20 61 70 70 65 61 72 0a xadigits appear.
8870: 20 20 20 20 23 20 74 6f 20 64 65 74 65 72 6d 69 # to determi
8880: 6e 65 20 67 65 6e 65 72 61 6c 20 6c 61 6e 67 75 ne general langu
8890: 61 67 65 20 61 6e 64 20 65 61 72 6c 69 65 72 20 age and earlier
88a0: 68 65 78 61 64 69 67 69 74 73 20 64 65 74 65 72 hexadigits deter
88b0: 6d 69 6e 65 0a 20 20 20 20 23 20 6d 6f 72 65 20 mine. # more
88c0: 70 72 65 63 69 73 65 20 69 6e 66 6f 72 6d 61 74 precise informat
88d0: 69 6f 6e 2c 20 73 75 63 68 20 61 73 20 74 65 72 ion, such as ter
88e0: 72 69 74 6f 72 79 2e 20 20 46 6f 72 20 65 78 61 ritory. For exa
88f0: 6d 70 6c 65 2c 0a 20 20 20 20 23 20 20 20 20 20 mple,. #
8900: 30 34 30 39 20 2d 20 45 6e 67 6c 69 73 68 20 2d 0409 - English -
8910: 20 55 6e 69 74 65 64 20 53 74 61 74 65 73 0a 20 United States.
8920: 20 20 20 23 20 20 20 20 20 30 38 30 39 20 2d 20 # 0809 -
8930: 45 6e 67 6c 69 73 68 20 2d 20 55 6e 69 74 65 64 English - United
8940: 20 4b 69 6e 67 64 6f 6d 0a 20 20 20 20 23 20 41 Kingdom. # A
8950: 64 64 20 6d 6f 72 65 20 74 72 61 6e 73 6c 61 74 dd more translat
8960: 69 6f 6e 73 20 74 6f 20 74 68 65 20 57 69 6e 52 ions to the WinR
8970: 65 67 54 6f 49 53 4f 36 33 39 20 61 72 72 61 79 egToISO639 array
8980: 20 61 62 6f 76 65 2e 0a 20 20 20 20 23 0a 20 20 above.. #.
8990: 20 20 76 61 72 69 61 62 6c 65 20 57 69 6e 52 65 variable WinRe
89a0: 67 54 6f 49 53 4f 36 33 39 0a 20 20 20 20 73 65 gToISO639. se
89b0: 74 20 6c 6f 63 61 6c 65 20 5b 73 74 72 69 6e 67 t locale [string
89c0: 20 74 6f 6c 6f 77 65 72 20 24 6c 6f 63 61 6c 65 tolower $locale
89d0: 5d 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 74 ]. while {[st
89e0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6c 6f 63 ring length $loc
89f0: 61 6c 65 5d 7d 20 7b 0a 09 69 66 20 7b 21 5b 63 ale]} {..if {![c
8a00: 61 74 63 68 20 7b 0a 09 20 20 20 20 6d 63 6c 6f atch {.. mclo
8a10: 63 61 6c 65 20 5b 43 6f 6e 76 65 72 74 4c 6f 63 cale [ConvertLoc
8a20: 61 6c 65 20 5b 64 69 63 74 20 67 65 74 20 24 57 ale [dict get $W
8a30: 69 6e 52 65 67 54 6f 49 53 4f 36 33 39 20 24 6c inRegToISO639 $l
8a40: 6f 63 61 6c 65 5d 5d 0a 09 7d 5d 7d 20 7b 0a 09 ocale]]..}]} {..
8a50: 20 20 20 20 72 65 74 75 72 6e 0a 09 7d 0a 09 73 return..}..s
8a60: 65 74 20 6c 6f 63 61 6c 65 20 5b 73 74 72 69 6e et locale [strin
8a70: 67 20 72 61 6e 67 65 20 24 6c 6f 63 61 6c 65 20 g range $locale
8a80: 31 20 65 6e 64 5d 0a 20 20 20 20 7d 0a 20 20 20 1 end]. }.
8a90: 20 23 0a 20 20 20 20 23 20 4e 6f 20 74 72 61 6e #. # No tran
8aa0: 73 6c 61 74 69 6f 6e 20 6b 6e 6f 77 6e 2e 20 20 slation known.
8ab0: 46 61 6c 6c 20 62 61 63 6b 20 6f 6e 20 22 43 22 Fall back on "C"
8ac0: 20 6c 6f 63 61 6c 65 0a 20 20 20 20 23 0a 20 20 locale. #.
8ad0: 20 20 6d 63 6c 6f 63 61 6c 65 20 43 0a 7d 0a 6d mclocale C.}.m
8ae0: 73 67 63 61 74 3a 3a 49 6e 69 74 0a sgcat::Init.
