tcl/tkコードリーディング

TclpInitLock

2011-11-10T22:14:31+09:00

* 概要 Win32APIを使って、joinLock, initLock, masterLock の変数を初期化する。 initLockを使ってクリティカルセクションに入って関数を抜ける。 [[tcl/win/tclWinThrd.c]] * 引数無し * 戻り値無し。 * 処理　&color(green){initが0でないとき、初期化処理を行う} 　if (!init) { 　　&color(green){initを1に} 　　init = 1; 　　&color(green){joinLock, initLock, masterLock を InitializeCriticalSection で初期化する。InitializeCriticalSectionはWindows API} 　　[[InitializeCriticalSection>http://msdn.microsoft.com/ja-jp/library/cc429223.aspx]](&joinLock); 　　[[InitializeCriticalSection>http://msdn.microsoft.com/ja-jp/library/cc429223.aspx]](&initLock); 　　[[InitializeCriticalSection>http://msdn.microsoft.com/ja-jp/library/cc429223.aspx]](&masterLock); 　} 　&color(green){initLockを使ってクリティカルセクションに入る。} 　[[EnterCriticalSection>http://msdn.microsoft.com/ja-jp/library/cc429095.aspx]](&initLock); * ソース /* *---------------------------------------------------------------------- * * TclpInitLock * * This procedure is used to grab a lock that serialize

tcl/win/tclWinThrd.c

2011-11-10T22:16:16+09:00

* 概要 * include #include "tclWinInt.h" #include * 変数宣言 /* * This is the master lock used to serialize access to other serialization * data structures. */ static CRITICAL_SECTION masterLock; static int init = 0; #define MASTER_LOCK TclpMasterLock() #define MASTER_UNLOCK TclpMasterUnlock() /* * This is the master lock used to serialize initialization and finalization * of Tcl as a whole. */ static CRITICAL_SECTION initLock; /* * allocLock is used by Tcl's version of malloc for synchronization. For * obvious reasons, cannot use any dyamically allocated storage. */ #ifdef TCL_THREADS static struct Tcl_Mutex_ { CRITICAL_SECTION crit; } allocLock; static Tcl_Mutex allocLockPtr = &allocLock; static int allocOnce = 0; #endif /* TCL_THREADS */ /* * The joinLock serializes Create- and ExitThread. This is necessary to * prevent a race where a new joinable thread exits before the creating thread * had the time

Tcl_Panic

2011-11-10T21:47:16+09:00

* 概要 tclStubsPtr->tcl_Panicの呼び出し [tcl/generic/tclDecls.h] *ソース #ifndef Tcl_Panic #define Tcl_Panic \ (tclStubsPtr->tcl_Panic) /* 2 */

TclInitSubsystems

2011-11-10T22:18:07+09:00

* 概要 Tcl内部のサブシステムの初期化 [[generic/tclEvent.c>tcl/generic/tclEvent.c]] * 引数無し * 戻り値無し * 処理　&color(green){inFinalizeが0でなければTclPanicを呼び出す} 　if (inFinalize != 0) { 　　[[Tcl_Panic]]("TclInitSubsystems called while finalizing"); 　} 　&color(green){subsystemsInitialized が0の時初期化を行う} 　if (subsystemsInitialized == 0) { 　　&color(green){TclInitLockでLockに使用する変数の初期化を行い、initLockを使ってクリティカルセクションに入る。} 　　[[TclpInitLock]](); if (subsystemsInitialized == 0) { /* * Have to set this bit here to avoid deadlock with the routines * below us that call into TclInitSubsystems. */ subsystemsInitialized = 1; /* * Initialize locks used by the memory allocators before anything * interesting happens so we can use the allocators in the * implementation of self-initializing locks. */ TclInitThreadStorage(); /* Creates master hash table for * thread local storage */ #if USE_T

tcl/generic/tclEvent.c

2011-11-10T21:36:32+09:00

* 概要 * inlude "tclInt.h" * 変数宣言 /* * The data structure below is used to report background errors. One such * structure is allocated for each error; it holds information about the * interpreter and the error until an idle handler command can be invoked. */ typedef struct BgError { [[Tcl_Obj]] *errorMsg; /* Copy of the error message (the interp's * result when the error occurred). */ Tcl_Obj *returnOpts; /* Active return options when the error * occurred */ struct BgError *nextPtr; /* Next in list of all pending error reports * for this interpreter, or NULL for end of * list. */ } BgError; /* * One of the structures below is associated with the "tclBgError" assoc data * for each interpreter. It keeps track of the head and tail of the list of * pending background errors for the interpreter. */ typedef struct ErrAssocData { [[Tcl_Interp]] *interp; /* Interp

ByteCodeStats

2011-11-09T18:42:57+09:00

* 概要バイトコードコンパイラとインタープリタの統計情報 [[tcl/generic/tclInt.h]] * ソース /* * The following structure defines for each Tcl interpreter various * statistics-related information about the bytecode compiler and * interpreter's operation in that interpreter. */ #ifdef TCL_COMPILE_STATS typedef struct ByteCodeStats { long numExecutions; /* Number of ByteCodes executed. */ long numCompilations; /* Number of ByteCodes created. */ long numByteCodesFreed; /* Number of ByteCodes destroyed. */ long instructionCount[256]; /* Number of times each instruction was * executed. */ double totalSrcBytes; /* Total source bytes ever compiled. */ double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ double currentSrcBytes; /* Src bytes for all current ByteCodes. */ double currentByteCodeBytes;/* Code bytes in all current ByteCodes. */ long srcCount[32]; /* Source size distribution: # of srcs of * size [2**(n-1)..2**n), n

ContLineLoc

2011-11-09T18:16:20+09:00

* 概要 [[tcl/generic/tclInt.h]] * ソース /* * Structure to record the locations of invisible continuation lines in * literal scripts, as character offset from the beginning of the script. Both * compiler and direct evaluator use this information to adjust their line * counters when tracking through the script, because when it is invoked the * continuation line marker as a whole has been removed already, meaning that * the \n which was part of it is gone as well, breaking regular line * tracking. * * These structures are allocated and filled by both the function * TclSubstTokens() in the file "tclParse.c" and its caller TclEvalEx() in the * file "tclBasic.c", and stored in the thread-global hashtable "lineCLPtr" in * file "tclObj.c". They are used by the functions TclSetByteCodeFromAny() and * TclCompileScript(), both found in the file "tclCompile.c". Their memory is * released by the function TclFreeObj(), in the file "tclObj.c", and also by

CmdFrame

2011-11-09T18:00:21+09:00

* 概要コマンドフレームを定義する構造体 /* * Data needed for Eval vs TEBC * * EXECUTION CONTEXTS and usage of CmdFrame * * Field TEBC EvalEx EvalObjEx * ======= ==== ====== ========= * level yes yes yes * type BC/PREBC SRC/EVAL EVAL_LIST * line0 yes yes yes * framePtr yes yes yes * ======= ==== ====== ========= * * ======= ==== ====== ========= union data * line1 - yes - * line3 - yes - * path - yes - * ------- ---- ------ --------- * codePtr yes - - * pc yes - - * ======= ==== ====== ========= * * ======= ==== ====== ========= | union cmd * listPtr - - yes | * ------- ---- ------ --------- | * cmd yes yes - | * cmdlen yes yes - |

Tcl_Time

2011-11-08T11:31:37+09:00

* 概要時刻を表す構造体。epochからの秒数 [[tcl/generic/tcl.h]] *ソース /* * The following structure keeps is used to hold a time value, either as an * absolute time (the number of seconds from the epoch) or as an elapsed time. * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. */ typedef struct Tcl_Time { long sec; /* Seconds. */ long usec; /* Microseconds. */ } Tcl_Time;

ActiveInterpTrace

2011-11-07T19:55:42+09:00

* 概要インタープリターのトレース用 [[tcl/generic/tclInt.h]] * メンバー - struct [[ActiveInterpTrace]] *nextPtr; 次のアクティブコマンドトレースへのポインタ - [[Trace]] *nextTracePtr; このトレースが終わった時、次にチェックする手続き - int reverseScan; 逆順の時true * ソース /* * When an interpreter trace is active (i.e. its associated procedure is * executing), one of the following structures is linked into a list * associated with the interpreter. The information in the structure is needed * in order for Tcl to behave reasonably if traces are deleted while traces * are active. */ typedef struct ActiveInterpTrace { struct ActiveInterpTrace *nextPtr; /* Next in list of all active command traces * for the interpreter, or NULL if no more. */ [[Trace]] *nextTracePtr; /* Next trace to check after current trace * procedure returns; if this trace gets * deleted, must update pointer to avoid using * free'd memory. */ int reverseScan; /* Boolean set true when tr