summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-07-16 18:35:49 (GMT)
committerhobbs <hobbs>2001-07-16 18:35:49 (GMT)
commitb5f5e3b3fe8c3b1101c882a75fc15881440a4684 (patch)
treef5561882928e18d0e07cacc1eef69b8668c5c5c0 /generic/tclCmdMZ.c
parent0f0b00f13ef25642250299193c725a6aa989ea1c (diff)
downloadtcl-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.c18
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:
*/