#lang scheme/base
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; MIME.plt
;;
;; an extensible MIME framework.
;;
;; Bonzai Lab, LLC.  All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; content-length.ss - reader & writer for content length...
;; yc 2/18/2010 - first version.

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

(mime-header-reader-set! "Content-Length" (make-reader integer))

;; we also want to use this to manage the length aspect
(define mime-include-content-length? (make-parameter #f)) 

(provide/contract 
 (mime-include-content-length? (parameter/c boolean?))
 )