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

1
2
3
4
5
6
7
8
9
10
11
12
13
14

+

/*
 *  Copyright (C) 1997-2000 Matt Newman <[email protected]>
 *
 * 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,		\