17 lines
288 B
Racket
17 lines
288 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
;; Str [Listof Str] ->
|
||
|
|
;; Router main
|
||
|
|
(define (run-router asn ip-addrs)
|
||
|
|
(displayln asn)
|
||
|
|
(map displayln ip-addrs)
|
||
|
|
(void))
|
||
|
|
|
||
|
|
(module+ main
|
||
|
|
(command-line
|
||
|
|
#:program "router"
|
||
|
|
#:args
|
||
|
|
(asn . ip-addrs)
|
||
|
|
;; Run the router
|
||
|
|
(run-router asn ip-addrs)))
|