Overview
| Comment: | Added parse flag option macro |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | crypto |
| Files: | files | file ages | folders |
| SHA3-256: |
d986eba4ccd83c77dfa9068d2c9644ed |
| User & Date: | bohagan on 2023-10-15 21:31:59 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-10-20
| ||
| 22:59 | Updated test suite to use OpenSSL list for ciphers list check-in: 40a8eb4d6f user: bohagan tags: crypto | |
|
2023-10-15
| ||
| 21:31 | Added parse flag option macro check-in: d986eba4cc user: bohagan tags: crypto | |
|
2023-10-14
| ||
| 23:16 | Updated digests command to filter out RSA digests since only used for signature algorithms. check-in: 0a899f2c18 user: bohagan tags: crypto | |
Changes
Modified generic/tclOpts.h
from [fee5089a30]
to [886b892588].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
/*
* 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, \
"no argument given for ", \
(option), " option", \
(char *) NULL); \
return TCL_ERROR; \
}
#define OPT_POSTLOG() \
continue; \
}
#define OPTOBJ(option, var) \
OPT_PROLOG(option) \
var = objv[idx]; \
OPT_POSTLOG()
#define OPTSTR(option, var) \
OPT_PROLOG(option) \
| > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
/*
* 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 OPTFLAG(option, var) \
if (strcmp(opt, (option)) == 0) { \
var = 1; \
continue; \
}
#define OPT_PROLOG(option) \
if (strcmp(opt, (option)) == 0) { \
if (++idx >= objc) { \
Tcl_AppendResult(interp, \
"no argument given for ", \
(option), " option", \
(char *) NULL); \
return TCL_ERROR; \
}
#define OPT_POSTLOG() \
continue; \
}
#define OPTOBJ(option, var) \
OPT_PROLOG(option) \
var = objv[idx]; \
OPT_POSTLOG()
#define OPTSTR(option, var) \
OPT_PROLOG(option) \
|
| ︙ | ︙ |