Artifact 4d1b9cbb39dabc078ece32b435f3af07fc25ecf1:
- File
cmodules/odieutil/constant.c
— part of check-in
[cd1d7899ab]
at
2015-08-07 23:10:07
on branch autosetup
— Corrected numerous instances of Tcl_WrongNumArgs without a following return TCL_ERROR;
Modified the vector scale command to take an argument structure that is expedient for
mass coordinate conversions.
Added a function to compute the reciprocal of a vector
(user:
tne
size: 3762)
[more...]
0000: 2f 2a 0d 0a 2a 2a 20 63 6f 6e 73 74 61 6e 74 2e /*..** constant.
0010: 63 0d 0a 2a 2a 20 53 65 72 69 65 73 20 6f 66 20 c..** Series of
0020: 72 6f 75 74 69 6e 65 73 20 74 6f 20 6d 69 6e 69 routines to mini
0030: 6d 69 7a 65 20 6d 65 6d 6f 72 79 20 75 73 61 67 mize memory usag
0040: 65 20 74 68 72 6f 75 67 68 20 74 68 65 20 75 73 e through the us
0050: 65 0d 0a 2a 2a 20 6f 66 20 73 68 61 72 65 64 20 e..** of shared
0060: 73 74 72 69 6e 67 73 0d 0a 2a 2f 0d 0a 23 69 6e strings..*/..#in
0070: 63 6c 75 64 65 20 22 6f 64 69 65 49 6e 74 2e 68 clude "odieInt.h
0080: 22 0d 0a 0d 0a 23 69 6e 63 6c 75 64 65 20 3c 73 "....#include <s
0090: 74 72 69 6e 67 73 2e 68 3e 0d 0a 0d 0a 54 63 6c trings.h>....Tcl
00a0: 5f 48 61 73 68 54 61 62 6c 65 20 63 6f 6e 73 74 _HashTable const
00b0: 61 6e 74 5f 73 74 72 69 6e 67 73 3b 0d 0a 54 63 ant_strings;..Tc
00c0: 6c 5f 4f 62 6a 20 2a 69 72 6d 53 74 61 74 69 63 l_Obj *irmStatic
00d0: 5b 31 34 5d 3b 0d 0a 0d 0a 74 79 70 65 64 65 66 [14];....typedef
00e0: 20 73 74 72 75 63 74 20 63 6f 6e 73 74 4f 62 6a struct constObj
00f0: 20 7b 0d 0a 20 20 63 68 61 72 20 20 20 20 2a 73 {.. char *s
0100: 74 72 69 6e 67 3b 0d 0a 20 20 54 63 6c 5f 4f 62 tring;.. Tcl_Ob
0110: 6a 20 2a 74 63 6c 6f 62 6a 3b 0d 0a 7d 20 63 6f j *tclobj;..} co
0120: 6e 73 74 4f 62 6a 3b 0d 0a 0d 0a 54 63 6c 5f 4f nstObj;....Tcl_O
0130: 62 6a 20 2a 4f 64 69 65 5f 73 68 61 72 65 64 5f bj *Odie_shared_
0140: 74 63 6c 6f 62 6a 28 69 6e 74 20 77 68 69 63 68 tclobj(int which
0150: 29 20 7b 0d 0a 20 20 69 66 28 77 68 69 63 68 20 ) {.. if(which
0160: 3e 20 4f 44 49 45 5f 53 54 41 54 49 43 5f 4d 41 > ODIE_STATIC_MA
0170: 58 20 7c 7c 20 77 68 69 63 68 20 3c 20 30 29 20 X || which < 0)
0180: 7b 0d 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 {.. Tcl_IncrR
0190: 65 66 43 6f 75 6e 74 28 69 72 6d 53 74 61 74 69 efCount(irmStati
01a0: 63 5b 4f 44 49 45 5f 53 54 41 54 49 43 5f 4e 55 c[ODIE_STATIC_NU
01b0: 4c 4c 5d 29 3b 0d 0a 20 20 20 20 72 65 74 75 72 LL]);.. retur
01c0: 6e 20 69 72 6d 53 74 61 74 69 63 5b 4f 44 49 45 n irmStatic[ODIE
01d0: 5f 53 54 41 54 49 43 5f 4e 55 4c 4c 5d 3b 0d 0a _STATIC_NULL];..
01e0: 20 20 7d 0d 0a 20 20 54 63 6c 5f 49 6e 63 72 52 }.. Tcl_IncrR
01f0: 65 66 43 6f 75 6e 74 28 69 72 6d 53 74 61 74 69 efCount(irmStati
0200: 63 5b 77 68 69 63 68 5d 29 3b 0d 0a 20 20 72 65 c[which]);.. re
0210: 74 75 72 6e 20 69 72 6d 53 74 61 74 69 63 5b 77 turn irmStatic[w
0220: 68 69 63 68 5d 3b 0d 0a 7d 0d 0a 0d 0a 54 63 6c hich];..}....Tcl
0230: 5f 4f 62 6a 20 2a 4f 64 69 65 5f 4e 65 77 42 6f _Obj *Odie_NewBo
0240: 6f 6c 65 61 6e 4f 62 6a 28 69 6e 74 20 76 61 6c oleanObj(int val
0250: 75 65 29 20 7b 0d 0a 20 20 69 66 28 76 61 6c 75 ue) {.. if(valu
0260: 65 29 20 7b 0d 0a 20 20 20 20 72 65 74 75 72 6e e) {.. return
0270: 20 4f 64 69 65 5f 73 68 61 72 65 64 5f 74 63 6c Odie_shared_tcl
0280: 6f 62 6a 28 4f 44 49 45 5f 53 54 41 54 49 43 5f obj(ODIE_STATIC_
0290: 4f 4e 45 29 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 ONE);.. }.. re
02a0: 74 75 72 6e 20 4f 64 69 65 5f 73 68 61 72 65 64 turn Odie_shared
02b0: 5f 74 63 6c 6f 62 6a 28 4f 44 49 45 5f 53 54 41 _tclobj(ODIE_STA
02c0: 54 49 43 5f 5a 45 52 4f 29 3b 0d 0a 7d 0d 0a 0d TIC_ZERO);..}...
02d0: 0a 54 63 6c 5f 4f 62 6a 20 2a 4f 64 69 65 5f 4e .Tcl_Obj *Odie_N
02e0: 65 77 49 6e 74 4f 62 6a 28 69 6e 74 20 76 61 6c ewIntObj(int val
02f0: 75 65 29 20 7b 0d 0a 20 20 69 66 28 76 61 6c 75 ue) {.. if(valu
0300: 65 3e 3d 30 20 26 26 20 76 61 6c 75 65 20 3c 20 e>=0 && value <
0310: 31 30 29 20 7b 0d 0a 20 20 20 20 69 6e 74 20 69 10) {.. int i
0320: 64 78 3d 4f 44 49 45 5f 53 54 41 54 49 43 5f 5a dx=ODIE_STATIC_Z
0330: 45 52 4f 2b 76 61 6c 75 65 3b 0d 0a 20 20 20 20 ERO+value;..
0340: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
0350: 28 69 72 6d 53 74 61 74 69 63 5b 69 64 78 5d 29 (irmStatic[idx])
0360: 3b 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 69 72 ;.. return ir
0370: 6d 53 74 61 74 69 63 5b 69 64 78 5d 3b 0d 0a 20 mStatic[idx];..
0380: 20 7d 0d 0a 20 20 69 66 28 76 61 6c 75 65 3d 3d }.. if(value==
0390: 2d 31 29 20 7b 0d 0a 20 20 20 20 54 63 6c 5f 49 -1) {.. Tcl_I
03a0: 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 72 6d 53 ncrRefCount(irmS
03b0: 74 61 74 69 63 5b 4f 44 49 45 5f 53 54 41 54 49 tatic[ODIE_STATI
03c0: 43 5f 4e 45 47 31 5d 29 3b 0d 0a 20 20 20 20 72 C_NEG1]);.. r
03d0: 65 74 75 72 6e 20 69 72 6d 53 74 61 74 69 63 5b eturn irmStatic[
03e0: 4f 44 49 45 5f 53 54 41 54 49 43 5f 4e 45 47 31 ODIE_STATIC_NEG1
03f0: 5d 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 ];.. }.. retur
0400: 6e 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 n Tcl_NewIntObj(
0410: 76 61 6c 75 65 29 3b 0d 0a 7d 0d 0a 0d 0a 0d 0a value);..}......
0420: 73 74 61 74 69 63 20 63 6f 6e 73 74 4f 62 6a 20 static constObj
0430: 2a 4f 64 69 65 5f 63 6f 6e 73 74 61 6e 74 28 63 *Odie_constant(c
0440: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 onst char *zName
0450: 2c 69 6e 74 20 63 72 65 61 74 65 29 20 7b 0d 0a ,int create) {..
0460: 20 20 69 6e 74 20 6c 65 6e 2c 69 73 4e 65 77 3d int len,isNew=
0470: 30 3b 0d 0a 20 20 54 63 6c 5f 48 61 73 68 45 6e 0;.. Tcl_HashEn
0480: 74 72 79 20 2a 70 45 6e 74 72 79 3b 0d 0a 20 20 try *pEntry;..
0490: 63 6f 6e 73 74 4f 62 6a 20 2a 70 3b 0d 0a 20 20 constObj *p;..
04a0: 69 66 28 7a 4e 61 6d 65 3d 3d 4e 55 4c 4c 29 20 if(zName==NULL)
04b0: 7b 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 4e 55 {.. return NU
04c0: 4c 4c 3b 0d 0a 20 20 7d 0d 0a 20 20 69 66 28 63 LL;.. }.. if(c
04d0: 72 65 61 74 65 29 20 7b 0d 0a 20 20 20 20 70 45 reate) {.. pE
04e0: 6e 74 72 79 3d 54 63 6c 5f 43 72 65 61 74 65 48 ntry=Tcl_CreateH
04f0: 61 73 68 45 6e 74 72 79 28 26 63 6f 6e 73 74 61 ashEntry(&consta
0500: 6e 74 5f 73 74 72 69 6e 67 73 2c 7a 4e 61 6d 65 nt_strings,zName
0510: 2c 26 69 73 4e 65 77 29 3b 0d 0a 20 20 7d 20 65 ,&isNew);.. } e
0520: 6c 73 65 20 7b 0d 0a 20 20 20 20 70 45 6e 74 72 lse {.. pEntr
0530: 79 3d 54 63 6c 5f 46 69 6e 64 48 61 73 68 45 6e y=Tcl_FindHashEn
0540: 74 72 79 28 26 63 6f 6e 73 74 61 6e 74 5f 73 74 try(&constant_st
0550: 72 69 6e 67 73 2c 7a 4e 61 6d 65 29 3b 0d 0a 20 rings,zName);..
0560: 20 7d 0d 0a 20 20 69 66 28 69 73 4e 65 77 29 20 }.. if(isNew)
0570: 7b 0d 0a 20 20 20 20 6c 65 6e 20 3d 20 73 74 72 {.. len = str
0580: 6c 65 6e 28 7a 4e 61 6d 65 29 3b 0d 0a 20 20 20 len(zName);..
0590: 20 70 20 3d 28 63 6f 6e 73 74 4f 62 6a 2a 29 4f p =(constObj*)O
05a0: 64 69 65 5f 41 6c 6c 6f 63 28 73 69 7a 65 6f 66 die_Alloc(sizeof
05b0: 28 2a 70 29 2b 6c 65 6e 2b 31 29 3b 0d 0a 20 20 (*p)+len+1);..
05c0: 20 20 70 2d 3e 73 74 72 69 6e 67 3d 70 2b 31 3b p->string=p+1;
05d0: 0d 0a 20 20 20 20 73 74 72 6e 63 70 79 28 70 2d .. strncpy(p-
05e0: 3e 73 74 72 69 6e 67 2c 20 7a 4e 61 6d 65 2c 20 >string, zName,
05f0: 6c 65 6e 2b 31 29 3b 0d 0a 20 20 20 20 70 2d 3e len+1);.. p->
0600: 74 63 6c 6f 62 6a 3d 54 63 6c 5f 4e 65 77 53 74 tclobj=Tcl_NewSt
0610: 72 69 6e 67 4f 62 6a 28 7a 4e 61 6d 65 2c 6c 65 ringObj(zName,le
0620: 6e 29 3b 0d 0a 20 20 20 20 54 63 6c 5f 49 6e 63 n);.. Tcl_Inc
0630: 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 74 63 6c rRefCount(p->tcl
0640: 6f 62 6a 29 3b 0d 0a 20 20 20 20 54 63 6c 5f 53 obj);.. Tcl_S
0650: 65 74 48 61 73 68 56 61 6c 75 65 28 70 45 6e 74 etHashValue(pEnt
0660: 72 79 2c 28 43 6c 69 65 6e 74 44 61 74 61 29 70 ry,(ClientData)p
0670: 29 3b 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 70 );.. return p
0680: 3b 0d 0a 20 20 7d 0d 0a 20 20 69 66 28 70 45 6e ;.. }.. if(pEn
0690: 74 72 79 29 20 7b 0d 0a 20 20 20 20 70 3d 28 63 try) {.. p=(c
06a0: 6f 6e 73 74 4f 62 6a 2a 29 54 63 6c 5f 47 65 74 onstObj*)Tcl_Get
06b0: 48 61 73 68 56 61 6c 75 65 28 70 45 6e 74 72 79 HashValue(pEntry
06c0: 29 3b 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 70 );.. return p
06d0: 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e ;.. }.. return
06e0: 20 4e 55 4c 4c 3b 0d 0a 7d 0d 0a 0d 0a 69 6e 74 NULL;..}....int
06f0: 20 4f 64 69 65 5f 53 61 6d 65 53 74 72 69 6e 67 Odie_SameString
0700: 28 63 68 61 72 20 2a 61 50 74 72 2c 63 68 61 72 (char *aPtr,char
0710: 20 2a 62 50 74 72 29 20 7b 0d 0a 20 20 69 66 28 *bPtr) {.. if(
0720: 61 50 74 72 3d 3d 62 50 74 72 29 20 7b 0d 0a 20 aPtr==bPtr) {..
0730: 20 20 20 72 65 74 75 72 6e 20 31 3b 0d 0a 20 20 return 1;..
0740: 7d 0d 0a 20 20 69 66 28 21 62 50 74 72 20 7c 7c }.. if(!bPtr ||
0750: 20 21 61 50 74 72 29 20 7b 0d 0a 20 20 20 20 72 !aPtr) {.. r
0760: 65 74 75 72 6e 20 30 3b 0d 0a 20 20 7d 0d 0a 20 eturn 0;.. }..
0770: 20 69 66 28 73 74 72 63 6d 70 28 61 50 74 72 2c if(strcmp(aPtr,
0780: 62 50 74 72 29 3d 3d 30 29 20 7b 0d 0a 20 20 20 bPtr)==0) {..
0790: 20 72 65 74 75 72 6e 20 31 3b 0d 0a 20 20 7d 0d return 1;.. }.
07a0: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0d 0a 7d 0d . return 0;..}.
07b0: 0a 63 68 61 72 20 2a 4f 64 69 65 5f 63 6f 6e 73 .char *Odie_cons
07c0: 74 61 6e 74 5f 73 74 72 69 6e 67 28 63 6f 6e 73 tant_string(cons
07d0: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 29 20 7b t char *zName) {
07e0: 0d 0a 20 20 63 6f 6e 73 74 4f 62 6a 20 2a 70 3b .. constObj *p;
07f0: 0d 0a 20 20 70 3d 4f 64 69 65 5f 63 6f 6e 73 74 .. p=Odie_const
0800: 61 6e 74 28 7a 4e 61 6d 65 2c 31 29 3b 0d 0a 20 ant(zName,1);..
0810: 20 72 65 74 75 72 6e 20 70 2d 3e 73 74 72 69 6e return p->strin
0820: 67 3b 0d 0a 7d 0d 0a 0d 0a 0d 0a 54 63 6c 5f 4f g;..}......Tcl_O
0830: 62 6a 20 2a 4f 64 69 65 5f 63 6f 6e 73 74 61 6e bj *Odie_constan
0840: 74 5f 74 63 6c 6f 62 6a 28 63 6f 6e 73 74 20 63 t_tclobj(const c
0850: 68 61 72 20 2a 7a 4e 61 6d 65 29 20 7b 0d 0a 20 har *zName) {..
0860: 20 63 6f 6e 73 74 4f 62 6a 20 2a 70 3b 0d 0a 20 constObj *p;..
0870: 20 70 3d 4f 64 69 65 5f 63 6f 6e 73 74 61 6e 74 p=Odie_constant
0880: 28 7a 4e 61 6d 65 2c 31 29 3b 0d 0a 20 20 54 63 (zName,1);.. Tc
0890: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 l_IncrRefCount(p
08a0: 2d 3e 74 63 6c 6f 62 6a 29 3b 0d 0a 20 20 72 65 ->tclobj);.. re
08b0: 74 75 72 6e 20 70 2d 3e 74 63 6c 6f 62 6a 3b 0d turn p->tclobj;.
08c0: 0a 7d 0d 0a 0d 0a 54 63 6c 5f 4f 62 6a 20 2a 4f .}....Tcl_Obj *O
08d0: 64 69 65 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a die_NewStringObj
08e0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 74 72 (const char *str
08f0: 29 20 7b 0d 0a 20 20 2f 2a 0d 0a 20 20 69 66 28 ) {.. /*.. if(
0900: 21 73 74 72 29 20 7b 0d 0a 20 20 20 20 72 65 74 !str) {.. ret
0910: 75 72 6e 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 urn Tcl_NewObj()
0920: 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e ;.. }.. return
0930: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
0940: 6a 28 73 74 72 2c 2d 31 29 3b 0d 0a 20 20 2a 2f j(str,-1);.. */
0950: 0d 0a 20 20 72 65 74 75 72 6e 20 4f 64 69 65 5f .. return Odie_
0960: 63 6f 6e 73 74 61 6e 74 5f 74 63 6c 6f 62 6a 28 constant_tclobj(
0970: 73 74 72 29 3b 0d 0a 7d 0d 0a 0d 0a 73 74 61 74 str);..}....stat
0980: 69 63 20 69 6e 74 20 63 6f 6e 73 74 61 6e 74 4d ic int constantM
0990: 61 70 43 6d 64 28 0d 0a 20 20 76 6f 69 64 20 2a apCmd(.. void *
09a0: 70 41 72 67 2c 0d 0a 20 20 54 63 6c 5f 49 6e 74 pArg,.. Tcl_Int
09b0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0d 0a 20 20 erp *interp,..
09c0: 69 6e 74 20 6f 62 6a 63 2c 0d 0a 20 20 54 63 6c int objc,.. Tcl
09d0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
09e0: 5b 5d 0d 0a 29 7b 0d 0a 20 20 63 68 61 72 20 2a []..){.. char *
09f0: 6e 65 77 4e 61 6d 65 3b 0d 0a 20 20 54 63 6c 5f newName;.. Tcl_
0a00: 4f 62 6a 20 2a 72 65 73 75 6c 74 3b 0d 0a 0d 0a Obj *result;....
0a10: 20 20 69 66 28 6f 62 6a 63 20 21 3d 20 32 29 20 if(objc != 2)
0a20: 7b 0d 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f {.. Tcl_Wro
0a30: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
0a40: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 73 74 72 69 , 1, objv, "stri
0a50: 6e 67 22 29 3b 0d 0a 20 20 20 20 20 20 72 65 74 ng");.. ret
0a60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0d 0a urn TCL_ERROR;..
0a70: 20 20 7d 0d 0a 20 20 6e 65 77 4e 61 6d 65 3d 54 }.. newName=T
0a80: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
0a90: 76 5b 31 5d 29 3b 0d 0a 20 20 72 65 73 75 6c 74 v[1]);.. result
0aa0: 3d 4f 64 69 65 5f 63 6f 6e 73 74 61 6e 74 5f 74 =Odie_constant_t
0ab0: 63 6c 6f 62 6a 28 6e 65 77 4e 61 6d 65 29 3b 0d clobj(newName);.
0ac0: 0a 20 20 69 66 20 28 21 72 65 73 75 6c 74 29 20 . if (!result)
0ad0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
0ae0: 3b 0d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 ;.. Tcl_SetObjR
0af0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 72 65 73 esult(interp,res
0b00: 75 6c 74 29 3b 0d 0a 20 20 72 65 74 75 72 6e 20 ult);.. return
0b10: 54 43 4c 5f 4f 4b 3b 0d 0a 7d 0d 0a 0d 0a 44 4c TCL_OK;..}....DL
0b20: 4c 45 58 50 4f 52 54 20 69 6e 74 20 4f 64 69 65 LEXPORT int Odie
0b30: 5f 43 6f 6e 73 74 61 6e 74 5f 49 6e 69 74 28 54 _Constant_Init(T
0b40: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0b50: 70 29 20 7b 0d 0a 20 20 73 74 61 74 69 63 20 69 p) {.. static i
0b60: 6e 74 20 6f 6e 63 65 20 3d 20 31 3b 0d 0a 0d 0a nt once = 1;....
0b70: 20 20 69 66 28 20 6f 6e 63 65 20 29 7b 0d 0a 20 if( once ){..
0b80: 20 20 20 69 6e 74 20 69 3b 0d 0a 20 20 20 20 6f int i;.. o
0b90: 6e 63 65 20 3d 20 30 3b 0d 0a 0d 0a 20 20 20 20 nce = 0;....
0ba0: 69 72 6d 53 74 61 74 69 63 5b 4f 44 49 45 5f 53 irmStatic[ODIE_S
0bb0: 54 41 54 49 43 5f 4e 55 4c 4c 5d 3d 54 63 6c 5f TATIC_NULL]=Tcl_
0bc0: 4e 65 77 4f 62 6a 28 29 3b 0d 0a 20 20 20 20 54 NewObj();.. T
0bd0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
0be0: 69 72 6d 53 74 61 74 69 63 5b 4f 44 49 45 5f 53 irmStatic[ODIE_S
0bf0: 54 41 54 49 43 5f 4e 55 4c 4c 5d 29 3b 0d 0a 20 TATIC_NULL]);..
0c00: 20 20 20 0d 0a 20 20 20 20 69 72 6d 53 74 61 74 .. irmStat
0c10: 69 63 5b 4f 44 49 45 5f 53 54 41 54 49 43 5f 5a ic[ODIE_STATIC_Z
0c20: 45 52 4f 5d 20 3d 20 54 63 6c 5f 4e 65 77 42 6f ERO] = Tcl_NewBo
0c30: 6f 6c 65 61 6e 4f 62 6a 28 30 29 3b 0d 0a 20 20 oleanObj(0);..
0c40: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
0c50: 6e 74 28 69 72 6d 53 74 61 74 69 63 5b 4f 44 49 nt(irmStatic[ODI
0c60: 45 5f 53 54 41 54 49 43 5f 5a 45 52 4f 5d 29 3b E_STATIC_ZERO]);
0c70: 0d 0a 20 20 20 20 0d 0a 20 20 20 20 69 72 6d 53 .. .. irmS
0c80: 74 61 74 69 63 5b 4f 44 49 45 5f 53 54 41 54 49 tatic[ODIE_STATI
0c90: 43 5f 4f 4e 45 5d 20 3d 20 54 63 6c 5f 4e 65 77 C_ONE] = Tcl_New
0ca0: 42 6f 6f 6c 65 61 6e 4f 62 6a 28 31 29 3b 0d 0a BooleanObj(1);..
0cb0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
0cc0: 6f 75 6e 74 28 69 72 6d 53 74 61 74 69 63 5b 4f ount(irmStatic[O
0cd0: 44 49 45 5f 53 54 41 54 49 43 5f 4f 4e 45 5d 29 DIE_STATIC_ONE])
0ce0: 3b 0d 0a 20 20 20 20 66 6f 72 28 69 3d 32 3b 69 ;.. for(i=2;i
0cf0: 3c 31 30 3b 69 2b 2b 29 20 7b 0d 0a 20 20 20 20 <10;i++) {..
0d00: 20 20 69 6e 74 20 69 64 78 3d 4f 44 49 45 5f 53 int idx=ODIE_S
0d10: 54 41 54 49 43 5f 5a 45 52 4f 2b 69 3b 0d 0a 20 TATIC_ZERO+i;..
0d20: 20 20 20 20 20 69 72 6d 53 74 61 74 69 63 5b 69 irmStatic[i
0d30: 64 78 5d 20 3d 20 54 63 6c 5f 4e 65 77 49 6e 74 dx] = Tcl_NewInt
0d40: 4f 62 6a 28 69 29 3b 0d 0a 20 20 20 20 20 20 54 Obj(i);.. T
0d50: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
0d60: 69 72 6d 53 74 61 74 69 63 5b 69 64 78 5d 29 3b irmStatic[idx]);
0d70: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 .. }.... i
0d80: 72 6d 53 74 61 74 69 63 5b 4f 44 49 45 5f 53 54 rmStatic[ODIE_ST
0d90: 41 54 49 43 5f 46 5a 45 52 4f 5d 20 3d 20 54 63 ATIC_FZERO] = Tc
0da0: 6c 5f 4e 65 77 44 6f 75 62 6c 65 4f 62 6a 28 30 l_NewDoubleObj(0
0db0: 2e 30 29 3b 0d 0a 20 20 20 20 54 63 6c 5f 49 6e .0);.. Tcl_In
0dc0: 63 72 52 65 66 43 6f 75 6e 74 28 69 72 6d 53 74 crRefCount(irmSt
0dd0: 61 74 69 63 5b 4f 44 49 45 5f 53 54 41 54 49 43 atic[ODIE_STATIC
0de0: 5f 46 5a 45 52 4f 5d 29 3b 0d 0a 0d 0a 20 20 20 _FZERO]);....
0df0: 20 69 72 6d 53 74 61 74 69 63 5b 4f 44 49 45 5f irmStatic[ODIE_
0e00: 53 54 41 54 49 43 5f 4e 45 47 31 5d 20 3d 20 54 STATIC_NEG1] = T
0e10: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 2d 31 29 cl_NewIntObj(-1)
0e20: 3b 0d 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
0e30: 65 66 43 6f 75 6e 74 28 69 72 6d 53 74 61 74 69 efCount(irmStati
0e40: 63 5b 4f 44 49 45 5f 53 54 41 54 49 43 5f 4e 45 c[ODIE_STATIC_NE
0e50: 47 31 5d 29 3b 0d 0a 0d 0a 20 20 20 20 54 63 6c G1]);.... Tcl
0e60: 5f 49 6e 69 74 48 61 73 68 54 61 62 6c 65 28 26 _InitHashTable(&
0e70: 63 6f 6e 73 74 61 6e 74 5f 73 74 72 69 6e 67 73 constant_strings
0e80: 2c 54 43 4c 5f 53 54 52 49 4e 47 5f 4b 45 59 53 ,TCL_STRING_KEYS
0e90: 29 3b 0d 0a 20 20 7d 0d 0a 20 20 0d 0a 20 20 72 );.. }.. .. r
0ea0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0d 0a 7d eturn TCL_OK;..}
0eb0: 0d 0a ..