2014-06-16 01:16:14 +00:00
|
|
|
#lang minimart
|
|
|
|
|
|
|
|
(require minimart/drivers/timer)
|
|
|
|
(require "ethernet.rkt")
|
|
|
|
(require "arp.rkt")
|
|
|
|
(require "ip.rkt")
|
2014-06-16 21:55:57 +00:00
|
|
|
(require "tcp.rkt")
|
2014-06-16 01:16:14 +00:00
|
|
|
|
|
|
|
(define interface "wlan0")
|
|
|
|
|
|
|
|
;;(log-events-and-actions? #t)
|
|
|
|
|
|
|
|
(spawn-timer-driver)
|
|
|
|
(spawn-ethernet-driver)
|
|
|
|
(spawn-arp-driver interface)
|
2014-06-16 21:55:57 +00:00
|
|
|
(spawn-ip-driver interface (bytes 192 168 56 222))
|
|
|
|
(spawn-tcp-driver)
|
2014-06-16 01:16:14 +00:00
|
|
|
|
|
|
|
(spawn (lambda (e s)
|
|
|
|
;; (log-info "SPY: ~v" e)
|
|
|
|
#f)
|
|
|
|
(void)
|
|
|
|
(gestalt-union (sub ? #:level 5)))
|