author | Mike Sullivan <Mike.Sullivan@Oracle.COM> |
Mon, 02 Nov 2015 11:02:02 -0800 | |
changeset 5040 | 6242a3f0012d |
parent 1897 | 9c849cc3d7d5 |
permissions | -rw-r--r-- |
1897
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
1 |
--- tcsh-6.18.01/sh.char.h.orig Thu Apr 17 10:20:22 2014 |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
2 |
+++ tcsh-6.18.01/sh.char.h Thu Apr 17 10:20:38 2014 |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
3 |
@@ -167,9 +167,9 @@ |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
4 |
#define iscmdmeta(c) cmap((c), _CMD) |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
5 |
#ifdef WIDE_STRINGS |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
6 |
#define letter(c) (((c) & QUOTE) ? 0 : \ |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
7 |
- (iswalpha((tcshuc) (c)) || (c) == '_')) |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
8 |
+ (iswalpha((c)) || (c) == '_')) |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
9 |
#define alnum(c) (((c) & QUOTE) ? 0 : \ |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
10 |
- (iswalnum((tcshuc) (c)) || (c) == '_')) |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
11 |
+ (iswalnum((c)) || (c) == '_')) |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
12 |
#else |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
13 |
#define letter(c) (((Char)(c) & QUOTE) ? 0 : \ |
9c849cc3d7d5
18590021 array name doesn't support multi-byte characters in tcsh
Mike Sullivan <Mike.Sullivan@Oracle.COM>
parents:
diff
changeset
|
14 |
((isalpha((tcshuc) (c)) && !(cmap((c), _PUN))) \ |