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 <[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, \ | > | 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, \ |
︙ | ︙ |