#lang syndicate/actor

(require "ip.rkt")
(require "tcp.rkt")
(require "udp.rkt")

;;(log-events-and-actions? #t)

(require/activate syndicate/drivers/timer)
(require/activate "ethernet.rkt")
(require/activate "arp.rkt")
(spawn-ip-driver)
(spawn-tcp-driver)
(spawn-udp-driver)
(require/activate "demo-config.rkt")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(let ()
  (define local-handle (tcp-handle 'httpclient))
  (define remote-handle (tcp-address "129.10.115.92" 80))

  (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
                                  #"GET / HTTP/1.0\r\nHost: stockholm.ccs.neu.edu\r\n\r\n")))
          (stop-when (retracted (advertise (tcp-channel remote-handle local-handle _)))
                     (printf "URL fetcher exiting.\n"))
          (on (message (tcp-channel remote-handle local-handle $bs))
	      (printf "----------------------------------------\n~a\n" bs)
	      (printf "----------------------------------------\n")))))