Update Vendored Erubis to 2.6.6

2010-07-04 08:51:53 -05:00 · 2010-07-04 08:51:53 -05:00 · 39c2138f88
commit 39c2138f88
parent c18c2f988d
300 changed files with 207 additions and 171 deletions
--- a/vendor/plugins/erubis/test/data/users-guide/example_scheme.result
+++ b/vendor/plugins/erubis/test/data/users-guide/example_scheme.result
@ -0,0 +1,30 @@
+$ erubis -l scheme example.escheme
+(let ((_buf '())) (define (_add x) (set! _buf (cons x _buf))) (_add "<html>
+ <body>\n")
+
+(let ((user "Erubis")
+      (items '("<aaa>" "b&b" "\"ccc\""))
+      (i 0))
+ 
+(_add "  <p>Hello ")(_add user)(_add "!</p>
+  <table>\n")
+
+  (for-each
+   (lambda (item)
+     (set! i (+ i 1))
+ 
+(_add "   <tr bgcolor=\"")(_add (if (= (modulo i 2) 0) "#FFCCCC" "#CCCCFF"))(_add "\">
+    <td>")(_add i)(_add "</td>
+    <td>")(_add item)(_add "</td>
+   </tr>\n")
+
+   ) ; lambda end
+   items) ; for-each end
+ 
+(_add "  </table>\n")
+
+) ; let end
+
+(_add " </body>
+</html>\n")
+  (reverse _buf))