Add predefined character class \D (no digit)

Matches every character except digits (`0` to `9`).

In PureBasic this means:

- `Chr(1)` to `Chr(47)`

- `Chr(58)` to `Chr(65535)`

Close #23

README.md

@@ -27,6 +27,7 @@ When matching, the RegEx engine matches always the longest match among several p
 | `\n`    | Matches the line feed |
 | `\t`    | Matches the tab character |
 | `\d`    | Matches the digits from `0` to `9` |
+| `\D`    | Matches every character except digits (`0` to `9`) |
 | `\s`    | Matches any whitespace character (`\t`, `\r`, `\n`, `\f` and `space`) |
 | `.`     | Matches every character except line breaks (`\r` and `\n`) |
 

RegExEngine.pbi

@@ -280,6 +280,44 @@ Module RegEx
     ProcedureReturn *base
   EndProcedure
 
+  Procedure CreateNfaNoDigits(*regExEngine)
+    Protected *base, *nfa1, *nfa2
+    Protected i
+
+    ; Chr(1) to Chr(47)
+    ; Chr(58) to Chr(65535)
+
+    ; nfa1      nfa2
+    ; [1-47]    [0]
+    ; [58-255]  [0]
+
+    *nfa1 = CreateNfaSymbol(*regExEngine, 1)
+    For i = 2 To 47
+      *nfa1 = CreateNfaUnion(*regExEngine, *nfa1, CreateNfaSymbol(*regExEngine, i))
+    Next
+    For i = 58 To 255
+      *nfa1 = CreateNfaUnion(*regExEngine, *nfa1, CreateNfaSymbol(*regExEngine, i))
+    Next
+    *nfa2 = CreateNfaSymbol(*regExEngine, 0)
+    *base = CreateNfaConcatenation(*regExEngine, *nfa1, *nfa2)
+
+    ; nfa1     nfa2
+    ; [0-255]  [1-255]
+
+    *nfa1 = CreateNfaSymbol(*regExEngine, 0)
+    For i = 1 To 255
+      *nfa1 = CreateNfaUnion(*regExEngine, *nfa1, CreateNfaSymbol(*regExEngine, i))
+    Next
+    *nfa2 = CreateNfaSymbol(*regExEngine, 1)
+    For i = 2 To 255
+      *nfa2 = CreateNfaUnion(*regExEngine, *nfa2, CreateNfaSymbol(*regExEngine, i))
+    Next
+    *base = CreateNfaUnion(*regExEngine, *base,
+                           CreateNfaConcatenation(*regExEngine, *nfa1, *nfa2))
+
+    ProcedureReturn *base
+  EndProcedure
+
   Procedure CreateNfaWhiteSpace(*regExEngine)
     Protected *base, *nfa1, *nfa2
 
@@ -383,6 +421,9 @@ Module RegEx
           Case 'd'
             *regExString\currentPosition + SizeOf(Unicode)
             ProcedureReturn CreateNfaDigits(*regExEngine)
+          Case 'D'
+            *regExString\currentPosition + SizeOf(Unicode)
+            ProcedureReturn CreateNfaNoDigits(*regExEngine)
           Case 's'
             *regExString\currentPosition + SizeOf(Unicode)
             ProcedureReturn CreateNfaWhiteSpace(*regExEngine)