Data commit

Task/HTTP/Oz/http-1.oz

@@ -0,0 +1,10 @@
+declare
+  fun {GetPage Url}
+     F = {New Open.file init(url:Url)}
+     Contents = {F read(list:$ size:all)}
+  in
+     {F close}
+     Contents
+  end
+in
+  {System.showInfo {GetPage "http://www.rosettacode.org"}}

Task/HTTP/Oz/http-2.oz

@@ -0,0 +1,17 @@
+declare
+  [HTTPClient] = {Module.link ['x-ozlib://mesaros/net/HTTPClient.ozf']}
+
+  fun {GetPage Url}
+     Client = {New HTTPClient.urlGET
+	       init(inPrms(toFile:false toStrm:true)
+		    httpReqPrms
+		   )}
+     OutParams
+     HttpResponseParams
+  in
+     {Client getService(Url ?OutParams ?HttpResponseParams)}
+     {Client closeAll(true)}
+     OutParams.sOut
+  end
+in
+  {System.showInfo {GetPage "http://www.rosettacode.org"}}