Changeset 11983 in project for release/4/intarweb/trunk/header-parsers.scm

Timestamp:

09/23/08 22:42:42 (13 years ago)

Author:

sjamaan

Message:

Add feeble beginnings of the new spiffy implementation based on intarweb

File:

• release/4/intarweb/trunk/header-parsers.scm (modified) (1 diff)

release/4/intarweb/trunk/header-parsers.scm

@@ -22 +22 @@
 (define (header-values header-name headers)
   (map (cut vector-ref <> 0) (header-contents header-name headers '())))
+
+;; Get the value of a header, assuming it has only one value
+(define (header-value header-name headers #!optional (default #f))
+  (let ((contents (header-contents header-name headers '())))
+    (if (null? contents)
+        default
+        (vector-ref (car contents) 0))))
 
 ;; Get the value of a header which is an alist