diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-06-01 16:13:39 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-06-01 16:13:39 (GMT) |
| commit | f176fcdf93951d96f0d097343aa76bc97f6fafe0 (patch) | |
| tree | 528ef69b321212a720a4ab82576c88bfcee3621e /generic/tclScan.c | |
| parent | d583a8f017ac344a3885545b94db1bdaf2f89913 (diff) | |
| download | tcl-f176fcdf93951d96f0d097343aa76bc97f6fafe0.zip tcl-f176fcdf93951d96f0d097343aa76bc97f6fafe0.tar.gz tcl-f176fcdf93951d96f0d097343aa76bc97f6fafe0.tar.bz2 | |
Some tidying up, mostly of indentation
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index cccdd7a..9a9e773 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -16,14 +16,15 @@ /* * 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_LONGER 0x400 /* Asked for a wide value. */ -#define SCAN_BIG 0x800 /* Asked for a bignum value. */ +enum ScanFlags { + SCAN_NOSKIP = 0x1, /* Don't skip blanks. */ + SCAN_SUPPRESS = 0x2, /* Suppress assignment. */ + SCAN_UNSIGNED = 0x4, /* Read an unsigned value. */ + SCAN_WIDTH = 0x8, /* A width value was supplied. */ + + SCAN_LONGER = 0x400, /* Asked for a wide value. */ + SCAN_BIG = 0x800 /* Asked for a bignum value. */ +}; /* * The following structure contains the information associated with a |