20 lines
342 B
Plaintext
20 lines
342 B
Plaintext
|
#!/usr/bin/env racket
|
||
|
|
#lang racket
|
||
|
|
|
||
|
|
(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))))
|