wasCSharpSQLite – Blame information for rev 4

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 /*
2 * TCL.java --
3 *
4 * This class stores all the public constants for the tcl.lang.
5 * The exact values should match those in tcl.h.
6 *
7 * Copyright (c) 1997 Sun Microsystems, Inc.
8 *
9 * See the file "license.terms" for information on usage and
10 * redistribution of this file, and for a DISCLAIMER OF ALL
11 * WARRANTIES.
12 *
13 * Included in SQLite3 port to C# for use in testharness only; 2008 Noah B Hart
14 *
15 * RCS @(#) $Id: TCL.java,v 1.4 2000/05/14 23:10:20 mo Exp $
16 *
17 */
18 using System;
19 namespace tcl.lang
20 {
21  
22 // This class holds all the publicly defined constants contained by the
23 // tcl.lang package.
24  
25 public partial class TCL
26 {
27  
28 // Flag values passed to variable-related procedures. THESE VALUES
29 // MUST BE CONSISTANT WITH THE C IMPLEMENTATION OF TCL.
30  
31 [Flags()]
32 public enum VarFlag
33 {
34 GLOBAL_ONLY = 1,
35 NAMESPACE_ONLY = 2,
36 APPEND_VALUE = 4,
37 LIST_ELEMENT = 8,
38 TRACE_READS = 0x10,
39 TRACE_WRITES = 0x20,
40 TRACE_UNSETS = 0x40,
41 TRACE_DESTROYED = 0x80,
42 INTERP_DESTROYED = 0x100,
43 LEAVE_ERR_MSG = 0x200,
44 TRACE_ARRAY = 0x800,
45 FIND_ONLY_NS = 0x1000,
46 CREATE_NS_IF_UNKNOWN = 0x800,
47 };
48  
49 // When an TclException is thrown, its compCode may contain any
50 // of the following values:
51 //
52 // TCL.CompletionCode.ERROR The command couldn't be completed successfully;
53 // the interpreter's result describes what went wrong.
54 // TCL.CompletionCode.RETURN The command requests that the current procedure
55 // return; the interpreter's result contains the
56 // procedure's return value.
57 // TCL.CompletionCode.BREAK The command requests that the innermost loop
58 // be exited; the interpreter's result is meaningless.
59 // TCL.CompletionCode.CONTINUE Go on to the next iteration of the current loop;
60 // the interpreter's result is meaningless.
61 // TCL.CompletionCode.OK is only used internally. TclExceptions should never be thrown with
62 // the completion code TCL.CompletionCode.OK. If the desired completion code is TCL.CompletionCode.OK, no
63 // exception should be thrown.
64  
65 public enum CompletionCode
66 {
67 OK = 0,
68 ERROR = 1,
69 RETURN = 2,
70 BREAK = 3,
71 CONTINUE = 4,
72 EXIT = 5
73 };
74  
75  
76 // The following value is used by the Interp::commandComplete(). It's used
77 // to report that a script is not complete.
78  
79 protected internal const int INCOMPLETE = 10;
80  
81 // Flag values to pass to TCL.Tcl_DoOneEvent to disable searches
82 // for some kinds of events:
83  
84 public const int DONT_WAIT = ( 1 << 1 );
85 public const int WINDOW_EVENTS = ( 1 << 2 );
86 public const int FILE_EVENTS = ( 1 << 3 );
87 public const int TIMER_EVENTS = ( 1 << 4 );
88 public const int IDLE_EVENTS = ( 1 << 5 );
89 public const int ALL_EVENTS = ( ~DONT_WAIT );
90  
91 // The largest positive and negative integer values that can be
92 // represented in Tcl.
93  
94 internal const long INT_MAX = 2147483647;
95 internal const long INT_MIN = - 2147483648;
96  
97 // These values are used by Util.strtoul and Util.strtod to
98 // report conversion errors.
99  
100 internal const int INVALID_INTEGER = -1;
101 internal const int INTEGER_RANGE = -2;
102 internal const int INVALID_DOUBLE = -3;
103 internal const int DOUBLE_RANGE = -4;
104  
105 // Positions to pass to TCL.Tcl_QueueEvent. THESE VALUES
106 // MUST BE CONSISTANT WITH THE C IMPLEMENTATION OF TCL.
107  
108 public const int QUEUE_TAIL = 0;
109 public const int QUEUE_HEAD = 1;
110 public const int QUEUE_MARK = 2;
111  
112 // Flags used to control the TclIndex.get method.
113  
114 public const int EXACT = 1; // Matches must be exact.
115  
116 // Flag values passed to recordAndEval and/or evalObj.
117 // These values must match those defined in tcl.h !!!
118  
119 // Note: EVAL_DIRECT is not currently used in Jacl.
120  
121 public const int NO_EVAL = 0x10000;
122 public const int EVAL_GLOBAL = 0x20000;
123 public const int EVAL_DIRECT = 0x40000;
124 } // end TCL
125 }