This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Jim Blandy <jimb@red-bean.com> writes: > > > >I want to write a Guile procedure which asks a question to a > >WWW-server. > > ftp://ftp.red-bean.com/pub/guile/contrib/modules/wwwtools.tgz > > is a bit rough, but quite serviceable. Hmm... 0* [www:get "http://www.nada.kth.se/~mdj"] 1 (let ((url #)) (case (url:scheme url) (# #) ...)) ... 2 (let ((msg #)) (http:message-body msg)) 3* [http:get "www.nada.kth.se" #f ...] 4 (let ((p #) (path #)) (http:request p (string-append "GET " path ...) ...)) 5* [http:connect "www.nada.kth.se" 80] 6 (let* ((port #) (tcp #) (addr #) ...) (connect sock AF_INET ...) ...) 7* [car ... 8* [vector-ref ... 9* [gethost "www.nada.kth.se"] But (gethost "www.nada.kth.se") --> #("web.nada.kth.se" ("www.nada.kth.se") 2 4 (2196627010)) ??? /mdj