diff options
author | hobbs <hobbs> | 2001-07-16 18:35:49 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2001-07-16 18:35:49 (GMT) |
commit | b5f5e3b3fe8c3b1101c882a75fc15881440a4684 (patch) | |
tree | f5561882928e18d0e07cacc1eef69b8668c5c5c0 /generic/tclCmdMZ.c | |
parent | 0f0b00f13ef25642250299193c725a6aa989ea1c (diff) | |
download | tcl-b5f5e3b3fe8c3b1101c882a75fc15881440a4684.zip tcl-b5f5e3b3fe8c3b1101c882a75fc15881440a4684.tar.gz tcl-b5f5e3b3fe8c3b1101c882a75fc15881440a4684.tar.bz2 |
* generic/tclCmdMZ.c: Removed extra copy of the SCAN_* macros
#defined in generic/tclScan.c. (porter) [Bug 441230]
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 1024430..49708d7 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.40 2001/07/12 13:15:09 dkf Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.41 2001/07/16 18:35:50 hobbs Exp $ */ #include "tclInt.h" @@ -22,22 +22,6 @@ #include "tclRegexp.h" /* - * Flag values used by Tcl_ScanObjCmd. - */ - -#define SCAN_NOSKIP 0x1 /* Don't skip blanks. */ -#define SCAN_SUPPRESS 0x2 /* Suppress assignment. */ -#define SCAN_UNSIGNED 0x4 /* Read an unsigned value. */ -#define SCAN_WIDTH 0x8 /* A width value was supplied. */ - -#define SCAN_SIGNOK 0x10 /* A +/- character is allowed. */ -#define SCAN_NODIGITS 0x20 /* No digits have been scanned. */ -#define SCAN_NOZERO 0x40 /* No zero digits have been scanned. */ -#define SCAN_XOK 0x80 /* An 'x' is allowed. */ -#define SCAN_PTOK 0x100 /* Decimal point is allowed. */ -#define SCAN_EXPOK 0x200 /* An exponent is allowed. */ - -/* * Structure used to hold information about variable traces: */ |