2020-01-29 21:23:07 +00:00
|
|
|
#!/usr/bin/env racket
|
|
|
|
|
#lang racket
|
2020-01-30 23:29:08 +00:00
|
|
|
; vim:syntax=racket
|
2020-01-29 21:23:07 +00:00
|
|
|
|
|
|
|
|
(require "iputil.rkt")
|
|
|
|
|
|
|
|
|
|
;; Str [Listof Peer] ->
|
|
|
|
|
;; Router main
|
|
|
|
|
(define (run-router asn peers)
|
|
|
|
|
(displayln asn)
|
|
|
|
|
(map displayln peers)
|
|
|
|
|
(void))
|
|
|
|
|
|
|
|
|
|
(module+ main
|
|
|
|
|
(command-line
|
|
|
|
|
#:program "router"
|
|
|
|
|
#:args
|
|
|
|
|
(asn . peers)
|
|
|
|
|
;; Run the router
|
|
|
|
|
(run-router asn (map string->peer peers))))
|
