2016-07-12 22:57:18 +00:00
|
|
|
#lang syndicate/actor
|
2014-06-21 10:52:56 +00:00
|
|
|
|
2016-07-12 22:57:18 +00:00
|
|
|
(require/activate syndicate/drivers/timer)
|
|
|
|
(require/activate "ethernet.rkt")
|
|
|
|
(require/activate "arp.rkt")
|
2016-07-17 16:08:47 +00:00
|
|
|
(require/activate "ip.rkt")
|
|
|
|
(require/activate "tcp.rkt")
|
|
|
|
(require/activate "udp.rkt")
|
2016-07-12 22:57:18 +00:00
|
|
|
(require/activate "demo-config.rkt")
|
2014-06-21 10:52:56 +00:00
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
(let ()
|
|
|
|
(define local-handle (tcp-handle 'httpclient))
|
2016-07-17 16:08:59 +00:00
|
|
|
(define remote-handle (tcp-address "81.4.107.66" 80))
|
2014-06-21 10:52:56 +00:00
|
|
|
|
2016-07-12 22:57:18 +00:00
|
|
|
(actor (react
|
|
|
|
(assert (advertise (tcp-channel local-handle remote-handle _)))
|
|
|
|
(on (asserted (advertise (tcp-channel remote-handle local-handle _)))
|
|
|
|
(send! (tcp-channel local-handle
|
|
|
|
remote-handle
|
2016-07-17 16:08:59 +00:00
|
|
|
#"GET / HTTP/1.0\r\nHost: leastfixedpoint.com\r\n\r\n")))
|
2016-07-12 22:57:18 +00:00
|
|
|
(stop-when (retracted (advertise (tcp-channel remote-handle local-handle _)))
|
|
|
|
(printf "URL fetcher exiting.\n"))
|
|
|
|
(on (message (tcp-channel remote-handle local-handle $bs))
|
2014-06-21 15:54:42 +00:00
|
|
|
(printf "----------------------------------------\n~a\n" bs)
|
2016-07-12 22:57:18 +00:00
|
|
|
(printf "----------------------------------------\n")))))
|