examples.scrbl (1196B)
1 #lang scribble/base 2 @(require scribble/examples) 3 4 @(define shared-eval (make-base-eval)) 5 @examples[#:hidden #:eval shared-eval "just testing"] 6 7 @examples[ 8 (+ 1 2) 9 ] 10 11 @examples[ 12 (+ 3 4) 13 (string-append "5" 14 "6") 15 ] 16 17 @examples[ 18 #:label #f 19 (+ 2 3) 20 ] 21 22 @examples[ 23 #:label "Another example:" 24 (+ 2 4) 25 ] 26 27 @examples[ 28 #:no-inset 29 (+ 2 5) 30 (* 3 4) 31 ] 32 33 @examples[ 34 #:no-prompt 35 (+ 2 6) 36 (* 3 5) 37 ] 38 39 @examples[ 40 #:result-only 41 "Just the result."] 42 43 @examples[ 44 #:preserve-source-locations 45 (syntax-line (quote-syntax here)) 46 ] 47 48 @examples[ 49 #:no-result 50 "don't show the result" 51 ] 52 53 @examples[ 54 #:lang racket/base 55 (define x "don't show") 56 "the result" 57 ] 58 59 @examples[ 60 (eval:error (/ 1 0)) 61 ] 62 63 @examples[ 64 (code:line (+ 1 2) (* 3 4)) 65 ] 66 67 @examples[ 68 (eval:check (+ 1 2) (* 3 1)) 69 ] 70 71 @examples[ 72 (eval:alts (/ 1 0) +inf.0) 73 ] 74 75 @examples[ 76 (eval:result "(/ 1 0)") 77 ] 78 79 @examples[ 80 (eval:result "(/ 1 0)" "getting +inf.0") 81 ] 82 83 @examples[ 84 (eval:result "(/ 1 0)" "getting +inf.0" "oops") 85 ] 86 87 @examples[ 88 (eval:alts (/ 100 0) (eval:result "(/ 1 0)" "getting +inf.0" "oops")) 89 ] 90 91 @examples[ 92 (eval:alts (/ 100 0) (eval:results (list "(/ 1 0)" "'=") "getting +inf.0" "oops")) 93 ] 94 95 @examples[ 96 #:no-prompt 97 (eval:alts (define x 42) (define x 42)) 98 ]