[Qemacs-commit] qemacs qe.h

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        14/04/13 14:44:55

Modified files:
        .              : qe.h 

Log message:
        extend all char class matchers to underscore
        
        * add qe_isoctdigit_(int c)
        * add qe_isbindigit_(int c)
        * add qe_isxdigit_(int c)

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

Patches:
Index: qe.h
===================================================================
RCS file: /sources/qemacs/qemacs/qe.h,v
retrieving revision 1.161
retrieving revision 1.162
diff -u -b -r1.161 -r1.162
--- qe.h        5 Apr 2014 15:49:15 -0000       1.161
+++ qe.h        13 Apr 2014 14:44:54 -0000      1.162
@@ -260,13 +260,23 @@
 static inline int qe_isoctdigit(int c) {
     return qe_inrange(c, '0', '7');
 }
+static inline int qe_isoctdigit_(int c) {
+    return qe_inrange(c, '0', '7') || (c == '_');
+}
 static inline int qe_isbindigit(int c) {
     return qe_inrange(c, '0', '1');
 }
+static inline int qe_isbindigit_(int c) {
+    return qe_inrange(c, '0', '1') || (c == '_');
+}
 static inline int qe_isxdigit(int c) {
     return (qe_inrange(c, '0', '9') ||
             qe_inrange(c | ('a' - 'A'), 'a', 'f'));
 }
+static inline int qe_isxdigit_(int c) {
+    return (qe_inrange(c, '0', '9') ||
+            qe_inrange(c | ('a' - 'A'), 'a', 'f') || (c == '_'));
+}
 static inline int qe_isalnum(int c) {
     return (qe_inrange(c, '0', '9') ||
             qe_inrange(c | ('a' - 'A'), 'a', 'z'));
@@ -290,7 +300,6 @@
 static inline int qe_tolower(int c) {
     return (qe_inrange(c, 'A', 'Z') ? c + 'a' - 'A' : c);
 }
-
 static int inline qe_findchar(const char *str, int c) {
     return qe_inrange(c, 1, 255) && strchr(str, c);
 }