Implement faster key/value parser.

src/util-parser.scm

@@ -35,7 +35,6 @@
  
  (import scheme
 	 (chicken base)
-	 (chicken irregex)
 	 testing)
 
  ;; Pass 0: Removes any comments and removes any leading and trailing
@@ -69,17 +68,29 @@
  ;; one token was there and pair of symbol and string if both key and
  ;; the value were present.
  (define (parser-parse-line line)
-   (if (= (string-length line) 0)
+   (let* ((llen (string-length line))
+	  (spos (let sloop ((sidx 0))
+		  (if (or (= sidx llen)
+			  (let ((ch (string-ref line sidx)))
+			    (or (eq? ch #\space)
+				(eq? ch #\tab))))
+		      sidx
+		      (sloop (add1 sidx)))))
+	  (vpos (let vloop ((vidx spos))
+		  (if (or (= vidx llen)
+			  (not (let ((ch (string-ref line vidx)))
+				 (or (eq? ch #\space)
+				     (eq? ch #\tab)))))
+		      vidx
+		      (vloop (add1 vidx))))))
+     (if (= llen 0)
 	 #f
-       (let ((dm (irregex-search (irregex "[ \\t]" 'u) line)))
+	 (if (< vpos llen)
-	 (if dm
+	     (cons (string->symbol
-	     (let* ((sep-idx (irregex-match-start-index dm))
+		    (substring line 0 spos))
-		    (key-str (substring line 0 sep-idx))
+		   (substring line vpos))
-		    (key (string->symbol key-str))
+	     (string->symbol
-		    (sep+val (substring line sep-idx))
+	      (substring line 0 spos))))))
-		    (val (irregex-replace (irregex "^[ \\t]*" 'u) sep+val "")))
-	       (cons key val))
-	     (string->symbol line)))))
 
  ;; Self-tests
  (define (parser-tests!)