technomancy / bus-scheme fork watch download tarball
public
Description: a Scheme written in Ruby, but implemented on the bus!
Homepage: http://bus-scheme.rubyforge.org
Clone URL: git://github.com/technomancy/bus-scheme.git 
renaming http-get to web-get and having it only return the content body
JackDanger (author)
Sun Jun 01 16:29:15 -0700 2008
commit  8a4c9ac7f50e5df6b3589fc3d797af500736a1a7
tree    aba061b781884480d09a2e99832e90f7d8a78eb9
parent  ca9f8476e308668501a2fc28a1841b8804424cd1
0
lib/bus_scheme/web/client.rb 
...
2
3
4
5
6
 
 
7
8
9
 
...
2
3
4
 
 
5
6
7
8
9
 
0
@@ -2,8 +2,8 @@ require 'net/http'
0
 require 'uri'
0
 
0
 module BusScheme
0
-  define('http-get', primitive do |uri, options|
0
-           BusScheme['http-method'].call(['get', uri, options])
0
+  define('web-get', primitive do |uri, options|
0
+           BusScheme['http-method'].call(['get', uri, options])[:body.sym]
0
          end)
0
 
0
   define('http-post', primitive do |uri, options|
0
test/test_web.rb 
...
123
124
125
126
 
127
128
129
 
...
123
124
125
 
126
127
128
129
 
0
@@ -123,7 +123,7 @@ Concourse is ...      </p>
0
       eval! "(define root-string \"This is the root of our HTTP!\")
0
 (defresource \"/\" root-string)
0
 
0
-(http-get \"http://localhost:2000/\")"
0
+(web-get \"http://localhost:2000/\")"
0
     end
0
     private
0
     

Comments

    No one has commented yet.