Data commit

Task/HTTP/Scheme/http-1.ss

@@ -0,0 +1,26 @@
+; Use the regular expression module to parse the url (included with Guile)
+(use-modules (ice-9 regex))
+
+; Set the url and parse the hostname, port, and path into variables
+(define url "http://www.rosettacode.org/wiki/HTTP")
+(define r (make-regexp "^(http://)?([^:/]+)(:)?(([0-9])+)?(/.*)?" regexp/icase))
+(define host (match:substring (regexp-exec r url) 2))
+(define port (match:substring (regexp-exec r url) 4))
+(define path (match:substring (regexp-exec r url) 6))
+
+; Set port to 80 if it wasn't set above and convert from a string to a number
+(if (eq? port #f) (define port "80"))
+(define port (string->number port))
+
+; Connect to remote host on specified port
+(let ((s (socket PF_INET SOCK_STREAM 0)))
+        (connect s AF_INET (car (hostent:addr-list (gethostbyname host))) port)
+
+; Send a HTTP request for the specified path
+        (display "GET " s)
+        (display path s)
+        (display " HTTP/1.0\r\n\r\n" s)
+
+; Display the received HTML
+        (do ((c (read-char s) (read-char s))) ((eof-object? c))
+                (display c)))

Task/HTTP/Scheme/http-2.ss

@@ -0,0 +1,4 @@
+(use http-client)
+(print
+  (with-input-from-request "http://google.com/"
+                           #f read-string))