diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-06-04 16:39:14 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-06-04 16:39:14 (GMT) |
| commit | 4fa54adbdec030bc26298f5f38d4435b4c1818b5 (patch) | |
| tree | 10ccf2d9a7dab459d4d12b5cf14002175ec9e927 /generic | |
| parent | 1719e80d015d40d514bb9209a921525b2d667d9c (diff) | |
| download | tcl-4fa54adbdec030bc26298f5f38d4435b4c1818b5.zip tcl-4fa54adbdec030bc26298f5f38d4435b4c1818b5.tar.gz tcl-4fa54adbdec030bc26298f5f38d4435b4c1818b5.tar.bz2 | |
TIP 696 #defines and docs
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 41e68a8..183d2ca 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -515,6 +515,9 @@ typedef struct stat *Tcl_OldStat_; * exited; the interpreter's result is meaningless. * TCL_CONTINUE Go on to the next iteration of the current loop; the * interpreter's result is meaningless. + * Integer return codes in the range TCL_CODE_MIN to TCL_CODE_MAX are + * reserved for the use of Tcl. Extensions and packages are free to use + * values outside this range for their own purposes. */ #define TCL_OK 0 @@ -522,6 +525,8 @@ typedef struct stat *Tcl_OldStat_; #define TCL_RETURN 2 #define TCL_BREAK 3 #define TCL_CONTINUE 4 +#define TCL_CODE_MAX 0x40000000 +#define TCL_CODE_MIN (-TCL_CODE_MAX) /* *---------------------------------------------------------------------------- |