[Qemacs-commit] qemacs qe.h

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        14/03/10 01:59:07

Modified files:
        .              : qe.h 

Log message:
        add char class test functions for _
        
        * add qe_isdigit_(c)
        * add qe_isupper_(c)
        * add qe_islower_(c)
        * add qe_isoctdigit(c)
        * add qe_isbindigit(c)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/qe.h?cvsroot=qemacs&r1=1.147&r2=1.148

Patches:
Index: qe.h
===================================================================
RCS file: /sources/qemacs/qemacs/qe.h,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -b -r1.147 -r1.148
--- qe.h        7 Mar 2014 17:34:25 -0000       1.147
+++ qe.h        10 Mar 2014 01:59:06 -0000      1.148
@@ -236,18 +236,33 @@
 static inline int qe_isdigit(int c) {
     return qe_inrange(c, '0', '9');
 }
+static inline int qe_isdigit_(int c) {
+    return (qe_inrange(c, '0', '9') || c == '_');
+}
 static inline int qe_isupper(int c) {
     return qe_inrange(c, 'A', 'Z');
 }
+static inline int qe_isupper_(int c) {
+    return (qe_inrange(c, 'A', 'Z') || c == '_');
+}
 static inline int qe_islower(int c) {
     return qe_inrange(c, 'a', 'z');
 }
+static inline int qe_islower_(int c) {
+    return (qe_inrange(c, 'a', 'z') || (c == '_'));
+}
 static inline int qe_isalpha(int c) {
     return qe_inrange(c | ('a' - 'A'), 'a', 'z');
 }
 static inline int qe_isalpha_(int c) {
     return (qe_inrange(c | ('a' - 'A'), 'a', 'z') || c == '_');
 }
+static inline int qe_isoctdigit(int c) {
+    return qe_inrange(c, '0', '7');
+}
+static inline int qe_isbindigit(int c) {
+    return qe_inrange(c, '0', '1');
+}
 static inline int qe_isxdigit(int c) {
     return (qe_inrange(c, '0', '9') ||
             qe_inrange(c | ('a' - 'A'), 'a', 'f'));