Differences From Artifact [b51276a00c]:
- File tclOpts.h — part of check-in [275ecbcc5d] at 2023-04-10 01:27:35 on branch trunk — Initial changes for TCL 9.0. Fixed package requires to work with TCL 9.0. Removed obsolete macro _ANSI_ARGS_, use ANSI arg definitions, etc. Macros: CONST84 to const, WIN32 to _WIN32, CONST to const, VOID to void, etc. Replaced Tcl_SaveResult with Tcl_SaveInterpState, Tcl_RestoreResult with Tcl_RestoreInterpState, and Tcl_DiscardResult with Tcl_DiscardInterpState. Use Tcl_BackgroundError for pre TCL 8.6 and Tcl_BackgroundException for TCL 8.6+. (user: bohagan, size: 1421) [annotate] [blame] [check-ins using]
To Artifact [26b0fd21c2]:
- File generic/tclOpts.h — part of check-in [3dcd70f98e] at 2023-04-30 16:07:43 on branch TEA — Moved files to subdirectories per TEA directory structure. (user: bohagan, size: 1422) [annotate] [blame] [check-ins using] [more...]
- File tclOpts.h — part of check-in [e02b79f82f] at 2023-04-30 02:08:22 on branch TEA — Format clean-ups. (user: bohagan, size: 1422) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 10 11 12 13 |
/*
* Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
*
* Stylized option processing - requires consistent
* external vars: opt, idx, objc, objv
*/
#ifndef _TCL_OPTS_H
#define _TCL_OPTS_H
#define OPT_PROLOG(option) \
if (strcmp(opt, (option)) == 0) { \
if (++idx >= objc) { \
Tcl_AppendResult(interp, \
| > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
/*
* Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
*
* Stylized option processing - requires consistent
* external vars: opt, idx, objc, objv
*/
#ifndef _TCL_OPTS_H
#define _TCL_OPTS_H
#define OPT_PROLOG(option) \
if (strcmp(opt, (option)) == 0) { \
if (++idx >= objc) { \
Tcl_AppendResult(interp, \
|
| ︙ | ︙ |