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