2026 |
|
|
2027 |
case ESC_W: |
case ESC_W: |
2028 |
return item <= 127 && (cd->ctypes[item] & ctype_word) != 0; |
return item <= 127 && (cd->ctypes[item] & ctype_word) != 0; |
2029 |
|
|
2030 |
case ESC_h: |
case ESC_h: |
2031 |
case ESC_H: |
case ESC_H: |
2032 |
switch(item) |
switch(item) |
2053 |
return -next != ESC_h; |
return -next != ESC_h; |
2054 |
default: |
default: |
2055 |
return -next == ESC_h; |
return -next == ESC_h; |
2056 |
} |
} |
2057 |
|
|
2058 |
case ESC_v: |
case ESC_v: |
2059 |
case ESC_V: |
case ESC_V: |
2060 |
switch(item) |
switch(item) |
2069 |
return -next != ESC_v; |
return -next != ESC_v; |
2070 |
default: |
default: |
2071 |
return -next == ESC_v; |
return -next == ESC_v; |
2072 |
} |
} |
2073 |
|
|
2074 |
default: |
default: |
2075 |
return FALSE; |
return FALSE; |
2093 |
|
|
2094 |
case OP_NOT_HSPACE: |
case OP_NOT_HSPACE: |
2095 |
return next == -ESC_h; |
return next == -ESC_h; |
2096 |
|
|
2097 |
/* Can't have \S in here because VT matches \S (Perl anomaly) */ |
/* Can't have \S in here because VT matches \S (Perl anomaly) */ |
2098 |
case OP_VSPACE: |
case OP_VSPACE: |
2099 |
return next == -ESC_V || next == -ESC_d || next == -ESC_w; |
return next == -ESC_V || next == -ESC_d || next == -ESC_w; |
2100 |
|
|
2101 |
case OP_NOT_VSPACE: |
case OP_NOT_VSPACE: |
2102 |
return next == -ESC_v; |
return next == -ESC_v; |
2103 |
|
|
2104 |
case OP_WORDCHAR: |
case OP_WORDCHAR: |
2105 |
return next == -ESC_W || next == -ESC_s || next == -ESC_h || next == -ESC_v; |
return next == -ESC_W || next == -ESC_s || next == -ESC_h || next == -ESC_v; |
2106 |
|
|
2107 |
case OP_NOT_WORDCHAR: |
case OP_NOT_WORDCHAR: |
2108 |
return next == -ESC_w || next == -ESC_d; |
return next == -ESC_w || next == -ESC_d; |
2109 |
|
|
2110 |
default: |
default: |
2111 |
return FALSE; |
return FALSE; |
2112 |
} |
} |