diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-14 10:17:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-14 10:17:31 (GMT) |
| commit | e59db7e00e94f016d7c222aea7603dbbc8eecb4e (patch) | |
| tree | 49eea3f1d82a1ac023889575a2e07d7643ad4b41 /generic/tclInt.h | |
| parent | 2f98c2ea4d9b29dc3a797522a457585ac5865388 (diff) | |
| parent | 920063dce71227734c3cd38eea46fd644ec37ded (diff) | |
| download | tcl-e59db7e00e94f016d7c222aea7603dbbc8eecb4e.zip tcl-e59db7e00e94f016d7c222aea7603dbbc8eecb4e.tar.gz tcl-e59db7e00e94f016d7c222aea7603dbbc8eecb4e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 16e1aa8..8d2e68a 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3080,7 +3080,6 @@ MODULE_SCOPE void TclInitNamespaceSubsystem(void); MODULE_SCOPE void TclInitNotifier(void); MODULE_SCOPE void TclInitObjSubsystem(void); MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); -MODULE_SCOPE int TclIsSpaceProc(int byte); MODULE_SCOPE int TclIsDigitProc(int byte); MODULE_SCOPE int TclIsBareword(int byte); MODULE_SCOPE Tcl_Obj * TclJoinPath(int elements, Tcl_Obj * const objv[], @@ -3306,6 +3305,16 @@ MODULE_SCOPE int TclZipfs_Init(Tcl_Interp *interp); /* + * Many parsing tasks need a common definition of whitespace. + * Use this routine and macro to achieve that and place + * optimization (fragile on changes) in one place. + */ + +MODULE_SCOPE int TclIsSpaceProc(int byte); +# define TclIsSpaceProcM(byte) \ + (((byte) > 0x20) ? 0 : TclIsSpaceProc(byte)) + +/* *---------------------------------------------------------------- * Command procedures in the generic core: *---------------------------------------------------------------- |