/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclcompile.h
ViewVC logotype

Annotation of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclcompile.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 29 - (hide annotations) (download)
Sat Oct 8 07:08:47 2016 UTC (7 years, 11 months ago) by dashley
Original Path: to_be_filed/sf_code/esrgpcpj/shared/tcl_base/tclcompile.h
File MIME type: text/plain
File size: 40204 byte(s)
Directories relocated.
1 dashley 25 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclcompile.h,v 1.1.1.1 2001/06/13 04:36:28 dtashley Exp $ */
2    
3     /*
4     * tclCompile.h --
5     *
6     * Copyright (c) 1996-1998 Sun Microsystems, Inc.
7     *
8     * See the file "license.terms" for information on usage and redistribution
9     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
10     *
11     * RCS: @(#) $Id: tclcompile.h,v 1.1.1.1 2001/06/13 04:36:28 dtashley Exp $
12     */
13    
14     #ifndef _TCLCOMPILATION
15     #define _TCLCOMPILATION 1
16    
17     #ifndef _TCLINT
18     #include "tclInt.h"
19     #endif /* _TCLINT */
20    
21     #ifdef BUILD_tcl
22     # undef TCL_STORAGE_CLASS
23     # define TCL_STORAGE_CLASS DLLEXPORT
24     #endif
25    
26     /*
27     *------------------------------------------------------------------------
28     * Variables related to compilation. These are used in tclCompile.c,
29     * tclExecute.c, tclBasic.c, and their clients.
30     *------------------------------------------------------------------------
31     */
32    
33     /*
34     * Variable that denotes the command name Tcl object type. Objects of this
35     * type cache the Command pointer that results from looking up command names
36     * in the command hashtable.
37     */
38    
39     extern Tcl_ObjType tclCmdNameType;
40    
41     /*
42     * Variable that controls whether compilation tracing is enabled and, if so,
43     * what level of tracing is desired:
44     * 0: no compilation tracing
45     * 1: summarize compilation of top level cmds and proc bodies
46     * 2: display all instructions of each ByteCode compiled
47     * This variable is linked to the Tcl variable "tcl_traceCompile".
48     */
49    
50     extern int tclTraceCompile;
51    
52     /*
53     * Variable that controls whether execution tracing is enabled and, if so,
54     * what level of tracing is desired:
55     * 0: no execution tracing
56     * 1: trace invocations of Tcl procs only
57     * 2: trace invocations of all (not compiled away) commands
58     * 3: display each instruction executed
59     * This variable is linked to the Tcl variable "tcl_traceExec".
60     */
61    
62     extern int tclTraceExec;
63    
64     /*
65     *------------------------------------------------------------------------
66     * Data structures related to compilation.
67     *------------------------------------------------------------------------
68     */
69    
70     /*
71     * The structure used to implement Tcl "exceptions" (exceptional returns):
72     * for example, those generated in loops by the break and continue commands,
73     * and those generated by scripts and caught by the catch command. This
74     * ExceptionRange structure describes a range of code (e.g., a loop body),
75     * the kind of exceptions (e.g., a break or continue) that might occur, and
76     * the PC offsets to jump to if a matching exception does occur. Exception
77     * ranges can nest so this structure includes a nesting level that is used
78     * at runtime to find the closest exception range surrounding a PC. For
79     * example, when a break command is executed, the ExceptionRange structure
80     * for the most deeply nested loop, if any, is found and used. These
81     * structures are also generated for the "next" subcommands of for loops
82     * since a break there terminates the for command. This means a for command
83     * actually generates two LoopInfo structures.
84     */
85    
86     typedef enum {
87     LOOP_EXCEPTION_RANGE, /* Exception's range is part of a loop.
88     * Break and continue "exceptions" cause
89     * jumps to appropriate PC offsets. */
90     CATCH_EXCEPTION_RANGE /* Exception's range is controlled by a
91     * catch command. Errors in the range cause
92     * a jump to a catch PC offset. */
93     } ExceptionRangeType;
94    
95     typedef struct ExceptionRange {
96     ExceptionRangeType type; /* The kind of ExceptionRange. */
97     int nestingLevel; /* Static depth of the exception range.
98     * Used to find the most deeply-nested
99     * range surrounding a PC at runtime. */
100     int codeOffset; /* Offset of the first instruction byte of
101     * the code range. */
102     int numCodeBytes; /* Number of bytes in the code range. */
103     int breakOffset; /* If LOOP_EXCEPTION_RANGE, the target PC
104     * offset for a break command in the range. */
105     int continueOffset; /* If LOOP_EXCEPTION_RANGE and not -1, the
106     * target PC offset for a continue command in
107     * the code range. Otherwise, ignore this range
108     * when processing a continue command. */
109     int catchOffset; /* If a CATCH_EXCEPTION_RANGE, the target PC
110     * offset for any "exception" in range. */
111     } ExceptionRange;
112    
113     /*
114     * Structure used to map between instruction pc and source locations. It
115     * defines for each compiled Tcl command its code's starting offset and
116     * its source's starting offset and length. Note that the code offset
117     * increases monotonically: that is, the table is sorted in code offset
118     * order. The source offset is not monotonic.
119     */
120    
121     typedef struct CmdLocation {
122     int codeOffset; /* Offset of first byte of command code. */
123     int numCodeBytes; /* Number of bytes for command's code. */
124     int srcOffset; /* Offset of first char of the command. */
125     int numSrcBytes; /* Number of command source chars. */
126     } CmdLocation;
127    
128     /*
129     * CompileProcs need the ability to record information during compilation
130     * that can be used by bytecode instructions during execution. The AuxData
131     * structure provides this "auxiliary data" mechanism. An arbitrary number
132     * of these structures can be stored in the ByteCode record (during
133     * compilation they are stored in a CompileEnv structure). Each AuxData
134     * record holds one word of client-specified data (often a pointer) and is
135     * given an index that instructions can later use to look up the structure
136     * and its data.
137     *
138     * The following definitions declare the types of procedures that are called
139     * to duplicate or free this auxiliary data when the containing ByteCode
140     * objects are duplicated and freed. Pointers to these procedures are kept
141     * in the AuxData structure.
142     */
143    
144     typedef ClientData (AuxDataDupProc) _ANSI_ARGS_((ClientData clientData));
145     typedef void (AuxDataFreeProc) _ANSI_ARGS_((ClientData clientData));
146    
147     /*
148     * We define a separate AuxDataType struct to hold type-related information
149     * for the AuxData structure. This separation makes it possible for clients
150     * outside of the TCL core to manipulate (in a limited fashion!) AuxData;
151     * for example, it makes it possible to pickle and unpickle AuxData structs.
152     */
153    
154     typedef struct AuxDataType {
155     char *name; /* the name of the type. Types can be
156     * registered and found by name */
157     AuxDataDupProc *dupProc; /* Callback procedure to invoke when the
158     * aux data is duplicated (e.g., when the
159     * ByteCode structure containing the aux
160     * data is duplicated). NULL means just
161     * copy the source clientData bits; no
162     * proc need be called. */
163     AuxDataFreeProc *freeProc; /* Callback procedure to invoke when the
164     * aux data is freed. NULL means no
165     * proc need be called. */
166     } AuxDataType;
167    
168     /*
169     * The definition of the AuxData structure that holds information created
170     * during compilation by CompileProcs and used by instructions during
171     * execution.
172     */
173    
174     typedef struct AuxData {
175     AuxDataType *type; /* pointer to the AuxData type associated with
176     * this ClientData. */
177     ClientData clientData; /* The compilation data itself. */
178     } AuxData;
179    
180     /*
181     * Structure defining the compilation environment. After compilation, fields
182     * describing bytecode instructions are copied out into the more compact
183     * ByteCode structure defined below.
184     */
185    
186     #define COMPILEENV_INIT_CODE_BYTES 250
187     #define COMPILEENV_INIT_NUM_OBJECTS 60
188     #define COMPILEENV_INIT_EXCEPT_RANGES 5
189     #define COMPILEENV_INIT_CMD_MAP_SIZE 40
190     #define COMPILEENV_INIT_AUX_DATA_SIZE 5
191    
192     typedef struct CompileEnv {
193     Interp *iPtr; /* Interpreter containing the code being
194     * compiled. Commands and their compile
195     * procs are specific to an interpreter so
196     * the code emitted will depend on the
197     * interpreter. */
198     char *source; /* The source string being compiled by
199     * SetByteCodeFromAny. This pointer is not
200     * owned by the CompileEnv and must not be
201     * freed or changed by it. */
202     int numSrcBytes; /* Number of bytes in source. */
203     Proc *procPtr; /* If a procedure is being compiled, a
204     * pointer to its Proc structure; otherwise
205     * NULL. Used to compile local variables.
206     * Set from information provided by
207     * ObjInterpProc in tclProc.c. */
208     int numCommands; /* Number of commands compiled. */
209     int exceptDepth; /* Current exception range nesting level;
210     * -1 if not in any range currently. */
211     int maxExceptDepth; /* Max nesting level of exception ranges;
212     * -1 if no ranges have been compiled. */
213     int maxStackDepth; /* Maximum number of stack elements needed
214     * to execute the code. Set by compilation
215     * procedures before returning. */
216     LiteralTable localLitTable; /* Contains LiteralEntry's describing
217     * all Tcl objects referenced by this
218     * compiled code. Indexed by the string
219     * representations of the literals. Used to
220     * avoid creating duplicate objects. */
221     int exprIsJustVarRef; /* Set 1 if the expression last compiled by
222     * TclCompileExpr consisted of just a
223     * variable reference as in the expression
224     * of "if $b then...". Otherwise 0. Used
225     * to implement expr's 2 level substitution
226     * semantics properly. */
227     int exprIsComparison; /* Set 1 if the top-level operator in the
228     * expression last compiled is a comparison.
229     * Otherwise 0. If 1, since the operands
230     * might be strings, the expr is compiled
231     * out-of-line to implement expr's 2 level
232     * substitution semantics properly. */
233     unsigned char *codeStart; /* Points to the first byte of the code. */
234     unsigned char *codeNext; /* Points to next code array byte to use. */
235     unsigned char *codeEnd; /* Points just after the last allocated
236     * code array byte. */
237     int mallocedCodeArray; /* Set 1 if code array was expanded
238     * and codeStart points into the heap.*/
239     LiteralEntry *literalArrayPtr;
240     /* Points to start of LiteralEntry array. */
241     int literalArrayNext; /* Index of next free object array entry. */
242     int literalArrayEnd; /* Index just after last obj array entry. */
243     int mallocedLiteralArray; /* 1 if object array was expanded and
244     * objArray points into the heap, else 0. */
245     ExceptionRange *exceptArrayPtr;
246     /* Points to start of the ExceptionRange
247     * array. */
248     int exceptArrayNext; /* Next free ExceptionRange array index.
249     * exceptArrayNext is the number of ranges
250     * and (exceptArrayNext-1) is the index of
251     * the current range's array entry. */
252     int exceptArrayEnd; /* Index after the last ExceptionRange
253     * array entry. */
254     int mallocedExceptArray; /* 1 if ExceptionRange array was expanded
255     * and exceptArrayPtr points in heap,
256     * else 0. */
257     CmdLocation *cmdMapPtr; /* Points to start of CmdLocation array.
258     * numCommands is the index of the next
259     * entry to use; (numCommands-1) is the
260     * entry index for the last command. */
261     int cmdMapEnd; /* Index after last CmdLocation entry. */
262     int mallocedCmdMap; /* 1 if command map array was expanded and
263     * cmdMapPtr points in the heap, else 0. */
264     AuxData *auxDataArrayPtr; /* Points to auxiliary data array start. */
265     int auxDataArrayNext; /* Next free compile aux data array index.
266     * auxDataArrayNext is the number of aux
267     * data items and (auxDataArrayNext-1) is
268     * index of current aux data array entry. */
269     int auxDataArrayEnd; /* Index after last aux data array entry. */
270     int mallocedAuxDataArray; /* 1 if aux data array was expanded and
271     * auxDataArrayPtr points in heap else 0. */
272     unsigned char staticCodeSpace[COMPILEENV_INIT_CODE_BYTES];
273     /* Initial storage for code. */
274     LiteralEntry staticLiteralSpace[COMPILEENV_INIT_NUM_OBJECTS];
275     /* Initial storage of LiteralEntry array. */
276     ExceptionRange staticExceptArraySpace[COMPILEENV_INIT_EXCEPT_RANGES];
277     /* Initial ExceptionRange array storage. */
278     CmdLocation staticCmdMapSpace[COMPILEENV_INIT_CMD_MAP_SIZE];
279     /* Initial storage for cmd location map. */
280     AuxData staticAuxDataArraySpace[COMPILEENV_INIT_AUX_DATA_SIZE];
281     /* Initial storage for aux data array. */
282     } CompileEnv;
283    
284     /*
285     * The structure defining the bytecode instructions resulting from compiling
286     * a Tcl script. Note that this structure is variable length: a single heap
287     * object is allocated to hold the ByteCode structure immediately followed
288     * by the code bytes, the literal object array, the ExceptionRange array,
289     * the CmdLocation map, and the compilation AuxData array.
290     */
291    
292     /*
293     * A PRECOMPILED bytecode struct is one that was generated from a compiled
294     * image rather than implicitly compiled from source
295     */
296     #define TCL_BYTECODE_PRECOMPILED 0x0001
297    
298     typedef struct ByteCode {
299     TclHandle interpHandle; /* Handle for interpreter containing the
300     * compiled code. Commands and their compile
301     * procs are specific to an interpreter so the
302     * code emitted will depend on the
303     * interpreter. */
304     int compileEpoch; /* Value of iPtr->compileEpoch when this
305     * ByteCode was compiled. Used to invalidate
306     * code when, e.g., commands with compile
307     * procs are redefined. */
308     Namespace *nsPtr; /* Namespace context in which this code
309     * was compiled. If the code is executed
310     * if a different namespace, it must be
311     * recompiled. */
312     int nsEpoch; /* Value of nsPtr->resolverEpoch when this
313     * ByteCode was compiled. Used to invalidate
314     * code when new namespace resolution rules
315     * are put into effect. */
316     int refCount; /* Reference count: set 1 when created
317     * plus 1 for each execution of the code
318     * currently active. This structure can be
319     * freed when refCount becomes zero. */
320     unsigned int flags; /* flags describing state for the codebyte.
321     * this variable holds ORed values from the
322     * TCL_BYTECODE_ masks defined above */
323     char *source; /* The source string from which this
324     * ByteCode was compiled. Note that this
325     * pointer is not owned by the ByteCode and
326     * must not be freed or modified by it. */
327     Proc *procPtr; /* If the ByteCode was compiled from a
328     * procedure body, this is a pointer to its
329     * Proc structure; otherwise NULL. This
330     * pointer is also not owned by the ByteCode
331     * and must not be freed by it. */
332     size_t structureSize; /* Number of bytes in the ByteCode structure
333     * itself. Does not include heap space for
334     * literal Tcl objects or storage referenced
335     * by AuxData entries. */
336     int numCommands; /* Number of commands compiled. */
337     int numSrcBytes; /* Number of source bytes compiled. */
338     int numCodeBytes; /* Number of code bytes. */
339     int numLitObjects; /* Number of objects in literal array. */
340     int numExceptRanges; /* Number of ExceptionRange array elems. */
341     int numAuxDataItems; /* Number of AuxData items. */
342     int numCmdLocBytes; /* Number of bytes needed for encoded
343     * command location information. */
344     int maxExceptDepth; /* Maximum nesting level of ExceptionRanges;
345     * -1 if no ranges were compiled. */
346     int maxStackDepth; /* Maximum number of stack elements needed
347     * to execute the code. */
348     unsigned char *codeStart; /* Points to the first byte of the code.
349     * This is just after the final ByteCode
350     * member cmdMapPtr. */
351     Tcl_Obj **objArrayPtr; /* Points to the start of the literal
352     * object array. This is just after the
353     * last code byte. */
354     ExceptionRange *exceptArrayPtr;
355     /* Points to the start of the ExceptionRange
356     * array. This is just after the last
357     * object in the object array. */
358     AuxData *auxDataArrayPtr; /* Points to the start of the auxiliary data
359     * array. This is just after the last entry
360     * in the ExceptionRange array. */
361     unsigned char *codeDeltaStart;
362     /* Points to the first of a sequence of
363     * bytes that encode the change in the
364     * starting offset of each command's code.
365     * If -127<=delta<=127, it is encoded as 1
366     * byte, otherwise 0xFF (128) appears and
367     * the delta is encoded by the next 4 bytes.
368     * Code deltas are always positive. This
369     * sequence is just after the last entry in
370     * the AuxData array. */
371     unsigned char *codeLengthStart;
372     /* Points to the first of a sequence of
373     * bytes that encode the length of each
374     * command's code. The encoding is the same
375     * as for code deltas. Code lengths are
376     * always positive. This sequence is just
377     * after the last entry in the code delta
378     * sequence. */
379     unsigned char *srcDeltaStart;
380     /* Points to the first of a sequence of
381     * bytes that encode the change in the
382     * starting offset of each command's source.
383     * The encoding is the same as for code
384     * deltas. Source deltas can be negative.
385     * This sequence is just after the last byte
386     * in the code length sequence. */
387     unsigned char *srcLengthStart;
388     /* Points to the first of a sequence of
389     * bytes that encode the length of each
390     * command's source. The encoding is the
391     * same as for code deltas. Source lengths
392     * are always positive. This sequence is
393     * just after the last byte in the source
394     * delta sequence. */
395     #ifdef TCL_COMPILE_STATS
396     Tcl_Time createTime; /* Absolute time when the ByteCode was
397     * created. */
398     #endif /* TCL_COMPILE_STATS */
399     } ByteCode;
400    
401     /*
402     * Opcodes for the Tcl bytecode instructions. These must correspond to the
403     * entries in the table of instruction descriptions, instructionTable, in
404     * tclCompile.c. Also, the order and number of the expression opcodes
405     * (e.g., INST_LOR) must match the entries in the array operatorStrings in
406     * tclExecute.c.
407     */
408    
409     /* Opcodes 0 to 9 */
410     #define INST_DONE 0
411     #define INST_PUSH1 1
412     #define INST_PUSH4 2
413     #define INST_POP 3
414     #define INST_DUP 4
415     #define INST_CONCAT1 5
416     #define INST_INVOKE_STK1 6
417     #define INST_INVOKE_STK4 7
418     #define INST_EVAL_STK 8
419     #define INST_EXPR_STK 9
420    
421     /* Opcodes 10 to 23 */
422     #define INST_LOAD_SCALAR1 10
423     #define INST_LOAD_SCALAR4 11
424     #define INST_LOAD_SCALAR_STK 12
425     #define INST_LOAD_ARRAY1 13
426     #define INST_LOAD_ARRAY4 14
427     #define INST_LOAD_ARRAY_STK 15
428     #define INST_LOAD_STK 16
429     #define INST_STORE_SCALAR1 17
430     #define INST_STORE_SCALAR4 18
431     #define INST_STORE_SCALAR_STK 19
432     #define INST_STORE_ARRAY1 20
433     #define INST_STORE_ARRAY4 21
434     #define INST_STORE_ARRAY_STK 22
435     #define INST_STORE_STK 23
436    
437     /* Opcodes 24 to 33 */
438     #define INST_INCR_SCALAR1 24
439     #define INST_INCR_SCALAR_STK 25
440     #define INST_INCR_ARRAY1 26
441     #define INST_INCR_ARRAY_STK 27
442     #define INST_INCR_STK 28
443     #define INST_INCR_SCALAR1_IMM 29
444     #define INST_INCR_SCALAR_STK_IMM 30
445     #define INST_INCR_ARRAY1_IMM 31
446     #define INST_INCR_ARRAY_STK_IMM 32
447     #define INST_INCR_STK_IMM 33
448    
449     /* Opcodes 34 to 39 */
450     #define INST_JUMP1 34
451     #define INST_JUMP4 35
452     #define INST_JUMP_TRUE1 36
453     #define INST_JUMP_TRUE4 37
454     #define INST_JUMP_FALSE1 38
455     #define INST_JUMP_FALSE4 39
456    
457     /* Opcodes 40 to 64 */
458     #define INST_LOR 40
459     #define INST_LAND 41
460     #define INST_BITOR 42
461     #define INST_BITXOR 43
462     #define INST_BITAND 44
463     #define INST_EQ 45
464     #define INST_NEQ 46
465     #define INST_LT 47
466     #define INST_GT 48
467     #define INST_LE 49
468     #define INST_GE 50
469     #define INST_LSHIFT 51
470     #define INST_RSHIFT 52
471     #define INST_ADD 53
472     #define INST_SUB 54
473     #define INST_MULT 55
474     #define INST_DIV 56
475     #define INST_MOD 57
476     #define INST_UPLUS 58
477     #define INST_UMINUS 59
478     #define INST_BITNOT 60
479     #define INST_LNOT 61
480     #define INST_CALL_BUILTIN_FUNC1 62
481     #define INST_CALL_FUNC1 63
482     #define INST_TRY_CVT_TO_NUMERIC 64
483    
484     /* Opcodes 65 to 66 */
485     #define INST_BREAK 65
486     #define INST_CONTINUE 66
487    
488     /* Opcodes 67 to 68 */
489     #define INST_FOREACH_START4 67
490     #define INST_FOREACH_STEP4 68
491    
492     /* Opcodes 69 to 72 */
493     #define INST_BEGIN_CATCH4 69
494     #define INST_END_CATCH 70
495     #define INST_PUSH_RESULT 71
496     #define INST_PUSH_RETURN_CODE 72
497    
498     /* The last opcode */
499     #define LAST_INST_OPCODE 72
500    
501     /*
502     * Table describing the Tcl bytecode instructions: their name (for
503     * displaying code), total number of code bytes required (including
504     * operand bytes), and a description of the type of each operand.
505     * These operand types include signed and unsigned integers of length
506     * one and four bytes. The unsigned integers are used for indexes or
507     * for, e.g., the count of objects to push in a "push" instruction.
508     */
509    
510     #define MAX_INSTRUCTION_OPERANDS 2
511    
512     typedef enum InstOperandType {
513     OPERAND_NONE,
514     OPERAND_INT1, /* One byte signed integer. */
515     OPERAND_INT4, /* Four byte signed integer. */
516     OPERAND_UINT1, /* One byte unsigned integer. */
517     OPERAND_UINT4 /* Four byte unsigned integer. */
518     } InstOperandType;
519    
520     typedef struct InstructionDesc {
521     char *name; /* Name of instruction. */
522     int numBytes; /* Total number of bytes for instruction. */
523     int numOperands; /* Number of operands. */
524     InstOperandType opTypes[MAX_INSTRUCTION_OPERANDS];
525     /* The type of each operand. */
526     } InstructionDesc;
527    
528     extern InstructionDesc instructionTable[];
529    
530     /*
531     * Definitions of the values of the INST_CALL_BUILTIN_FUNC instruction's
532     * operand byte. Each value denotes a builtin Tcl math function. These
533     * values must correspond to the entries in the builtinFuncTable array
534     * below and to the values stored in the tclInt.h MathFunc structure's
535     * builtinFuncIndex field.
536     */
537    
538     #define BUILTIN_FUNC_ACOS 0
539     #define BUILTIN_FUNC_ASIN 1
540     #define BUILTIN_FUNC_ATAN 2
541     #define BUILTIN_FUNC_ATAN2 3
542     #define BUILTIN_FUNC_CEIL 4
543     #define BUILTIN_FUNC_COS 5
544     #define BUILTIN_FUNC_COSH 6
545     #define BUILTIN_FUNC_EXP 7
546     #define BUILTIN_FUNC_FLOOR 8
547     #define BUILTIN_FUNC_FMOD 9
548     #define BUILTIN_FUNC_HYPOT 10
549     #define BUILTIN_FUNC_LOG 11
550     #define BUILTIN_FUNC_LOG10 12
551     #define BUILTIN_FUNC_POW 13
552     #define BUILTIN_FUNC_SIN 14
553     #define BUILTIN_FUNC_SINH 15
554     #define BUILTIN_FUNC_SQRT 16
555     #define BUILTIN_FUNC_TAN 17
556     #define BUILTIN_FUNC_TANH 18
557     #define BUILTIN_FUNC_ABS 19
558     #define BUILTIN_FUNC_DOUBLE 20
559     #define BUILTIN_FUNC_INT 21
560     #define BUILTIN_FUNC_RAND 22
561     #define BUILTIN_FUNC_ROUND 23
562     #define BUILTIN_FUNC_SRAND 24
563    
564     #define LAST_BUILTIN_FUNC 24
565    
566     /*
567     * Table describing the built-in math functions. Entries in this table are
568     * indexed by the values of the INST_CALL_BUILTIN_FUNC instruction's
569     * operand byte.
570     */
571    
572     typedef int (CallBuiltinFuncProc) _ANSI_ARGS_((Tcl_Interp *interp,
573     ExecEnv *eePtr, ClientData clientData));
574    
575     typedef struct {
576     char *name; /* Name of function. */
577     int numArgs; /* Number of arguments for function. */
578     Tcl_ValueType argTypes[MAX_MATH_ARGS];
579     /* Acceptable types for each argument. */
580     CallBuiltinFuncProc *proc; /* Procedure implementing this function. */
581     ClientData clientData; /* Additional argument to pass to the
582     * function when invoking it. */
583     } BuiltinFunc;
584    
585     extern BuiltinFunc builtinFuncTable[];
586    
587     /*
588     * Compilation of some Tcl constructs such as if commands and the logical or
589     * (||) and logical and (&&) operators in expressions requires the
590     * generation of forward jumps. Since the PC target of these jumps isn't
591     * known when the jumps are emitted, we record the offset of each jump in an
592     * array of JumpFixup structures. There is one array for each sequence of
593     * jumps to one target PC. When we learn the target PC, we update the jumps
594     * with the correct distance. Also, if the distance is too great (> 127
595     * bytes), we replace the single-byte jump with a four byte jump
596     * instruction, move the instructions after the jump down, and update the
597     * code offsets for any commands between the jump and the target.
598     */
599    
600     typedef enum {
601     TCL_UNCONDITIONAL_JUMP,
602     TCL_TRUE_JUMP,
603     TCL_FALSE_JUMP
604     } TclJumpType;
605    
606     typedef struct JumpFixup {
607     TclJumpType jumpType; /* Indicates the kind of jump. */
608     int codeOffset; /* Offset of the first byte of the one-byte
609     * forward jump's code. */
610     int cmdIndex; /* Index of the first command after the one
611     * for which the jump was emitted. Used to
612     * update the code offsets for subsequent
613     * commands if the two-byte jump at jumpPc
614     * must be replaced with a five-byte one. */
615     int exceptIndex; /* Index of the first range entry in the
616     * ExceptionRange array after the current
617     * one. This field is used to adjust the
618     * code offsets in subsequent ExceptionRange
619     * records when a jump is grown from 2 bytes
620     * to 5 bytes. */
621     } JumpFixup;
622    
623     #define JUMPFIXUP_INIT_ENTRIES 10
624    
625     typedef struct JumpFixupArray {
626     JumpFixup *fixup; /* Points to start of jump fixup array. */
627     int next; /* Index of next free array entry. */
628     int end; /* Index of last usable entry in array. */
629     int mallocedArray; /* 1 if array was expanded and fixups points
630     * into the heap, else 0. */
631     JumpFixup staticFixupSpace[JUMPFIXUP_INIT_ENTRIES];
632     /* Initial storage for jump fixup array. */
633     } JumpFixupArray;
634    
635     /*
636     * The structure describing one variable list of a foreach command. Note
637     * that only foreach commands inside procedure bodies are compiled inline so
638     * a ForeachVarList structure always describes local variables. Furthermore,
639     * only scalar variables are supported for inline-compiled foreach loops.
640     */
641    
642     typedef struct ForeachVarList {
643     int numVars; /* The number of variables in the list. */
644     int varIndexes[1]; /* An array of the indexes ("slot numbers")
645     * for each variable in the procedure's
646     * array of local variables. Only scalar
647     * variables are supported. The actual
648     * size of this field will be large enough
649     * to numVars indexes. THIS MUST BE THE
650     * LAST FIELD IN THE STRUCTURE! */
651     } ForeachVarList;
652    
653     /*
654     * Structure used to hold information about a foreach command that is needed
655     * during program execution. These structures are stored in CompileEnv and
656     * ByteCode structures as auxiliary data.
657     */
658    
659     typedef struct ForeachInfo {
660     int numLists; /* The number of both the variable and value
661     * lists of the foreach command. */
662     int firstValueTemp; /* Index of the first temp var in a proc
663     * frame used to point to a value list. */
664     int loopCtTemp; /* Index of temp var in a proc frame
665     * holding the loop's iteration count. Used
666     * to determine next value list element to
667     * assign each loop var. */
668     ForeachVarList *varLists[1];/* An array of pointers to ForeachVarList
669     * structures describing each var list. The
670     * actual size of this field will be large
671     * enough to numVars indexes. THIS MUST BE
672     * THE LAST FIELD IN THE STRUCTURE! */
673     } ForeachInfo;
674    
675     extern AuxDataType tclForeachInfoType;
676    
677     /*
678     * Structure containing a cached pointer to a command that is the result
679     * of resolving the command's name in some namespace. It is the internal
680     * representation for a cmdName object. It contains the pointer along
681     * with some information that is used to check the pointer's validity.
682     */
683    
684     typedef struct ResolvedCmdName {
685     Command *cmdPtr; /* A cached Command pointer. */
686     Namespace *refNsPtr; /* Points to the namespace containing the
687     * reference (not the namespace that
688     * contains the referenced command). */
689     long refNsId; /* refNsPtr's unique namespace id. Used to
690     * verify that refNsPtr is still valid
691     * (e.g., it's possible that the cmd's
692     * containing namespace was deleted and a
693     * new one created at the same address). */
694     int refNsCmdEpoch; /* Value of the referencing namespace's
695     * cmdRefEpoch when the pointer was cached.
696     * Before using the cached pointer, we check
697     * if the namespace's epoch was incremented;
698     * if so, this cached pointer is invalid. */
699     int cmdEpoch; /* Value of the command's cmdEpoch when this
700     * pointer was cached. Before using the
701     * cached pointer, we check if the cmd's
702     * epoch was incremented; if so, the cmd was
703     * renamed, deleted, hidden, or exposed, and
704     * so the pointer is invalid. */
705     int refCount; /* Reference count: 1 for each cmdName
706     * object that has a pointer to this
707     * ResolvedCmdName structure as its internal
708     * rep. This structure can be freed when
709     * refCount becomes zero. */
710     } ResolvedCmdName;
711    
712     /*
713     *----------------------------------------------------------------
714     * Procedures shared among Tcl bytecode compilation and execution
715     * modules but not used outside:
716     *----------------------------------------------------------------
717     */
718    
719     EXTERN void TclCleanupByteCode _ANSI_ARGS_((ByteCode *codePtr));
720     EXTERN int TclCompileCmdWord _ANSI_ARGS_((Tcl_Interp *interp,
721     Tcl_Token *tokenPtr, int count,
722     CompileEnv *envPtr));
723     EXTERN int TclCompileExpr _ANSI_ARGS_((Tcl_Interp *interp,
724     char *script, int numBytes,
725     CompileEnv *envPtr));
726     EXTERN int TclCompileExprWords _ANSI_ARGS_((Tcl_Interp *interp,
727     Tcl_Token *tokenPtr, int numWords,
728     CompileEnv *envPtr));
729     EXTERN int TclCompileScript _ANSI_ARGS_((Tcl_Interp *interp,
730     char *script, int numBytes, int nested,
731     CompileEnv *envPtr));
732     EXTERN int TclCompileTokens _ANSI_ARGS_((Tcl_Interp *interp,
733     Tcl_Token *tokenPtr, int count,
734     CompileEnv *envPtr));
735     EXTERN int TclCreateAuxData _ANSI_ARGS_((ClientData clientData,
736     AuxDataType *typePtr, CompileEnv *envPtr));
737     EXTERN int TclCreateExceptRange _ANSI_ARGS_((
738     ExceptionRangeType type, CompileEnv *envPtr));
739     EXTERN ExecEnv * TclCreateExecEnv _ANSI_ARGS_((Tcl_Interp *interp));
740     EXTERN void TclDeleteExecEnv _ANSI_ARGS_((ExecEnv *eePtr));
741     EXTERN void TclDeleteLiteralTable _ANSI_ARGS_((
742     Tcl_Interp *interp, LiteralTable *tablePtr));
743     EXTERN void TclEmitForwardJump _ANSI_ARGS_((CompileEnv *envPtr,
744     TclJumpType jumpType, JumpFixup *jumpFixupPtr));
745     EXTERN ExceptionRange * TclGetExceptionRangeForPc _ANSI_ARGS_((
746     unsigned char *pc, int catchOnly,
747     ByteCode* codePtr));
748     EXTERN InstructionDesc * TclGetInstructionTable _ANSI_ARGS_(());
749     EXTERN int TclExecuteByteCode _ANSI_ARGS_((Tcl_Interp *interp,
750     ByteCode *codePtr));
751     EXTERN void TclExpandCodeArray _ANSI_ARGS_((
752     CompileEnv *envPtr));
753     EXTERN void TclExpandJumpFixupArray _ANSI_ARGS_((
754     JumpFixupArray *fixupArrayPtr));
755     EXTERN void TclFinalizeAuxDataTypeTable _ANSI_ARGS_((void));
756     EXTERN int TclFindCompiledLocal _ANSI_ARGS_((char *name,
757     int nameChars, int create, int flags,
758     Proc *procPtr));
759     EXTERN LiteralEntry * TclLookupLiteralEntry _ANSI_ARGS_((
760     Tcl_Interp *interp, Tcl_Obj *objPtr));
761     EXTERN int TclFixupForwardJump _ANSI_ARGS_((
762     CompileEnv *envPtr, JumpFixup *jumpFixupPtr,
763     int jumpDist, int distThreshold));
764     EXTERN void TclFreeCompileEnv _ANSI_ARGS_((CompileEnv *envPtr));
765     EXTERN void TclFreeJumpFixupArray _ANSI_ARGS_((
766     JumpFixupArray *fixupArrayPtr));
767     EXTERN void TclInitAuxDataTypeTable _ANSI_ARGS_((void));
768     EXTERN void TclInitByteCodeObj _ANSI_ARGS_((Tcl_Obj *objPtr,
769     CompileEnv *envPtr));
770     EXTERN void TclInitCompilation _ANSI_ARGS_((void));
771     EXTERN void TclInitCompileEnv _ANSI_ARGS_((Tcl_Interp *interp,
772     CompileEnv *envPtr, char *string,
773     int numBytes));
774     EXTERN void TclInitJumpFixupArray _ANSI_ARGS_((
775     JumpFixupArray *fixupArrayPtr));
776     EXTERN void TclInitLiteralTable _ANSI_ARGS_((
777     LiteralTable *tablePtr));
778     #ifdef TCL_COMPILE_STATS
779     EXTERN char * TclLiteralStats _ANSI_ARGS_((
780     LiteralTable *tablePtr));
781     EXTERN int TclLog2 _ANSI_ARGS_((int value));
782     #endif
783     #ifdef TCL_COMPILE_DEBUG
784     EXTERN void TclPrintByteCodeObj _ANSI_ARGS_((Tcl_Interp *interp,
785     Tcl_Obj *objPtr));
786     #endif
787     EXTERN int TclPrintInstruction _ANSI_ARGS_((ByteCode* codePtr,
788     unsigned char *pc));
789     EXTERN void TclPrintObject _ANSI_ARGS_((FILE *outFile,
790     Tcl_Obj *objPtr, int maxChars));
791     EXTERN void TclPrintSource _ANSI_ARGS_((FILE *outFile,
792     char *string, int maxChars));
793     EXTERN void TclRegisterAuxDataType _ANSI_ARGS_((AuxDataType *typePtr));
794     EXTERN int TclRegisterLiteral _ANSI_ARGS_((CompileEnv *envPtr,
795     char *bytes, int length, int onHeap));
796     EXTERN void TclReleaseLiteral _ANSI_ARGS_((Tcl_Interp *interp,
797     Tcl_Obj *objPtr));
798     EXTERN void TclSetCmdNameObj _ANSI_ARGS_((Tcl_Interp *interp,
799     Tcl_Obj *objPtr, Command *cmdPtr));
800     #ifdef TCL_COMPILE_DEBUG
801     EXTERN void TclVerifyGlobalLiteralTable _ANSI_ARGS_((
802     Interp *iPtr));
803     EXTERN void TclVerifyLocalLiteralTable _ANSI_ARGS_((
804     CompileEnv *envPtr));
805     #endif
806    
807     /*
808     *----------------------------------------------------------------
809     * Macros used by Tcl bytecode compilation and execution modules
810     * inside the Tcl core but not used outside.
811     *----------------------------------------------------------------
812     */
813    
814     /*
815     * Macro to emit an opcode byte into a CompileEnv's code array.
816     * The ANSI C "prototype" for this macro is:
817     *
818     * EXTERN void TclEmitOpcode _ANSI_ARGS_((unsigned char op,
819     * CompileEnv *envPtr));
820     */
821    
822     #define TclEmitOpcode(op, envPtr) \
823     if ((envPtr)->codeNext == (envPtr)->codeEnd) \
824     TclExpandCodeArray(envPtr); \
825     *(envPtr)->codeNext++ = (unsigned char) (op)
826    
827     /*
828     * Macro to emit an integer operand.
829     * The ANSI C "prototype" for this macro is:
830     *
831     * EXTERN void TclEmitInt1 _ANSI_ARGS_((int i, CompileEnv *envPtr));
832     */
833    
834     #define TclEmitInt1(i, envPtr) \
835     if ((envPtr)->codeNext == (envPtr)->codeEnd) \
836     TclExpandCodeArray(envPtr); \
837     *(envPtr)->codeNext++ = (unsigned char) ((unsigned int) (i))
838    
839     /*
840     * Macros to emit an instruction with signed or unsigned integer operands.
841     * Four byte integers are stored in "big-endian" order with the high order
842     * byte stored at the lowest address.
843     * The ANSI C "prototypes" for these macros are:
844     *
845     * EXTERN void TclEmitInstInt1 _ANSI_ARGS_((unsigned char op, int i,
846     * CompileEnv *envPtr));
847     * EXTERN void TclEmitInstInt4 _ANSI_ARGS_((unsigned char op, int i,
848     * CompileEnv *envPtr));
849     */
850    
851     #define TclEmitInstInt1(op, i, envPtr) \
852     if (((envPtr)->codeNext + 2) > (envPtr)->codeEnd) { \
853     TclExpandCodeArray(envPtr); \
854     } \
855     *(envPtr)->codeNext++ = (unsigned char) (op); \
856     *(envPtr)->codeNext++ = (unsigned char) ((unsigned int) (i))
857    
858     #define TclEmitInstInt4(op, i, envPtr) \
859     if (((envPtr)->codeNext + 5) > (envPtr)->codeEnd) { \
860     TclExpandCodeArray(envPtr); \
861     } \
862     *(envPtr)->codeNext++ = (unsigned char) (op); \
863     *(envPtr)->codeNext++ = \
864     (unsigned char) ((unsigned int) (i) >> 24); \
865     *(envPtr)->codeNext++ = \
866     (unsigned char) ((unsigned int) (i) >> 16); \
867     *(envPtr)->codeNext++ = \
868     (unsigned char) ((unsigned int) (i) >> 8); \
869     *(envPtr)->codeNext++ = \
870     (unsigned char) ((unsigned int) (i) )
871    
872     /*
873     * Macro to push a Tcl object onto the Tcl evaluation stack. It emits the
874     * object's one or four byte array index into the CompileEnv's code
875     * array. These support, respectively, a maximum of 256 (2**8) and 2**32
876     * objects in a CompileEnv. The ANSI C "prototype" for this macro is:
877     *
878     * EXTERN void TclEmitPush _ANSI_ARGS_((int objIndex, CompileEnv *envPtr));
879     */
880    
881     #define TclEmitPush(objIndex, envPtr) \
882     if ((objIndex) <= 255) { \
883     TclEmitInstInt1(INST_PUSH1, (objIndex), (envPtr)); \
884     } else { \
885     TclEmitInstInt4(INST_PUSH4, (objIndex), (envPtr)); \
886     }
887    
888     /*
889     * Macros to update a (signed or unsigned) integer starting at a pointer.
890     * The two variants depend on the number of bytes. The ANSI C "prototypes"
891     * for these macros are:
892     *
893     * EXTERN void TclStoreInt1AtPtr _ANSI_ARGS_((int i, unsigned char *p));
894     * EXTERN void TclStoreInt4AtPtr _ANSI_ARGS_((int i, unsigned char *p));
895     */
896    
897     #define TclStoreInt1AtPtr(i, p) \
898     *(p) = (unsigned char) ((unsigned int) (i))
899    
900     #define TclStoreInt4AtPtr(i, p) \
901     *(p) = (unsigned char) ((unsigned int) (i) >> 24); \
902     *(p+1) = (unsigned char) ((unsigned int) (i) >> 16); \
903     *(p+2) = (unsigned char) ((unsigned int) (i) >> 8); \
904     *(p+3) = (unsigned char) ((unsigned int) (i) )
905    
906     /*
907     * Macros to update instructions at a particular pc with a new op code
908     * and a (signed or unsigned) int operand. The ANSI C "prototypes" for
909     * these macros are:
910     *
911     * EXTERN void TclUpdateInstInt1AtPc _ANSI_ARGS_((unsigned char op, int i,
912     * unsigned char *pc));
913     * EXTERN void TclUpdateInstInt4AtPc _ANSI_ARGS_((unsigned char op, int i,
914     * unsigned char *pc));
915     */
916    
917     #define TclUpdateInstInt1AtPc(op, i, pc) \
918     *(pc) = (unsigned char) (op); \
919     TclStoreInt1AtPtr((i), ((pc)+1))
920    
921     #define TclUpdateInstInt4AtPc(op, i, pc) \
922     *(pc) = (unsigned char) (op); \
923     TclStoreInt4AtPtr((i), ((pc)+1))
924    
925     /*
926     * Macros to get a signed integer (GET_INT{1,2}) or an unsigned int
927     * (GET_UINT{1,2}) from a pointer. There are two variants for each
928     * return type that depend on the number of bytes fetched.
929     * The ANSI C "prototypes" for these macros are:
930     *
931     * EXTERN int TclGetInt1AtPtr _ANSI_ARGS_((unsigned char *p));
932     * EXTERN int TclGetInt4AtPtr _ANSI_ARGS_((unsigned char *p));
933     * EXTERN unsigned int TclGetUInt1AtPtr _ANSI_ARGS_((unsigned char *p));
934     * EXTERN unsigned int TclGetUInt4AtPtr _ANSI_ARGS_((unsigned char *p));
935     */
936    
937     /*
938     * The TclGetInt1AtPtr macro is tricky because we want to do sign
939     * extension on the 1-byte value. Unfortunately the "char" type isn't
940     * signed on all platforms so sign-extension doesn't always happen
941     * automatically. Sometimes we can explicitly declare the pointer to be
942     * signed, but other times we have to explicitly sign-extend the value
943     * in software.
944     */
945    
946     #ifndef __CHAR_UNSIGNED__
947     # define TclGetInt1AtPtr(p) ((int) *((char *) p))
948     #else
949     # ifdef HAVE_SIGNED_CHAR
950     # define TclGetInt1AtPtr(p) ((int) *((signed char *) p))
951     # else
952     # define TclGetInt1AtPtr(p) (((int) *((char *) p)) \
953     | ((*(p) & 0200) ? (-256) : 0))
954     # endif
955     #endif
956    
957     #define TclGetInt4AtPtr(p) (((int) TclGetInt1AtPtr(p) << 24) | \
958     (*((p)+1) << 16) | \
959     (*((p)+2) << 8) | \
960     (*((p)+3)))
961    
962     #define TclGetUInt1AtPtr(p) ((unsigned int) *(p))
963     #define TclGetUInt4AtPtr(p) ((unsigned int) (*(p) << 24) | \
964     (*((p)+1) << 16) | \
965     (*((p)+2) << 8) | \
966     (*((p)+3)))
967    
968     /*
969     * Macros used to compute the minimum and maximum of two integers.
970     * The ANSI C "prototypes" for these macros are:
971     *
972     * EXTERN int TclMin _ANSI_ARGS_((int i, int j));
973     * EXTERN int TclMax _ANSI_ARGS_((int i, int j));
974     */
975    
976     #define TclMin(i, j) ((((int) i) < ((int) j))? (i) : (j))
977     #define TclMax(i, j) ((((int) i) > ((int) j))? (i) : (j))
978    
979     # undef TCL_STORAGE_CLASS
980     # define TCL_STORAGE_CLASS DLLIMPORT
981    
982     #endif /* _TCLCOMPILATION */
983    
984    
985     /* $History: tclcompile.h $
986     *
987     * ***************** Version 1 *****************
988     * User: Dtashley Date: 1/02/01 Time: 1:27a
989     * Created in $/IjuScripter, IjuConsole/Source/Tcl Base
990     * Initial check-in.
991     */
992    
993     /* End of TCLCOMPILE.H */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25