48 lines
1.3 KiB
Racket
48 lines
1.3 KiB
Racket
#lang prospect-monolithic
|
|
|
|
(require prospect-monolithic/demand-matcher)
|
|
(require prospect-monolithic/drivers/timer)
|
|
(require "demo-config.rkt")
|
|
(require "ethernet.rkt")
|
|
(require "arp.rkt")
|
|
(require "ip.rkt")
|
|
(require "tcp.rkt")
|
|
(require "udp.rkt")
|
|
|
|
;;(log-events-and-actions? #t)
|
|
|
|
(spawn-timer-driver)
|
|
(spawn-ethernet-driver)
|
|
(spawn-arp-driver)
|
|
(spawn-ip-driver)
|
|
(spawn-tcp-driver)
|
|
(spawn-udp-driver)
|
|
(spawn-demo-config)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(let ()
|
|
(define local-handle (tcp-handle 'httpclient))
|
|
(define remote-handle (tcp-address "129.10.115.92" 80))
|
|
|
|
(spawn (lambda (e seen-peer?)
|
|
(match e
|
|
[(routing-update g)
|
|
(define peer-present? (not (gestalt-empty? g)))
|
|
(transition (or seen-peer? peer-present?)
|
|
(if (and (not peer-present?) seen-peer?)
|
|
(quit)
|
|
(send (tcp-channel
|
|
local-handle
|
|
remote-handle
|
|
#"GET / HTTP/1.0\r\nHost: stockholm.ccs.neu.edu\r\n\r\n"))))]
|
|
[(message (tcp-channel _ _ bs) _ _)
|
|
(printf "----------------------------------------\n~a\n" bs)
|
|
(printf "----------------------------------------\n")
|
|
#f]
|
|
[_ #f]))
|
|
#f
|
|
(gestalt-union (pub (tcp-channel local-handle remote-handle ?))
|
|
(sub (tcp-channel remote-handle local-handle ?))
|
|
(sub (tcp-channel remote-handle local-handle ?) #:level 1))))
|