diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-08-02 20:48:02 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-02 20:56:50 +1000 |
| commit | 4d1bb6a0dbc23f76ec3447fe5eb3f60a408bd5ad (patch) | |
| tree | a9e91fd9dc166807ca2e4733c3c67b244384b43d /jimregexp.c | |
| parent | 1d72edfab5cff0e7bbc1e1e22ae7b1b6bdc756b4 (diff) | |
| download | jimtcl-4d1bb6a0dbc23f76ec3447fe5eb3f60a408bd5ad.zip jimtcl-4d1bb6a0dbc23f76ec3447fe5eb3f60a408bd5ad.tar.gz jimtcl-4d1bb6a0dbc23f76ec3447fe5eb3f60a408bd5ad.tar.bz2 | |
Add support for \U with up to 8 hex digits
TIP #388 compatibility
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jimregexp.c')
| -rw-r--r-- | jimregexp.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/jimregexp.c b/jimregexp.c index e899924..e904db8 100644 --- a/jimregexp.c +++ b/jimregexp.c @@ -647,6 +647,10 @@ static int reg_decode_escape(const char *s, int *ch) s += n; } break; + case 'U': + if ((n = parse_hex(s, 8, ch)) > 0) { + s += n; + } case 'x': if ((n = parse_hex(s, 2, ch)) > 0) { s += n; |