Attachment "windows-32-and-64-bit-registry.patch" to
ticket [2960976fff]
added by
damonc
2010-03-09 12:27:15.
0000: 2d 2d 2d 20 74 63 6c 57 69 6e 52 65 67 2e 63 09 --- tclWinReg.c.
0010: 31 30 20 4a 61 6e 20 32 30 31 30 20 32 32 3a 35 10 Jan 2010 22:5
0020: 38 3a 34 30 20 2d 30 30 30 30 09 31 2e 35 30 0a 8:40 -0000.1.50.
0030: 2b 2b 2b 20 74 63 6c 57 69 6e 52 65 67 2e 63 09 +++ tclWinReg.c.
0040: 38 20 4d 61 72 20 32 30 31 30 20 30 31 3a 35 34 8 Mar 2010 01:54
0050: 3a 30 37 20 2d 30 30 30 30 0a 40 40 20 2d 32 34 :07 -0000.@@ -24
0060: 2c 36 20 2b 32 34 2c 31 34 20 40 40 0a 20 23 65 ,6 +24,14 @@. #e
0070: 6e 64 69 66 0a 20 23 69 6e 63 6c 75 64 65 20 3c ndif. #include <
0080: 73 74 64 6c 69 62 2e 68 3e 0a 20 0a 2b 23 69 66 stdlib.h>. .+#if
0090: 6e 64 65 66 20 4b 45 59 5f 57 4f 57 36 34 5f 36 ndef KEY_WOW64_6
00a0: 34 4b 45 59 0a 2b 23 64 65 66 69 6e 65 20 4b 45 4KEY.+#define KE
00b0: 59 5f 57 4f 57 36 34 5f 36 34 4b 45 59 20 28 30 Y_WOW64_64KEY (0
00c0: 78 30 31 30 30 29 0a 2b 23 65 6e 64 69 66 0a 2b x0100).+#endif.+
00d0: 0a 2b 23 69 66 6e 64 65 66 20 4b 45 59 5f 57 4f .+#ifndef KEY_WO
00e0: 57 36 34 5f 33 32 4b 45 59 0a 2b 23 64 65 66 69 W64_32KEY.+#defi
00f0: 6e 65 20 4b 45 59 5f 57 4f 57 36 34 5f 33 32 4b ne KEY_WOW64_32K
0100: 45 59 20 28 30 78 30 32 30 30 29 0a 2b 23 65 6e EY (0x0200).+#en
0110: 64 69 66 0a 2b 0a 20 2f 2a 0a 20 20 2a 20 54 43 dif.+. /*. * TC
0120: 4c 5f 53 54 4f 52 41 47 45 5f 43 4c 41 53 53 20 L_STORAGE_CLASS
0130: 69 73 20 73 65 74 20 75 6e 63 6f 6e 64 69 74 69 is set unconditi
0140: 6f 6e 61 6c 6c 79 20 74 6f 20 44 4c 4c 45 58 50 onally to DLLEXP
0150: 4f 52 54 20 62 65 63 61 75 73 65 20 74 68 65 0a ORT because the.
0160: 20 20 2a 20 52 65 67 69 73 74 72 79 5f 49 6e 69 * Registry_Ini
0170: 74 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 69 73 t declaration is
0180: 20 69 6e 20 74 68 65 20 73 6f 75 72 63 65 20 66 in the source f
0190: 69 6c 65 20 69 74 73 65 6c 66 2c 20 77 68 69 63 ile itself, whic
01a0: 68 20 69 73 20 6f 6e 6c 79 0a 40 40 20 2d 31 37 h is only.@@ -17
01b0: 31 2c 31 37 20 2b 31 37 39 2c 31 38 20 40 40 20 1,17 +179,18 @@
01c0: 73 74 61 74 69 63 20 69 6e 74 09 09 42 72 6f 61 static int..Broa
01d0: 64 63 61 73 74 56 61 6c 75 65 28 54 63 6c 5f 49 dcastValue(Tcl_I
01e0: 6e 74 65 72 70 20 2a 69 0a 20 09 09 09 20 20 20 nterp *i. ...
01f0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
0200: 6f 62 6a 76 5b 5d 29 3b 0a 20 73 74 61 74 69 63 objv[]);. static
0210: 20 44 57 4f 52 44 09 09 43 6f 6e 76 65 72 74 44 DWORD..ConvertD
0220: 57 4f 52 44 28 44 57 4f 52 44 20 74 79 70 65 2c WORD(DWORD type,
0230: 20 44 57 4f 52 44 20 76 61 6c 75 65 29 3b 0a 20 DWORD value);.
0240: 73 74 61 74 69 63 20 76 6f 69 64 09 09 44 65 6c static void..Del
0250: 65 74 65 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 eteCmd(ClientDat
0260: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 3b 0a 2d a clientData);.-
0270: 73 74 61 74 69 63 20 69 6e 74 09 09 44 65 6c 65 static int..Dele
0280: 74 65 4b 65 79 28 54 63 6c 5f 49 6e 74 65 72 70 teKey(Tcl_Interp
0290: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
02a0: 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a 29 3b 0a j *keyNameObj);.
02b0: 2b 73 74 61 74 69 63 20 69 6e 74 09 09 44 65 6c +static int..Del
02c0: 65 74 65 4b 65 79 28 54 63 6c 5f 49 6e 74 65 72 eteKey(Tcl_Inter
02d0: 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p *interp, Tcl_O
02e0: 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a 2c 0a bj *keyNameObj,.
02f0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 +
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 47 REG
0310: 53 41 4d 20 6d 6f 64 65 29 3b 0a 20 73 74 61 74 SAM mode);. stat
0320: 69 63 20 69 6e 74 09 09 44 65 6c 65 74 65 56 61 ic int..DeleteVa
0330: 6c 75 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a lue(Tcl_Interp *
0340: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 interp, Tcl_Obj
0350: 2a 6b 65 79 4e 61 6d 65 4f 62 6a 2c 0a 2d 09 09 *keyNameObj,.-..
0360: 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 76 61 . Tcl_Obj *va
0370: 6c 75 65 4e 61 6d 65 4f 62 6a 29 3b 0a 2b 09 09 lueNameObj);.+..
0380: 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 76 61 . Tcl_Obj *va
0390: 6c 75 65 4e 61 6d 65 4f 62 6a 2c 20 52 45 47 53 lueNameObj, REGS
03a0: 41 4d 20 6d 6f 64 65 29 3b 0a 20 73 74 61 74 69 AM mode);. stati
03b0: 63 20 69 6e 74 09 09 47 65 74 4b 65 79 4e 61 6d c int..GetKeyNam
03c0: 65 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 es(Tcl_Interp *i
03d0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a nterp, Tcl_Obj *
03e0: 6b 65 79 4e 61 6d 65 4f 62 6a 2c 0a 2d 09 09 09 keyNameObj,.-...
03f0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 74 Tcl_Obj *pat
0400: 74 65 72 6e 4f 62 6a 29 3b 0a 2b 09 09 09 20 20 ternObj);.+...
0410: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 74 74 65 Tcl_Obj *patte
0420: 72 6e 4f 62 6a 2c 20 52 45 47 53 41 4d 20 6d 6f rnObj, REGSAM mo
0430: 64 65 29 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 de);. static int
0440: 09 09 47 65 74 54 79 70 65 28 54 63 6c 5f 49 6e ..GetType(Tcl_In
0450: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 terp *interp, Tc
0460: 6c 5f 4f 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 l_Obj *keyNameOb
0470: 6a 2c 0a 2d 09 09 09 20 20 20 20 54 63 6c 5f 4f j,.-... Tcl_O
0480: 62 6a 20 2a 76 61 6c 75 65 4e 61 6d 65 4f 62 6a bj *valueNameObj
0490: 29 3b 0a 2b 09 09 09 20 20 20 20 54 63 6c 5f 4f );.+... Tcl_O
04a0: 62 6a 20 2a 76 61 6c 75 65 4e 61 6d 65 4f 62 6a bj *valueNameObj
04b0: 2c 20 52 45 47 53 41 4d 20 6d 6f 64 65 29 3b 0a , REGSAM mode);.
04c0: 20 73 74 61 74 69 63 20 69 6e 74 09 09 47 65 74 static int..Get
04d0: 56 61 6c 75 65 28 54 63 6c 5f 49 6e 74 65 72 70 Value(Tcl_Interp
04e0: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
04f0: 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a 2c 0a 2d j *keyNameObj,.-
0500: 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a ... Tcl_Obj *
0510: 76 61 6c 75 65 4e 61 6d 65 4f 62 6a 29 3b 0a 2b valueNameObj);.+
0520: 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a ... Tcl_Obj *
0530: 76 61 6c 75 65 4e 61 6d 65 4f 62 6a 2c 20 52 45 valueNameObj, RE
0540: 47 53 41 4d 20 6d 6f 64 65 29 3b 0a 20 73 74 61 GSAM mode);. sta
0550: 74 69 63 20 69 6e 74 09 09 47 65 74 56 61 6c 75 tic int..GetValu
0560: 65 4e 61 6d 65 73 28 54 63 6c 5f 49 6e 74 65 72 eNames(Tcl_Inter
0570: 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p *interp, Tcl_O
0580: 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a 2c 0a bj *keyNameObj,.
0590: 2d 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 -... Tcl_Obj
05a0: 2a 70 61 74 74 65 72 6e 4f 62 6a 29 3b 0a 2b 09 *patternObj);.+.
05b0: 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 .. Tcl_Obj *p
05c0: 61 74 74 65 72 6e 4f 62 6a 2c 20 52 45 47 53 41 atternObj, REGSA
05d0: 4d 20 6d 6f 64 65 29 3b 0a 20 73 74 61 74 69 63 M mode);. static
05e0: 20 69 6e 74 09 09 4f 70 65 6e 4b 65 79 28 54 63 int..OpenKey(Tc
05f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0600: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4e 61 , Tcl_Obj *keyNa
0610: 6d 65 4f 62 6a 2c 0a 20 09 09 09 20 20 20 20 52 meObj,. ... R
0620: 45 47 53 41 4d 20 6d 6f 64 65 2c 20 69 6e 74 20 EGSAM mode, int
0630: 66 6c 61 67 73 2c 20 48 4b 45 59 20 2a 6b 65 79 flags, HKEY *key
0640: 50 74 72 29 3b 0a 20 73 74 61 74 69 63 20 44 57 Ptr);. static DW
0650: 4f 52 44 09 09 4f 70 65 6e 53 75 62 4b 65 79 28 ORD..OpenSubKey(
0660: 63 68 61 72 20 2a 68 6f 73 74 4e 61 6d 65 2c 20 char *hostName,
0670: 48 4b 45 59 20 72 6f 6f 74 4b 65 79 2c 0a 40 40 HKEY rootKey,.@@
0680: 20 2d 31 39 31 2c 31 33 20 2b 32 30 30 2c 31 33 -191,13 +200,13
0690: 20 40 40 20 73 74 61 74 69 63 20 69 6e 74 09 09 @@ static int..
06a0: 50 61 72 73 65 4b 65 79 4e 61 6d 65 28 54 63 6c ParseKeyName(Tcl
06b0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 0a 20 09 09 _Interp *int. ..
06c0: 09 20 20 20 20 63 68 61 72 20 2a 2a 68 6f 73 74 . char **host
06d0: 4e 61 6d 65 50 74 72 2c 20 48 4b 45 59 20 2a 72 NamePtr, HKEY *r
06e0: 6f 6f 74 4b 65 79 50 74 72 2c 0a 20 09 09 09 20 ootKeyPtr,. ...
06f0: 20 20 20 63 68 61 72 20 2a 2a 6b 65 79 4e 61 6d char **keyNam
0700: 65 50 74 72 29 3b 0a 20 73 74 61 74 69 63 20 44 ePtr);. static D
0710: 57 4f 52 44 09 09 52 65 63 75 72 73 69 76 65 44 WORD..RecursiveD
0720: 65 6c 65 74 65 4b 65 79 28 48 4b 45 59 20 68 53 eleteKey(HKEY hS
0730: 74 61 72 74 4b 65 79 2c 0a 2d 09 09 09 20 20 20 tartKey,.-...
0740: 20 63 6f 6e 73 74 20 54 43 48 41 52 20 2a 20 70 const TCHAR * p
0750: 4b 65 79 4e 61 6d 65 29 3b 0a 2b 09 09 09 20 20 KeyName);.+...
0760: 20 20 63 6f 6e 73 74 20 54 43 48 41 52 20 2a 20 const TCHAR *
0770: 70 4b 65 79 4e 61 6d 65 2c 20 52 45 47 53 41 4d pKeyName, REGSAM
0780: 20 6d 6f 64 65 29 3b 0a 20 73 74 61 74 69 63 20 mode);. static
0790: 69 6e 74 09 09 52 65 67 69 73 74 72 79 4f 62 6a int..RegistryObj
07a0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
07b0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 09 09 09 20 lientData,. ...
07c0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
07d0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
07e0: 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a . ... Tcl_Obj
07f0: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b *const objv[]);
0800: 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 53 65 . static int..Se
0810: 74 56 61 6c 75 65 28 54 63 6c 5f 49 6e 74 65 72 tValue(Tcl_Inter
0820: 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p *interp, Tcl_O
0830: 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a 2c 0a bj *keyNameObj,.
0840: 20 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ... Tcl_Obj
0850: 2a 76 61 6c 75 65 4e 61 6d 65 4f 62 6a 2c 20 54 *valueNameObj, T
0860: 63 6c 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c cl_Obj *dataObj,
0870: 0a 2d 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a .-... Tcl_Obj
0880: 20 2a 74 79 70 65 4f 62 6a 29 3b 0a 2b 09 09 09 *typeObj);.+...
0890: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 74 79 70 Tcl_Obj *typ
08a0: 65 4f 62 6a 2c 20 52 45 47 53 41 4d 20 6d 6f 64 eObj, REGSAM mod
08b0: 65 29 3b 0a 20 0a 20 45 58 54 45 52 4e 20 69 6e e);. . EXTERN in
08c0: 74 09 09 52 65 67 69 73 74 72 79 5f 49 6e 69 74 t..Registry_Init
08d0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
08e0: 65 72 70 29 3b 0a 20 45 58 54 45 52 4e 20 69 6e erp);. EXTERN in
08f0: 74 09 09 52 65 67 69 73 74 72 79 5f 55 6e 6c 6f t..Registry_Unlo
0900: 61 64 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ad(Tcl_Interp *i
0910: 6e 74 65 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 nterp, int flags
0920: 29 3b 0a 40 40 20 2d 33 33 36 2c 37 20 2b 33 34 );.@@ -336,7 +34
0930: 35 2c 39 20 40 40 20 52 65 67 69 73 74 72 79 4f 5,9 @@ RegistryO
0940: 62 6a 43 6d 64 28 0a 20 20 20 20 20 69 6e 74 20 bjCmd(. int
0950: 6f 62 6a 63 2c 09 09 09 2f 2a 20 4e 75 6d 62 65 objc,.../* Numbe
0960: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 r of arguments.
0970: 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */. Tcl_Obj
0980: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 09 2f *const objv[])./
0990: 2a 20 41 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 * Argument value
09a0: 73 2e 20 2a 2f 0a 20 7b 0a 2d 20 20 20 20 69 6e s. */. {.- in
09b0: 74 20 69 6e 64 65 78 3b 0a 2b 20 20 20 20 69 6e t index;.+ in
09c0: 74 20 6e 20 3d 20 31 3b 0a 2b 20 20 20 20 69 6e t n = 1;.+ in
09d0: 74 20 69 6e 64 65 78 2c 20 61 72 67 63 3b 0a 2b t index, argc;.+
09e0: 20 20 20 20 52 45 47 53 41 4d 20 6d 6f 64 65 20 REGSAM mode
09f0: 3d 20 30 3b 0a 20 20 20 20 20 63 6f 6e 73 74 20 = 0;. const
0a00: 63 68 61 72 20 2a 65 72 72 53 74 72 69 6e 67 20 char *errString
0a10: 3d 20 4e 55 4c 4c 3b 0a 20 0a 20 20 20 20 20 73 = NULL;. . s
0a20: 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 tatic const char
0a30: 20 2a 63 6f 6e 73 74 20 73 75 62 63 6f 6d 6d 61 *const subcomma
0a40: 6e 64 73 5b 5d 20 3d 20 7b 0a 40 40 20 2d 33 34 nds[] = {.@@ -34
0a50: 37 2c 37 36 20 2b 33 35 38 2c 39 39 20 40 40 20 7,76 +358,99 @@
0a60: 52 65 67 69 73 74 72 79 4f 62 6a 43 6d 64 28 0a RegistryObjCmd(.
0a70: 20 20 20 20 20 7d 3b 0a 20 0a 20 20 20 20 20 69 };. . i
0a80: 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 2b f (objc < 2) {.+
0a90: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
0aa0: 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 s(interp, objc,
0ab0: 6f 62 6a 76 2c 22 3f 2d 33 32 62 69 74 7c 2d 36 objv,"?-32bit|-6
0ac0: 34 62 69 74 3f 20 6f 70 74 69 6f 6e 20 3f 61 72 4bit? option ?ar
0ad0: 67 20 2e 2e 2e 3f 22 29 3b 0a 2b 09 72 65 74 75 g ...?");.+.retu
0ae0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 rn TCL_ERROR;.+
0af0: 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 66 20 28 }.+.+ if (
0b00: 73 74 72 6e 63 61 73 65 63 6d 70 28 54 63 6c 5f strncasecmp(Tcl_
0b10: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 6e GetString(objv[n
0b20: 5d 29 2c 20 22 2d 33 32 62 69 74 22 2c 20 36 29 ]), "-32bit", 6)
0b30: 20 3d 3d 20 30 29 20 7b 0a 2b 20 20 20 20 20 20 == 0) {.+
0b40: 20 20 2b 2b 6e 3b 0a 2b 20 20 20 20 20 20 20 20 ++n;.+
0b50: 6d 6f 64 65 20 7c 3d 20 4b 45 59 5f 57 4f 57 36 mode |= KEY_WOW6
0b60: 34 5f 33 32 4b 45 59 3b 0a 2b 20 20 20 20 7d 20 4_32KEY;.+ }
0b70: 65 6c 73 65 20 69 66 20 28 73 74 72 6e 63 61 73 else if (strncas
0b80: 65 63 6d 70 28 54 63 6c 5f 47 65 74 53 74 72 69 ecmp(Tcl_GetStri
0b90: 6e 67 28 6f 62 6a 76 5b 6e 5d 29 2c 20 22 2d 36 ng(objv[n]), "-6
0ba0: 34 62 69 74 22 2c 20 36 29 20 3d 3d 20 30 29 20 4bit", 6) == 0)
0bb0: 7b 0a 2b 20 20 20 20 20 20 20 20 2b 2b 6e 3b 0a {.+ ++n;.
0bc0: 2b 20 20 20 20 20 20 20 20 6d 6f 64 65 20 7c 3d + mode |=
0bd0: 20 4b 45 59 5f 57 4f 57 36 34 5f 36 34 4b 45 59 KEY_WOW64_64KEY
0be0: 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 ;.+ }.+.+
0bf0: 69 66 20 28 6d 6f 64 65 20 26 26 20 6f 62 6a 63 if (mode && objc
0c00: 20 3c 20 33 29 20 7b 0a 20 09 54 63 6c 5f 57 72 < 3) {. .Tcl_Wr
0c10: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
0c20: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 22 p, objc, objv, "
0c30: 6f 70 74 69 6f 6e 20 3f 61 72 67 20 2e 2e 2e 3f option ?arg ...?
0c40: 22 29 3b 0a 20 09 72 65 74 75 72 6e 20 54 43 4c ");. .return TCL
0c50: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 7d 0a 20 _ERROR;. }.
0c60: 0a 2d 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 .- if (Tcl_Ge
0c70: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e tIndexFromObj(in
0c80: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 73 terp, objv[1], s
0c90: 75 62 63 6f 6d 6d 61 6e 64 73 2c 20 22 6f 70 74 ubcommands, "opt
0ca0: 69 6f 6e 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 ion", 0, &index)
0cb0: 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 .+ if (Tcl_Ge
0cc0: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e tIndexFromObj(in
0cd0: 74 65 72 70 2c 20 6f 62 6a 76 5b 6e 2b 2b 5d 2c terp, objv[n++],
0ce0: 20 73 75 62 63 6f 6d 6d 61 6e 64 73 2c 20 22 6f subcommands, "o
0cf0: 70 74 69 6f 6e 22 2c 20 30 2c 20 26 69 6e 64 65 ption", 0, &inde
0d00: 78 29 0a 20 09 20 20 20 20 21 3d 20 54 43 4c 5f x). . != TCL_
0d10: 4f 4b 29 20 7b 0a 20 09 72 65 74 75 72 6e 20 54 OK) {. .return T
0d20: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 7d CL_ERROR;. }
0d30: 0a 20 0a 2b 20 20 20 20 61 72 67 63 20 3d 20 28 . .+ argc = (
0d40: 6f 62 6a 63 20 2d 20 6e 29 3b 0a 20 20 20 20 20 objc - n);.
0d50: 73 77 69 74 63 68 20 28 69 6e 64 65 78 29 20 7b switch (index) {
0d60: 0a 20 20 20 20 20 63 61 73 65 20 42 72 6f 61 64 . case Broad
0d70: 63 61 73 74 49 64 78 3a 09 09 2f 2a 20 62 72 6f castIdx:../* bro
0d80: 61 64 63 61 73 74 20 2a 2f 0a 2d 09 72 65 74 75 adcast */.-.retu
0d90: 72 6e 20 42 72 6f 61 64 63 61 73 74 56 61 6c 75 rn BroadcastValu
0da0: 65 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 e(interp, objc,
0db0: 6f 62 6a 76 29 3b 0a 2b 20 20 20 20 20 20 20 20 objv);.+
0dc0: 69 66 20 28 61 72 67 63 20 3d 3d 20 31 20 7c 7c if (argc == 1 ||
0dd0: 20 61 72 67 63 20 3d 3d 20 33 29 20 7b 0a 2b 20 argc == 3) {.+
0de0: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 72 int r
0df0: 65 73 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 es;.+
0e00: 20 69 66 20 28 28 72 65 73 20 3d 20 42 72 6f 61 if ((res = Broa
0e10: 64 63 61 73 74 56 61 6c 75 65 28 69 6e 74 65 72 dcastValue(inter
0e20: 70 2c 20 61 72 67 63 2c 20 6f 62 6a 76 20 2b 20 p, argc, objv +
0e30: 6e 29 29 20 21 3d 20 54 43 4c 5f 42 52 45 41 4b n)) != TCL_BREAK
0e40: 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ) {.+
0e50: 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b return res;
0e60: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a .+ }.
0e70: 2b 20 20 20 20 20 20 20 20 7d 0a 2b 09 65 72 72 + }.+.err
0e80: 53 74 72 69 6e 67 20 3d 20 22 6b 65 79 4e 61 6d String = "keyNam
0e90: 65 20 3f 2d 74 69 6d 65 6f 75 74 20 6d 69 6c 6c e ?-timeout mill
0ea0: 69 73 65 63 6f 6e 64 73 3f 22 3b 0a 20 09 62 72 iseconds?";. .br
0eb0: 65 61 6b 3b 0a 20 20 20 20 20 63 61 73 65 20 44 eak;. case D
0ec0: 65 6c 65 74 65 49 64 78 3a 09 09 2f 2a 20 64 65 eleteIdx:../* de
0ed0: 6c 65 74 65 20 2a 2f 0a 2d 09 69 66 20 28 6f 62 lete */.-.if (ob
0ee0: 6a 63 20 3d 3d 20 33 29 20 7b 0a 2d 09 20 20 20 jc == 3) {.-.
0ef0: 20 72 65 74 75 72 6e 20 44 65 6c 65 74 65 4b 65 return DeleteKe
0f00: 79 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 y(interp, objv[2
0f10: 5d 29 3b 0a 2d 09 7d 20 65 6c 73 65 20 69 66 20 ]);.-.} else if
0f20: 28 6f 62 6a 63 20 3d 3d 20 34 29 20 7b 0a 2d 09 (objc == 4) {.-.
0f30: 20 20 20 20 72 65 74 75 72 6e 20 44 65 6c 65 74 return Delet
0f40: 65 56 61 6c 75 65 28 69 6e 74 65 72 70 2c 20 6f eValue(interp, o
0f50: 62 6a 76 5b 32 5d 2c 20 6f 62 6a 76 5b 33 5d 29 bjv[2], objv[3])
0f60: 3b 0a 2b 09 69 66 20 28 61 72 67 63 20 3d 3d 20 ;.+.if (argc ==
0f70: 31 29 20 7b 0a 2b 09 20 20 20 20 72 65 74 75 72 1) {.+. retur
0f80: 6e 20 44 65 6c 65 74 65 4b 65 79 28 69 6e 74 65 n DeleteKey(inte
0f90: 72 70 2c 20 6f 62 6a 76 5b 6e 5d 2c 20 6d 6f 64 rp, objv[n], mod
0fa0: 65 29 3b 0a 2b 09 7d 20 65 6c 73 65 20 69 66 20 e);.+.} else if
0fb0: 28 61 72 67 63 20 3d 3d 20 32 29 20 7b 0a 2b 09 (argc == 2) {.+.
0fc0: 20 20 20 20 72 65 74 75 72 6e 20 44 65 6c 65 74 return Delet
0fd0: 65 56 61 6c 75 65 28 69 6e 74 65 72 70 2c 20 6f eValue(interp, o
0fe0: 62 6a 76 5b 6e 5d 2c 20 6f 62 6a 76 5b 2b 2b 6e bjv[n], objv[++n
0ff0: 5d 2c 20 6d 6f 64 65 29 3b 0a 20 09 7d 0a 20 09 ], mode);. .}. .
1000: 65 72 72 53 74 72 69 6e 67 20 3d 20 22 6b 65 79 errString = "key
1010: 4e 61 6d 65 20 3f 76 61 6c 75 65 4e 61 6d 65 3f Name ?valueName?
1020: 22 3b 0a 20 09 62 72 65 61 6b 3b 0a 20 20 20 20 ";. .break;.
1030: 20 63 61 73 65 20 47 65 74 49 64 78 3a 09 09 2f case GetIdx:../
1040: 2a 20 67 65 74 20 2a 2f 0a 2d 09 69 66 20 28 6f * get */.-.if (o
1050: 62 6a 63 20 3d 3d 20 34 29 20 7b 0a 2d 09 20 20 bjc == 4) {.-.
1060: 20 20 72 65 74 75 72 6e 20 47 65 74 56 61 6c 75 return GetValu
1070: 65 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 e(interp, objv[2
1080: 5d 2c 20 6f 62 6a 76 5b 33 5d 29 3b 0a 2b 09 69 ], objv[3]);.+.i
1090: 66 20 28 61 72 67 63 20 3d 3d 20 32 29 20 7b 0a f (argc == 2) {.
10a0: 2b 09 20 20 20 20 72 65 74 75 72 6e 20 47 65 74 +. return Get
10b0: 56 61 6c 75 65 28 69 6e 74 65 72 70 2c 20 6f 62 Value(interp, ob
10c0: 6a 76 5b 6e 5d 2c 20 6f 62 6a 76 5b 2b 2b 6e 5d jv[n], objv[++n]
10d0: 2c 20 6d 6f 64 65 29 3b 0a 20 09 7d 0a 20 09 65 , mode);. .}. .e
10e0: 72 72 53 74 72 69 6e 67 20 3d 20 22 6b 65 79 4e rrString = "keyN
10f0: 61 6d 65 20 76 61 6c 75 65 4e 61 6d 65 22 3b 0a ame valueName";.
1100: 20 09 62 72 65 61 6b 3b 0a 20 20 20 20 20 63 61 .break;. ca
1110: 73 65 20 4b 65 79 73 49 64 78 3a 09 09 2f 2a 20 se KeysIdx:../*
1120: 6b 65 79 73 20 2a 2f 0a 2d 09 69 66 20 28 6f 62 keys */.-.if (ob
1130: 6a 63 20 3d 3d 20 33 29 20 7b 0a 2d 09 20 20 20 jc == 3) {.-.
1140: 20 72 65 74 75 72 6e 20 47 65 74 4b 65 79 4e 61 return GetKeyNa
1150: 6d 65 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 mes(interp, objv
1160: 5b 32 5d 2c 20 4e 55 4c 4c 29 3b 0a 2d 09 7d 20 [2], NULL);.-.}
1170: 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d else if (objc ==
1180: 20 34 29 20 7b 0a 2d 09 20 20 20 20 72 65 74 75 4) {.-. retu
1190: 72 6e 20 47 65 74 4b 65 79 4e 61 6d 65 73 28 69 rn GetKeyNames(i
11a0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
11b0: 6f 62 6a 76 5b 33 5d 29 3b 0a 2b 09 69 66 20 28 objv[3]);.+.if (
11c0: 61 72 67 63 20 3d 3d 20 31 29 20 7b 0a 2b 09 20 argc == 1) {.+.
11d0: 20 20 20 72 65 74 75 72 6e 20 47 65 74 4b 65 79 return GetKey
11e0: 4e 61 6d 65 73 28 69 6e 74 65 72 70 2c 20 6f 62 Names(interp, ob
11f0: 6a 76 5b 6e 5d 2c 20 4e 55 4c 4c 2c 20 6d 6f 64 jv[n], NULL, mod
1200: 65 29 3b 0a 2b 09 7d 20 65 6c 73 65 20 69 66 20 e);.+.} else if
1210: 28 61 72 67 63 20 3d 3d 20 32 29 20 7b 0a 2b 09 (argc == 2) {.+.
1220: 20 20 20 20 72 65 74 75 72 6e 20 47 65 74 4b 65 return GetKe
1230: 79 4e 61 6d 65 73 28 69 6e 74 65 72 70 2c 20 6f yNames(interp, o
1240: 62 6a 76 5b 6e 5d 2c 20 6f 62 6a 76 5b 2b 2b 6e bjv[n], objv[++n
1250: 5d 2c 20 6d 6f 64 65 29 3b 0a 20 09 7d 0a 20 09 ], mode);. .}. .
1260: 65 72 72 53 74 72 69 6e 67 20 3d 20 22 6b 65 79 errString = "key
1270: 4e 61 6d 65 20 3f 70 61 74 74 65 72 6e 3f 22 3b Name ?pattern?";
1280: 0a 20 09 62 72 65 61 6b 3b 0a 20 20 20 20 20 63 . .break;. c
1290: 61 73 65 20 53 65 74 49 64 78 3a 09 09 2f 2a 20 ase SetIdx:../*
12a0: 73 65 74 20 2a 2f 0a 2d 09 69 66 20 28 6f 62 6a set */.-.if (obj
12b0: 63 20 3d 3d 20 33 29 20 7b 0a 2b 09 69 66 20 28 c == 3) {.+.if (
12c0: 61 72 67 63 20 3d 3d 20 31 29 20 7b 0a 20 09 20 argc == 1) {. .
12d0: 20 20 20 48 4b 45 59 20 6b 65 79 3b 0a 20 0a 20 HKEY key;. .
12e0: 09 20 20 20 20 2f 2a 0a 20 09 20 20 20 20 20 2a . /*. . *
12f0: 20 43 72 65 61 74 65 20 74 68 65 20 6b 65 79 20 Create the key
1300: 61 6e 64 20 74 68 65 6e 20 63 6c 6f 73 65 20 69 and then close i
1310: 74 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0a 20 t immediately..
1320: 09 20 20 20 20 20 2a 2f 0a 20 0a 2d 09 20 20 20 . */. .-.
1330: 20 69 66 20 28 4f 70 65 6e 4b 65 79 28 69 6e 74 if (OpenKey(int
1340: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 4b 45 erp, objv[2], KE
1350: 59 5f 41 4c 4c 5f 41 43 43 45 53 53 2c 20 31 2c Y_ALL_ACCESS, 1,
1360: 20 26 6b 65 79 29 20 21 3d 20 54 43 4c 5f 4f 4b &key) != TCL_OK
1370: 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ) {.+
1380: 20 6d 6f 64 65 20 7c 3d 20 4b 45 59 5f 41 4c 4c mode |= KEY_ALL
1390: 5f 41 43 43 45 53 53 3b 0a 2b 09 20 20 20 20 69 _ACCESS;.+. i
13a0: 66 20 28 4f 70 65 6e 4b 65 79 28 69 6e 74 65 72 f (OpenKey(inter
13b0: 70 2c 20 6f 62 6a 76 5b 6e 5d 2c 20 6d 6f 64 65 p, objv[n], mode
13c0: 2c 20 31 2c 20 26 6b 65 79 29 20 21 3d 20 54 43 , 1, &key) != TC
13d0: 4c 5f 4f 4b 29 20 7b 0a 20 09 09 72 65 74 75 72 L_OK) {. ..retur
13e0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 09 20 n TCL_ERROR;. .
13f0: 20 20 20 7d 0a 20 09 20 20 20 20 52 65 67 43 6c }. . RegCl
1400: 6f 73 65 4b 65 79 28 6b 65 79 29 3b 0a 20 09 20 oseKey(key);. .
1410: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
1420: 3b 0a 2d 09 7d 20 65 6c 73 65 20 69 66 20 28 6f ;.-.} else if (o
1430: 62 6a 63 20 3d 3d 20 35 20 7c 7c 20 6f 62 6a 63 bjc == 5 || objc
1440: 20 3d 3d 20 36 29 20 7b 0a 2d 09 20 20 20 20 54 == 6) {.-. T
1450: 63 6c 5f 4f 62 6a 20 2a 74 79 70 65 4f 62 6a 20 cl_Obj *typeObj
1460: 3d 20 28 6f 62 6a 63 20 3d 3d 20 35 29 20 3f 20 = (objc == 5) ?
1470: 4e 55 4c 4c 20 3a 20 6f 62 6a 76 5b 35 5d 3b 0a NULL : objv[5];.
1480: 2d 09 20 20 20 20 72 65 74 75 72 6e 20 53 65 74 -. return Set
1490: 56 61 6c 75 65 28 69 6e 74 65 72 70 2c 20 6f 62 Value(interp, ob
14a0: 6a 76 5b 32 5d 2c 20 6f 62 6a 76 5b 33 5d 2c 20 jv[2], objv[3],
14b0: 6f 62 6a 76 5b 34 5d 2c 20 74 79 70 65 4f 62 6a objv[4], typeObj
14c0: 29 3b 0a 2b 09 7d 20 65 6c 73 65 20 69 66 20 28 );.+.} else if (
14d0: 61 72 67 63 20 3d 3d 20 33 29 20 7b 0a 2b 09 20 argc == 3) {.+.
14e0: 20 20 20 72 65 74 75 72 6e 20 53 65 74 56 61 6c return SetVal
14f0: 75 65 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b ue(interp, objv[
1500: 6e 5d 2c 20 6f 62 6a 76 5b 2b 2b 6e 5d 2c 20 6f n], objv[++n], o
1510: 62 6a 76 5b 2b 2b 6e 5d 2c 20 4e 55 4c 4c 2c 20 bjv[++n], NULL,
1520: 6d 6f 64 65 29 3b 0a 2b 20 20 20 20 20 20 20 20 mode);.+
1530: 7d 20 65 6c 73 65 20 69 66 20 28 61 72 67 63 20 } else if (argc
1540: 3d 3d 20 34 29 20 7b 0a 2b 09 20 20 20 20 72 65 == 4) {.+. re
1550: 74 75 72 6e 20 53 65 74 56 61 6c 75 65 28 69 6e turn SetValue(in
1560: 74 65 72 70 2c 20 6f 62 6a 76 5b 6e 5d 2c 20 6f terp, objv[n], o
1570: 62 6a 76 5b 2b 2b 6e 5d 2c 20 6f 62 6a 76 5b 2b bjv[++n], objv[+
1580: 2b 6e 5d 2c 20 6f 62 6a 76 5b 2b 2b 6e 5d 2c 0a +n], objv[++n],.
1590: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 +
15a0: 20 6d 6f 64 65 29 3b 0a 20 09 7d 0a 20 09 65 72 mode);. .}. .er
15b0: 72 53 74 72 69 6e 67 20 3d 20 22 6b 65 79 4e 61 rString = "keyNa
15c0: 6d 65 20 3f 76 61 6c 75 65 4e 61 6d 65 20 64 61 me ?valueName da
15d0: 74 61 20 3f 74 79 70 65 3f 3f 22 3b 0a 20 09 62 ta ?type??";. .b
15e0: 72 65 61 6b 3b 0a 20 20 20 20 20 63 61 73 65 20 reak;. case
15f0: 54 79 70 65 49 64 78 3a 09 09 2f 2a 20 74 79 70 TypeIdx:../* typ
1600: 65 20 2a 2f 0a 2d 09 69 66 20 28 6f 62 6a 63 20 e */.-.if (objc
1610: 3d 3d 20 34 29 20 7b 0a 2d 09 20 20 20 20 72 65 == 4) {.-. re
1620: 74 75 72 6e 20 47 65 74 54 79 70 65 28 69 6e 74 turn GetType(int
1630: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 6f 62 erp, objv[2], ob
1640: 6a 76 5b 33 5d 29 3b 0a 2b 09 69 66 20 28 61 72 jv[3]);.+.if (ar
1650: 67 63 20 3d 3d 20 32 29 20 7b 0a 2b 09 20 20 20 gc == 2) {.+.
1660: 20 72 65 74 75 72 6e 20 47 65 74 54 79 70 65 28 return GetType(
1670: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 6e 5d 2c interp, objv[n],
1680: 20 6f 62 6a 76 5b 2b 2b 6e 5d 2c 20 6d 6f 64 65 objv[++n], mode
1690: 29 3b 0a 20 09 7d 0a 20 09 65 72 72 53 74 72 69 );. .}. .errStri
16a0: 6e 67 20 3d 20 22 6b 65 79 4e 61 6d 65 20 76 61 ng = "keyName va
16b0: 6c 75 65 4e 61 6d 65 22 3b 0a 20 09 62 72 65 61 lueName";. .brea
16c0: 6b 3b 0a 20 20 20 20 20 63 61 73 65 20 56 61 6c k;. case Val
16d0: 75 65 73 49 64 78 3a 09 09 2f 2a 20 76 61 6c 75 uesIdx:../* valu
16e0: 65 73 20 2a 2f 0a 2d 09 69 66 20 28 6f 62 6a 63 es */.-.if (objc
16f0: 20 3d 3d 20 33 29 20 7b 0a 2d 09 20 20 20 20 72 == 3) {.-. r
1700: 65 74 75 72 6e 20 47 65 74 56 61 6c 75 65 4e 61 eturn GetValueNa
1710: 6d 65 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 mes(interp, objv
1720: 5b 32 5d 2c 20 4e 55 4c 4c 29 3b 0a 2d 09 7d 20 [2], NULL);.-.}
1730: 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d else if (objc ==
1740: 20 34 29 20 7b 0a 2d 09 20 20 20 20 72 65 74 75 4) {.-. retu
1750: 72 6e 20 47 65 74 56 61 6c 75 65 4e 61 6d 65 73 rn GetValueNames
1760: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
1770: 2c 20 6f 62 6a 76 5b 33 5d 29 3b 0a 2b 09 69 66 , objv[3]);.+.if
1780: 20 28 61 72 67 63 20 3d 3d 20 31 29 20 7b 0a 2b (argc == 1) {.+
1790: 09 20 20 20 20 72 65 74 75 72 6e 20 47 65 74 56 . return GetV
17a0: 61 6c 75 65 4e 61 6d 65 73 28 69 6e 74 65 72 70 alueNames(interp
17b0: 2c 20 6f 62 6a 76 5b 6e 5d 2c 20 4e 55 4c 4c 2c , objv[n], NULL,
17c0: 20 6d 6f 64 65 29 3b 0a 2b 09 7d 20 65 6c 73 65 mode);.+.} else
17d0: 20 69 66 20 28 61 72 67 63 20 3d 3d 20 32 29 20 if (argc == 2)
17e0: 7b 0a 2b 09 20 20 20 20 72 65 74 75 72 6e 20 47 {.+. return G
17f0: 65 74 56 61 6c 75 65 4e 61 6d 65 73 28 69 6e 74 etValueNames(int
1800: 65 72 70 2c 20 6f 62 6a 76 5b 6e 5d 2c 20 6f 62 erp, objv[n], ob
1810: 6a 76 5b 2b 2b 6e 5d 2c 20 6d 6f 64 65 29 3b 0a jv[++n], mode);.
1820: 20 09 7d 0a 20 09 65 72 72 53 74 72 69 6e 67 20 .}. .errString
1830: 3d 20 22 6b 65 79 4e 61 6d 65 20 3f 70 61 74 74 = "keyName ?patt
1840: 65 72 6e 3f 22 3b 0a 20 09 62 72 65 61 6b 3b 0a ern?";. .break;.
1850: 20 20 20 20 20 7d 0a 2d 20 20 20 20 54 63 6c 5f }.- Tcl_
1860: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
1870: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 65 72 erp, 2, objv, er
1880: 72 53 74 72 69 6e 67 29 3b 0a 2b 20 20 20 20 54 rString);.+ T
1890: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
18a0: 69 6e 74 65 72 70 2c 20 28 6d 6f 64 65 20 3f 20 interp, (mode ?
18b0: 33 20 3a 20 32 29 2c 20 6f 62 6a 76 2c 20 65 72 3 : 2), objv, er
18c0: 72 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 72 rString);. r
18d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
18e0: 0a 20 7d 0a 20 0c 0a 40 40 20 2d 34 33 39 2c 37 . }. ..@@ -439,7
18f0: 20 2b 34 37 33 2c 38 20 40 40 20 52 65 67 69 73 +473,8 @@ Regis
1900: 74 72 79 4f 62 6a 43 6d 64 28 0a 20 73 74 61 74 tryObjCmd(. stat
1910: 69 63 20 69 6e 74 0a 20 44 65 6c 65 74 65 4b 65 ic int. DeleteKe
1920: 79 28 0a 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 y(. Tcl_Inte
1930: 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 rp *interp,../*
1940: 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 Current interpre
1950: 74 65 72 2e 20 2a 2f 0a 2d 20 20 20 20 54 63 6c ter. */.- Tcl
1960: 5f 4f 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a _Obj *keyNameObj
1970: 29 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 6b 65 79 )./* Name of key
1980: 20 74 6f 20 64 65 6c 65 74 65 2e 20 2a 2f 0a 2b to delete. */.+
1990: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 Tcl_Obj *key
19a0: 4e 61 6d 65 4f 62 6a 2c 09 2f 2a 20 4e 61 6d 65 NameObj,./* Name
19b0: 20 6f 66 20 6b 65 79 20 74 6f 20 64 65 6c 65 74 of key to delet
19c0: 65 2e 20 2a 2f 0a 2b 20 20 20 20 52 45 47 53 41 e. */.+ REGSA
19d0: 4d 20 6d 6f 64 65 29 20 20 20 20 20 20 20 20 20 M mode)
19e0: 20 20 20 20 20 20 20 2f 2a 20 6d 6f 64 65 20 66 /* mode f
19f0: 6c 61 67 73 20 74 6f 20 70 61 73 73 2e 20 2a 2f lags to pass. */
1a00: 0a 20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a 74 . {. char *t
1a10: 61 69 6c 2c 20 2a 62 75 66 66 65 72 2c 20 2a 68 ail, *buffer, *h
1a20: 6f 73 74 4e 61 6d 65 2c 20 2a 6b 65 79 4e 61 6d ostName, *keyNam
1a30: 65 3b 0a 20 20 20 20 20 63 6f 6e 73 74 20 63 68 e;. const ch
1a40: 61 72 20 2a 6e 61 74 69 76 65 54 61 69 6c 3b 0a ar *nativeTail;.
1a50: 40 40 20 2d 34 34 37 2c 36 20 2b 34 38 32 2c 37 @@ -447,6 +482,7
1a60: 20 40 40 20 44 65 6c 65 74 65 4b 65 79 28 0a 20 @@ DeleteKey(.
1a70: 20 20 20 20 44 57 4f 52 44 20 72 65 73 75 6c 74 DWORD result
1a80: 3b 0a 20 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 ;. int lengt
1a90: 68 3b 0a 20 20 20 20 20 54 63 6c 5f 44 53 74 72 h;. Tcl_DStr
1aa0: 69 6e 67 20 62 75 66 3b 0a 2b 20 20 20 20 52 45 ing buf;.+ RE
1ab0: 47 53 41 4d 20 73 61 76 65 4d 6f 64 65 20 3d 20 GSAM saveMode =
1ac0: 6d 6f 64 65 3b 0a 20 0a 20 20 20 20 20 2f 2a 0a mode;. . /*.
1ad0: 20 20 20 20 20 20 2a 20 46 69 6e 64 20 74 68 65 * Find the
1ae0: 20 70 61 72 65 6e 74 20 6f 66 20 74 68 65 20 6b parent of the k
1af0: 65 79 20 62 65 69 6e 67 20 64 65 6c 65 74 65 64 ey being deleted
1b00: 20 61 6e 64 20 6f 70 65 6e 20 69 74 2e 0a 40 40 and open it..@@
1b10: 20 2d 34 37 37 2c 38 20 2b 35 31 33 2c 38 20 40 -477,8 +513,8 @
1b20: 40 20 44 65 6c 65 74 65 4b 65 79 28 0a 20 09 6b @ DeleteKey(. .k
1b30: 65 79 4e 61 6d 65 20 3d 20 4e 55 4c 4c 3b 0a 20 eyName = NULL;.
1b40: 20 20 20 20 7d 0a 20 0a 2d 20 20 20 20 72 65 73 }. .- res
1b50: 75 6c 74 20 3d 20 4f 70 65 6e 53 75 62 4b 65 79 ult = OpenSubKey
1b60: 28 68 6f 73 74 4e 61 6d 65 2c 20 72 6f 6f 74 4b (hostName, rootK
1b70: 65 79 2c 20 6b 65 79 4e 61 6d 65 2c 0a 2d 09 20 ey, keyName,.-.
1b80: 20 20 20 4b 45 59 5f 45 4e 55 4d 45 52 41 54 45 KEY_ENUMERATE
1b90: 5f 53 55 42 5f 4b 45 59 53 20 7c 20 44 45 4c 45 _SUB_KEYS | DELE
1ba0: 54 45 2c 20 30 2c 20 26 73 75 62 6b 65 79 29 3b TE, 0, &subkey);
1bb0: 0a 2b 20 20 20 20 6d 6f 64 65 20 7c 3d 20 4b 45 .+ mode |= KE
1bc0: 59 5f 45 4e 55 4d 45 52 41 54 45 5f 53 55 42 5f Y_ENUMERATE_SUB_
1bd0: 4b 45 59 53 20 7c 20 44 45 4c 45 54 45 3b 0a 2b KEYS | DELETE;.+
1be0: 20 20 20 20 72 65 73 75 6c 74 20 3d 20 4f 70 65 result = Ope
1bf0: 6e 53 75 62 4b 65 79 28 68 6f 73 74 4e 61 6d 65 nSubKey(hostName
1c00: 2c 20 72 6f 6f 74 4b 65 79 2c 20 6b 65 79 4e 61 , rootKey, keyNa
1c10: 6d 65 2c 20 6d 6f 64 65 2c 20 30 2c 20 26 73 75 me, mode, 0, &su
1c20: 62 6b 65 79 29 3b 0a 20 20 20 20 20 69 66 20 28 bkey);. if (
1c30: 72 65 73 75 6c 74 20 21 3d 20 45 52 52 4f 52 5f result != ERROR_
1c40: 53 55 43 43 45 53 53 29 20 7b 0a 20 09 63 6b 66 SUCCESS) {. .ckf
1c50: 72 65 65 28 62 75 66 66 65 72 29 3b 0a 20 09 69 ree(buffer);. .i
1c60: 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 45 52 52 f (result == ERR
1c70: 4f 52 5f 46 49 4c 45 5f 4e 4f 54 5f 46 4f 55 4e OR_FILE_NOT_FOUN
1c80: 44 29 20 7b 0a 40 40 20 2d 34 39 35 2c 37 20 2b D) {.@@ -495,7 +
1c90: 35 33 31 2c 37 20 40 40 20 44 65 6c 65 74 65 4b 531,7 @@ DeleteK
1ca0: 65 79 28 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 ey(. */. .
1cb0: 20 20 20 20 6e 61 74 69 76 65 54 61 69 6c 20 3d nativeTail =
1cc0: 20 54 63 6c 5f 57 69 6e 55 74 66 54 6f 54 43 68 Tcl_WinUtfToTCh
1cd0: 61 72 28 74 61 69 6c 2c 20 2d 31 2c 20 26 62 75 ar(tail, -1, &bu
1ce0: 66 29 3b 0a 2d 20 20 20 20 72 65 73 75 6c 74 20 f);.- result
1cf0: 3d 20 52 65 63 75 72 73 69 76 65 44 65 6c 65 74 = RecursiveDelet
1d00: 65 4b 65 79 28 73 75 62 6b 65 79 2c 20 6e 61 74 eKey(subkey, nat
1d10: 69 76 65 54 61 69 6c 29 3b 0a 2b 20 20 20 20 72 iveTail);.+ r
1d20: 65 73 75 6c 74 20 3d 20 52 65 63 75 72 73 69 76 esult = Recursiv
1d30: 65 44 65 6c 65 74 65 4b 65 79 28 73 75 62 6b 65 eDeleteKey(subke
1d40: 79 2c 20 6e 61 74 69 76 65 54 61 69 6c 2c 20 73 y, nativeTail, s
1d50: 61 76 65 4d 6f 64 65 29 3b 0a 20 20 20 20 20 54 aveMode);. T
1d60: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
1d70: 62 75 66 29 3b 0a 20 0a 20 20 20 20 20 69 66 20 buf);. . if
1d80: 28 72 65 73 75 6c 74 20 21 3d 20 45 52 52 4f 52 (result != ERROR
1d90: 5f 53 55 43 43 45 53 53 20 26 26 20 72 65 73 75 _SUCCESS && resu
1da0: 6c 74 20 21 3d 20 45 52 52 4f 52 5f 46 49 4c 45 lt != ERROR_FILE
1db0: 5f 4e 4f 54 5f 46 4f 55 4e 44 29 20 7b 0a 40 40 _NOT_FOUND) {.@@
1dc0: 20 2d 35 33 32 2c 37 20 2b 35 36 38 2c 38 20 40 -532,7 +568,8 @
1dd0: 40 20 73 74 61 74 69 63 20 69 6e 74 0a 20 44 65 @ static int. De
1de0: 6c 65 74 65 56 61 6c 75 65 28 0a 20 20 20 20 20 leteValue(.
1df0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1e00: 72 70 2c 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 rp,../* Current
1e10: 69 6e 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a interpreter. */.
1e20: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 Tcl_Obj *ke
1e30: 79 4e 61 6d 65 4f 62 6a 2c 09 2f 2a 20 4e 61 6d yNameObj,./* Nam
1e40: 65 20 6f 66 20 6b 65 79 2e 20 2a 2f 0a 2d 20 20 e of key. */.-
1e50: 20 20 54 63 6c 5f 4f 62 6a 20 2a 76 61 6c 75 65 Tcl_Obj *value
1e60: 4e 61 6d 65 4f 62 6a 29 09 2f 2a 20 4e 61 6d 65 NameObj)./* Name
1e70: 20 6f 66 20 76 61 6c 75 65 20 74 6f 20 64 65 6c of value to del
1e80: 65 74 65 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c ete. */.+ Tcl
1e90: 5f 4f 62 6a 20 2a 76 61 6c 75 65 4e 61 6d 65 4f _Obj *valueNameO
1ea0: 62 6a 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 76 bj,./* Name of v
1eb0: 61 6c 75 65 20 74 6f 20 64 65 6c 65 74 65 2e 20 alue to delete.
1ec0: 2a 2f 0a 2b 20 20 20 20 52 45 47 53 41 4d 20 6d */.+ REGSAM m
1ed0: 6f 64 65 29 20 20 20 20 20 20 20 20 20 20 20 20 ode)
1ee0: 20 20 20 20 2f 2a 20 6d 6f 64 65 20 66 6c 61 67 /* mode flag
1ef0: 73 20 74 6f 20 70 61 73 73 2e 20 2a 2f 0a 20 7b s to pass. */. {
1f00: 0a 20 20 20 20 20 48 4b 45 59 20 6b 65 79 3b 0a . HKEY key;.
1f10: 20 20 20 20 20 63 68 61 72 20 2a 76 61 6c 75 65 char *value
1f20: 4e 61 6d 65 3b 0a 40 40 20 2d 35 34 34 2c 31 30 Name;.@@ -544,10
1f30: 20 2b 35 38 31 2c 38 20 40 40 20 44 65 6c 65 74 +581,8 @@ Delet
1f40: 65 56 61 6c 75 65 28 0a 20 20 20 20 20 20 2a 20 eValue(. *
1f50: 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20 Attempt to open
1f60: 74 68 65 20 6b 65 79 20 66 6f 72 20 64 65 6c 65 the key for dele
1f70: 74 69 6f 6e 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 tion.. */.
1f80: 0a 2d 20 20 20 20 69 66 20 28 4f 70 65 6e 4b 65 .- if (OpenKe
1f90: 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4e 61 6d y(interp, keyNam
1fa0: 65 4f 62 6a 2c 20 4b 45 59 5f 53 45 54 5f 56 41 eObj, KEY_SET_VA
1fb0: 4c 55 45 2c 20 30 2c 20 26 6b 65 79 29 0a 2d 09 LUE, 0, &key).-.
1fc0: 20 20 20 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b != TCL_OK) {
1fd0: 0a 2d 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 .-.return TCL_ER
1fe0: 52 4f 52 3b 0a 2d 20 20 20 20 7d 0a 2b 20 20 20 ROR;.- }.+
1ff0: 20 6d 6f 64 65 20 7c 3d 20 4b 45 59 5f 53 45 54 mode |= KEY_SET
2000: 5f 56 41 4c 55 45 3b 0a 2b 20 20 20 20 69 66 20 _VALUE;.+ if
2010: 28 4f 70 65 6e 4b 65 79 28 69 6e 74 65 72 70 2c (OpenKey(interp,
2020: 20 6b 65 79 4e 61 6d 65 4f 62 6a 2c 20 6d 6f 64 keyNameObj, mod
2030: 65 2c 20 30 2c 20 26 6b 65 79 29 20 21 3d 20 54 e, 0, &key) != T
2040: 43 4c 5f 4f 4b 29 20 72 65 74 75 72 6e 20 54 43 CL_OK) return TC
2050: 4c 5f 45 52 52 4f 52 3b 0a 20 0a 20 20 20 20 20 L_ERROR;. .
2060: 76 61 6c 75 65 4e 61 6d 65 20 3d 20 54 63 6c 5f valueName = Tcl_
2070: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
2080: 28 76 61 6c 75 65 4e 61 6d 65 4f 62 6a 2c 20 26 (valueNameObj, &
2090: 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 54 63 length);. Tc
20a0: 6c 5f 57 69 6e 55 74 66 54 6f 54 43 68 61 72 28 l_WinUtfToTChar(
20b0: 76 61 6c 75 65 4e 61 6d 65 2c 20 6c 65 6e 67 74 valueName, lengt
20c0: 68 2c 20 26 64 73 29 3b 0a 40 40 20 2d 35 38 39 h, &ds);.@@ -589
20d0: 2c 39 20 2b 36 32 34 2c 31 30 20 40 40 20 73 74 ,9 +624,10 @@ st
20e0: 61 74 69 63 20 69 6e 74 0a 20 47 65 74 4b 65 79 atic int. GetKey
20f0: 4e 61 6d 65 73 28 0a 20 20 20 20 20 54 63 6c 5f Names(. Tcl_
2100: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 Interp *interp,.
2110: 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 ./* Current inte
2120: 72 70 72 65 74 65 72 2e 20 2a 2f 0a 20 20 20 20 rpreter. */.
2130: 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4e 61 6d Tcl_Obj *keyNam
2140: 65 4f 62 6a 2c 09 2f 2a 20 4b 65 79 20 74 6f 20 eObj,./* Key to
2150: 65 6e 75 6d 65 72 61 74 65 2e 20 2a 2f 0a 2d 20 enumerate. */.-
2160: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 74 74 Tcl_Obj *patt
2170: 65 72 6e 4f 62 6a 29 09 2f 2a 20 4f 70 74 69 6f ernObj)./* Optio
2180: 6e 61 6c 20 6d 61 74 63 68 20 70 61 74 74 65 72 nal match patter
2190: 6e 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f n. */.+ Tcl_O
21a0: 62 6a 20 2a 70 61 74 74 65 72 6e 4f 62 6a 2c 09 bj *patternObj,.
21b0: 2f 2a 20 4f 70 74 69 6f 6e 61 6c 20 6d 61 74 63 /* Optional matc
21c0: 68 20 70 61 74 74 65 72 6e 2e 20 2a 2f 0a 2b 20 h pattern. */.+
21d0: 20 20 20 52 45 47 53 41 4d 20 6d 6f 64 65 29 20 REGSAM mode)
21e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
21f0: 2a 20 6d 6f 64 65 20 66 6c 61 67 73 20 74 6f 20 * mode flags to
2200: 70 61 73 73 2e 20 2a 2f 0a 20 7b 0a 2d 20 20 20 pass. */. {.-
2210: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 const char *pat
2220: 74 65 72 6e 3b 20 2f 2a 20 50 61 74 74 65 72 6e tern; /* Pattern
2230: 20 62 65 69 6e 67 20 6d 61 74 63 68 65 64 20 61 being matched a
2240: 67 61 69 6e 73 74 20 73 75 62 6b 65 79 73 20 2a gainst subkeys *
2250: 2f 0a 2b 20 20 20 20 63 6f 6e 73 74 20 63 68 61 /.+ const cha
2260: 72 20 2a 70 61 74 74 65 72 6e 3b 20 20 20 20 20 r *pattern;
2270: 20 20 20 2f 2a 20 50 61 74 74 65 72 6e 20 62 65 /* Pattern be
2280: 69 6e 67 20 6d 61 74 63 68 65 64 20 61 67 61 69 ing matched agai
2290: 6e 73 74 20 73 75 62 6b 65 79 73 20 2a 2f 0a 20 nst subkeys */.
22a0: 20 20 20 20 48 4b 45 59 20 6b 65 79 3b 09 09 09 HKEY key;...
22b0: 2f 2a 20 48 61 6e 64 6c 65 20 74 6f 20 74 68 65 /* Handle to the
22c0: 20 6b 65 79 20 62 65 69 6e 67 20 65 78 61 6d 69 key being exami
22d0: 6e 65 64 20 2a 2f 0a 20 20 20 20 20 44 57 4f 52 ned */. DWOR
22e0: 44 20 73 75 62 4b 65 79 43 6f 75 6e 74 3b 09 09 D subKeyCount;..
22f0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 73 75 62 /* Number of sub
2300: 6b 65 79 73 20 74 6f 20 6c 69 73 74 20 2a 2f 0a keys to list */.
2310: 20 20 20 20 20 44 57 4f 52 44 20 6d 61 78 53 75 DWORD maxSu
2320: 62 4b 65 79 4c 65 6e 3b 09 09 2f 2a 20 4d 61 78 bKeyLen;../* Max
2330: 69 6d 75 6d 20 73 74 72 69 6e 67 20 6c 65 6e 67 imum string leng
2340: 74 68 20 6f 66 20 61 6e 79 20 73 75 62 6b 65 79 th of any subkey
2350: 20 2a 2f 0a 40 40 20 2d 36 31 31 2c 31 31 20 2b */.@@ -611,11 +
2360: 36 34 37 2c 38 20 40 40 20 47 65 74 4b 65 79 4e 647,8 @@ GetKeyN
2370: 61 6d 65 73 28 0a 20 0a 20 20 20 20 20 2f 2a 20 ames(. . /*
2380: 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20 Attempt to open
2390: 74 68 65 20 6b 65 79 20 66 6f 72 20 65 6e 75 6d the key for enum
23a0: 65 72 61 74 69 6f 6e 2e 20 2a 2f 0a 20 0a 2d 20 eration. */. .-
23b0: 20 20 20 69 66 20 28 4f 70 65 6e 4b 65 79 28 69 if (OpenKey(i
23c0: 6e 74 65 72 70 2c 20 6b 65 79 4e 61 6d 65 4f 62 nterp, keyNameOb
23d0: 6a 2c 0a 2d 09 09 4b 45 59 5f 51 55 45 52 59 5f j,.-..KEY_QUERY_
23e0: 56 41 4c 55 45 20 7c 20 4b 45 59 5f 45 4e 55 4d VALUE | KEY_ENUM
23f0: 45 52 41 54 45 5f 53 55 42 5f 4b 45 59 53 2c 0a ERATE_SUB_KEYS,.
2400: 2d 09 09 30 2c 20 26 6b 65 79 29 20 21 3d 20 54 -..0, &key) != T
2410: 43 4c 5f 4f 4b 29 20 7b 0a 2d 09 72 65 74 75 72 CL_OK) {.-.retur
2420: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2d 20 20 n TCL_ERROR;.-
2430: 20 20 7d 0a 2b 20 20 20 20 6d 6f 64 65 20 7c 3d }.+ mode |=
2440: 20 4b 45 59 5f 51 55 45 52 59 5f 56 41 4c 55 45 KEY_QUERY_VALUE
2450: 20 7c 20 4b 45 59 5f 45 4e 55 4d 45 52 41 54 45 | KEY_ENUMERATE
2460: 5f 53 55 42 5f 4b 45 59 53 3b 0a 2b 20 20 20 20 _SUB_KEYS;.+
2470: 69 66 20 28 4f 70 65 6e 4b 65 79 28 69 6e 74 65 if (OpenKey(inte
2480: 72 70 2c 20 6b 65 79 4e 61 6d 65 4f 62 6a 2c 20 rp, keyNameObj,
2490: 6d 6f 64 65 2c 20 30 2c 20 26 6b 65 79 29 20 21 mode, 0, &key) !
24a0: 3d 20 54 43 4c 5f 4f 4b 29 20 72 65 74 75 72 6e = TCL_OK) return
24b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 0a 20 20 TCL_ERROR;. .
24c0: 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 44 65 /*. * De
24d0: 74 65 72 6d 69 6e 65 20 68 6f 77 20 62 69 67 20 termine how big
24e0: 61 20 62 75 66 66 65 72 20 69 73 20 6e 65 65 64 a buffer is need
24f0: 65 64 20 66 6f 72 20 65 6e 75 6d 65 72 61 74 69 ed for enumerati
2500: 6e 67 20 73 75 62 6b 65 79 73 2c 20 61 6e 64 0a ng subkeys, and.
2510: 40 40 20 2d 37 30 33 2c 37 20 2b 37 33 36 2c 38 @@ -703,7 +736,8
2520: 20 40 40 20 73 74 61 74 69 63 20 69 6e 74 0a 20 @@ static int.
2530: 47 65 74 54 79 70 65 28 0a 20 20 20 20 20 54 63 GetType(. Tc
2540: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
2550: 2c 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e ,../* Current in
2560: 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 20 20 terpreter. */.
2570: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4e Tcl_Obj *keyN
2580: 61 6d 65 4f 62 6a 2c 09 2f 2a 20 4e 61 6d 65 20 ameObj,./* Name
2590: 6f 66 20 6b 65 79 2e 20 2a 2f 0a 2d 20 20 20 20 of key. */.-
25a0: 54 63 6c 5f 4f 62 6a 20 2a 76 61 6c 75 65 4e 61 Tcl_Obj *valueNa
25b0: 6d 65 4f 62 6a 29 09 2f 2a 20 4e 61 6d 65 20 6f meObj)./* Name o
25c0: 66 20 76 61 6c 75 65 20 74 6f 20 67 65 74 2e 20 f value to get.
25d0: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */.+ Tcl_Obj
25e0: 2a 76 61 6c 75 65 4e 61 6d 65 4f 62 6a 2c 09 2f *valueNameObj,./
25f0: 2a 20 4e 61 6d 65 20 6f 66 20 76 61 6c 75 65 20 * Name of value
2600: 74 6f 20 67 65 74 2e 20 2a 2f 0a 2b 20 20 20 20 to get. */.+
2610: 52 45 47 53 41 4d 20 6d 6f 64 65 29 20 20 20 20 REGSAM mode)
2620: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6d /* m
2630: 6f 64 65 20 66 6c 61 67 73 20 74 6f 20 70 61 73 ode flags to pas
2640: 73 2e 20 2a 2f 0a 20 7b 0a 20 20 20 20 20 48 4b s. */. {. HK
2650: 45 59 20 6b 65 79 3b 0a 20 20 20 20 20 44 57 4f EY key;. DWO
2660: 52 44 20 72 65 73 75 6c 74 3b 0a 40 40 20 2d 37 RD result;.@@ -7
2670: 31 36 2c 31 30 20 2b 37 35 30 2c 38 20 40 40 20 16,10 +750,8 @@
2680: 47 65 74 54 79 70 65 28 0a 20 20 20 20 20 20 2a GetType(. *
2690: 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e Attempt to open
26a0: 20 74 68 65 20 6b 65 79 20 66 6f 72 20 72 65 61 the key for rea
26b0: 64 69 6e 67 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 ding.. */.
26c0: 0a 2d 20 20 20 20 69 66 20 28 4f 70 65 6e 4b 65 .- if (OpenKe
26d0: 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4e 61 6d y(interp, keyNam
26e0: 65 4f 62 6a 2c 20 4b 45 59 5f 51 55 45 52 59 5f eObj, KEY_QUERY_
26f0: 56 41 4c 55 45 2c 20 30 2c 20 26 6b 65 79 29 0a VALUE, 0, &key).
2700: 2d 09 20 20 20 20 21 3d 20 54 43 4c 5f 4f 4b 29 -. != TCL_OK)
2710: 20 7b 0a 2d 09 72 65 74 75 72 6e 20 54 43 4c 5f {.-.return TCL_
2720: 45 52 52 4f 52 3b 0a 2d 20 20 20 20 7d 0a 2b 20 ERROR;.- }.+
2730: 20 20 20 6d 6f 64 65 20 7c 3d 20 4b 45 59 5f 51 mode |= KEY_Q
2740: 55 45 52 59 5f 56 41 4c 55 45 3b 0a 2b 20 20 20 UERY_VALUE;.+
2750: 20 69 66 20 28 4f 70 65 6e 4b 65 79 28 69 6e 74 if (OpenKey(int
2760: 65 72 70 2c 20 6b 65 79 4e 61 6d 65 4f 62 6a 2c erp, keyNameObj,
2770: 20 6d 6f 64 65 2c 20 30 2c 20 26 6b 65 79 29 20 mode, 0, &key)
2780: 21 3d 20 54 43 4c 5f 4f 4b 29 20 72 65 74 75 72 != TCL_OK) retur
2790: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 0a 20 n TCL_ERROR;. .
27a0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 47 /*. * G
27b0: 65 74 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 et the type of t
27c0: 68 65 20 76 61 6c 75 65 2e 0a 40 40 20 2d 37 37 he value..@@ -77
27d0: 34 2c 37 20 2b 38 30 36 2c 38 20 40 40 20 73 74 4,7 +806,8 @@ st
27e0: 61 74 69 63 20 69 6e 74 0a 20 47 65 74 56 61 6c atic int. GetVal
27f0: 75 65 28 0a 20 20 20 20 20 54 63 6c 5f 49 6e 74 ue(. Tcl_Int
2800: 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a erp *interp,../*
2810: 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 Current interpr
2820: 65 74 65 72 2e 20 2a 2f 0a 20 20 20 20 20 54 63 eter. */. Tc
2830: 6c 5f 4f 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 l_Obj *keyNameOb
2840: 6a 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 6b 65 j,./* Name of ke
2850: 79 2e 20 2a 2f 0a 2d 20 20 20 20 54 63 6c 5f 4f y. */.- Tcl_O
2860: 62 6a 20 2a 76 61 6c 75 65 4e 61 6d 65 4f 62 6a bj *valueNameObj
2870: 29 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 76 61 6c )./* Name of val
2880: 75 65 20 74 6f 20 67 65 74 2e 20 2a 2f 0a 2b 20 ue to get. */.+
2890: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 76 61 6c 75 Tcl_Obj *valu
28a0: 65 4e 61 6d 65 4f 62 6a 2c 09 2f 2a 20 4e 61 6d eNameObj,./* Nam
28b0: 65 20 6f 66 20 76 61 6c 75 65 20 74 6f 20 67 65 e of value to ge
28c0: 74 2e 20 2a 2f 0a 2b 20 20 20 20 52 45 47 53 41 t. */.+ REGSA
28d0: 4d 20 6d 6f 64 65 29 20 20 20 20 20 20 20 20 20 M mode)
28e0: 20 20 20 20 20 20 20 2f 2a 20 6d 6f 64 65 20 66 /* mode f
28f0: 6c 61 67 73 20 74 6f 20 70 61 73 73 2e 20 2a 2f lags to pass. */
2900: 0a 20 7b 0a 20 20 20 20 20 48 4b 45 59 20 6b 65 . {. HKEY ke
2910: 79 3b 0a 20 20 20 20 20 63 6f 6e 73 74 20 63 68 y;. const ch
2920: 61 72 20 2a 76 61 6c 75 65 4e 61 6d 65 2c 20 2a ar *valueName, *
2930: 6e 61 74 69 76 65 56 61 6c 75 65 3b 0a 40 40 20 nativeValue;.@@
2940: 2d 37 38 36 2c 39 20 2b 38 31 39 2c 38 20 40 40 -786,9 +819,8 @@
2950: 20 47 65 74 56 61 6c 75 65 28 0a 20 20 20 20 20 GetValue(.
2960: 20 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 * Attempt to op
2970: 65 6e 20 74 68 65 20 6b 65 79 20 66 6f 72 20 72 en the key for r
2980: 65 61 64 69 6e 67 2e 0a 20 20 20 20 20 20 2a 2f eading.. */
2990: 0a 20 0a 2d 20 20 20 20 69 66 20 28 4f 70 65 6e . .- if (Open
29a0: 4b 65 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4e Key(interp, keyN
29b0: 61 6d 65 4f 62 6a 2c 20 4b 45 59 5f 51 55 45 52 ameObj, KEY_QUER
29c0: 59 5f 56 41 4c 55 45 2c 20 30 2c 20 26 6b 65 79 Y_VALUE, 0, &key
29d0: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2d ) != TCL_OK) {.-
29e0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
29f0: 52 3b 0a 2d 20 20 20 20 7d 0a 2b 20 20 20 20 6d R;.- }.+ m
2a00: 6f 64 65 20 7c 3d 20 4b 45 59 5f 51 55 45 52 59 ode |= KEY_QUERY
2a10: 5f 56 41 4c 55 45 3b 0a 2b 20 20 20 20 69 66 20 _VALUE;.+ if
2a20: 28 4f 70 65 6e 4b 65 79 28 69 6e 74 65 72 70 2c (OpenKey(interp,
2a30: 20 6b 65 79 4e 61 6d 65 4f 62 6a 2c 20 6d 6f 64 keyNameObj, mod
2a40: 65 2c 20 30 2c 20 26 6b 65 79 29 20 21 3d 20 54 e, 0, &key) != T
2a50: 43 4c 5f 4f 4b 29 20 72 65 74 75 72 6e 20 54 43 CL_OK) return TC
2a60: 4c 5f 45 52 52 4f 52 3b 0a 20 0a 20 20 20 20 20 L_ERROR;. .
2a70: 2f 2a 0a 20 20 20 20 20 20 2a 20 49 6e 69 74 69 /*. * Initi
2a80: 61 6c 69 7a 65 20 61 20 44 73 74 72 69 6e 67 20 alize a Dstring
2a90: 74 6f 20 6d 61 78 69 6d 75 6d 20 73 74 61 74 69 to maximum stati
2aa0: 63 61 6c 6c 79 20 61 6c 6c 6f 63 61 74 65 64 20 cally allocated
2ab0: 73 69 7a 65 20 77 65 20 63 6f 75 6c 64 20 67 65 size we could ge
2ac0: 74 0a 40 40 20 2d 39 30 37 2c 37 20 2b 39 33 39 t.@@ -907,7 +939
2ad0: 2c 38 20 40 40 20 73 74 61 74 69 63 20 69 6e 74 ,8 @@ static int
2ae0: 0a 20 47 65 74 56 61 6c 75 65 4e 61 6d 65 73 28 . GetValueNames(
2af0: 0a 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 . Tcl_Interp
2b00: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 43 75 *interp,../* Cu
2b10: 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74 65 rrent interprete
2b20: 72 2e 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f r. */. Tcl_O
2b30: 62 6a 20 2a 6b 65 79 4e 61 6d 65 4f 62 6a 2c 09 bj *keyNameObj,.
2b40: 2f 2a 20 4b 65 79 20 74 6f 20 65 6e 75 6d 65 72 /* Key to enumer
2b50: 61 74 65 2e 20 2a 2f 0a 2d 20 20 20 20 54 63 6c ate. */.- Tcl
2b60: 5f 4f 62 6a 20 2a 70 61 74 74 65 72 6e 4f 62 6a _Obj *patternObj
2b70: 29 09 2f 2a 20 4f 70 74 69 6f 6e 61 6c 20 6d 61 )./* Optional ma
2b80: 74 63 68 20 70 61 74 74 65 72 6e 2e 20 2a 2f 0a tch pattern. */.
2b90: 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 + Tcl_Obj *pa
2ba0: 74 74 65 72 6e 4f 62 6a 2c 09 2f 2a 20 4f 70 74 tternObj,./* Opt
2bb0: 69 6f 6e 61 6c 20 6d 61 74 63 68 20 70 61 74 74 ional match patt
2bc0: 65 72 6e 2e 20 2a 2f 0a 2b 20 20 20 20 52 45 47 ern. */.+ REG
2bd0: 53 41 4d 20 6d 6f 64 65 29 20 20 20 20 20 20 20 SAM mode)
2be0: 20 20 20 20 20 20 20 20 20 2f 2a 20 6d 6f 64 65 /* mode
2bf0: 20 66 6c 61 67 73 20 74 6f 20 70 61 73 73 2e 20 flags to pass.
2c00: 2a 2f 0a 20 7b 0a 20 20 20 20 20 48 4b 45 59 20 */. {. HKEY
2c10: 6b 65 79 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 key;. Tcl_Ob
2c20: 6a 20 2a 72 65 73 75 6c 74 50 74 72 3b 0a 40 40 j *resultPtr;.@@
2c30: 20 2d 39 31 39 2c 31 30 20 2b 39 35 32 2c 38 20 -919,10 +952,8
2c40: 40 40 20 47 65 74 56 61 6c 75 65 4e 61 6d 65 73 @@ GetValueNames
2c50: 28 0a 20 20 20 20 20 20 2a 20 41 74 74 65 6d 70 (. * Attemp
2c60: 74 20 74 6f 20 6f 70 65 6e 20 74 68 65 20 6b 65 t to open the ke
2c70: 79 20 66 6f 72 20 65 6e 75 6d 65 72 61 74 69 6f y for enumeratio
2c80: 6e 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 2d 20 n.. */. .-
2c90: 20 20 20 69 66 20 28 4f 70 65 6e 4b 65 79 28 69 if (OpenKey(i
2ca0: 6e 74 65 72 70 2c 20 6b 65 79 4e 61 6d 65 4f 62 nterp, keyNameOb
2cb0: 6a 2c 20 4b 45 59 5f 51 55 45 52 59 5f 56 41 4c j, KEY_QUERY_VAL
2cc0: 55 45 2c 20 30 2c 20 26 6b 65 79 29 0a 2d 09 20 UE, 0, &key).-.
2cd0: 20 20 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a != TCL_OK) {.
2ce0: 2d 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 -.return TCL_ERR
2cf0: 4f 52 3b 0a 2d 20 20 20 20 7d 0a 2b 20 20 20 20 OR;.- }.+
2d00: 6d 6f 64 65 20 7c 3d 20 4b 45 59 5f 51 55 45 52 mode |= KEY_QUER
2d10: 59 5f 56 41 4c 55 45 3b 0a 2b 20 20 20 20 69 66 Y_VALUE;.+ if
2d20: 20 28 4f 70 65 6e 4b 65 79 28 69 6e 74 65 72 70 (OpenKey(interp
2d30: 2c 20 6b 65 79 4e 61 6d 65 4f 62 6a 2c 20 6d 6f , keyNameObj, mo
2d40: 64 65 2c 20 30 2c 20 26 6b 65 79 29 20 21 3d 20 de, 0, &key) !=
2d50: 54 43 4c 5f 4f 4b 29 20 72 65 74 75 72 6e 20 54 TCL_OK) return T
2d60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 0a 20 20 20 20 CL_ERROR;. .
2d70: 20 2f 2a 0a 20 20 20 20 20 20 2a 20 51 75 65 72 /*. * Quer
2d80: 79 20 74 68 65 20 6b 65 79 20 74 6f 20 64 65 74 y the key to det
2d90: 65 72 6d 69 6e 65 20 74 68 65 20 61 70 70 72 6f ermine the appro
2da0: 70 72 69 61 74 65 20 62 75 66 66 65 72 20 73 69 priate buffer si
2db0: 7a 65 20 74 6f 20 68 6f 6c 64 20 74 68 65 0a 40 ze to hold the.@
2dc0: 40 20 2d 31 32 32 33 2c 31 32 20 2b 31 32 35 34 @ -1223,12 +1254
2dd0: 2c 31 37 20 40 40 20 50 61 72 73 65 4b 65 79 4e ,17 @@ ParseKeyN
2de0: 61 6d 65 28 0a 20 73 74 61 74 69 63 20 44 57 4f ame(. static DWO
2df0: 52 44 0a 20 52 65 63 75 72 73 69 76 65 44 65 6c RD. RecursiveDel
2e00: 65 74 65 4b 65 79 28 0a 20 20 20 20 20 48 4b 45 eteKey(. HKE
2e10: 59 20 73 74 61 72 74 4b 65 79 2c 09 09 2f 2a 20 Y startKey,../*
2e20: 50 61 72 65 6e 74 20 6f 66 20 6b 65 79 20 74 6f Parent of key to
2e30: 20 62 65 20 64 65 6c 65 74 65 64 2e 20 2a 2f 0a be deleted. */.
2e40: 2d 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 - const char
2e50: 2a 6b 65 79 4e 61 6d 65 29 09 2f 2a 20 4e 61 6d *keyName)./* Nam
2e60: 65 20 6f 66 20 6b 65 79 20 74 6f 20 62 65 20 64 e of key to be d
2e70: 65 6c 65 74 65 64 20 69 6e 20 65 78 74 65 72 6e eleted in extern
2e80: 61 6c 0a 2b 20 20 20 20 63 6f 6e 73 74 20 63 68 al.+ const ch
2e90: 61 72 20 2a 6b 65 79 4e 61 6d 65 2c 09 2f 2a 20 ar *keyName,./*
2ea0: 4e 61 6d 65 20 6f 66 20 6b 65 79 20 74 6f 20 62 Name of key to b
2eb0: 65 20 64 65 6c 65 74 65 64 20 69 6e 20 65 78 74 e deleted in ext
2ec0: 65 72 6e 61 6c 0a 20 09 09 09 09 20 2a 20 65 6e ernal. .... * en
2ed0: 63 6f 64 69 6e 67 2c 20 6e 6f 74 20 55 54 46 2e coding, not UTF.
2ee0: 20 2a 2f 0a 2b 20 20 20 20 52 45 47 53 41 4d 20 */.+ REGSAM
2ef0: 6d 6f 64 65 29 20 20 20 20 20 20 20 20 20 20 20 mode)
2f00: 20 20 20 20 20 2f 2a 20 6d 6f 64 65 20 66 6c 61 /* mode fla
2f10: 67 73 20 74 6f 20 70 61 73 73 2e 20 2a 2f 0a 20 gs to pass. */.
2f20: 7b 0a 20 20 20 20 20 44 57 4f 52 44 20 72 65 73 {. DWORD res
2f30: 75 6c 74 2c 20 73 69 7a 65 2c 20 6d 61 78 53 69 ult, size, maxSi
2f40: 7a 65 3b 0a 20 20 20 20 20 54 63 6c 5f 44 53 74 ze;. Tcl_DSt
2f50: 72 69 6e 67 20 73 75 62 6b 65 79 3b 0a 20 20 20 ring subkey;.
2f60: 20 20 48 4b 45 59 20 68 4b 65 79 3b 0a 2b 20 20 HKEY hKey;.+
2f70: 20 20 52 45 47 53 41 4d 20 73 61 76 65 4d 6f 64 REGSAM saveMod
2f80: 65 20 3d 20 6d 6f 64 65 3b 0a 2b 20 20 20 20 73 e = mode;.+ s
2f90: 74 61 74 69 63 20 69 6e 74 20 63 68 65 63 6b 45 tatic int checkE
2fa0: 78 50 72 6f 63 20 3d 20 30 3b 0a 2b 20 20 20 20 xProc = 0;.+
2fb0: 73 74 61 74 69 63 20 48 49 4e 53 54 41 4e 43 45 static HINSTANCE
2fc0: 20 64 6c 6c 48 20 3d 20 4e 55 4c 4c 3b 0a 2b 20 dllH = NULL;.+
2fd0: 20 20 20 73 74 61 74 69 63 20 46 41 52 50 52 4f static FARPRO
2fe0: 43 20 72 65 67 44 65 6c 65 74 65 4b 65 79 45 78 C regDeleteKeyEx
2ff0: 50 72 6f 63 20 3d 20 4e 55 4c 4c 3b 0a 20 0a 20 Proc = NULL;. .
3000: 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 44 /*. * D
3010: 6f 20 6e 6f 74 20 61 6c 6c 6f 77 20 4e 55 4c 4c o not allow NULL
3020: 20 6f 72 20 65 6d 70 74 79 20 6b 65 79 20 6e 61 or empty key na
3030: 6d 65 2e 0a 40 40 20 2d 31 32 33 38 2c 38 20 2b me..@@ -1238,8 +
3040: 31 32 37 34 2c 38 20 40 40 20 52 65 63 75 72 73 1274,8 @@ Recurs
3050: 69 76 65 44 65 6c 65 74 65 4b 65 79 28 0a 20 09 iveDeleteKey(. .
3060: 72 65 74 75 72 6e 20 45 52 52 4f 52 5f 42 41 44 return ERROR_BAD
3070: 4b 45 59 3b 0a 20 20 20 20 20 7d 0a 20 0a 2d 20 KEY;. }. .-
3080: 20 20 20 72 65 73 75 6c 74 20 3d 20 72 65 67 57 result = regW
3090: 69 6e 50 72 6f 63 73 2d 3e 72 65 67 4f 70 65 6e inProcs->regOpen
30a0: 4b 65 79 45 78 50 72 6f 63 28 73 74 61 72 74 4b KeyExProc(startK
30b0: 65 79 2c 20 6b 65 79 4e 61 6d 65 2c 20 30 2c 0a ey, keyName, 0,.
30c0: 2d 09 20 20 20 20 4b 45 59 5f 45 4e 55 4d 45 52 -. KEY_ENUMER
30d0: 41 54 45 5f 53 55 42 5f 4b 45 59 53 20 7c 20 44 ATE_SUB_KEYS | D
30e0: 45 4c 45 54 45 20 7c 20 4b 45 59 5f 51 55 45 52 ELETE | KEY_QUER
30f0: 59 5f 56 41 4c 55 45 2c 20 26 68 4b 65 79 29 3b Y_VALUE, &hKey);
3100: 0a 2b 20 20 20 20 6d 6f 64 65 20 7c 3d 20 4b 45 .+ mode |= KE
3110: 59 5f 45 4e 55 4d 45 52 41 54 45 5f 53 55 42 5f Y_ENUMERATE_SUB_
3120: 4b 45 59 53 20 7c 20 44 45 4c 45 54 45 20 7c 20 KEYS | DELETE |
3130: 4b 45 59 5f 51 55 45 52 59 5f 56 41 4c 55 45 3b KEY_QUERY_VALUE;
3140: 0a 2b 20 20 20 20 72 65 73 75 6c 74 20 3d 20 72 .+ result = r
3150: 65 67 57 69 6e 50 72 6f 63 73 2d 3e 72 65 67 4f egWinProcs->regO
3160: 70 65 6e 4b 65 79 45 78 50 72 6f 63 28 73 74 61 penKeyExProc(sta
3170: 72 74 4b 65 79 2c 20 6b 65 79 4e 61 6d 65 2c 20 rtKey, keyName,
3180: 30 2c 20 6d 6f 64 65 2c 20 26 68 4b 65 79 29 3b 0, mode, &hKey);
3190: 0a 20 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 . if (result
31a0: 20 21 3d 20 45 52 52 4f 52 5f 53 55 43 43 45 53 != ERROR_SUCCES
31b0: 53 29 20 7b 0a 20 09 72 65 74 75 72 6e 20 72 65 S) {. .return re
31c0: 73 75 6c 74 3b 0a 20 20 20 20 20 7d 0a 40 40 20 sult;. }.@@
31d0: 2d 31 32 35 34 2c 36 20 2b 31 32 39 30 2c 37 20 -1254,6 +1290,7
31e0: 40 40 20 52 65 63 75 72 73 69 76 65 44 65 6c 65 @@ RecursiveDele
31f0: 74 65 4b 65 79 28 0a 20 20 20 20 20 54 63 6c 5f teKey(. Tcl_
3200: 44 53 74 72 69 6e 67 53 65 74 4c 65 6e 67 74 68 DStringSetLength
3210: 28 26 73 75 62 6b 65 79 2c 0a 20 09 20 20 20 20 (&subkey,. .
3220: 28 69 6e 74 29 20 28 28 72 65 67 57 69 6e 50 72 (int) ((regWinPr
3230: 6f 63 73 2d 3e 75 73 65 57 69 64 65 29 20 3f 20 ocs->useWide) ?
3240: 6d 61 78 53 69 7a 65 20 2a 20 32 20 3a 20 6d 61 maxSize * 2 : ma
3250: 78 53 69 7a 65 29 29 3b 0a 20 0a 2b 20 20 20 20 xSize));. .+
3260: 6d 6f 64 65 20 3d 20 73 61 76 65 4d 6f 64 65 3b mode = saveMode;
3270: 0a 20 20 20 20 20 77 68 69 6c 65 20 28 72 65 73 . while (res
3280: 75 6c 74 20 3d 3d 20 45 52 52 4f 52 5f 53 55 43 ult == ERROR_SUC
3290: 43 45 53 53 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 CESS) {. ./*. .
32a0: 2a 20 41 6c 77 61 79 73 20 67 65 74 20 69 6e 64 * Always get ind
32b0: 65 78 20 30 20 62 65 63 61 75 73 65 20 6b 65 79 ex 0 because key
32c0: 20 64 65 6c 65 74 69 6f 6e 20 63 68 61 6e 67 65 deletion change
32d0: 73 20 6f 72 64 65 72 69 6e 67 2e 0a 40 40 20 2d s ordering..@@ -
32e0: 31 32 36 33 2c 31 30 20 2b 31 33 30 30 2c 33 32 1263,10 +1300,32
32f0: 20 40 40 20 52 65 63 75 72 73 69 76 65 44 65 6c @@ RecursiveDel
3300: 65 74 65 4b 65 79 28 0a 20 09 72 65 73 75 6c 74 eteKey(. .result
3310: 20 3d 20 72 65 67 57 69 6e 50 72 6f 63 73 2d 3e = regWinProcs->
3320: 72 65 67 45 6e 75 6d 4b 65 79 45 78 50 72 6f 63 regEnumKeyExProc
3330: 28 68 4b 65 79 2c 20 30 2c 0a 20 09 09 54 63 6c (hKey, 0,. ..Tcl
3340: 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 73 _DStringValue(&s
3350: 75 62 6b 65 79 29 2c 20 26 73 69 7a 65 2c 20 4e ubkey), &size, N
3360: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c ULL, NULL, NULL,
3370: 20 4e 55 4c 4c 29 3b 0a 20 09 69 66 20 28 72 65 NULL);. .if (re
3380: 73 75 6c 74 20 3d 3d 20 45 52 52 4f 52 5f 4e 4f sult == ERROR_NO
3390: 5f 4d 4f 52 45 5f 49 54 45 4d 53 29 20 7b 0a 2d _MORE_ITEMS) {.-
33a0: 09 20 20 20 20 72 65 73 75 6c 74 20 3d 20 72 65 . result = re
33b0: 67 57 69 6e 50 72 6f 63 73 2d 3e 72 65 67 44 65 gWinProcs->regDe
33c0: 6c 65 74 65 4b 65 79 50 72 6f 63 28 73 74 61 72 leteKeyProc(star
33d0: 74 4b 65 79 2c 20 6b 65 79 4e 61 6d 65 29 3b 0a tKey, keyName);.
33e0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 0a + /*.
33f0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 + *
3400: 52 65 67 44 65 6c 65 74 65 4b 65 79 45 78 20 64 RegDeleteKeyEx d
3410: 6f 65 73 6e 27 74 20 65 78 69 73 74 20 6f 6e 20 oesn't exist on
3420: 6e 6f 6e 2d 36 34 62 69 74 20 58 50 20 70 6c 61 non-64bit XP pla
3430: 74 66 6f 72 6d 73 2c 20 73 6f 0a 2b 20 20 20 20 tforms, so.+
3440: 20 20 20 20 20 20 20 20 20 2a 20 77 65 20 63 61 * we ca
3450: 6e 27 74 20 63 6f 6d 70 69 6c 65 20 77 69 74 68 n't compile with
3460: 20 69 74 20 69 6e 2e 20 20 57 65 20 6e 65 65 64 it in. We need
3470: 20 74 6f 20 63 68 65 63 6b 20 66 6f 72 20 69 74 to check for it
3480: 20 61 74 0a 2b 20 20 20 20 20 20 20 20 20 20 20 at.+
3490: 20 20 2a 20 72 75 6e 74 69 6d 65 20 61 6e 64 20 * runtime and
34a0: 75 73 65 20 69 74 20 69 66 20 77 65 20 66 69 6e use it if we fin
34b0: 64 20 69 74 2e 0a 2b 20 20 20 20 20 20 20 20 20 d it..+
34c0: 20 20 20 20 2a 2f 0a 2b 20 20 20 20 20 20 20 20 */.+
34d0: 20 20 20 20 69 66 20 28 6d 6f 64 65 20 26 26 20 if (mode &&
34e0: 21 63 68 65 63 6b 45 78 50 72 6f 63 29 20 7b 0a !checkExProc) {.
34f0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 +
3500: 20 63 68 65 63 6b 45 78 50 72 6f 63 20 3d 20 31 checkExProc = 1
3510: 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.+
3520: 20 20 20 64 6c 6c 48 20 3d 20 4c 6f 61 64 4c 69 dllH = LoadLi
3530: 62 72 61 72 79 28 22 61 64 76 61 70 69 33 32 2e brary("advapi32.
3540: 64 6c 6c 22 29 3b 0a 2b 20 20 20 20 20 20 20 20 dll");.+
3550: 20 20 20 20 20 20 20 20 69 66 20 28 64 6c 6c 48 if (dllH
3560: 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ) {.+
3570: 20 20 20 20 20 20 20 20 20 69 66 20 28 72 65 67 if (reg
3580: 57 69 6e 50 72 6f 63 73 2d 3e 75 73 65 57 69 64 WinProcs->useWid
3590: 65 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 e) {.+
35a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re
35b0: 67 44 65 6c 65 74 65 4b 65 79 45 78 50 72 6f 63 gDeleteKeyExProc
35c0: 20 3d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 =.+
35d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
35e0: 28 46 41 52 50 52 4f 43 29 47 65 74 50 72 6f 63 (FARPROC)GetProc
35f0: 41 64 64 72 65 73 73 28 64 6c 6c 48 2c 20 22 52 Address(dllH, "R
3600: 65 67 44 65 6c 65 74 65 4b 65 79 45 78 57 22 29 egDeleteKeyExW")
3610: 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.+
3620: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a } else {.
3630: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 +
3640: 20 20 20 20 20 20 20 20 20 72 65 67 44 65 6c 65 regDele
3650: 74 65 4b 65 79 45 78 50 72 6f 63 20 3d 0a 2b 20 teKeyExProc =.+
3660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3670: 20 20 20 20 20 20 20 20 20 20 20 28 46 41 52 50 (FARP
3680: 52 4f 43 29 47 65 74 50 72 6f 63 41 64 64 72 65 ROC)GetProcAddre
3690: 73 73 28 64 6c 6c 48 2c 20 22 52 65 67 44 65 6c ss(dllH, "RegDel
36a0: 65 74 65 4b 65 79 45 78 41 22 29 3b 0a 2b 20 20 eteKeyExA");.+
36b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
36c0: 20 20 7d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 }.+
36d0: 20 20 20 20 20 7d 0a 2b 20 20 20 20 20 20 20 20 }.+
36e0: 20 20 20 20 7d 0a 2b 20 20 20 20 20 20 20 20 20 }.+
36f0: 20 20 20 69 66 20 28 6d 6f 64 65 20 26 26 20 72 if (mode && r
3700: 65 67 44 65 6c 65 74 65 4b 65 79 45 78 50 72 6f egDeleteKeyExPro
3710: 63 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 c) {.+
3720: 20 20 20 20 20 20 72 65 73 75 6c 74 20 3d 20 72 result = r
3730: 65 67 44 65 6c 65 74 65 4b 65 79 45 78 50 72 6f egDeleteKeyExPro
3740: 63 28 73 74 61 72 74 4b 65 79 2c 20 6b 65 79 4e c(startKey, keyN
3750: 61 6d 65 2c 20 6d 6f 64 65 2c 20 30 29 3b 0a 2b ame, mode, 0);.+
3760: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
3770: 73 65 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 se {.+
3780: 20 20 20 20 20 20 72 65 73 75 6c 74 20 3d 20 72 result = r
3790: 65 67 57 69 6e 50 72 6f 63 73 2d 3e 72 65 67 44 egWinProcs->regD
37a0: 65 6c 65 74 65 4b 65 79 50 72 6f 63 28 73 74 61 eleteKeyProc(sta
37b0: 72 74 4b 65 79 2c 20 6b 65 79 4e 61 6d 65 29 3b rtKey, keyName);
37c0: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a .+ }.
37d0: 20 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 09 7d . break;. .}
37e0: 20 65 6c 73 65 20 69 66 20 28 72 65 73 75 6c 74 else if (result
37f0: 20 3d 3d 20 45 52 52 4f 52 5f 53 55 43 43 45 53 == ERROR_SUCCES
3800: 53 29 20 7b 0a 2d 09 20 20 20 20 72 65 73 75 6c S) {.-. resul
3810: 74 20 3d 20 52 65 63 75 72 73 69 76 65 44 65 6c t = RecursiveDel
3820: 65 74 65 4b 65 79 28 68 4b 65 79 2c 20 54 63 6c eteKey(hKey, Tcl
3830: 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 73 _DStringValue(&s
3840: 75 62 6b 65 79 29 29 3b 0a 2b 09 20 20 20 20 72 ubkey));.+. r
3850: 65 73 75 6c 74 20 3d 20 52 65 63 75 72 73 69 76 esult = Recursiv
3860: 65 44 65 6c 65 74 65 4b 65 79 28 68 4b 65 79 2c eDeleteKey(hKey,
3870: 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 Tcl_DStringValu
3880: 65 28 26 73 75 62 6b 65 79 29 2c 20 6d 6f 64 65 e(&subkey), mode
3890: 29 3b 0a 20 09 7d 0a 20 20 20 20 20 7d 0a 20 20 );. .}. }.
38a0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
38b0: 65 65 28 26 73 75 62 6b 65 79 29 3b 0a 40 40 20 ee(&subkey);.@@
38c0: 2d 31 32 39 38 2c 37 20 2b 31 33 35 37 2c 38 20 -1298,7 +1357,8
38d0: 40 40 20 53 65 74 56 61 6c 75 65 28 0a 20 20 20 @@ SetValue(.
38e0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4e 61 Tcl_Obj *keyNa
38f0: 6d 65 4f 62 6a 2c 09 2f 2a 20 4e 61 6d 65 20 6f meObj,./* Name o
3900: 66 20 6b 65 79 2e 20 2a 2f 0a 20 20 20 20 20 54 f key. */. T
3910: 63 6c 5f 4f 62 6a 20 2a 76 61 6c 75 65 4e 61 6d cl_Obj *valueNam
3920: 65 4f 62 6a 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 eObj,./* Name of
3930: 20 76 61 6c 75 65 20 74 6f 20 73 65 74 2e 20 2a value to set. *
3940: 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a /. Tcl_Obj *
3950: 64 61 74 61 4f 62 6a 2c 09 09 2f 2a 20 44 61 74 dataObj,../* Dat
3960: 61 20 74 6f 20 62 65 20 77 72 69 74 74 65 6e 2e a to be written.
3970: 20 2a 2f 0a 2d 20 20 20 20 54 63 6c 5f 4f 62 6a */.- Tcl_Obj
3980: 20 2a 74 79 70 65 4f 62 6a 29 09 09 2f 2a 20 54 *typeObj)../* T
3990: 79 70 65 20 6f 66 20 64 61 74 61 20 74 6f 20 62 ype of data to b
39a0: 65 20 77 72 69 74 74 65 6e 2e 20 2a 2f 0a 2b 20 e written. */.+
39b0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 74 79 70 65 Tcl_Obj *type
39c0: 4f 62 6a 2c 09 09 2f 2a 20 54 79 70 65 20 6f 66 Obj,../* Type of
39d0: 20 64 61 74 61 20 74 6f 20 62 65 20 77 72 69 74 data to be writ
39e0: 74 65 6e 2e 20 2a 2f 0a 2b 20 20 20 20 52 45 47 ten. */.+ REG
39f0: 53 41 4d 20 6d 6f 64 65 29 20 20 20 20 20 20 20 SAM mode)
3a00: 20 20 20 20 20 20 20 20 20 2f 2a 20 6d 6f 64 65 /* mode
3a10: 20 66 6c 61 67 73 20 74 6f 20 70 61 73 73 2e 20 flags to pass.
3a20: 2a 2f 0a 20 7b 0a 20 20 20 20 20 69 6e 74 20 74 */. {. int t
3a30: 79 70 65 3b 0a 20 20 20 20 20 44 57 4f 52 44 20 ype;. DWORD
3a40: 72 65 73 75 6c 74 3b 0a 40 40 20 2d 31 33 31 36 result;.@@ -1316
3a50: 2c 39 20 2b 31 33 37 36 2c 38 20 40 40 20 53 65 ,9 +1376,8 @@ Se
3a60: 74 56 61 6c 75 65 28 0a 20 09 7d 0a 20 09 54 63 tValue(. .}. .Tc
3a70: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
3a80: 74 65 72 70 29 3b 0a 20 20 20 20 20 7d 0a 2d 20 terp);. }.-
3a90: 20 20 20 69 66 20 28 4f 70 65 6e 4b 65 79 28 69 if (OpenKey(i
3aa0: 6e 74 65 72 70 2c 20 6b 65 79 4e 61 6d 65 4f 62 nterp, keyNameOb
3ab0: 6a 2c 20 4b 45 59 5f 41 4c 4c 5f 41 43 43 45 53 j, KEY_ALL_ACCES
3ac0: 53 2c 20 31 2c 20 26 6b 65 79 29 20 21 3d 20 54 S, 1, &key) != T
3ad0: 43 4c 5f 4f 4b 29 20 7b 0a 2d 09 72 65 74 75 72 CL_OK) {.-.retur
3ae0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2d 20 20 n TCL_ERROR;.-
3af0: 20 20 7d 0a 2b 20 20 20 20 6d 6f 64 65 20 7c 3d }.+ mode |=
3b00: 20 4b 45 59 5f 41 4c 4c 5f 41 43 43 45 53 53 3b KEY_ALL_ACCESS;
3b10: 0a 2b 20 20 20 20 69 66 20 28 4f 70 65 6e 4b 65 .+ if (OpenKe
3b20: 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4e 61 6d y(interp, keyNam
3b30: 65 4f 62 6a 2c 20 6d 6f 64 65 2c 20 31 2c 20 26 eObj, mode, 1, &
3b40: 6b 65 79 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 key) != TCL_OK)
3b50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3b60: 3b 0a 20 0a 20 20 20 20 20 76 61 6c 75 65 4e 61 ;. . valueNa
3b70: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
3b80: 6e 67 46 72 6f 6d 4f 62 6a 28 76 61 6c 75 65 4e ngFromObj(valueN
3b90: 61 6d 65 4f 62 6a 2c 20 26 6c 65 6e 67 74 68 29 ameObj, &length)
3ba0: 3b 0a 20 20 20 20 20 76 61 6c 75 65 4e 61 6d 65 ;. valueName
3bb0: 20 3d 20 54 63 6c 5f 57 69 6e 55 74 66 54 6f 54 = Tcl_WinUtfToT
3bc0: 43 68 61 72 28 76 61 6c 75 65 4e 61 6d 65 2c 20 Char(valueName,
3bd0: 6c 65 6e 67 74 68 2c 20 26 6e 61 6d 65 42 75 66 length, &nameBuf
3be0: 29 3b 0a 40 40 20 2d 31 34 34 35 2c 32 34 20 2b );.@@ -1445,24 +
3bf0: 31 35 30 34 2c 31 38 20 40 40 20 42 72 6f 61 64 1504,18 @@ Broad
3c00: 63 61 73 74 56 61 6c 75 65 28 0a 20 20 20 20 20 castValue(.
3c10: 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 74 72 3b const char *str;
3c20: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f . Tcl_Obj *o
3c30: 62 6a 50 74 72 3b 0a 20 0a 2d 20 20 20 20 69 66 bjPtr;. .- if
3c40: 20 28 28 6f 62 6a 63 20 21 3d 20 33 29 20 26 26 ((objc != 3) &&
3c50: 20 28 6f 62 6a 63 20 21 3d 20 35 29 29 20 7b 0a (objc != 5)) {.
3c60: 2d 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 -.Tcl_WrongNumAr
3c70: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 gs(interp, 2, ob
3c80: 6a 76 2c 20 22 6b 65 79 4e 61 6d 65 20 3f 2d 74 jv, "keyName ?-t
3c90: 69 6d 65 6f 75 74 20 6d 69 6c 6c 69 73 65 63 73 imeout millisecs
3ca0: 3f 22 29 3b 0a 2d 09 72 65 74 75 72 6e 20 54 43 ?");.-.return TC
3cb0: 4c 5f 45 52 52 4f 52 3b 0a 2d 20 20 20 20 7d 0a L_ERROR;.- }.
3cc0: 2d 0a 2d 20 20 20 20 69 66 20 28 6f 62 6a 63 20 -.- if (objc
3cd0: 3e 20 33 29 20 7b 0a 2d 09 73 74 72 20 3d 20 54 > 3) {.-.str = T
3ce0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
3cf0: 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6c 65 Obj(objv[3], &le
3d00: 6e 29 3b 0a 2b 20 20 20 20 69 66 20 28 6f 62 6a n);.+ if (obj
3d10: 63 20 3d 3d 20 33 29 20 7b 0a 2b 09 73 74 72 20 c == 3) {.+.str
3d20: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
3d30: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 romObj(objv[1],
3d40: 26 6c 65 6e 29 3b 0a 20 09 69 66 20 28 28 6c 65 &len);. .if ((le
3d50: 6e 20 3c 20 32 29 20 7c 7c 20 28 2a 73 74 72 20 n < 2) || (*str
3d60: 21 3d 20 27 2d 27 29 0a 20 09 09 7c 7c 20 73 74 != '-'). ..|| st
3d70: 72 6e 63 6d 70 28 73 74 72 2c 20 22 2d 74 69 6d rncmp(str, "-tim
3d80: 65 6f 75 74 22 2c 20 28 73 69 7a 65 5f 74 29 20 eout", (size_t)
3d90: 6c 65 6e 29 29 20 7b 0a 2d 09 20 20 20 20 54 63 len)) {.-. Tc
3da0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
3db0: 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 nterp, 2, objv,
3dc0: 22 6b 65 79 4e 61 6d 65 20 3f 2d 74 69 6d 65 6f "keyName ?-timeo
3dd0: 75 74 20 6d 69 6c 6c 69 73 65 63 73 3f 22 29 3b ut millisecs?");
3de0: 0a 2d 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 .-. return TC
3df0: 4c 5f 45 52 52 4f 52 3b 0a 2b 09 20 20 20 20 72 L_ERROR;.+. r
3e00: 65 74 75 72 6e 20 54 43 4c 5f 42 52 45 41 4b 3b eturn TCL_BREAK;
3e10: 0a 20 09 7d 0a 2d 09 69 66 20 28 54 63 6c 5f 47 . .}.-.if (Tcl_G
3e20: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
3e30: 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 28 69 erp, objv[4], (i
3e40: 6e 74 20 2a 29 20 26 74 69 6d 65 6f 75 74 29 20 nt *) &timeout)
3e50: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 69 != TCL_OK) {.+.i
3e60: 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f (Tcl_GetIntFro
3e70: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
3e80: 76 5b 32 5d 2c 20 28 69 6e 74 20 2a 29 20 26 74 v[2], (int *) &t
3e90: 69 6d 65 6f 75 74 29 20 21 3d 20 54 43 4c 5f 4f imeout) != TCL_O
3ea0: 4b 29 20 7b 0a 20 09 20 20 20 20 72 65 74 75 72 K) {. . retur
3eb0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 09 7d n TCL_ERROR;. .}
3ec0: 0a 20 20 20 20 20 7d 0a 20 0a 2d 20 20 20 20 73 . }. .- s
3ed0: 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 tr = Tcl_GetStri
3ee0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 ngFromObj(objv[2
3ef0: 5d 2c 20 26 6c 65 6e 29 3b 0a 2b 20 20 20 20 73 ], &len);.+ s
3f00: 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 tr = Tcl_GetStri
3f10: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
3f20: 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20 20 69 ], &len);. i
3f30: 66 20 28 6c 65 6e 20 3d 3d 20 30 29 20 7b 0a 20 f (len == 0) {.
3f40: 09 73 74 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 .str = NULL;.
3f50: 20 20 7d 0a }.
