#lang scheme/base
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; MIME.plt
;;
;; an extensible MIME framework.
;;
;; Bonzai Lab, LLC.  All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; sxml.ss - a specialized content object that holds an sxml structure.
;; yc 2/18/2010 - first version.
(require "depend.ss" 
         "base.ss"
         "mime.ss" 
         "content.ss"
         "content-type.ss"
         )

(content-type-reader-set! "text/html" read-sxml)
(content-type-reader-set! "text/xml" read-sxml) 
(content-type->input-set! sxml? (lambda (v)
                                  (open-input-abytes (sxml->string v))))