#lang scribble/doc

@(require planet/scribble
          scribble/manual
	  scribble/eval
	  "tee-pipe.rkt"
	  (for-label racket 
	  	     "tee-pipe.rkt"))

@(define list-eval (make-base-eval))
@(interaction-eval #:eval list-eval (require racket "tee-pipe.rkt"))

@title{Tee Pipe}
@author{@(author+email "Haiwei Zhou" "highfly22@gmail.com")}

@defmodule/this-package[tee-pipe]

@table-of-contents[]

@defproc[(tee-pipe [in input-port?] [handler (-> input-port? any)] ...) list? ]{
 Returns a list of handler results.
 }

@examples[
#:eval list-eval
(tee-pipe (open-input-string "123\nabc\nABC")
          port->string
          port->lines)

(tee-pipe (open-input-string "123\nabc\nABC")
          port->string
          port->lines
	  port->bytes)

(tee-pipe (open-input-string "123\nabc\nABC")
          port->string
          port->lines
	  string-length)]