#lang scheme/base
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; MIME.plt
;;
;; an extensible MIME framework.
;;
;; Bonzai Lab, LLC.  All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mime-version.ss - read/write the mime-version headers...
;; yc 2/18/2010 - first version.

(require "depend.ss"
         "base.ss"
         )

(define p:MIME-Version (tokens/comment major <- digit 
                                     #\. 
                                     minor <- digit 
                                     (return (list->string (list major #\. minor)))))


(mime-header-reader-set! "MIME-Version" (make-reader p:MIME-Version #:eof? #f))