diff options
| author | krasimir <krasimir@chalmers.se> | 2015-05-07 15:50:55 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-05-07 15:50:55 +0000 |
| commit | b961e9a2557ad3cc6023252abff1d02f3d067834 (patch) | |
| tree | 267b0f689709931919d56903bf26bf7c69167320 /src/runtime/c | |
| parent | bf3b6f2794707cdd814c44d5ff21dea7bf89575e (diff) | |
fix gu_ucs_is_space in libgu
Diffstat (limited to 'src/runtime/c')
| -rw-r--r-- | src/runtime/c/gu/ucs.c | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/runtime/c/gu/ucs.c b/src/runtime/c/gu/ucs.c index 846c33289..2dda303c3 100644 --- a/src/runtime/c/gu/ucs.c +++ b/src/runtime/c/gu/ucs.c @@ -4780,19 +4780,17 @@ bool p(GuUCS c) \ return checkattr(c,m); \ } -#define unipred_s(p,m) \ -bool p(GuUCS c) \ -{ \ - return checkattr_s(c,m); \ +bool gu_ucs_is_space(GuUCS c) +{ + if (c == ' ' || c == '\t' || c == '\n' || c == '\r' || + c == '\f' || c == '\v' || c == '\xa0') + return true; + return checkattr_s(c,GENCAT_ZS); } -/* - Make these rules as close to Hugs as possible. -*/ unipred(gu_ucs_is_cntrl,GENCAT_CC) unipred(gu_ucs_is_print, (GENCAT_MC | GENCAT_NO | GENCAT_SK | GENCAT_ME | GENCAT_ND | GENCAT_PO | GENCAT_LT | GENCAT_PC | GENCAT_SM | GENCAT_ZS | GENCAT_LU | GENCAT_PD | GENCAT_SO | GENCAT_PE | GENCAT_PF | GENCAT_PS | GENCAT_SC | GENCAT_LL | GENCAT_LM | GENCAT_PI | GENCAT_NL | GENCAT_MN | GENCAT_LO)) -unipred_s(gu_ucs_is_space,GENCAT_ZS) unipred(gu_ucs_is_upper,(GENCAT_LU|GENCAT_LT)) unipred(gu_ucs_is_lower,GENCAT_LL) unipred(gu_ucs_is_alpha,(GENCAT_LL|GENCAT_LU|GENCAT_LT|GENCAT_LM|GENCAT_LO)) |